|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Util_String, seg_04db71
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package body Util_String is
procedure String_Contient (Chaine : String;
Template : String;
Dernier_Car : in out Natural) is
begin
if Template'Length > Chaine'Length then
raise Template_Non_Trouve;
else
for I in 0 .. Natural (Template'Length - 1) loop
if Template (Template'First + I) /=
Chaine (Chaine'First + I) then
raise Template_Non_Trouve;
end if;
end loop;
end if;
Dernier_Car := Chaine'First + Template'Length - 1;
end String_Contient;
procedure Position (Chaine : String;
Template : Character;
Position : in out Natural) is
begin
for I in Chaine'Range loop
if Chaine (I) = Template then
Position := I;
exit;
end if;
end loop;
if Chaine (Position) /= Template then
raise Template_Non_Trouve;
end if;
end Position;
function Suppression_Espace_Right (S : String) return String is
begin
for I in reverse S'Range loop
if S (I) /= ' ' then
return S (S'First .. I);
end if;
end loop;
return S;
end Suppression_Espace_Right;
function Suppression_Espace_Left (S : String) return String is
begin
for I in S'Range loop
if S (I) /= ' ' then
return S (I .. S'Last);
end if;
end loop;
end Suppression_Espace_Left;
end Util_String;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1e rec1=00 rec2=01 rec3=024
[0x01] rec0=1b rec1=00 rec2=02 rec3=001
tail 0x217554890876831171744 0x42a00088462060003