|
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: 1254 (0x4e6)
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 (Inquiry_Operations)
-- A utility to converse with the User and return a proper Name.
-- The 2 main functions are to convert to fixed length and upper case.
function Get_Unit_Name return Unit_Name_Type is
Name : Unit_Name_Type;
Last : Natural;
Name_Length : constant Integer := Unit_Name_Type'Last; -- or 'LENGTH
function Upper (C : in Character) return Character is
begin
if C in 'a' .. 'z' then
return Character'Val (Character'Pos (C) - Character'Pos ('a') +
Character'Pos ('A'));
else
return C;
end if;
end Upper;
begin
Put (Standard_Output, "What is the test unit name? ");
Get_Line (Name, Last); -- could raise exception
if Last < Name_Length then
Name (Last + 1 .. Name_Length) := " "; -- blank pad to right
end if;
for Char in 1 .. Name_Length loop
Name (Char) := Upper (Name (Char)); -- database can only
end loop; -- find upper-case names
return Name;
exception
when Constraint_Error =>
return Name (1 .. Schema.Name_Length);
end Get_Unit_Name;
--*****************************************************************************