Annexe 1 : Construction du champ CHP_PRESENT

Arbre de construction

Représentation « textuelle »

(def sous-programme ()
   ("{TYP-SS-PGME} {NOM-SS-PGME} (DRAP:{SNS-PARAM} TYPE_DRAP) {CPT-SS-PGME} is
     begin
        {CORPS}
     end;"))

(def accesseur
   ((def TYP-SS-PGME () ("function"))
    (def SNS-PARAM () ("in"))
    (def CPT-SS-PGME () ("return BOOLEAN"))
    (def CORPS () ("return DRAP.CHP_PRESENT;")))
   ("{sous-programme"))

(def modificateur
   ((def TYP-SS-PGME () ("procedure"))
    (def SNS-PARAM () ("in out"))
    (def CPT-SS-PGME () (""))
    (def CORPS () ("DRAP.CHP_PRESENT := {VAL};")))
   ("{sous-programme"))

(def test
   ((def NOM-SS-PGME () ("PRESENT")))
   ("{accesseur}"))

(def set
   ((def NOM-SS-PGME () ("SETPRESENT"))
    (def VAL () ("TRUE")))
   ("{modificateur}"))

(def reset
   ((def NOM-SS-PGME () ("RESETPRESENT"))
    (def VAL () ("FALSE")))
   ("{modificateur}"))