Comment faire un simple compilateur de pascal

j'aimerais bien de vous m'aider á ecrire á un algorithme de la fonction Getlex() qui permet d'extraire les lexémes d'un programme généré par la grammmaire G,et l'algorithme qui permet de réaliser les trois phases d'un compilateur:lexicale,syntaxique et sémantique pour analyser un programme généré par la grammaire G.
voici la grammaire:
Programme ->Dec;Corpspg.
Dec->D;Dec|epsilon
D->TL
T->int|real|char
L->L,Id|Id
Corpspg->{Suiteinst}
Suiteinst->Inst;Suiteinst|epsilon
Inst->Id:=E|if E then Inst |while E do Inst
E->Nbr|Id|E mod E