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.
25 lines
529 B
Scheme
25 lines
529 B
Scheme
21 years ago
|
(module lex-plt-v200 mzscheme
|
||
|
|
(require (lib "lex.ss" "parser-tools")
|
||
|
|
(prefix : (lib "lex-sre.ss" "parser-tools")))
|
||
|
|
|
||
|
|
(provide epsilon
|
||
|
|
~
|
||
|
|
(rename :* *)
|
||
|
|
(rename :+ +)
|
||
|
|
(rename :? ?)
|
||
|
|
(rename :or :)
|
||
|
|
(rename :& &)
|
||
|
|
(rename :: @)
|
||
|
|
(rename :~ ^)
|
||
|
|
(rename :/ -))
|
||
|
|
|
||
|
|
(define-lex-trans epsilon
|
||
|
|
(syntax-rules ()
|
||
|
|
((_) "")))
|
||
|
|
|
||
|
|
(define-lex-trans ~
|
||
|
|
(syntax-rules ()
|
||
|
|
((_ re) (complement re)))))
|
||
|
|
|
||
|
|
|