|
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 body Data, seg_038a0a, separate Error
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
separate (Error)
package body Data is
The_Error_Messages : constant array (1 .. 57) of Pstring :=
(1 =>
new String'
("*** J'attendais une variable, un entier ou une heure ..."),
2 => new String'("*** J'attendais un '+' ou un '-' ..."),
3 => new String'("*** Il manque ')' dans l'expression ..."),
4 => new String'("*** J'attendais '<', '>', '<=', '>=' ou '<>' ..."),
5 =>
new String'
("*** Il manque ')' a la fin de la liste des parametres ..."),
6 =>
new String'
("*** Il manque '(' au debut de la liste des parametres ..."),
7 => new String'("*** J'attendais un nom de sous-programme ..."),
8 => new String'("*** Il manque l'operateur d'affectation ':=' ..."),
9 => new String'("*** J'attendais un nom de variable ..."),
10 => new String'("*** J'attendais un nom d'element de theatre ..."),
11 => null,
12 => new String'("*** Il manque le mot cle 'A' ..."),
13 => new String'("*** Il manque le mot cle 'EN' ..."),
14 => null,
15 =>
new String'
("*** J'attendais ACTIVER, DESACTIVER, FIXER ou EVOLUER ..."),
16 =>
new String'
("*** Il manque '}' a la fin de la liste des primitives ..."),
17 =>
new String'
("*** Il manque '{' au debut de la liste des primitives ..."),
18 =>
new
String'("*** Il manque 'FAIRE' dans la structure 'au temps' ..."),
19 => new String'("*** Il manque le mot cle 'TEMPS' ..."),
20 => new String'("*** J'attendais ATTENDRE, POUR, PUIS ou AU ..."),
21 => new String'("*** Il manque le mot cle 'QUE' ..."),
22 => new String'("*** Il manque le mot cle 'TANT' ..."),
23 => new String'("*** Il manque le mot cle 'FIN' ..."),
24 =>
new
String'("*** Il manque 'FAIRE' dans la structure 'tant que' ..."),
25 => new String'("*** Il manque le mot cle 'QUE' ..."),
26 =>
new String'("*** Il manque 'FAIRE' dans la structure 'selon' ..."),
27 => new String'("*** Il manque le mot cle 'SELON' ..."),
28 => new String'("*** Il manque le mot cle 'FIN' ..."),
29 => new String'("*** Il manque 'EST' dans la structure 'selon' ..."),
30 => new String'("*** J'attendais un identificateur ..."),
31 => new String'("*** Il manque '}' ..."),
32 => new String'("*** Il manque le mot cle 'SI' ..."),
33 => new String'("*** Il manque le mot cle 'FIN' ..."),
34 => new String'("*** Il manque 'ALORS' dans la structure 'si' ..."),
35 => new String'("*** J'attendais une description de programme ..."),
36 => new String'("*** J'attendais un identificateur ..."),
37 => null,
38 => new String'("*** J'attendais le mot cle 'UTILISE' ..."),
39 =>
new
String'
("*** Il manque 'EST' dans la definition de sous programme ..."),
40 => new String'("*** J'attendais un identificateur ..."),
41 => new String'("*** Il manque le mot cle 'EN' ..."),
42 => new String'("*** J'attendais un identificateur ..."),
43 =>
new String'("*** Il manque 'EST' dans la definition du theatre ..."),
44 =>
new String'
("*** J'attendais BINAIRE, FUGITIF, DISCRET ou TEMPOREL ..."),
45 => new String'("*** Il manque ')' ..."),
46 => new String'("*** Il manque '(' ..."),
47 =>
new String'
("*** Il manque 'FAIRE' dans la declaration de materiel ..."),
48 =>
new String'
("*** Il manque 'SAIT' dans la declaration de materiel ..."),
49 => new String'("*** Il manque le mot cle 'MATERIEL' ..."),
50 => new String'("*** Il manque le mot cle 'THEATRE' ..."),
51 => new String'("*** Il manque le mot cle 'SPECTACLE' ..."),
52 => new String'("*** J'attendais un nom d'acteur ..."),
53 => new String'("*** Cette valeur n'a pas de sens ..."),
54 => new String'("*** La base doit etre ecrite sur deux chiffres ..."),
55 => new String'("*** J'attendais une valeur ou une '(' ..."),
56 => new String'("*** Erreur dans la conversion de l'heure ..."),
57 => new String'("*** Il manque le programme principal ..."));
-- Follow1 : constant Lex.Tokens := ((Lex.Int, Lex.Identifier));
-- Follow2 : constant Lex.Tokens := ((Lex.Begin_Bracket, Lex.Open_Bracket));
--
-- The_Follows_List : constant array (1 .. 2) of Lex.Tokens (1 .. 1) :=
-- (1 => Follow1, 2 => Follow2);
-------------------------- Implementation des procedures ----------------------
-------------------------------------------------------------------------------
function Image (Index : Natural) return String is
begin
return The_Error_Messages (Index).all;
end Image;
function Get_Token (Index : Natural) return Lex.Tokens is
begin
case Index is
when 1 =>
return ((Lex.Int, Lex.Identifier));
when 2 =>
return ((Lex.Int, Lex.Identifier));
when others =>
null;
end case;
end Get_Token;
end Data;
nblk1=a
nid=4
hdr6=c
[0x00] rec0=16 rec1=00 rec2=01 rec3=014
[0x01] rec0=15 rec1=00 rec2=05 rec3=01a
[0x02] rec0=11 rec1=00 rec2=07 rec3=030
[0x03] rec0=15 rec1=00 rec2=03 rec3=054
[0x04] rec0=14 rec1=00 rec2=08 rec3=024
[0x05] rec0=17 rec1=00 rec2=06 rec3=000
[0x06] rec0=20 rec1=00 rec2=05 rec3=000
[0x07] rec0=48 rec1=4d rec2=d6 rec3=53c
[0x08] rec0=e0 rec1=6b rec2=00 rec3=003
[0x09] rec0=c9 rec1=09 rec2=ba rec3=6a7
tail 0x21735a61c84e67244a1f1 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 09 03 fc 80 06 39 20 3d 3e 20 28 06 a4 0c 5b ┆ 9 => ( [┆
0x9: 0000 00 02 03 fc 80 0b 61 74 72 65 20 2e 2e 2e 22 29 ┆ atre ...")┆
0x2: 0000 00 0a 00 0b 80 08 65 20 2e 2e 2e 22 29 2c 08 54 ┆ e ..."), T┆
0xa: 0000 00 00 00 04 80 01 74 01 4b 49 4e 47 2e 55 4e 49 ┆ t KING.UNI┆