*** empty log message ***

original commit: 1ec30fb00dd2e72f294ed06a6d8f78ec659dd076
tokens
Scott Owens 20 years ago
parent 565b7b9715
commit 195d429226

@ -98,6 +98,8 @@
name-lst))) name-lst)))
(let-values (((trans start action-names no-look disappeared-uses) (let-values (((trans start action-names no-look disappeared-uses)
(build-lexer re-actname-lst))) (build-lexer re-actname-lst)))
#;(when (vector-ref action-names start)
(raise-syntax-error #f "accepts the empty string" stx))
(with-syntax ((start-state-stx start) (with-syntax ((start-state-stx start)
(trans-table-stx trans) (trans-table-stx trans)
(no-lookahead-stx no-look) (no-lookahead-stx no-look)
@ -249,7 +251,7 @@
;; including the one just read ;; including the one just read
(length-chars 1) (length-chars 1)
;; how many characters are in the longest match ;; how many characters are in the longest match
(longest-match-length 1)) (longest-match-length 0))
(let ((next-state (let ((next-state
(cond (cond
((eof-object? char) #f) ((eof-object? char) #f)

@ -334,5 +334,6 @@
(define t13 (build-test-dfa `((intersection (concatenation (intersection) "111" (intersection)) (define t13 (build-test-dfa `((intersection (concatenation (intersection) "111" (intersection))
(complement (union (concatenation (intersection) "01") (complement (union (concatenation (intersection) "01")
(repeat 1 +inf.0 "1"))))))) (repeat 1 +inf.0 "1")))))))
(define t14 (build-test-dfa `((complement "1"))))
|# |#
) )

@ -107,6 +107,5 @@
null) null)
'(5 1 2 3 4 1 2 3 2 1))) '(5 1 2 3 4 1 2 3 2 1)))
) )

Loading…
Cancel
Save