DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦ee07f7fb6⟧ TextFile

    Length: 1884 (0x75c)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

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;