|
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: 1587 (0x633)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦9f61d3d83⟧
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
package body Std_Char is
subtype Hi_Char is Character range 'A' .. 'Z';
subtype Low_Char is Character range 'a' .. 'z';
subtype Digit is Character range '0' .. '9';
function Is_Alpha (Item : in Character) return Boolean is
begin
if ((Item in Low_Char) or (Item in Hi_Char) or (Item = '_')) then
return True;
else
return False;
end if;
end Is_Alpha;
function Is_Digit (Item : in Character) return Boolean is
begin
if (Item in Digit) then
return True;
else
return False;
end if;
end Is_Digit;
function Is_Upper (Item : in Character) return Boolean is
begin
if (Item in Hi_Char) then
return True;
else
return False;
end if;
end Is_Upper;
function Is_Lower (Item : in Character) return Boolean is
begin
if (Item in Low_Char) then
return True;
else
return False;
end if;
end Is_Lower;
procedure To_Upper (Item : in out Character) is
begin
if (Item in Low_Char) then
Item := Character'Val (Character'Pos (Item) +
Character'Pos ('A') - Character'Pos ('a'));
end if;
end To_Upper;
procedure To_Lower (Item : in out Character) is
begin
if (Item in Hi_Char) then
Item := Character'Val (Character'Pos (Item) +
Character'Pos ('a') - Character'Pos ('A'));
end if;
end To_Lower;
end Std_Char;