|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1246 (0x4de)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
package Etape is -- specifications
type Temps is new Integer;
type Action is new Character;
type Celluleetape;
type Etape is access Celluleetape;
type Celluleetape is
record
Letemps : Temps;
Laction : Action;
Lasuite : Etape;
end record;
Etapeinexistante : constant Etape := null;
function Creeruneetape
(Untemps : Temps; Uneaction : Action; Uneetape : Etape)
return Etape;
function Letempsdeletape (Uneetape : Etape) return Temps;
function Lactiondeletape (Uneetape : Etape) return Action;
function Lasuitedeletape (Uneetape : Etape) return Etape;
procedure Changerletempsdeletape (Uneetape : in out Etape; Untemps : Temps);
procedure Changerlactiondeletape
(Uneetape : in out Etape; Uneaction : Action);
procedure Caseruneactiondanslesetapes
(T : Temps; A : Action; E : in out Etape);
procedure Detruireetape (E : in out Etape);
procedure Exclureuneactiondesetapes (E : in out Etape; T : Temps);
end Etape;
-- package generique FIFO
-- corps du package , genericite sur le type de l'element dans la FIFO
-- Auteur : Sebastien BROCHET
-- Date : 3 Novembre 1993