|
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: 56320 (0xdc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Structure_Des_Variables, seg_049999, seg_049e47
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Nos_Chaines;
with Nos_Arbres;
package body Structure_Des_Variables is
Une_Variable, Variable_De_Recherche : Cellule;
Arbre_Des_Variables : Arbre_De_Cellule.Object;
Iterateur : Arbre_De_Cellule.Iterator;
function Find (La_Cellule : Cellule) return Boolean is
begin
return Arbre_De_Cellule.Find (La_Cellule, Arbre_Des_Variables);
end Find;
procedure Find (La_Cellule : in out Cellule; Trouve : out Boolean) is
begin
Arbre_De_Cellule.Find (La_Cellule, Arbre_Des_Variables, Trouve);
end Find;
procedure Add (La_Cellule : Cellule) is
begin
Arbre_De_Cellule.Add (La_Cellule, Arbre_Des_Variables);
end Add;
procedure Replace (La_Cellule : Cellule) is
begin
Arbre_De_Cellule.Replace (La_Cellule, Arbre_Des_Variables);
end Replace;
function No_Variable return Boolean is
begin
return Arbre_De_Cellule.Is_Empty (Arbre_Des_Variables);
end No_Variable;
-- **********************************************************
-- **********************************************************
procedure Premier is
begin
Iterateur := Arbre_De_Cellule.Create_Iterator (Arbre_Des_Variables);
end Premier;
function Suivant return Cellule is
Une_Cellule : Cellule;
begin
Arbre_De_Cellule.Iterate (Iterateur, Une_Cellule);
return Une_Cellule;
end Suivant;
function Fin return Boolean is
begin
return Arbre_De_Cellule.End_Iteration (Iterateur);
end Fin;
--*************************************************************
--*************************************************************
function Greater_Than (A, B : Cellule) return Boolean is
begin
return Nos_Chaines.Greater_Than (A.Nom, B.Nom);
end Greater_Than;
function Not_Equal (A, B : P_Cellule) return Boolean is
begin
return not (Nos_Chaines.Equal (A.Nom, B.Nom));
end Not_Equal;
function Equal (A, B : P_Cellule) return Boolean is
begin
return Nos_Chaines.Equal (A.Nom, B.Nom);
end Equal;
function Difference (A, B : Cellule) return Integer is
begin
return Nos_Chaines.Difference (A.Nom, B.Nom);
end Difference;
function Equal (A, B : Cellule) return Boolean is
begin
return Nos_Chaines.Equal (A.Nom, B.Nom);
end Equal;
function Equal (A, B : Nos_Chaines.String_Text) return Boolean is
begin
return Nos_Chaines.Equal (A, B);
end Equal;
function Equal (A, B : Type_Direction) return Boolean is
begin
return (Nos_Chaines.Equal (A.Direction, B.Direction) and
Nos_Chaines.Equal (A.Communication.Nom, B.Communication.Nom));
end Equal;
function Equal (A, B : Enum_Type) return Boolean is
begin
if A = B then
return True;
else
return False;
end if;
end Equal;
begin
Arbre_Des_Variables := Arbre_De_Cellule.Create_Tree;
end Structure_Des_Variables;
nblk1=36
nid=35
hdr6=8
[0x00] rec0=24 rec1=00 rec2=01 rec3=018
[0x01] rec0=23 rec1=00 rec2=33 rec3=016
[0x02] rec0=1f rec1=00 rec2=32 rec3=05e
[0x03] rec0=0e rec1=00 rec2=1e rec3=000
[0x04] rec0=23 rec1=00 rec2=32 rec3=00e
[0x05] rec0=09 rec1=00 rec2=1a rec3=000
[0x06] rec0=1e rec1=00 rec2=32 rec3=080
[0x07] rec0=20 rec1=00 rec2=35 rec3=006
[0x08] rec0=1e rec1=00 rec2=1e rec3=000
[0x09] rec0=1e rec1=00 rec2=1e rec3=06e
[0x0a] rec0=00 rec1=00 rec2=2f rec3=018
[0x0b] rec0=18 rec1=00 rec2=1f rec3=02c
[0x0c] rec0=13 rec1=00 rec2=0f rec3=082
[0x0d] rec0=1a rec1=00 rec2=12 rec3=012
[0x0e] rec0=14 rec1=00 rec2=0e rec3=044
[0x0f] rec0=18 rec1=00 rec2=02 rec3=05e
[0x10] rec0=19 rec1=00 rec2=0d rec3=076
[0x11] rec0=14 rec1=00 rec2=10 rec3=02e
[0x12] rec0=19 rec1=00 rec2=11 rec3=08e
[0x13] rec0=19 rec1=00 rec2=13 rec3=034
[0x14] rec0=16 rec1=00 rec2=1d rec3=02e
[0x15] rec0=1c rec1=00 rec2=1c rec3=01e
[0x16] rec0=06 rec1=00 rec2=15 rec3=000
[0x17] rec0=19 rec1=00 rec2=13 rec3=034
[0x18] rec0=16 rec1=00 rec2=1d rec3=02e
[0x19] rec0=1c rec1=00 rec2=1c rec3=01e
[0x1a] rec0=06 rec1=00 rec2=15 rec3=000
[0x1b] rec0=19 rec1=00 rec2=2f rec3=05a
[0x1c] rec0=18 rec1=00 rec2=1a rec3=03c
[0x1d] rec0=0c rec1=00 rec2=2d rec3=030
[0x1e] rec0=12 rec1=00 rec2=34 rec3=036
[0x1f] rec0=14 rec1=00 rec2=24 rec3=014
[0x20] rec0=13 rec1=00 rec2=33 rec3=092
[0x21] rec0=1e rec1=00 rec2=32 rec3=080
[0x22] rec0=02 rec1=00 rec2=35 rec3=000
[0x23] rec0=1a rec1=00 rec2=21 rec3=062
[0x24] rec0=01 rec1=00 rec2=2e rec3=00a
[0x25] rec0=18 rec1=00 rec2=20 rec3=062
[0x26] rec0=1a rec1=00 rec2=18 rec3=012
[0x27] rec0=1f rec1=00 rec2=23 rec3=002
[0x28] rec0=1e rec1=00 rec2=1e rec3=086
[0x29] rec0=18 rec1=00 rec2=1f rec3=02c
[0x2a] rec0=13 rec1=00 rec2=0f rec3=082
[0x2b] rec0=1a rec1=00 rec2=12 rec3=012
[0x2c] rec0=14 rec1=00 rec2=0e rec3=044
[0x2d] rec0=18 rec1=00 rec2=02 rec3=05e
[0x2e] rec0=19 rec1=00 rec2=0d rec3=076
[0x2f] rec0=14 rec1=00 rec2=10 rec3=02e
[0x30] rec0=19 rec1=00 rec2=11 rec3=08e
[0x31] rec0=19 rec1=00 rec2=13 rec3=034
[0x32] rec0=16 rec1=00 rec2=1d rec3=02e
[0x33] rec0=1c rec1=00 rec2=1c rec3=01e
[0x34] rec0=06 rec1=00 rec2=15 rec3=000
[0x35] rec0=06 rec1=00 rec2=15 rec3=000
tail 0x215470b4a865f70443770 0x42a00088462060003
Free Block Chain:
0x35: 0000 00 1a 00 6d 80 04 2a 2a 2a 2a 04 00 00 00 00 00 ┆ m **** ┆
0x1a: 0000 00 24 00 a4 80 1c 20 72 65 74 75 72 6e 20 56 61 ┆ $ return Va┆
0x24: 0000 00 34 03 fc 80 0c 20 20 20 20 4c 65 5f 4c 69 65 ┆ 4 Le_Lie┆
0x34: 0000 00 2d 03 fc 80 15 65 6e 74 2e 43 68 61 6d 70 5f ┆ - ent.Champ_┆
0x2d: 0000 00 15 00 23 80 05 20 74 68 65 6e 05 00 18 20 20 ┆ # then ┆
0x15: 0000 00 2f 00 03 00 00 00 65 5f 44 65 5f 4d 6f 74 2e ┆ / e_De_Mot.┆
0x2f: 0000 00 1c 03 fc 80 0c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **********┆
0x1c: 0000 00 1d 03 fc 80 2f 65 2e 53 70 65 63 69 66 2e 44 ┆ /e.Specif.D┆
0x1d: 0000 00 13 03 fc 80 0c 5f 56 61 72 69 61 62 6c 65 20 ┆ _Variable ┆
0x13: 0000 00 11 03 fc 80 01 3b 01 00 1a 20 20 20 20 20 20 ┆ ; ┆
0x11: 0000 00 10 03 fc 80 03 20 3d 3e 03 00 15 20 20 20 20 ┆ => ┆
0x10: 0000 00 0d 03 fc 80 06 72 74 65 20 6c 61 06 00 44 20 ┆ rte la D ┆
0xd: 0000 00 02 03 fc 80 06 78 74 29 20 69 73 06 00 2f 20 ┆ xt) is / ┆
0x2: 0000 00 0e 03 fc 80 23 28 56 61 72 69 61 62 6c 65 2e ┆ #(Variable.┆
0xe: 0000 00 12 03 fc 80 1d 61 73 65 20 56 61 72 69 61 62 ┆ ase Variab┆
0x12: 0000 00 0f 03 fc 80 06 45 74 61 74 29 3b 06 00 1a 20 ┆ Etat); ┆
0xf: 0000 00 1f 03 fc 80 0b 65 6e 20 53 65 6e 73 31 20 3d ┆ en Sens1 =┆
0x1f: 0000 00 23 03 fc 00 00 00 00 43 20 20 20 20 2d 2d 2d ┆ # C ---┆
0x23: 0000 00 18 03 fc 00 45 20 20 20 20 20 20 20 20 41 72 ┆ E Ar┆
0x18: 0000 00 20 03 fa 80 12 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------┆
0x20: 0000 00 21 03 fc 80 20 72 6f 63 65 64 75 72 65 20 41 ┆ ! rocedure A┆
0x21: 0000 00 2e 03 fc 00 43 20 20 20 20 2d 2d 2d 2d 2d 2d ┆ . C ------┆
0x2e: 0000 00 28 00 1d 80 12 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ( ----------┆
0x28: 0000 00 17 03 fc 80 1d 6c 65 74 65 2e 4e 6f 6d 20 3a ┆ lete.Nom :┆
0x17: 0000 00 29 01 86 80 0d 20 4c 61 5f 56 61 72 69 61 62 ┆ ) La_Variab┆
0x29: 0000 00 19 03 fc 80 2d 67 6c 6f 62 61 6c 65 20 55 6e ┆ -globale Un┆
0x19: 0000 00 16 03 fc 80 17 65 20 3a 20 43 65 6c 6c 75 6c ┆ e : Cellul┆
0x16: 0000 00 14 01 5a 80 01 29 01 00 07 20 20 20 20 2d 2d ┆ Z ) --┆
0x14: 0000 00 03 00 ce 80 22 63 6f 6d 70 6c 65 74 65 2e 43 ┆ "complete.C┆
0x3: 0000 00 2b 03 fc 80 1c 46 69 6e 64 20 28 56 61 72 69 ┆ + Find (Vari┆
0x2b: 0000 00 30 01 99 80 3d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0 =----------┆
0x30: 0000 00 2c 03 fc 00 2b 20 20 20 20 20 20 20 20 20 20 ┆ , + ┆
0x2c: 0000 00 22 03 f9 80 02 2d 2d 02 00 49 20 20 20 20 70 ┆ " -- I p┆
0x22: 0000 00 0c 00 04 80 01 2d 01 00 15 20 20 20 20 20 20 ┆ - ┆
0xc: 0000 00 25 03 fc 80 07 6e 6e 61 67 65 29 2e 07 00 07 ┆ % nnage). ┆
0x25: 0000 00 0b 03 fc 80 16 20 20 20 20 20 20 20 20 4c 69 ┆ Li┆
0xb: 0000 00 2a 03 fc 80 04 20 6c 65 73 04 00 33 20 20 20 ┆ * les 3 ┆
0x2a: 0000 00 26 00 39 00 36 20 20 20 20 2d 2d 7c 20 20 20 ┆ & 9 6 --| ┆
0x26: 0000 00 0a 03 fa 80 07 65 5f 4c 69 65 75 3b 07 00 22 ┆ e_Lieu; "┆
0xa: 0000 00 1b 03 fc 80 24 68 61 6d 70 20 70 6f 73 69 74 ┆ $hamp posit┆
0x1b: 0000 00 36 03 fc 80 2d 62 6c 65 2e 53 70 65 63 69 66 ┆ 6 -ble.Specif┆
0x36: 0000 00 08 00 05 80 02 69 61 02 67 6c 6f 62 61 6c 65 ┆ ia globale┆
0x8: 0000 00 09 03 fc 80 06 6c 6f 62 61 6c 65 06 00 3c 20 ┆ lobale < ┆
0x9: 0000 00 07 03 fc 80 1b 63 65 64 75 72 65 20 43 72 65 ┆ cedure Cre┆
0x7: 0000 00 06 03 fc 80 21 65 5f 56 61 72 69 61 62 6c 65 ┆ !e_Variable┆
0x6: 0000 00 05 03 fc 80 04 65 6e 74 3b 04 00 1d 20 20 20 ┆ ent; ┆
0x5: 0000 00 04 00 16 80 13 65 63 69 66 2e 61 6c 6c 20 3a ┆ ecif.all :┆
0x4: 0000 00 27 03 fc 80 32 20 20 20 20 20 20 20 20 20 20 ┆ ' 2 ┆
0x27: 0000 00 31 00 1e 80 15 53 65 6e 73 31 2e 53 6f 75 72 ┆ 1 Sens1.Sour┆
0x31: 0000 00 00 00 68 80 11 65 73 65 6e 74 65 73 20 64 61 ┆ h esentes da┆