On illustre la démarche par un exemple.
2. La syntaxe abstraite et les schémas de décompilation
3. La représentation textuelle
4. La concentration des variables
5. La concentration des propriétés
Figure 7 : le poids sémantique des propriétés
L'introduction des "propriétés" que doivent satisfaire certains paramètres autorise l'établissement de contrôles sémantiques. On montre ici par quel moyen on peut effectuer le contrôle de type dès la phase d'édition. On le réalise sans pénalisation pour le programmeur, puisqu'il se traduit par d'éventuels messages de mise en garde mais qu'il ne contraint pas le programmeur à corriger son erreur.
Par exemple :
(def affect ()
((VAR) ":="
(lsp
(unless (egal (use TYP((VAR))) (use TYP((EXP))))
"(erreur de type)"))
(EXP) "^M"))
qui retourne l'affichage :
x:=(erreur de type)y
On notera que le programme – le texte PGME – n'a pas été touché : le contrôle de type est réalisé dans la grammaire et non dans le programme. On choisit donc lors d'une session sous l'éditeur d'activer ou non le contrôle de type par le choix de la grammaire de décompilation – ou plus précisément par le choix de la liste des textes qui définissent les opérateurs de la grammaire.
Figure 7 : le poids sémantique des propriétés [ << masquer ]
(def pgme ()
((PGME-DECLA)
(PGME-INSTR)))
(def pgme-decla ()
((lst-init ((DECLA*))
("VAR " (rep (DECLA) (lst (DECLA)))))))
(def pgme-instr ()
((lst-init ((INSTR*))
((INSTR)))))
(def decla ()
((NOM((VAR))) ":" (TYP((VAR))) "^M"))
(def affect ()
((VAR) ":="
(fct unless (egal (use TYP((VAR))) (use TYP((EXP))))
"(erreur de type)")
(EXP) "^M"))
(def affiche ()
("write(" (EXP) ")" "^M"))
(def cond ()
("if " (EXP-COND) "^M"
(THEN-CLAUSE)
(ELSE-CLAUSE)
"endif" "^M"))
(def exp-egal ()
((EXP1) "="
(fct unless (egal (use TYP((EXP1))) (use TYP((EXP2))))
"(erreur de type)")
(EXP2)))
(def exp-diff ()
((EXP1) "<>"
(fct unless (egal (use TYP((EXP1))) (use TYP((EXP2))))
"(erreur de type)")
(EXP2)))
(def then-clause ()
("then" "^M"
(lst-init ((INSTR*))
(" " (rep (INSTR) (lst (INSTR)))))))
(def else-clause ()
("else" "^M"
(lst-init ((INSTR*))
(" " (rep (INSTR) (lst (INSTR)))))))
(def var
((def lect () ((NOM)))
(def ecr () ((NOM)))
(def init () ((INIT)))))