|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Acces, seg_048921
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Rooms;
with Complements;
with Mode;
with Visibilite;
with Syntax_Error;
with Lexical;
with Compiler_Token;
use Compiler_Token;
package body Acces is
procedure Parse is
Mode_Synth : Rooms.Mode_Choice;
Visibility_Synth : Rooms.Visibility_Choice;
Mode_Ok, Visibility_Ok : Boolean;
The_Way, The_Name, The_Destination : Lexical.Our_String.Variable_String;
Le_Commentaire : Lexical.Our_String.Variable_String;
begin
if Lexical.Get_Token = L_Acces then
Lexical.Next;
if Lexical.Get_Token = L_Id then
The_Way := Lexical.Our_String.Value (Lexical.Get_Value);
Lexical.Next;
if Lexical.Get_Token = L_De then
Lexical.Next;
if Lexical.Get_Token = L_Id then
The_Name := Lexical.Our_String.Value
(Lexical.Get_Value);
Lexical.Next;
if Lexical.Get_Token = L_Vers then
Lexical.Next;
if Lexical.Get_Token = L_Id then
The_Destination := Lexical.Our_String.Value
(Lexical.Get_Value);
Lexical.Next;
if Lexical.Get_Token = L_Passage then
Lexical.Next;
Mode.Parse (Mode_Synth, Mode_Ok);
Visibilite.Parse
(Visibility_Synth, Visibility_Ok);
if Lexical.Get_Token = L_Est then
Lexical.Next;
if Lexical.Get_Token = L_Str then
Le_Commentaire :=
Lexical.Our_String.Value
(Lexical.Get_Value);
if Mode_Ok and Visibility_Ok then
-- The_Name existe ? et The_Name est un Room ?, idem pour The_Destination ......
if Complements.Exists (Lexical.Our_String.Image (The_Name)) and
Complements."=" (Complements.Kind_Of
(Lexical.Our_String.Image (The_Name)),
Complements.Room) then
if Complements.Exists
(Lexical.Our_String.Image (The_Destination)) and
Complements."=" (Complements.Kind_Of
(Lexical.Our_String.Image
(The_Destination)),
Complements.Room) then
Complements.Create (Lexical.Our_String.Image (The_Way),
Complements.Way);
Rooms.Add_Communication
(Lexical.Our_String.Image (The_Name),
Lexical.Our_String.Image (The_Way),
Lexical.Our_String.Image (The_Destination));
Rooms.Set_Communication_Mode
(Lexical.Our_String.Image (The_Name),
Lexical.Our_String.Image (The_Way), Mode_Synth);
Rooms.Set_Communication_Visibility
(Lexical.Our_String.Image (The_Name),
Lexical.Our_String.Image (The_Way),
Visibility_Synth);
Rooms.Set_Communication_Comment
(Lexical.Our_String.Image (The_Name),
Lexical.Our_String.Image (The_Way),
Lexical.Our_String.Image (Le_Commentaire));
else
Syntax_Error.Semantique ("Piece d'arrivee inconnue");
end if;
else
Syntax_Error.Semantique ("Piece de depart inconnue");
end if;
end if;
Lexical.Next;
else
Syntax_Error.Syntaxique
(R_Acces, "L_Str");
end if;
else
Syntax_Error.Syntaxique
(R_Acces, "L_Est");
end if;
else
Syntax_Error.Syntaxique
(R_Acces, "L_Passage");
end if;
else
Syntax_Error.Syntaxique (R_Acces, "L_Id");
end if;
else
Syntax_Error.Syntaxique (R_Acces, "L_Vers");
end if;
else
Syntax_Error.Syntaxique (R_Acces, "L_Id");
end if;
else
Syntax_Error.Syntaxique (R_Acces, "L_De");
end if;
else
Syntax_Error.Syntaxique (R_Acces, "L_Id");
end if;
else
Syntax_Error.Syntaxique (R_Acces, "L_Acces");
end if;
end Parse;
end Acces;
nblk1=a
nid=9
hdr6=e
[0x00] rec0=1f rec1=00 rec2=01 rec3=00a
[0x01] rec0=10 rec1=00 rec2=0a rec3=01c
[0x02] rec0=0c rec1=00 rec2=02 rec3=02a
[0x03] rec0=0f rec1=00 rec2=06 rec3=044
[0x04] rec0=14 rec1=00 rec2=03 rec3=01a
[0x05] rec0=17 rec1=00 rec2=04 rec3=008
[0x06] rec0=03 rec1=00 rec2=08 rec3=000
[0x07] rec0=03 rec1=00 rec2=08 rec3=000
[0x08] rec0=01 rec1=00 rec2=04 rec3=000
[0x09] rec0=f9 rec1=0c rec2=76 rec3=59d
tail 0x2174ccd48865a4058f853 0x42a00088462060003
Free Block Chain:
0x9: 0000 00 07 03 fc 80 04 20 69 66 3b 04 00 00 00 00 00 ┆ if; ┆
0x7: 0000 00 05 03 fc 80 19 5f 6c 69 6e 65 28 22 4d 6f 64 ┆ _line("Mod┆
0x5: 0000 00 00 00 0a 80 07 20 20 20 20 20 20 20 07 5f 54 ┆ _T┆