|
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 - metrics - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Compiler_Token, seg_0469e4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package Compiler_Token is
Max_String_Keyword : constant := 14;
Max_String_Id : constant := 14;
Max_String_Commentaire : constant := 80;
type Token is (L_Ok, L_Acces, L_Action, L_Afficher, L_Changer, L_Chose,
L_Compteur, L_Commentaire, L_Dans, L_De, L_Decrementer,
L_En, L_Est, L_Et, L_Etat, L_Faire, L_Ferme, L_Fin_De_Jeu,
L_Heros, L_Incrementer, L_Invisible, L_Ouvert, L_Passage,
L_Personnage, L_Piece, L_Position_De, L_Positionner,
L_Situation, L_Toujours_Faire, L_Valeur, L_Vers,
L_Visible, L_Str, L_Nbr, L_Less, L_Great, L_Equal,
L_Comma, L_Id, L_Dollar, L_Epsilon, L_Unk, L_Eof);
type State is (St_Normal, St_Word, St_Litt, St_Number, St_Found);
type Keyword is
record
The_Name : String (1 .. Max_String_Keyword);
The_Token : Token;
end record;
type Keywords is array (Positive range <>) of Keyword;
The_Keywords : constant Keywords :=
(("ACCES ", L_Acces), ("ACTION ", L_Action),
("AFFICHER ", L_Afficher), ("CHANGER ", L_Changer),
("CHOSE ", L_Chose), ("COMPTEUR ", L_Compteur),
("COMMENTAIRE ", L_Commentaire), ("DANS ", L_Dans),
("DE ", L_De), ("DECREMENTER ", L_Decrementer),
("EN ", L_En), ("EST ", L_Est),
("ET ", L_Et), ("ETAT ", L_Etat),
("FAIRE ", L_Faire), ("FERME ", L_Ferme),
("FIN_DE_JEU ", L_Fin_De_Jeu), ("HEROS ", L_Heros),
("INCREMENTER ", L_Incrementer), ("INVISIBLE ", L_Invisible),
("OUVERT ", L_Ouvert), ("PASSAGE ", L_Passage),
("PERSONNAGE ", L_Personnage), ("PIECE ", L_Piece),
("POSITION_DE ", L_Position_De),
("POSITIONNER ", L_Positionner), ("SITUATION ", L_Situation),
("TOUJOURS_FAIRE", L_Toujours_Faire), ("VALEUR ", L_Valeur),
("VERS ", L_Vers), ("VISIBLE ", L_Visible));
Max_First : constant := 10;
Max_Follow : constant := 15;
type Rule is (R_Le_Jeu, R_Les_Personnages, R_Les_Personnages_Bis,
R_Personne, R_Les_Pieces, R_Les_Pieces_Bis, R_Piece,
R_Les_Choses, R_Chose, R_Les_Etats, R_Etat, R_Autre_Etat,
R_Les_Positions, R_Les_Positions_Bis, R_Position,
R_Les_Acces, R_Les_Acces_Bis, R_Acces, R_Mode, R_Visibilite,
R_Les_Compteurs, R_Compteur, R_Le_Scenario, R_Test_Toujours,
R_Les_Tests, R_Test, R_Test_Sup, R_Action, R_Situation,
R_Test_Action, R_Test_Action_Bis, R_Un_Complement,
R_Test_Situation, R_Test_Situation_Bis, R_Les_Effets,
R_Des_Effets, R_Des_Effets_Bis, R_Effet, R_Une_Position);
type Tokens is array (Positive range <>) of Token;
type Rules is
record
A_Rule : Rule;
First_Tokens : Tokens (1 .. Max_First);
Follow_Tokens : Tokens (1 .. Max_Follow);
end record;
type The_Rules is array (Positive range <>) of Rules;
function Is_First (Un_Token : Token; Une_Regle : Rule) return Boolean;
function Is_Follow (Un_Token : Token; Une_Regle : Rule) return Boolean;
end Compiler_Token;
nblk1=6
nid=2
hdr6=a
[0x00] rec0=17 rec1=00 rec2=01 rec3=02c
[0x01] rec0=04 rec1=00 rec2=04 rec3=00c
[0x02] rec0=0e rec1=00 rec2=05 rec3=058
[0x03] rec0=13 rec1=00 rec2=06 rec3=04e
[0x04] rec0=09 rec1=00 rec2=03 rec3=000
[0x05] rec0=03 rec1=00 rec2=02 rec3=001
tail 0x2154356ec86516fbdf7dc 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 00 46 80 27 6f 6b 65 6e 3b 20 55 6e 65 5f ┆ F 'oken; Une_┆