You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
467 B
Racket
17 lines
467 B
Racket
#lang br
|
|
(require "parser.rkt" "tokenizer.rkt")
|
|
(provide current-basic-port configure-repl!)
|
|
|
|
(define current-basic-port (make-parameter #f))
|
|
|
|
(define (configure-repl!)
|
|
(define statement-parser (make-rule-parser b-statement))
|
|
(define (read-one-line path port)
|
|
(define one-line (read-line port))
|
|
(if (eof-object? one-line)
|
|
eof
|
|
(statement-parser (make-tokenizer (open-input-string one-line)))))
|
|
(current-read-interaction read-one-line))
|
|
|
|
|