|
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 Interpreteur, seg_048bf3, seg_048c81, seg_048d96
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Mots;
package Interpreteur is
-- Redefinition de types :
subtype Word is Mots.Word;
subtype T_Commande is Mots.T_Commande;
subtype T_Tab_Commande is Mots.T_Tab_Commande;
---------------------------------------------------------------------------
--
-- Interprete, procedure verifiant qu'il n'y ait pas d'erreur dans chaque
-- instruction donnee par le joueur.
--
-- Verifications operees : - Nombre de mots (<4).
-- - Existence d'une instruction.
-- - fin du jeu par la commande "Quit".
-- - Sens existant, et donc existence, de chaque mots.
-- - Syntaxe correcte de l'instruction.
--
-- La verification du sens s'effectue grace a la commande Player_Sens.
-- La verification de la syntaxe s'effectue grace a la commande Player_Syntax.
-- Ces deux commandes font parties du paquetage Player_Dictionnary.
--
-- La procedure Interprete fourni en sortie la commande du joueur
-- sous la forme : - Nombre de mots de l'instruction.
-- - Les mots de l'instruction sous forme d'un tableau.
--
---------------------------------------------------------------------------
procedure Interprete (Commande : in out T_Commande);
---------------------------------------------------------------------------
--
-- Exception levees si il y a plus de quatre mots ( Out_Of_Words ) et
-- si la fin du jeu est demande.
--
---------------------------------------------------------------------------
Out_Of_Words : exception;
End_Of_Play : exception;
end Interpreteur;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=19 rec1=00 rec2=01 rec3=04a
[0x01] rec0=14 rec1=00 rec2=02 rec3=001
tail 0x215461796865a83871435 0x42a00088462060003