|
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: 1313 (0x521)
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⟧
separate (File_Name_Package)
procedure Read_Over_Blanks (First_Non_Blank : out Character) is
--==============================================================
-- This procedure reads over blank characters in the input =
-- until either a non-blank character is found or the end of =
-- line is found. If the end of line is found, then raise the =
-- exception No_More_File_Names. =
-- =
-- written by Gary Russell at EVB Software Engineering Inc. =
-- Reviewed by Brad Balford and Johan Margono =
-- May 1985 =
--==============================================================
Input_Character : Character;
-- The Character read in with Text_IO
begin
-- Read_Over_Blanks
Leading_Characters:
loop
if Text_Io.End_Of_Line then
raise No_More_File_Names;
end if;
Text_Io.Get (Input_Character);
exit Leading_Characters when Input_Character /= ' ';
end loop Leading_Characters;
First_Non_Blank := Input_Character;
exception
when Text_Io.End_Error =>
raise No_More_File_Names;
end Read_Over_Blanks;