Onyest dossier - Classe contenant l’automate Ajouter à mes favoris
Sommaire
Systèmes parallèles
Probabilités appliquées aux systèmes
Théorie des langages et compilation
Mise en oeuvre 1
Classe de test de l'automate
Classe contenant l’automate
Classe avec les emplacements des actions
Classe avec l’implémentation des actions
Mise en oeuvre 2
VHDL
Suite : Classe avec les emplacements des actions

Classe contenant l’automate

class Temps1
-- TP1 Automate
-- analyseur sans actions pour les temps
inherit AutomateS
rename make as make_automateS
redefine Init_table_trans
end;
creation make
feature

make is
do

make_automateS(15) ; -- donner le nombre N d'état [0..N]

end; -- make

Init_Table_Trans is
do

-- initialisation des arc issus de l'etat 1
UnArcT(1,c_espace,2);
ArcsPourCharT('1','9',1,7) ;
UnArcT(1,'0',6) ;
ArcsPourLettresT(1,3);

-- initialisation des arc issus de l'etat 2
UnArcT(2,c_espace,2);
UnArcT(2,'0',6);
ArcsPourCharT('1','9',2,7);
ArcsPourLettresT(2,3);

-- initialisation des arc issus de l'etat 3
ArcsPourLettresT(3,4);

-- initialisation des arc issus de l'etat 4
ArcsPourLettresT(4,4);
UnArcT(4,c_ligne,1);
UnArcT(4,c_espace,5);
UnArcT(4,c_point,1);

-- initialisation des arc issus de l'etat 5
UnArcT(5,c_espace,5);
UnArcT(5,'0',6);
ArcsPourCharT('1','9',5,7);

-- initialisation des arc issus de l'etat 6
UnArcT(6,c_espace,8);

-- initialisation des arc issus de l'etat 7
UnArcT(7,c_espace,8);
ArcsPourChiffresT(7,7);

-- initialisation des arc issus de l'etat 8
UnArcT(8,'h',9);

-- initialisation des arc issus de l'etat 9
UnArcT(9,c_espace,10);

-- initialisation des arc issus de l'etat 10
ArcsPourCharT('0','5',10,11);

-- initialisation des arc issus de l'etat 11
ArcsPourChiffresT(11,12);

-- initialisation des arc issus de l'etat 12
UnArcT(12,c_espace,13);

-- initialisation des arc issus de l'etat 13
UnArcT(13,'m',14);

-- initialisation des arc issus de l'etat 14
UnArcT(14,'n',15);

-- initialisation des arc issus de l'etat 15
UnArcT(15,c_point,1);
UnArcT(15,c_ligne,1);

-- initialisation de l'etat final(1) :
Final.put(true, 1) ;

end ; -- Init_Table_Trans

end -- temps1

Suite : Classe avec les emplacements des actions
Onyest dossier - cours ingénieur informatique et électronique : SPAR, PAS, TLC, VHDL - http://www.onyest.free.fr/dossier/cours - webmaster : novis@chez.com

-