DataMuseum.dk

top - download

    Length: 4476 (0x117c)
    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⟧ 

TextFile

generic
    type Element is private;
    Taille : Positive;
package Pile is
    type Tcontenu is array (Integer range 1 .. Taille) of Element;
    type Pile is
        record
            I : Integer;
            Contenu : Tcontenu;
        end record;
    procedure Empiler (Une_Pile : in out Pile; Un_Element : in Element);
    procedure Depiler (Une_Pile : in out Pile; Un_Element : out Element);
end Pile;
--WITH Etape,Text_IO;

--Package body Role is

-- FUNCTION CreerUnRole(A:Acteur) return Role is
-- Resultat:Role;
-- BEGIN
--   Resultat:=NEW DescripteurDeRole;
--     Resultat.Lacteur:=A;
--     Resultat.LesEtapes:=Etape.EtapeInexistante;
--     Resultat.EnCours:=FALSE;
--     Resultat.LeDebut:=0;
--     Resultat.Lindex:=Etape.EtapeInexistante;
--     Resultat.LaDuree:=0;
--   return Resultat;
-- END;
--
-- FUNCTION LeRoleEstVide(UnRole:Role) return BOOLEAN is
-- BEGIN
--   return BOOLEAN(UnRole.LesEtapes=Etape.EtapeInexistante);
-- END;
--
-- FUNCTION LacteurDuRole(UnRole:Role)return Acteur is
-- BEGIN
--   return UnRole.Lacteur;
-- END;
--
-- FUNCTION LaDureeDuRole(UnRole:Role) return Etape.Temps is
-- BEGIN
--   return UnRole.LaDuree;
-- END;
--
-- FUNCTION LeRoleEstEnCours(UnRole:Role) return BOOLEAN is
-- BEGIN
--   return (UnRole.EnCours=TRUE);
-- END;
--
-- FUNCTION LesEtapes(UnRole:Role) return Etape.Etape is
-- BEGIN
--   return UnRole.LesEtapes;
-- END;
--
-- FUNCTION QuelleActionDuRole(UnRole:Role;UnTemps:Temps) return Etape.Action is
-- indexRole:Etape.Etape;
-- Trouve:BOOLEAN:=FALSE;
-- BEGIN
--   IndexRole:=LesEtapes(UnRole);
--   WHILE (IndexRole/=EtapeInexistante) AND (NOT TROUVE) DO
--   BEGIN
--     IF LeTempsDeLetape(IndexRole)=UnTemps THEN
--       Trouve:=TRUE;
--       QuelleActionDuRole:=LactionDeLetape(IndexRole);
--     END IF;
--     IndexRole:=LaSuiteDeLetape(IndexRole);
--   END;
-- END;
--
-- PROCEDURE CaserUneActionDansUnRole(UnRole:Role;UnTemps:Etape.Temps;UneAction:Etape.Action) is
-- E:Etape.Etape;
-- BEGIN
--   E:=LesEtapes(UnRole);
--   CaserUneActionDansLesEtapes(UnTemps,UneAction,E);
-- END;
--
-- PROCEDURE ExclureUneActionDansUnRole(UnRole:Role;UnTemps:Etape.Temps) is
-- E:Etape.Etape;
-- BEGIN
--   E:=LesEtapes(UnRole);
--   ExclureUneActionDesEtapes(E,UnTemps);
-- END;
--
-- PROCEDURE DecalerUneActionDuRole(UnRole:Role;UnTemps:Etape.Temps;delai:INTEGER) is
-- BEGIN
--   null;
-- END;
--
-- PROCEDURE DeplacerUneActionDuRole(UnRole:Role;UnTemps:Etape.Temps;delai:INTEGER) is
-- BEGIN
--   null;
-- END;
--
-- PROCEDURE DecalerLeRole(UnRole:Role;UnTemps:Etape.Temps;delai:INTEGER) is
-- BEGIN
--   null;
-- END;
--
-- PROCEDURE ViderLeRole(UnRole:IN OUT Role) is
-- BEGIN
--   UnRole.LesEtapes:=EtapeInexistante;
-- END;
--
-- FUNCTION ChargerUnActeur(F:IN Text_IO.File_Type) return Etape.Acteur is
-- ActAux:Etape.Acteur;
-- BEGIN
--   READLN(F,ActAux);
--   return ActAux;
-- END;
--
-- FUNCTION ChargerUneAction(F:IN Text_IO.File_Type) return Etape.Action is
-- ActionAux:Etape.Action;
-- BEGIN
--   READLN(F,ActionAux);
--   return ActionAux;
-- END;
--
-- FUNCTION ChargerUnTemps(F:IN Text_IO.File_Type) return Etape.Temps is
-- TempsAux:Etape.Temps;
-- BEGIN
--   READLN(F,TempsAux);
--   return TempsAux;
-- END;
--
-- FUNCTION ChargerUnRole(F:IN Text_IO.File_Type) return Role is
-- UnRole:Role;UnActeur:Etape.Acteur;
-- UneAction:Etape.Action;UnTemps:Etape.Temps;
-- Nombre:INTEGER;
-- BEGIN
--   UnActeur:=ChargerUnActeur(F);
--   UnRole:=CreerUnRole(UnActeur);
--   READLN(F,Nombre);
--   FOR i IN 1..Nombre LOOP
--     UneAction:=ChargerUneAction(F);
--     UnTemps:=ChargerUnTemps(F);
--     CaserUneActionDansUnRole(UnRole,UnTemps,UneAction);
--   END LOOP;
--   return UnRole;
-- END;
--
-- PROCEDURE DemarrerLeRole(UnRole:IN OUT Role) is
-- IndiceRole:Role;
-- BEGIN
--   IndiceRole:=UnRole;
--   IndiceRole.EnCours:=TRUE;
--   IF IndiceRole.Etape!='' THEN
--     BEGIN
--       Text_IO.PutLine("Acteur = ",IndiceRole.Laction);
--       IndiceRole.Etape:=IndiceRole.Etape.LaSuite;
--     END;
-- END;
--
-- PROCEDURE ArreterLeRole(UnRole:IN OUT Role) is
-- BEGIN
--   null;
-- END;
--
-- PROCEDURE JouerLeRole(UnRole:Role) is
-- BEGIN
--   null;
-- END;
--
-- PROCEDURE SolliciterLeRole(UnRole:Role) is
-- BEGIN
--   null;
-- END;
--
-- PROCEDURE SauvegarderLeRole(UnRole:Role;Fichier:STRING) is
-- F:Text_IO.File_Type;
-- BEGIN
--   ASSIGN(F,Fichier);
--   APPEND(F);
--   SauverUnActeur(F,UnRole);
-- END;
-- END Role;

-- ---------   Role -------------------------------------