[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(No Subject)

debut du programme ap2l.pg :

%TY_NTC, TY_NGEN: $Revision: 1.28 $

'ap2l$eval_ap2l$'(__EXPR, _N):-
   'int'(_N),
   '$ap2l$A_EXPR'(_EXPR),
   '$ap2l$A_EXPR'(_EXPR1),
   'gettree'(__EXPR, _EXPR),
   'ap2l$1|-1:1'(_N, _EXPR, _EXPR1, __EXPR, '$PSP$nil', _),
   '$pl_to_vtp'(_EXPR1, ___EXPR1),
   'sendvar'('res', ___EXPR1).
   

programme ap2l.ll :

(de #:ap2l:eval_ap2l (EXPR N)
   (let ((res ()))
      (#:prolog:send
         (catenate "'ap2l$eval_ap2l$'("
            (#:PSP:loc EXPR) ","
            ({prolog}:quote N) ")."))
      res))

Merci

	Beatrice Markhoff