|
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 Semantique, seg_037f69, seg_039013, seg_03907e, seg_0391f6
└─⟦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 Standard_String;
with Lexical;
use Lexical;
package Semantique is
procedure Ouvrir_Bloc_Materiel;
procedure Fermer_Bloc_Materiel;
procedure Nouveau_Type (Un_Type : Standard_String.Object);
procedure Fin_Nouveau_Type;
procedure Nouvelle_Action (Une_Action : Standard_String.Object);
procedure Donner_Code_Action (Un_Code : Integer);
procedure Fin_Nouvelle_Action;
procedure Ouvrir_Champ_Option;
procedure Option (Une_Option : Lexical.Token);
procedure Fermer_Champ_Option;
procedure Imprimer_Materiel;
procedure Ouvrir_Bloc_Acteur;
procedure Fermer_Bloc_Acteur;
procedure Nouvel_Acteur (Un_Acteur : Standard_String.Object);
procedure Fin_Nouvel_Acteur;
procedure Donner_Type_Acteur (Un_Type : Standard_String.Object);
procedure Donner_Adresse_Station (Une_Adresse : Integer);
procedure Imprimer_Acteur;
function Action_Possible
(Une_Action : Standard_String.Object;
Un_Acteur : Standard_String.Object;
De, Vers, En : Lexical.Token := L_Unk) return Boolean;
procedure Ouvrir_Nouveau_Bloc_Scenario;
procedure Fermer_Bloc_Scenario;
procedure Ouvrir_Nouveau_Bloc_Scene (Une_Scene : Standard_String.Object);
procedure Fermer_Bloc_Scene;
procedure Ouvrir_Bloc_Enchainement;
procedure Fermer_Bloc_Enchainement;
procedure Ouvrir_Bloc (Nature : Lexical.Token);
procedure Fermer_Bloc (Nature : Lexical.Token);
procedure Lire_Liste_Temps;
procedure Lire_Nombre (Un_Nombre : Integer);
procedure Lire_Nombre (Un_Id : Standard_String.Object);
procedure Complete_Liste (Un_Nom : Standard_String.Object);
procedure Controle_Option (Une_Option : Lexical.Token);
procedure Complete_Action (Une_Action : Standard_String.Object);
procedure Insere_Action;
procedure Nouveau_Bloc_Groupe_Temps (Un_Jeton : Lexical.Token);
procedure Ajouter_Bloc_Groupe_Temps (Un_Nom : Standard_String.Object);
procedure Ajouter_Bloc_Groupe_Temps (Un_Nombre : Integer);
procedure Fermer_Bloc_Groupe_Temps;
procedure Genere_Scene (Une_Scene : Standard_String.Object);
procedure Demarre_Calcul;
procedure Empiler (Un_Jeton : Lexical.Token; Une_Valeur : Integer := 0);
procedure Empiler (Un_Id : Standard_String.Object);
procedure Evaluer_Expression;
procedure Nouveau_Bloc_Groupe;
procedure Complete_Action;
procedure Complete_Liste_Action (Une_Action : Lexical.Token);
procedure Ajoute_Action (Une_Action : Standard_String.Object);
procedure Nouveau_Bloc_Groupe (Une_Action : Lexical.Token;
Un_Nom : Standard_String.Object);
procedure Nouveau_Bloc_Groupe (Une_Action : Lexical.Token);
procedure Fermer_Bloc_Groupe;
procedure Ajouter_Bloc_Groupe (Un_Groupe : Standard_String.Object);
procedure Ajouter_Bloc_Groupe (Une_Valeur : Integer);
procedure Nouveau_Bloc_Groupe_Affecte (Un_Groupe : Standard_String.Object);
procedure Fermer_Bloc_Groupe_Affecte;
procedure Retourner_Valeur;
procedure La_Fin;
end Semantique;
nblk1=6
nid=2
hdr6=a
[0x00] rec0=1d rec1=00 rec2=01 rec3=054
[0x01] rec0=01 rec1=00 rec2=06 rec3=006
[0x02] rec0=13 rec1=00 rec2=05 rec3=064
[0x03] rec0=14 rec1=00 rec2=04 rec3=030
[0x04] rec0=07 rec1=00 rec2=03 rec3=000
[0x05] rec0=05 rec1=00 rec2=02 rec3=001
tail 0x217358f0084e668a6f6da 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 00 3f 80 09 72 5f 56 61 6c 65 75 72 3b 09 ┆ ? r_Valeur; ┆