⟦f082a6f0b⟧

E3 Source Code



with Bounded_String, Lex_Player;

-- Gestion d une table contenant les entrees du joueur
package Player_Entries is

    Error_Range_Player_Entries : exception;
    type Token is (Id, Command, End_Entry, Start_Com, Fin, Trace,
                   Symbole, Modele, Verbe, Complement, Lien, Connexion,
                   Introduction, Global, General, Local, Aide, End_Com,
                   Start_Prep, De, Avec, Par, Vers, Sur, Pour, Ou, Dans,
                   Du, A, La, Le, Les, Des, Un, Une, Se, End_Prep);

-- GET_PLAYER_ENTRY
-- Appel a saisie des commandes utilisateur
-- Remplissage de la table :
--  * elimination des Prepositions inutiles (Vers , sur etc ...)
--  * verification de l existence des commandes entrees ( :Aide, :Fin etc..)
--  * verification des sequences commande-actions
--  * verification des caracteres autorises
--  * Renvoi d un compte rendu de la saisie (Booleen)
    function Get_Player_Entry return Boolean;

-- GET_PLAYER_ERROR
-- Retourne une chaine de car. description des erreurs de saisies
    function Get_Player_Error return String;

-- IS_COMMAND
-- Retourne "TRUE" si la premiere entree est un commande predefinie.
    function Is_Command return Boolean;

-- GET_COMMAND
-- Retourne l identification de la premiere commande predefinie
    function Get_Command return Token;

-- PRINT_PLAYER_ENTRY
-- Affichage des entrees contenues dans la table
    procedure Print_Player_Entry;

-- GESTION D UN ITERATEUR DANS LA TABLE
--creation
    procedure Open_Index;
--element suivant
    procedure Next_Index;
--acces a l element indexe
    function Get_Indexed_Token return Token;
    function Get_Indexed_Entry return String;
-- modifie l element
    procedure Put_Indexed_Entry (S : String);
--indicateur de fin d iteration
    function Index_At_End return Boolean;

end Player_Entries;
DataMuseum.dk

Rational R1000/400

⟦f082a6f0b⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
