11 regels
218 B
Racket
11 regels
218 B
Racket
|
#lang br
|
||
|
|
(require "lexer.rkt" brag/support)
|
||
|
|
|
||
|
|
(define (make-tokenizer ip [path #f])
|
||
|
|
(port-count-lines! ip)
|
||
|
|
(lexer-file-path path)
|
||
|
|
(define (next-token) (basic-lexer ip))
|
||
|
|
next-token)
|
||
|
|
|
||
|
|
(provide make-tokenizer)
|