|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1884 (0x75c)
Types: TextFile
Names: »B«
└─⟦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⟧
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;