|
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: 3072 (0xc00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Listes, seg_041d17
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Types_Numeriques; use Types_Numeriques; generic Taille : in Naturel := 100; type Item is private; with function "<" (X, Y : Item) return Boolean is <>; with function Egalite (X, Y : Item) return Boolean is "="; package Listes is type Liste is private; function Debut_Iteration (L : in Liste) return Naturel; function Fin_Iteration (L : in Liste; Iter : in Naturel) return Boolean; function Elt_Suivant (L : in Liste; Iter : in Naturel) return Naturel; function Elt_Courant (L : in Liste; Iter : in Naturel) return Item; function Longueur (L : in Liste) return Naturel; function Est_Vide (L : in Liste) return Boolean; function Est_Pleine (L : in Liste) return Boolean; procedure Insertion (L : in out Liste; I : in Item); function Recherche (L : in Liste; I : in Item; Clef : Boolean := False) return Naturel; procedure Modification (L : in out Liste; I : in Item; Iter : Naturel); procedure Tri (L : in out Liste); private type Tableau_Item is array (1 .. Taille) of Item; type Liste is record Element : Tableau_Item; Nb_Elts : Naturel := 0; end record; end Listes;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=1c rec1=00 rec2=01 rec3=07a [0x01] rec0=0e rec1=00 rec2=02 rec3=001 tail 0x2153cc1f686284be4cc97 0x42a00088462060003