home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / parser / parser-globals.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  796 b   |  30 lines  |  [TEXT/CCL2]
  1. ;;; Global vars used in the parser
  2.  
  3. (define *current-line* '())  ;  current line the scanner is on
  4. (define *current-col* '())   ;  current col; valid at start of line &
  5.                              ;  after where,let,of
  6. (define *current-file* '())
  7.  
  8.  
  9. ;;; Lexer
  10.  
  11. (define *lex-literate?* '#f)
  12. (define *start-line* 0)
  13. (define *start-col* 0)
  14. (define *on-new-line?* '#t)
  15. (define *save-col?* '#f)
  16. (define *port* '())
  17. (define *tokens* '())
  18. (define *char* 0)
  19. (define *peek-char* 0)
  20. (define *at-eof/p?* 0)
  21. (define *at-eof?* 0)
  22. (define *on-new-line? '#f)
  23.  
  24. ;;; Parser
  25.  
  26. (define *token-stream* '())  ;  remaining tokens to be parsed
  27. (define *token* '())         ;  current token type
  28. (define *token-args* '())    ;  current token arguments
  29. (define *layout-stack* '())  ;  columns at which layout is being done
  30.