blob: 528e582e4005f711ef6b815136db96aecfff51e8 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
;;; Global vars used in the parser
(define *current-line* '()) ; current line the scanner is on
(define *current-col* '()) ; current col; valid at start of line &
; after where,let,of
;;; Lexer
(define *lex-literate?* '#f)
(define *start-line* 0)
(define *start-col* 0)
(define *on-new-line?* '#t)
(define *save-col?* '#f)
(define *port* '())
(define *tokens* '())
(define *char* 0)
(define *peek-char* 0)
(define *at-eof/p?* 0)
(define *at-eof?* 0)
(define *on-new-line? '#f)
;;; Parser
(define *token-stream* '()) ; remaining tokens to be parsed
(define *token* '()) ; current token type
(define *token-args* '()) ; current token arguments
(define *layout-stack* '()) ; columns at which layout is being done
|