|
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 Error, seg_048759, seg_048c36, seg_048cb2, seg_048de8
└─⟦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 Nos_Chaines;
package Error is
type Message is (Alors, Antecedent, Contenu, Declaration_De_Communication,
Definition_Variable, Description, Enum_De_Communication,
Eof, Etat, Expression_Conditionnelle, Finsi,
Identification_Variable, Instruction, Instruction_Afficher,
Instruction_Ajouter, Instruction_Creer,
Instruction_Decrire, Instruction_Deplacer,
Instruction_Detruire, Instruction_Informer,
Instruction_Inventaire, Instruction_Joueur_Est,
Instruction_Modifier_Description, Instruction_Numerique,
Instruction_Supprimer, Joueur_Est_Dans_Initiales_1,
Joueur_Est_Dans_Initiales_2, Les_Clauses_Initiales,
Liste_De_Clauses, Liste_De_Clauses_Initiales,
Liste_De_Clauses_Locales1, Liste_De_Clauses_Locales2,
Liste_De_Mots, Liste_Des_Antecedents, Position, Possession,
Regle_Ou_Instruction, Word_Definitionvariable,
Word_Definitionverbe, Word_Finjeu, Word_Scenario);
type Message_Semantique is
(Absence_Position, Affectation_Incorrecte, Definition_Incomplete,
Deux_Directions_Identiques, Generique_Double, Generique_Mal_Declare,
Generique_Non_Visible, Incompatibilite_Condition,
Incompatibilite_Egalite, Incompatibilite_Instruction,
Redefinition, Sortie_Non_Visible, Variable_Non_Definie);
type Pstring is access String;
type Tableau_De_Message is array (Message) of Pstring;
type Tableau_De_Message_Semantique is array (Message_Semantique) of Pstring;
M : constant Tableau_De_Message :=
Tableau_De_Message'
(Alors =>
new String'(" Incoherence dans les antecedents d'une regle."),
Antecedent => new String'(" Antecedent incorrect"),
Contenu => new String'(" L'enumeration du contenu est incorrecte"),
Declaration_De_Communication =>
new
String'
(" La declaration des sens de la communication est incorrecte"),
Definition_Variable =>
new String'(" La definition de la variable est incorrecte"),
Description => new String'(" La description est incorrecte"),
Enum_De_Communication =>
new
String'(" La liste des communications du lieu est incorrecte"),
Eof => new String'(" Rien ne doit succeder au mot finjeu"),
Etat => new String'(" L'enumeration des etats est incorrecte"),
Expression_Conditionnelle =>
new String'(" Expression conditionnelle incorrecte"),
Finsi => new String'(" Absence de 'FINSI' en fin de regle"),
Identification_Variable =>
new String'(" La syntaxe est 'TYPE EST/SERA NOM_VARIABLE'"),
Instruction => new String'(" Instruction incorrecte"),
Instruction_Afficher =>
new String'(" Instruction 'AFFICHER' incorrecte"),
Instruction_Ajouter =>
new String'(" Instruction 'AJOUTER' incorrecte"),
Instruction_Creer => new String'(" Instruction 'CREER' incorrecte"),
Instruction_Decrire =>
new String'(" Instruction 'DECRIRE' incorrecte"),
Instruction_Deplacer =>
new String'(" Instruction 'DEPLACER' incorrecte"),
Instruction_Detruire =>
new String'(" Instruction 'DETRUIRE' incorrecte"),
Instruction_Informer =>
new String'(" Instruction 'INFORMER' incorrecte"),
Instruction_Inventaire =>
new String'(" Instruction 'INVENTAIRE' incorrecte"),
Instruction_Joueur_Est =>
new String'(" Instruction 'JOUEUR EST' incorrecte"),
Instruction_Modifier_Description =>
new String'(" Instruction 'MODIFIER DESCRIPTION' incorrecte"),
Instruction_Numerique =>
new String'(" Fonction Numerique incorrecte"),
Instruction_Supprimer =>
new String'(" Instruction 'SUPPRIMER' incorrecte"),
Joueur_Est_Dans_Initiales_1 =>
new String'(" L'instruction 'JOUEUR EST' n'apparait pas" &
" au debut des clauses initiales"),
Joueur_Est_Dans_Initiales_2 =>
new String'(" Instruction 'JOUEUR EST' incorrecte"),
Les_Clauses_Initiales =>
new String'(" Le fichier ne comprend pas de clauses initiales"),
Liste_De_Clauses => new String'(" Le scenario est incorrect"),
Liste_De_Clauses_Initiales => new String'(" Instruction incorrecte"),
Liste_De_Clauses_Locales1 =>
new String'
(" Un Lieu n'a pas ete precise apres le mot cle 'DANS'"),
Liste_De_Clauses_Locales2 =>
new String'(" Mot cle 'DANS' absent en debut des regles locales"),
Liste_De_Mots =>
new String'(" L'enumeration des mots du langage est incorrecte"),
Liste_Des_Antecedents =>
new
String'
(" La condition de votre regle est globalement incorrecte." &
" Il manque probablement un 'ET' ou un 'OU'."),
Position =>
new String'(" La definition de la position est incorrecte"),
Possession =>
new String'(" l'enumeration des possessions est incorrecte"),
Regle_Ou_Instruction =>
new
String'
(" Une Regle ou une Instruction Debute de maniere incorrecte"),
Word_Definitionvariable =>
new String'(" Erreur dans la syntaxe des verbes/prepositions" &
" ou abscence du mot cle 'DefinitionVariable"),
Word_Definitionverbe =>
new String'(" Abscence du mot cle 'DefinitionVerbe'"),
Word_Finjeu => new String'(" Abscence du mot cle 'FinJeu'"),
Word_Scenario =>
new String'(" L'enumeration des mots du langage est incorrecte"));
M_Semantique : constant Tableau_De_Message_Semantique :=
Tableau_De_Message_Semantique'
(Absence_Position => new String'("n'a pas de position declaree."),
Affectation_Incorrecte =>
new
String'
("on ne peut affecter qu'une variable de type compteur : ' "),
Definition_Incomplete => new String'("n'a pas ete definie."),
Deux_Directions_Identiques =>
new String'("a deux sorties dans la meme direction."),
Generique_Double =>
new String'("un generique est deja utilise : ' "),
Generique_Mal_Declare =>
new
String'
("le generique doit etre declare dans le premier antecedent de type action joueur: ' "),
Generique_Non_Visible => new String'("generique non visible : ' "),
Incompatibilite_Condition =>
new String'("type incompatible dans condition : ' "),
Incompatibilite_Egalite =>
new String'("type incompatibles dans une egalite : ' "),
Incompatibilite_Instruction =>
new String'("type incompatible dans instruction : ' "),
Redefinition =>
new String'(" est utilise pour designer deux variables."),
Sortie_Non_Visible => new String'("sortie n'est pas visible : ' "),
Variable_Non_Definie => new String'("variable non definie : ' "));
function Scenario_Is_Not_Build return Boolean;
procedure Print (Mess : Message);
procedure Semantic (Mess : Message_Semantique);
procedure Semantic (Nom_Variable : Nos_Chaines.String_Text;
Mess : Message_Semantique);
end Error;
nblk1=a
nid=2
hdr6=12
[0x00] rec0=12 rec1=00 rec2=01 rec3=022
[0x01] rec0=15 rec1=00 rec2=05 rec3=000
[0x02] rec0=1b rec1=00 rec2=04 rec3=030
[0x03] rec0=1c rec1=00 rec2=09 rec3=020
[0x04] rec0=19 rec1=00 rec2=0a rec3=038
[0x05] rec0=1b rec1=00 rec2=08 rec3=024
[0x06] rec0=18 rec1=00 rec2=07 rec3=066
[0x07] rec0=1a rec1=00 rec2=06 rec3=074
[0x08] rec0=0a rec1=00 rec2=03 rec3=001
[0x09] rec0=fd rec1=0c rec2=14 rec3=699
tail 0x2174caba486598fbf5499 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 00 e4 80 20 63 65 64 75 72 65 20 50 72 69 ┆ cedure Pri┆