|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Interface_Structure, seg_0482ac, seg_0484c4
└─⟦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;
with Structure_Des_Variables;
with Afficher_Structure;
with Check_Structure;
with Consult_Structure;
with Create_Structure;
with Modify_Structure;
package Interface_Structure is
subtype Char is Nos_Chaines.String_Text;
subtype Type_Of_Var is Structure_Des_Variables.Enum_Type;
---------------------------------------------------------------
-- INTERFACE POUR LE PACKETAGE AFFICHER_STRUCTURE
---------------------------------------------------------------
procedure Print_Possession (Var : Char);
procedure Print_Contenu (Var : Char);
procedure Print_Description (Var : Char);
procedure Print_Description_Sens1 (Var : Char);
procedure Print_Description_Sens2 (Var : Char);
procedure Print_Etat (Var : Char);
procedure Print_Etat_Sens1 (Var : Char);
procedure Print_Etat_Sens2 (Var : Char);
procedure Print_Verbes renames Afficher_Structure.Afficher_Verbes;
---------------------------------------------------------------
-- INTERFACE POUR LE PACKETAGE CHECK_STRUCTURE
---------------------------------------------------------------
function Structure_Is_Ok return Boolean
renames Check_Structure.Structure_Is_Ok;
---------------------------------------------------------------
-- INTERFACE POUR LE PACKETAGE CONSULT_STRUCTURE
---------------------------------------------------------------
function Compare_Position (Var1 : Char; Var2 : Char) return Boolean;
function Compare_Etat (Var1 : Char; Var2 : Char) return Boolean;
function Compare_Etat_Sens1 (Var1 : Char; Var2 : Char) return Boolean;
function Compare_Etat_Sens2 (Var1 : Char; Var2 : Char) return Boolean;
function Compare_Possession (Var1 : Char; Var2 : Char) return Boolean;
function Compare_Contenu (Var1 : Char; Var2 : Char) return Boolean;
function Search_For_Variable (Var : Char) return Boolean;
function Search_For (Var : Char; Field : Char; Value : Char) return Boolean;
function Search_For (Var : Char; Field : Char; Sens : Integer; Value : Char)
return Boolean;
procedure Search_Communication (Place : Char;
Communication : Char;
Sortie : in out Char;
Sens : in out Integer;
Is_Found : out Boolean);
procedure Search_Exit_To_Direction (Place : Char;
Direction : Char;
Sortie : in out Char;
Sens : in out Integer;
Is_Found : out Boolean);
procedure Search_Exit_To_Place (Place : Char;
Destination : in out Char;
Sortie : in out Char;
Sens : in out Integer;
Is_Found : out Boolean);
procedure Search_Link_To_Place (Destination : in out Char;
Place : Char;
Sortie : in out Char;
Sens : in out Integer;
Is_Found : out Boolean);
function Get_Value_Of_Counter (Counter : Char) return Integer;
function Get_Type (Var : Char) return Type_Of_Var;
function Get_Position (Var : Char) return Char;
function Get_Signification (Var : Char) return Char;
function Is_In_Table (Var : Char) return Boolean;
function Is_A_Variable (Var : Char) return Boolean;
---------------------------------------------------------------
-- INTERFACE POUR LE PACKETAGE CREATE_STRUCTURE
---------------------------------------------------------------
procedure Create_Communication
renames Create_Structure.Create_Communication;
procedure Create_Compteur renames Create_Structure.Create_Compteur;
procedure Create_Lieu renames Create_Structure.Create_Lieu;
procedure Create_Objet renames Create_Structure.Create_Objet;
procedure Create_Personnage renames Create_Structure.Create_Personnage;
procedure Create_Preposition renames Create_Structure.Create_Preposition;
procedure Create_Verbe renames Create_Structure.Create_Verbe;
procedure Associate_Nom_Variable (Nom_Variable : Nos_Chaines.String_Text)
renames Create_Structure.Associate_Nom_Variable;
procedure Associate_Description
(La_Description : Nos_Chaines.String_Text;
Le_Sens : Structure_Des_Variables.Enum_Sens)
renames Create_Structure.Associate_Description;
procedure Associate_Position (La_Position : Nos_Chaines.String_Text)
renames Create_Structure.Associate_Position;
procedure Associate_Etat (Le_Etat : Nos_Chaines.String_Text;
Le_Sens : Structure_Des_Variables.Enum_Sens)
renames Create_Structure.Associate_Etat;
procedure Associate_Possession (La_Possession : Nos_Chaines.String_Text)
renames Create_Structure.Associate_Possession;
procedure Associate_Contenu (Le_Contenu : Nos_Chaines.String_Text)
renames Create_Structure.Associate_Contenu;
procedure Associate_Source (La_Source : Nos_Chaines.String_Text;
Le_Sens : Structure_Des_Variables.Enum_Sens)
renames Create_Structure.Associate_Source;
procedure Associate_Destination
(La_Destination : Nos_Chaines.String_Text;
Le_Sens : Structure_Des_Variables.Enum_Sens)
renames Create_Structure.Associate_Destination;
procedure Associate_Direction (La_Direction : Nos_Chaines.String_Text;
La_Communication : Nos_Chaines.String_Text)
renames Create_Structure.Associate_Direction;
procedure Associate_Existence (Existence : Boolean)
renames Create_Structure.Associate_Existence;
procedure Associate_Valeur (La_Valeur : Integer)
renames Create_Structure.Associate_Valeur;
procedure Associate_Signification
(La_Signification : Nos_Chaines.String_Text)
renames Create_Structure.Associate_Signification;
procedure Make_Variable (Ok : in out Boolean)
renames Create_Structure.Make_Variable;
---------------------------------------------------------------
-- INTERFACE POUR LE PACKETAGE MODIFY_STRUCTURE
---------------------------------------------------------------
procedure Put_Value_In_Counter (Counter : Char; Value : Integer);
procedure Add_Etat (Var : Char; Etat : Char);
procedure Add_Etat_Sens1 (Var : Char; Etat : Char);
procedure Add_Etat_Sens2 (Var : Char; Etat : Char);
procedure Delete_Etat (Var : Char; Etat : Char);
procedure Delete_Etat_Sens1 (Var : Char; Etat : Char);
procedure Delete_Etat_Sens2 (Var : Char; Etat : Char);
procedure Add_Possession (Var : Char; Possession : Char);
procedure Delete_Possession (Var : Char; Possession : Char);
procedure Add_Contenu (Var : Char; Contenu : Char);
procedure Delete_Contenu (Var : Char; Contenu : Char);
procedure Modify_Description (Var : Char; Description : Char);
procedure Modify_Description_Sens1 (Var : Char; Description : Char);
procedure Modify_Description_Sens2 (Var : Char; Description : Char);
procedure Kill_Var (Var : Char);
procedure Create_Var (Var : Char);
procedure Move_To (Var : Char; To : Char);
end Interface_Structure;
nblk1=a
nid=a
hdr6=12
[0x00] rec0=20 rec1=00 rec2=01 rec3=01c
[0x01] rec0=13 rec1=00 rec2=08 rec3=026
[0x02] rec0=01 rec1=00 rec2=02 rec3=02a
[0x03] rec0=11 rec1=00 rec2=05 rec3=008
[0x04] rec0=14 rec1=00 rec2=04 rec3=086
[0x05] rec0=0b rec1=00 rec2=03 rec3=026
[0x06] rec0=10 rec1=00 rec2=07 rec3=02c
[0x07] rec0=15 rec1=00 rec2=06 rec3=002
[0x08] rec0=1b rec1=00 rec2=09 rec3=001
[0x09] rec0=fd rec1=0c rec2=92 rec3=4fd
tail 0x215455136865883d7d39b 0x42a00088462060003
Free Block Chain:
0xa: 0000 00 00 00 3e 80 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ > *----------┆