|
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 Follow, seg_0462f6, seg_0465c2, seg_04695f, seg_048433
└─⟦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 Lex;
package Follow is
type Set_Of is array (Lex.Token) of Boolean;
Alors : constant Set_Of := Set_Of'(Lex.L_Afficher .. Lex.L_Locales => True,
Lex.L_Id => True,
others => False);
Antecedent : constant Set_Of := Set_Of'(Lex.L_Et => True,
Lex.L_Ou => True,
Lex.L_Alors => True,
others => False);
Contenu : Set_Of :=
Set_Of'(Lex.L_Finobjet | Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Declaration_De_Communication : Set_Of :=
Set_Of'(Lex.L_Sens2 | Lex.L_Fincommunication => True,
Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Description : Set_Of :=
Set_Of'(Lex.L_Contenu | Lex.L_Etat | Lex.L_Position | Lex.L_Possession =>
True,
Lex.L_Finlieu | Lex.L_Finpersonnage |
Lex.L_Finobjet | Lex.L_Fincommunication => True,
Lex.L_Debutcommunication | Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Etat : Set_Of := Set_Of'(Lex.L_Contenu | Lex.L_Possession => True,
Lex.L_Finlieu | Lex.L_Finpersonnage |
Lex.L_Finobjet | Lex.L_Fincommunication => True,
Lex.L_Scenario | Lex.L_Finjeu => True,
Lex.L_Debutcommunication => True,
others => False);
Enum_De_Communication : Set_Of :=
Set_Of'(Lex.L_Direction | Lex.L_Fincommunication |
Lex.L_Finlieu | Lex.L_Scenario => True,
Lex.L_Finjeu => True,
others => False);
Eof : Set_Of := Set_Of'(others => False);
Expression_Conditionnelle : constant Set_Of :=
Set_Of'(Lex.L_Ou => True,
Lex.L_Alors => True,
Lex.L_Right_Bracket => True,
others => False);
Finsi : constant Set_Of := Set_Of'(Lex.L_Afficher .. Lex.L_Locales => True,
Lex.L_Id => True,
others => False);
Identification_Variable : Set_Of :=
Set_Of'(Lex.L_Description | Lex.L_Valeur | Lex.L_Contenu | Lex.L_Etat |
Lex.L_Position | Lex.L_Possession | Lex.L_Sens1 => True,
Lex.L_Finlieu | Lex.L_Fincompteur | Lex.L_Fincommunication |
Lex.L_Finpersonnage | Lex.L_Finobjet => True,
Lex.L_Debutcommunication | Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Instruction : constant Set_Of :=
Set_Of'(Lex.L_Afficher .. Lex.L_Supprimer => True,
Lex.L_Si => True,
Lex.L_Finsi => True,
Lex.L_Sinon => True,
Lex.L_Locales => True,
Lex.L_Generales => True,
Lex.L_Id => True,
Lex.L_Finjeu => True,
others => False);
Joueur_Est_Dans_Initiales_1 : constant Set_Of :=
Set_Of'(Lex.L_Locales => True,
Lex.L_Generales => True,
Lex.L_Finjeu => True,
others => False);
Joueur_Est_Dans_Initiales_2 : constant Set_Of :=
Set_Of'(Lex.L_Locales => True,
Lex.L_Generales => True,
Lex.L_Finjeu => True,
others => False);
Les_Clauses_Initiales : constant Set_Of := Set_Of'(Lex.L_Locales => True,
Lex.L_Generales => True,
Lex.L_Finjeu => True,
others => False);
Liste_De_Clauses : Set_Of := Set_Of'(Lex.L_Finjeu => True, others => False);
Liste_De_Clauses_Initiales : constant Set_Of :=
Set_Of'(Lex.L_Afficher .. Lex.L_Supprimer => True,
Lex.L_Id => True,
Lex.L_Generales => True,
Lex.L_Locales => True,
Lex.L_Finjeu => True,
others => False);
Liste_De_Clauses_Locales1 : constant Set_Of :=
Set_Of'(Lex.L_Dans => True, Lex.L_Finjeu => True, others => False);
Liste_De_Clauses_Locales2 : constant Set_Of :=
Set_Of'(Lex.L_Dans => True, Lex.L_Finjeu => True, others => False);
Liste_De_Mots : Set_Of :=
Set_Of'(Lex.L_Definitionpreposition | Lex.L_Definitionvariable |
Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Liste_Des_Antecedents : constant Set_Of :=
Set_Of'(Lex.L_Alors | Lex.L_Right_Bracket => True, others => False);
Position : Set_Of :=
Set_Of'(Lex.L_Contenu | Lex.L_Etat | Lex.L_Possession => True,
Lex.L_Finpersonnage | Lex.L_Finobjet => True,
Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Possession : Set_Of :=
Set_Of'(Lex.L_Finpersonnage | Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Regles_Ou_Instructions : constant Set_Of := Set_Of'(Lex.L_Locales => True,
Lex.L_Finsi => True,
Lex.L_Sinon => True,
Lex.L_Finjeu => True,
others => False);
Regle_Ou_Instruction : constant Set_Of :=
Set_Of'(Lex.L_Afficher .. Lex.L_Locales => True,
Lex.L_Dans => True,
Lex.L_Id => True,
others => False);
Une_Variable : Set_Of :=
Set_Of'(Lex.L_Scenario | Lex.L_Communication | Lex.L_Compteur |
Lex.L_Personnage | Lex.L_Objet | Lex.L_Lieu => True,
Lex.L_Finjeu => True,
others => False);
Valeur : Set_Of :=
Set_Of'(Lex.L_Fincompteur | Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Word_Definitionvariable : Set_Of :=
Set_Of'(Lex.L_Scenario | Lex.L_Finjeu => True,
Lex.L_Personnage | Lex.L_Objet | Lex.L_Compteur |
Lex.L_Communication | Lex.L_Lieu => True,
others => False);
Word_Definitionverbe : Set_Of :=
Set_Of'(Lex.L_Id | Lex.L_Definitionpreposition |
Lex.L_Definitionvariable | Lex.L_Scenario | Lex.L_Finjeu => True,
others => False);
Word_Finjeu : Set_Of := Set_Of'(others => False);
Word_Scenario : Set_Of := Set_Of'(Lex.L_Scenario | Lex.L_Finjeu => True,
Lex.L_Locales .. Lex.L_Initiales => True,
others => False);
end Follow;
nblk1=a
nid=a
hdr6=12
[0x00] rec0=1b rec1=00 rec2=01 rec3=00c
[0x01] rec0=00 rec1=00 rec2=04 rec3=006
[0x02] rec0=16 rec1=00 rec2=05 rec3=016
[0x03] rec0=0c rec1=00 rec2=09 rec3=034
[0x04] rec0=19 rec1=00 rec2=08 rec3=034
[0x05] rec0=16 rec1=00 rec2=07 rec3=086
[0x06] rec0=17 rec1=00 rec2=02 rec3=044
[0x07] rec0=1a rec1=00 rec2=03 rec3=02a
[0x08] rec0=0c rec1=00 rec2=06 rec3=000
[0x09] rec0=d9 rec1=0c rec2=14 rec3=4ba
tail 0x21542d4d486503fef78c5 0x42a00088462060003
Free Block Chain:
0xa: 0000 00 00 03 fc 80 12 2e 4c 5f 46 69 6e 70 65 72 73 ┆ .L_Finpers┆