|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Test_Action_Bis, seg_046bb3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Tests;
with Complements;
with Un_Complement;
with Lexical;
with Syntax_Error;
with Compiler_Token;
use Compiler_Token;
package body Test_Action_Bis is
procedure Parse is
Complement : Lexical.Our_String.Variable_String;
Un_Test : Tests.Type_Test;
begin
if Lexical.Get_Token = L_Id then
Complement := Lexical.Our_String.Value (Lexical.Get_Value);
Lexical.Next;
if Complements.Exists (Lexical.Our_String.Image (Complement)) then
Un_Test.Kind := Tests.Is_A_Complement;
Un_Test.Name := Tests.Identifier.Value
(Lexical.Our_String.Image (Complement));
Tests.Add_Test (Un_Test);
else
Syntax_Error.Semantique ("Ce complement n'existe pas");
end if;
Un_Complement.Parse;
end if;
end Parse;
end Test_Action_Bis;
nblk1=4
nid=4
hdr6=2
[0x00] rec0=1f rec1=00 rec2=01 rec3=000
[0x01] rec0=0f rec1=00 rec2=02 rec3=07e
[0x02] rec0=0e rec1=00 rec2=04 rec3=000
[0x03] rec0=10 rec1=00 rec2=04 rec3=000
tail 0x217498cb486519add72f5 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 02 00 0d 80 07 6f 6e 5f 42 69 73 3b 07 00 00 ┆ on_Bis; ┆
0x2: 0000 00 03 03 fc 80 2d 20 20 20 4c 65 78 69 63 61 6c ┆ - Lexical┆
0x3: 0000 00 00 00 53 80 30 20 20 20 20 20 20 20 20 20 20 ┆ S 0 ┆