home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 02 / parser / g4lisp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-30  |  462 b   |  18 lines
  1. START { S-EXP1  @psn @nl } @nl @nl
  2.  
  3. S-EXP1 ( @ds ADD | MINUS | DIV | MULT | DEFUN  )
  4.  
  5. ADD  + @ps  S-EXP2 | ARG  S-EXP2 | ARG2
  6. MINUS  - @ps  S-EXP2 | ARG  S-EXP2 | ARG2
  7. MULT * @ps  S-EXP2 | ARG  S-EXP2 | ARG2
  8. DIV  / @ps  S-EXP2 | ARG  S-EXP2 | ARG2
  9. S-EXP2 ( @nl @ds @ind ADD | MINUS | DIV | MULT | DEFUN  ) @und @psn
  10.  
  11. DEFUN defun @nl DARGS @ind DBODY @und
  12. DARGS  !ID ( { ARG } ) @psn
  13. DBODY  { @nl S-EXP1  @psn }
  14.  
  15. ARG !ID @psn
  16. ARG2 !ID @ds @psn
  17.  
  18.