DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦e568c3806⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body List, seg_0381b6

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Class_Printer;
with Bug_Report;
with Bounded_String;

package body List is

    procedure Parse (Ident : in out Message.Unary;
                     Kwd : in out Message.Unary) is
        use Scanner;
    begin  
        case Scanner.Get_Token is
            when Scanner.Identifier =>
                Message.Put (This_Name => Scanner.Get_Value, Into => Ident);
                Scanner.Next;  
                if Scanner.Get_Token = Scanner.Identifier then
                    Parse_Ident (Ident, Kwd);
                end if;
            when Scanner.Keyword =>
                Message.Put (This_Name => Scanner.Get_Value, Into => Kwd);
                Scanner.Next;
                if Scanner.Get_Token = Scanner.Identifier then
                    Message.Put (This_Name => Scanner.Get_Value, Into => Ident);
                    Scanner.Next;
                    if Scanner.Get_Token = Scanner.Keyword then
                        Parse_Kwd (Ident, Kwd);                   end if;  
                else
                    raise Bug_Report.Identifier_Is_Missing;
                end if;
            when others =>
                raise Bug_Report.Unexpected_Token;
        end case;
    end Parse;

    procedure Parse_Ident (Ident : in out Message.Unary;
                           Kwd : in out Message.Unary) is
        use Scanner;
    begin
        Message.Put (This_Name => Scanner.Get_Value, Into => Ident);
        Scanner.Next;
        if Scanner.Get_Token = Scanner.Identifier then
            Parse_Ident (Ident, Kwd);
        end if;
    end Parse_Ident;

    procedure Parse_Kwd (Ident : in out Message.Unary;
                         Kwd : in out Message.Unary) is
        use Scanner;
    begin
        Message.Put (This_Name => Scanner.Get_Value, Into => Kwd);
        Scanner.Next;
        if Scanner.Get_Token = Scanner.Identifier then
            Message.Put (This_Name => Scanner.Get_Value, Into => Ident);
            Scanner.Next;
            if Scanner.Get_Token = Scanner.Keyword then
                Parse_Kwd (Ident, Kwd);
            end if;
        else
            raise Bug_Report.Identifier_Is_Missing;
        end if;
    end Parse_Kwd;

    function Is_First (T : Scanner.Token) return Boolean is
        use Scanner;
    begin
        return T = Identifier or else T = Keyword;
    end Is_First;

    procedure Unparse (Ident : Message.Unary; Kwd : Message.Unary) is

        Ident_Mess : Message.Unary := Ident;
        Kwd_Mess : Message.Unary := Kwd;

    begin
        Message.Init (This => Ident_Mess);
        Message.Init (This => Kwd_Mess);
        if Message.Is_Done (Kwd_Mess) then
            while not Message.Is_Done (Ident_Mess) loop
                Class_Printer.Put (" " &
                                   Bounded_String.Image
                                      (Message.Get (Name_From => Ident_Mess)));
                Message.Next (Ident_Mess);
            end loop;
        else
            while not Message.Is_Done (Kwd_Mess) loop
                Class_Printer.Put
                   (" " & Bounded_String.Image
                             (Message.Get (Name_From => Kwd_Mess)) &
                    ": " & Bounded_String.Image
                              (Message.Get (Name_From => Ident_Mess)));
                Message.Next (Ident_Mess);
                Message.Next (Kwd_Mess);
            end loop;
        end if;
    end Unparse;

end List;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1b rec1=00 rec2=01 rec3=002
        [0x01] rec0=01 rec1=00 rec2=03 rec3=01c
        [0x02] rec0=1c rec1=00 rec2=02 rec3=00a
        [0x03] rec0=1c rec1=00 rec2=04 rec3=022
        [0x04] rec0=10 rec1=00 rec2=05 rec3=000
    tail 0x21735bb4084e67d0cc67d 0x42a00088462060003