Lines Matching defs:string
47 (defsynprop *prop-string-escape*
48 "string-escape"
53 (defsynprop *prop-string-keyword-bold*
54 "string-variable-bold"
58 (defsynprop *prop-string-keyword*
59 "string-variable"
175 ;; Return to the toplevel when the start of the string is found
366 (defmacro perl-q-string-token (token)
367 `(syntoken (string-concat "\\<q(q|w)?\\s*\\" ,token)
369 (intern (string-concat "string" ,token) 'keyword)))
370 (defmacro perl-q-string-table (start end)
371 `(syntable (intern (string-concat "string" ,start) 'keyword)
372 *prop-string* #'default-indent
374 (synaugment :inside-string)))
380 (string-concat
389 (string-concat
400 (string-concat
414 (syntable :inside-string nil nil
417 ;; XXX This pattern was matching the empty string and entering an
428 (syntoken "\\\\\\d{3}|\\\\." :property *prop-string-escape*)
429 (syntoken "(\\{\\$|\\$\\{)" :property *prop-string-keyword-bold* :begin :string-varbrace)
430 (syntoken "[$@]" :property *prop-string-keyword-bold* :begin :string-variable)
431 (syntoken "\\$(\\d|^\\u|[][0-9!#$*()_@<>?/|,\"'])" :property *prop-string-keyword-bold*))
434 (syntable :string-variable *prop-string-keyword* nil
436 (syntable :string-varbrace *prop-string-keyword* nil
439 :property *prop-string-keyword-bold*
441 (synaugment :inside-string))
455 (syntoken "\"" :nospec t :contained t :begin :string)
456 (syntable :string *prop-string* #'default-indent
458 (synaugment :inside-string))
461 (perl-q-string-token "{")
462 (perl-q-string-table "{" "}")
463 (perl-q-string-token "[")
464 (perl-q-string-table "[" "]")
465 (perl-q-string-token "(")
466 (perl-q-string-table "(" ")")
467 (perl-q-string-token "/")
468 (perl-q-string-table "/" "/")
474 (syntoken "\\\\." :property *prop-string-escape*))
480 (synaugment :inside-string))
486 ;; primitive faked heredoc support, doesn't match the proper string, just
488 (syntoken "<<\"[A-Z][A-Z0-9_]+\"" :property *prop-string* :begin :heredoc)