|
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 - downloadIndex: ┃ T V ┃
Length: 1622 (0x656)
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⟧
with Etape, Role, Text_Io;
package Scene is
type Scene is private;
type Scripte is private;
type Operation is
record
Temps : Etape.Temps;
Acteur : Role.Acteur;
Action : Etape.Action;
end record;
-- Type Operation is access Descripteur_Operation;
procedure Creerunescene (Unescene : in out Scene);
procedure Detruireunescene (Unescene : in out Scene);
function Chargerunescene (F : Text_Io.File_Type) return Scene;
procedure Ajouterunrole (Unescene : in out Scene; Unrole : Role.Role);
procedure Ajouterunacteur (Unescene : in out Scene; Unacteur : Role.Acteur);
procedure Jouerunescene (Unescene : in out Scene);
function Quellescene (Unrole : Role.Role) return Scene;
function Quellescene (Unacteur : Role.Acteur) return Scene;
procedure Afficherunescene (Unescene : in Scene);
private
Nbroles : constant := 20; -- nbre max de fonctions sur un peripherique
Nbscriptes : constant := 25; -- nbre max de peripheriques
type Tcontenuscripte is array (1 .. Nbroles) of Role.Role;
type Scripte is
record
Nom : Role.Adresse_Peripherique;
Contenu : Tcontenuscripte;
end record;
type Tcontenuscene is array (1 .. Nbscriptes) of Scripte;
type Descripteurdescene is
record
Nbrescriptes : Natural;
Contenu : Tcontenuscene;
end record;
type Scene is access Descripteurdescene;
end Scene;
-- fichier : Scene.adt
-- Test du package Scene
-- Auteur : Sebastien BROCHET
-- Date : 29 Novembre 1993
-- Etat : En cours