Code: Select all
> {[{]}
ERR: string token too long : "[{]}"
> {[\{]}
ERR: string token too long : "[\\{]}"
;; \nnn also could not recognize in {..}
> {\123}
"\\123"
Code: Select all
> {[{]}
ERR: string token too long : "[{]}"
> {[\{]}
ERR: string token too long : "[\\{]}"
;; \nnn also could not recognize in {..}
> {\123}
"\\123"
Code: Select all
> {[\Q{\E]}
ERR: string token too long : "[\\Q{\\E]}"
> {[\Q\{\E]}
ERR: string token too long : "[\\Q\\{\\E]}"
Code: Select all
ssqq@X61:~/spp-newlisp$ cat debug.lsp
(constant 'say println)
(define (regex-str-char @str)
(replace {([\Q()[]{}|\.+*?^$\E])} @str (string {\} $1) 0))
(say (regex-str-char "{}()"))
(exit)
ssqq@X61:~/spp-newlisp$ newlisp debug.lsp
\{\}\(\)