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 - download

⟦2581418cb⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Initialize, seg_030b0a, separate Ayacc

Derivation

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

with String_Pkg;
use String_Pkg;

separate (Ayacc)
procedure Initialize is
    use File_Names, Options;

    Input_File, Extension, Options : String_Type := Create ("");

    type Switch is (On, Off);

    C_Lex_Flag, Debug_Flag, Summary_Flag, Verbose_Flag : Switch;

    Invalid_Command_Line : exception;

    procedure Get_Arguments (File : out String_Type;
                             C_Lex : out Switch;
                             Debug : out Switch;
                             Summary : out Switch;
                             Verbose : out Switch;
                             Extension : out String_Type) is separate;

begin

    Get_Arguments (Input_File, C_Lex_Flag, Debug_Flag,
                   Summary_Flag, Verbose_Flag, Extension);

    New_Line;
    Put_Line ("  Ayacc (File      => """ & Value (Input_File) & """,");
    Put_Line ("         C_Lex     => " &
              Value (Mixed (Switch'Image (C_Lex_Flag))) & ',');
    Put_Line ("         Debug     => " &
              Value (Mixed (Switch'Image (Debug_Flag))) & ',');
    Put_Line ("         Summary   => " &
              Value (Mixed (Switch'Image (Summary_Flag))) & ',');
    Put_Line ("         Verbose   => " &
              Value (Mixed (Switch'Image (Verbose_Flag))) & ",");
    Put_Line ("         Extension => """ & Value (Extension) & """);");
    New_Line;

    if C_Lex_Flag = On then
        Options := Options & Create ("i");
    end if;

    if Debug_Flag = On then
        Options := Options & Create ("d");
    end if;

    if Summary_Flag = On then
        Options := Options & Create ("s");
    end if;

    if Verbose_Flag = On then
        Options := Options & Create ("v");
    end if;

    Set_File_Names (Value (Input_File), Value (Extension));
    Set_Options (Value (Options));

exception
    when Invalid_Command_Line =>
        raise Illegal_Argument_List;
end Initialize;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=00e
        [0x01] rec0=22 rec1=00 rec2=02 rec3=001
    tail 0x21529829a84a64fba73a8 0x42a00088462060003