OSCL/cl-ppcre
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Report a syntax error on "(?<".

Browse Source 
Instead of failing due to NIL not being a character in a call to ALPHA-CHAR-P.
This commit is contained in:
Stas Boukarev
2016-12-27 19:33:27 +03:00
parent 0f6fe804f8
commit 0f295337d9
1 changed files with 32 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lexer.lisp
View File

@ -672,18 +672,20 @@ closing #\> will also be consumed."
;; might be a look-behind assertion or a named group, so ;; might be a look-behind assertion or a named group, so
;; check next character ;; check next character
(let ((next-char (next-char-non-extended lexer))) (let ((next-char (next-char-non-extended lexer)))
(if (alpha-char-p next-char) (cond ((and next-char
(progn (alpha-char-p next-char))
;; we have encountered a named group ;; we have encountered a named group
;; are we supporting register naming? ;; are we supporting register naming?
(unless *allow-named-registers* (unless *allow-named-registers*
(signal-syntax-error* (1- (lexer-pos lexer)) (signal-syntax-error* (1- (lexer-pos lexer))
"Character '~A' may not follow '(?<'." "Character '~A' may not follow '(?<' (because ~a = NIL)"
next-char)) next-char
'*allow-named-registers*))
;; put the letter back ;; put the letter back
(decf (lexer-pos lexer)) (decf (lexer-pos lexer))
;; named group ;; named group
:open-paren-less-letter) :open-paren-less-letter)
(t
(case next-char (case next-char
((#\=) ((#\=)
;; positive look-behind ;; positive look-behind
@ -702,7 +704,7 @@ closing #\> will also be consumed."
;; also syntax error ;; also syntax error
(signal-syntax-error* (1- (lexer-pos lexer)) (signal-syntax-error* (1- (lexer-pos lexer))
"Character '~A' may not follow '(?<'." "Character '~A' may not follow '(?<'."
next-char )))))) next-char )))))))
(otherwise (otherwise
(signal-syntax-error* (1- (lexer-pos lexer)) (signal-syntax-error* (1- (lexer-pos lexer))
"Character '~A' may not follow '(?'." "Character '~A' may not follow '(?'."