|
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 - metrics - downloadIndex: B T
Length: 1171 (0x493)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
package body Find_Unit is
--==============================================================
-- This package provides the user with the necessary =
-- information to support the building of an Ada compilation =
-- unit. There is one operation exported called =
-- Build_Ada_Compilation_Unit. This operation will build an =
-- extended Ada compilation unit from the Ada source code file.=
-- The exception No_More_File_Names will be raised if there are=
-- only blank lines or comments left before end of file. The =
-- exception Syntax error will be raised if there is a syntax =
-- error found while searching for a compilation unit. =
-- =
-- written by GER with help from b2 and JM =
--==============================================================
procedure Build_Ada_Compilation_Unit
(Next_Unit : in out Compilation_Unit.
Ada_Compilation_Unit) is separate;
-- Read the next Ada compilation unit from the input file
end Find_Unit;