{-# LANGUAGE OverloadedStrings #-} module Skylighting.Syntax.Commonlisp (syntax) where import Skylighting.Types import Data.Map import Skylighting.Regex import qualified Data.Set syntax :: Syntax syntax = Syntax { sName = "Common Lisp" , sFilename = "commonlisp.xml" , sShortname = "Commonlisp" , sContexts = fromList [ ( "MultiLineComment" , Context { cName = "MultiLineComment" , cSyntax = "Common Lisp" , cRules = [ Rule { rMatcher = Detect2Chars '|' '#' , rAttribute = CommentTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } ] , cAttribute = CommentTok , cLineEmptyContext = [] , cLineEndContext = [] , cLineBeginContext = [] , cFallthrough = False , cFallthroughContext = [] , cDynamic = False } ) , ( "Normal" , Context { cName = "Normal" , cSyntax = "Common Lisp" , cRules = [ Rule { rMatcher = RegExpr RE { reString = ";+\\s*BEGIN.*$" , reCompiled = Just (compileRegex True ";+\\s*BEGIN.*$") , reCaseSensitive = True } , rAttribute = RegionMarkerTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = RegExpr RE { reString = ";+\\s*END.*$" , reCompiled = Just (compileRegex True ";+\\s*END.*$") , reCaseSensitive = True } , rAttribute = RegionMarkerTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = RegExpr RE { reString = ";.*$" , reCompiled = Just (compileRegex True ";.*$") , reCaseSensitive = True } , rAttribute = CommentTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Detect2Chars '#' '|' , rAttribute = CommentTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Push ( "Common Lisp" , "MultiLineComment" ) ] } , Rule { rMatcher = DetectChar '(' , rAttribute = NormalTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = DetectChar ')' , rAttribute = NormalTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Keyword KeywordAttr { keywordCaseSensitive = True , keywordDelims = Data.Set.fromList "\t\n %&(),.;[]^{|}~" } (makeWordSet True [ "abort" , "abs" , "access" , "acons" , "acos" , "acosh" , "add-method" , "adjoin" , "adjust-array" , "adjustable-array-p" , "allocate-instance" , "alpha-char-p" , "alphanumericp" , "and" , "append" , "apply" , "applyhook" , "apropos" , "apropos-list" , "aref" , "arithmetic-error" , "arithmetic-error-operands" , "arithmetic-error-operation" , "array" , "array-dimension" , "array-dimension-limit" , "array-dimensions" , "array-displacement" , "array-element-type" , "array-has-fill-pointer-p" , "array-in-bounds-p" , "array-rank" , "array-rank-limit" , "array-row-major-index" , "array-total-size" , "array-total-size-limit" , "arrayp" , "ash" , "asin" , "asinh" , "assert" , "assoc" , "assoc-if" , "assoc-if-not" , "atan" , "atanh" , "atom" , "base-char" , "base-string" , "bignum" , "bit" , "bit-and" , "bit-andc1" , "bit-andc2" , "bit-eqv" , "bit-ior" , "bit-nand" , "bit-nor" , "bit-not" , "bit-orc1" , "bit-orc2" , "bit-vector" , "bit-vector-p" , "bit-xor" , "block" , "boole" , "boole-1" , "boole-2" , "boole-and" , "boole-andc1" , "boole-andc2" , "boole-c1" , "boole-c2" , "boole-clr" , "boole-eqv" , "boole-ior" , "boole-nand" , "boole-nor" , "boole-orc1" , "boole-orc2" , "boole-set" , "boole-xor" , "boolean" , "both-case-p" , "boundp" , "break" , "broadcast-stream" , "broadcast-stream-streams" , "built-in-class" , "butlast" , "byte" , "byte-position" , "byte-size" , "caaaar" , "caaadr" , "caaar" , "caadar" , "caaddr" , "caadr" , "caar" , "cadaar" , "cadadr" , "cadar" , "caddar" , "cadddr" , "caddr" , "cadr" , "call-arguments-limit" , "call-method" , "call-next-method" , "capitalize" , "car" , "case" , "catch" , "ccase" , "cdaaar" , "cdaadr" , "cdaar" , "cdadar" , "cdaddr" , "cdadr" , "cdar" , "cddaar" , "cddadr" , "cddar" , "cdddar" , "cddddr" , "cdddr" , "cddr" , "cdr" , "ceiling" , "cell-error" , "cell-error-name" , "cerror" , "change-class" , "char" , "char-bit" , "char-bits" , "char-bits-limit" , "char-code" , "char-code-limit" , "char-control-bit" , "char-downcase" , "char-equal" , "char-font" , "char-font-limit" , "char-greaterp" , "char-hyper-bit" , "char-int" , "char-lessp" , "char-meta-bit" , "char-name" , "char-not-equal" , "char-not-greaterp" , "char-not-lessp" , "char-super-bit" , "char-upcase" , "char/=" , "char<" , "char<=" , "char=" , "char>" , "char>=" , "character" , "characterp" , "check-type" , "cis" , "class" , "class-name" , "class-of" , "clear-input" , "clear-output" , "close" , "clrhash" , "code-char" , "coerce" , "commonp" , "compilation-speed" , "compile" , "compile-file" , "compile-file-pathname" , "compiled-function" , "compiled-function-p" , "compiler-let" , "compiler-macro" , "compiler-macro-function" , "complement" , "complex" , "complexp" , "compute-applicable-methods" , "compute-restarts" , "concatenate" , "concatenated-stream" , "concatenated-stream-streams" , "cond" , "condition" , "conjugate" , "cons" , "consp" , "constantly" , "constantp" , "continue" , "control-error" , "copy-alist" , "copy-list" , "copy-pprint-dispatch" , "copy-readtable" , "copy-seq" , "copy-structure" , "copy-symbol" , "copy-tree" , "cos" , "cosh" , "count" , "count-if" , "count-if-not" , "ctypecase" , "debug" , "decf" , "declaim" , "declaration" , "declare" , "decode-float" , "decode-universal-time" , "delete" , "delete-duplicates" , "delete-file" , "delete-if" , "delete-if-not" , "delete-package" , "denominator" , "deposit-field" , "describe" , "describe-object" , "destructuring-bind" , "digit-char" , "digit-char-p" , "directory" , "directory-namestring" , "disassemble" , "division-by-zero" , "do" , "do*" , "do-all-symbols" , "do-exeternal-symbols" , "do-external-symbols" , "do-symbols" , "documentation" , "dolist" , "dotimes" , "double-float" , "double-float-epsilon" , "double-float-negative-epsilon" , "dpb" , "dribble" , "dynamic-extent" , "ecase" , "echo-stream" , "echo-stream-input-stream" , "echo-stream-output-stream" , "ed" , "eighth" , "elt" , "encode-universal-time" , "end-of-file" , "endp" , "enough-namestring" , "ensure-directories-exist" , "ensure-generic-function" , "eq" , "eql" , "equal" , "equalp" , "error" , "etypecase" , "eval" , "eval-when" , "evalhook" , "evenp" , "every" , "exp" , "export" , "expt" , "extended-char" , "fboundp" , "fceiling" , "fdefinition" , "ffloor" , "fifth" , "file-author" , "file-error" , "file-error-pathname" , "file-length" , "file-namestring" , "file-position" , "file-stream" , "file-string-length" , "file-write-date" , "fill" , "fill-pointer" , "find" , "find-all-symbols" , "find-class" , "find-if" , "find-if-not" , "find-method" , "find-package" , "find-restart" , "find-symbol" , "finish-output" , "first" , "fixnum" , "flet" , "float" , "float-digits" , "float-precision" , "float-radix" , "float-sign" , "floating-point-inexact" , "floating-point-invalid-operation" , "floating-point-overflow" , "floating-point-underflow" , "floatp" , "floor" , "fmakunbound" , "force-output" , "format" , "formatter" , "fourth" , "fresh-line" , "fround" , "ftruncate" , "ftype" , "funcall" , "function" , "function-keywords" , "function-lambda-expression" , "functionp" , "gbitp" , "gcd" , "generic-function" , "gensym" , "gentemp" , "get" , "get-decoded-time" , "get-dispatch-macro-character" , "get-internal-real-time" , "get-internal-run-time" , "get-macro-character" , "get-output-stream-string" , "get-properties" , "get-setf-expansion" , "get-setf-method" , "get-universal-time" , "getf" , "gethash" , "go" , "graphic-char-p" , "handler-bind" , "handler-case" , "hash-table" , "hash-table-count" , "hash-table-p" , "hash-table-rehash-size" , "hash-table-rehash-threshold" , "hash-table-size" , "hash-table-test" , "host-namestring" , "identity" , "if" , "if-exists" , "ignorable" , "ignore" , "ignore-errors" , "imagpart" , "import" , "in-package" , "incf" , "initialize-instance" , "inline" , "input-stream-p" , "inspect" , "int-char" , "integer" , "integer-decode-float" , "integer-length" , "integerp" , "interactive-stream-p" , "intern" , "internal-time-units-per-second" , "intersection" , "invalid-method-error" , "invoke-debugger" , "invoke-restart" , "invoke-restart-interactively" , "isqrt" , "keyword" , "keywordp" , "labels" , "lambda" , "lambda-list-keywords" , "lambda-parameters-limit" , "last" , "lcm" , "ldb" , "ldb-test" , "ldiff" , "least-negative-double-float" , "least-negative-long-float" , "least-negative-normalized-double-float" , "least-negative-normalized-long-float" , "least-negative-normalized-short-float" , "least-negative-normalized-single-float" , "least-negative-short-float" , "least-negative-single-float" , "least-positive-double-float" , "least-positive-long-float" , "least-positive-normalized-double-float" , "least-positive-normalized-long-float" , "least-positive-normalized-short-float" , "least-positive-normalized-single-float" , "least-positive-short-float" , "least-positive-single-float" , "length" , "let" , "let*" , "lisp" , "lisp-implementation-type" , "lisp-implementation-version" , "list" , "list*" , "list-all-packages" , "list-length" , "listen" , "listp" , "load" , "load-logical-pathname-translations" , "load-time-value" , "locally" , "log" , "logand" , "logandc1" , "logandc2" , "logbitp" , "logcount" , "logeqv" , "logical-pathname" , "logical-pathname-translations" , "logior" , "lognand" , "lognor" , "lognot" , "logorc1" , "logorc2" , "logtest" , "logxor" , "long-float" , "long-float-epsilon" , "long-float-negative-epsilon" , "long-site-name" , "loop" , "loop-finish" , "lower-case-p" , "machine-instance" , "machine-type" , "machine-version" , "macro-function" , "macroexpand" , "macroexpand-1" , "macroexpand-l" , "macrolet" , "make-array" , "make-broadcast-stream" , "make-char" , "make-concatenated-stream" , "make-condition" , "make-dispatch-macro-character" , "make-echo-stream" , "make-hash-table" , "make-instance" , "make-instances-obsolete" , "make-list" , "make-load-form" , "make-load-form-saving-slots" , "make-method" , "make-package" , "make-pathname" , "make-random-state" , "make-sequence" , "make-string" , "make-string-input-stream" , "make-string-output-stream" , "make-symbol" , "make-synonym-stream" , "make-two-way-stream" , "makunbound" , "map" , "map-into" , "mapc" , "mapcan" , "mapcar" , "mapcon" , "maphash" , "mapl" , "maplist" , "mask-field" , "max" , "member" , "member-if" , "member-if-not" , "merge" , "merge-pathname" , "merge-pathnames" , "method" , "method-combination" , "method-combination-error" , "method-qualifiers" , "min" , "minusp" , "mismatch" , "mod" , "most-negative-double-float" , "most-negative-fixnum" , "most-negative-long-float" , "most-negative-short-float" , "most-negative-single-float" , "most-positive-double-float" , "most-positive-fixnum" , "most-positive-long-float" , "most-positive-short-float" , "most-positive-single-float" , "muffle-warning" , "multiple-value-bind" , "multiple-value-call" , "multiple-value-list" , "multiple-value-prog1" , "multiple-value-seteq" , "multiple-value-setq" , "multiple-values-limit" , "name-char" , "namestring" , "nbutlast" , "nconc" , "next-method-p" , "nil" , "nintersection" , "ninth" , "no-applicable-method" , "no-next-method" , "not" , "notany" , "notevery" , "notinline" , "nreconc" , "nreverse" , "nset-difference" , "nset-exclusive-or" , "nstring" , "nstring-capitalize" , "nstring-downcase" , "nstring-upcase" , "nsublis" , "nsubst" , "nsubst-if" , "nsubst-if-not" , "nsubstitute" , "nsubstitute-if" , "nsubstitute-if-not" , "nth" , "nth-value" , "nthcdr" , "null" , "number" , "numberp" , "numerator" , "nunion" , "oddp" , "open" , "open-stream-p" , "optimize" , "or" , "otherwise" , "output-stream-p" , "package" , "package-error" , "package-error-package" , "package-name" , "package-nicknames" , "package-shadowing-symbols" , "package-use-list" , "package-used-by-list" , "packagep" , "pairlis" , "parse-error" , "parse-integer" , "parse-namestring" , "pathname" , "pathname-device" , "pathname-directory" , "pathname-host" , "pathname-match-p" , "pathname-name" , "pathname-type" , "pathname-version" , "pathnamep" , "peek-char" , "phase" , "pi" , "plusp" , "pop" , "position" , "position-if" , "position-if-not" , "pprint" , "pprint-dispatch" , "pprint-exit-if-list-exhausted" , "pprint-fill" , "pprint-indent" , "pprint-linear" , "pprint-logical-block" , "pprint-newline" , "pprint-pop" , "pprint-tab" , "pprint-tabular" , "prin1" , "prin1-to-string" , "princ" , "princ-to-string" , "print" , "print-not-readable" , "print-not-readable-object" , "print-object" , "print-unreadable-object" , "probe-file" , "proclaim" , "prog" , "prog*" , "prog1" , "prog2" , "progn" , "program-error" , "progv" , "provide" , "psetf" , "psetq" , "push" , "pushnew" , "putprop" , "quote" , "random" , "random-state" , "random-state-p" , "rassoc" , "rassoc-if" , "rassoc-if-not" , "ratio" , "rational" , "rationalize" , "rationalp" , "read" , "read-byte" , "read-char" , "read-char-no-hang" , "read-delimited-list" , "read-eval-print" , "read-from-string" , "read-line" , "read-preserving-whitespace" , "read-sequence" , "reader-error" , "readtable" , "readtable-case" , "readtablep" , "real" , "realp" , "realpart" , "reduce" , "reinitialize-instance" , "rem" , "remf" , "remhash" , "remove" , "remove-duplicates" , "remove-if" , "remove-if-not" , "remove-method" , "remprop" , "rename-file" , "rename-package" , "replace" , "require" , "rest" , "restart" , "restart-bind" , "restart-case" , "restart-name" , "return" , "return-from" , "revappend" , "reverse" , "room" , "rotatef" , "round" , "row-major-aref" , "rplaca" , "rplacd" , "safety" , "satisfies" , "sbit" , "scale-float" , "schar" , "search" , "second" , "sequence" , "serious-condition" , "set" , "set-char-bit" , "set-difference" , "set-dispatch-macro-character" , "set-exclusive-or" , "set-macro-character" , "set-pprint-dispatch" , "set-syntax-from-char" , "setf" , "setq" , "seventh" , "shadow" , "shadowing-import" , "shared-initialize" , "shiftf" , "short-float" , "short-float-epsilon" , "short-float-negative-epsilon" , "short-site-name" , "signal" , "signed-byte" , "signum" , "simle-condition" , "simple-array" , "simple-base-string" , "simple-bit-vector" , "simple-bit-vector-p" , "simple-condition-format-arguments" , "simple-condition-format-control" , "simple-error" , "simple-string" , "simple-string-p" , "simple-type-error" , "simple-vector" , "simple-vector-p" , "simple-warning" , "sin" , "single-flaot-epsilon" , "single-float" , "single-float-epsilon" , "single-float-negative-epsilon" , "sinh" , "sixth" , "sleep" , "slot-boundp" , "slot-exists-p" , "slot-makunbound" , "slot-missing" , "slot-unbound" , "slot-value" , "software-type" , "software-version" , "some" , "sort" , "space" , "special" , "special-form-p" , "special-operator-p" , "speed" , "sqrt" , "stable-sort" , "standard" , "standard-char" , "standard-char-p" , "standard-class" , "standard-generic-function" , "standard-method" , "standard-object" , "step" , "storage-condition" , "store-value" , "stream" , "stream-element-type" , "stream-error" , "stream-error-stream" , "stream-external-format" , "streamp" , "streamup" , "string" , "string-capitalize" , "string-char" , "string-char-p" , "string-downcase" , "string-equal" , "string-greaterp" , "string-left-trim" , "string-lessp" , "string-not-equal" , "string-not-greaterp" , "string-not-lessp" , "string-right-strim" , "string-right-trim" , "string-stream" , "string-trim" , "string-upcase" , "string/=" , "string<" , "string<=" , "string=" , "string>" , "string>=" , "stringp" , "structure" , "structure-class" , "structure-object" , "style-warning" , "sublim" , "sublis" , "subseq" , "subsetp" , "subst" , "subst-if" , "subst-if-not" , "substitute" , "substitute-if" , "substitute-if-not" , "subtypep" , "svref" , "sxhash" , "symbol" , "symbol-function" , "symbol-macrolet" , "symbol-name" , "symbol-package" , "symbol-plist" , "symbol-value" , "symbolp" , "synonym-stream" , "synonym-stream-symbol" , "sys" , "system" , "t" , "tagbody" , "tailp" , "tan" , "tanh" , "tenth" , "terpri" , "the" , "third" , "throw" , "time" , "trace" , "translate-logical-pathname" , "translate-pathname" , "tree-equal" , "truename" , "truncase" , "truncate" , "two-way-stream" , "two-way-stream-input-stream" , "two-way-stream-output-stream" , "type" , "type-error" , "type-error-datum" , "type-error-expected-type" , "type-of" , "typecase" , "typep" , "unbound-slot" , "unbound-slot-instance" , "unbound-variable" , "undefined-function" , "unexport" , "unintern" , "union" , "unless" , "unread" , "unread-char" , "unsigned-byte" , "untrace" , "unuse-package" , "unwind-protect" , "update-instance-for-different-class" , "update-instance-for-redefined-class" , "upgraded-array-element-type" , "upgraded-complex-part-type" , "upper-case-p" , "use-package" , "use-value" , "user" , "user-homedir-pathname" , "values" , "values-list" , "vector" , "vector-pop" , "vector-push" , "vector-push-extend" , "vectorp" , "warn" , "warning" , "when" , "wild-pathname-p" , "with-accessors" , "with-compilation-unit" , "with-condition-restarts" , "with-hash-table-iterator" , "with-input-from-string" , "with-open-file" , "with-open-stream" , "with-output-to-string" , "with-package-iterator" , "with-simple-restart" , "with-slots" , "with-standard-io-syntax" , "write" , "write-byte" , "write-char" , "write-line" , "write-sequence" , "write-string" , "write-to-string" , "y-or-n-p" , "yes-or-no-p" , "zerop" ]) , rAttribute = KeywordTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Keyword KeywordAttr { keywordCaseSensitive = True , keywordDelims = Data.Set.fromList "\t\n %&(),.;[]^{|}~" } (makeWordSet True [ "*" , "**" , "***" , "+" , "++" , "+++" , "-" , "/" , "//" , "///" , "/=" , "1+" , "1-" , "<" , "<=" , "=" , "=>" , ">" , ">=" ]) , rAttribute = OperatorTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Keyword KeywordAttr { keywordCaseSensitive = True , keywordDelims = Data.Set.fromList "\t\n %&(),.;[]^{|}~" } (makeWordSet True [ ":abort" , ":adjustable" , ":append" , ":array" , ":base" , ":case" , ":circle" , ":conc-name" , ":constructor" , ":copier" , ":count" , ":create" , ":default" , ":defaults" , ":device" , ":direction" , ":directory" , ":displaced-index-offset" , ":displaced-to" , ":element-type" , ":end" , ":end1" , ":end2" , ":error" , ":escape" , ":external" , ":from-end" , ":gensym" , ":host" , ":if-does-not-exist:pretty" , ":if-exists:print" , ":include:print-function" , ":index" , ":inherited" , ":initial-contents" , ":initial-element" , ":initial-offset" , ":initial-value" , ":input" , ":internal:size" , ":io" , ":junk-allowed" , ":key" , ":length" , ":level" , ":name" , ":named" , ":new-version" , ":nicknames" , ":output" , ":output-file" , ":overwrite" , ":predicate" , ":preserve-whitespace" , ":probe" , ":radix" , ":read-only" , ":rehash-size" , ":rehash-threshold" , ":rename" , ":rename-and-delete" , ":start" , ":start1" , ":start2" , ":stream" , ":supersede" , ":test" , ":test-not" , ":type" , ":use" , ":verbose" , ":version" ]) , rAttribute = BuiltInTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Keyword KeywordAttr { keywordCaseSensitive = True , keywordDelims = Data.Set.fromList "\t\n %&(),.;[]^{|}~" } (makeWordSet True [ "*applyhook*" , "*break-on-signals*" , "*break-on-warnings*" , "*compile-file-pathname*" , "*compile-file-truename*" , "*compile-print*" , "*compile-verbose*" , "*debug-io*" , "*debugger-hook*" , "*default-pathname-defaults*" , "*error-output*" , "*evalhook*" , "*features*" , "*gensym-counter*" , "*load-pathname*" , "*load-print*" , "*load-truename*" , "*load-verbose*" , "*macroexpand-hook*" , "*modules*" , "*package*" , "*print-array*" , "*print-base*" , "*print-case*" , "*print-circle*" , "*print-escape*" , "*print-gensym*" , "*print-length*" , "*print-level*" , "*print-lines*" , "*print-miser-width*" , "*print-pprint-dispatch*" , "*print-pretty*" , "*print-radix*" , "*print-readably*" , "*print-right-margin*" , "*query-io*" , "*random-state*" , "*read-base*" , "*read-default-float-format*" , "*read-eval*" , "*read-suppress*" , "*readtable*" , "*standard-input*" , "*standard-output*" , "*terminal-io*" , "*trace-output*" ]) , rAttribute = VariableTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Keyword KeywordAttr { keywordCaseSensitive = True , keywordDelims = Data.Set.fromList "\t\n %&(),.;[]^{|}~" } (makeWordSet True [ "defclass" , "defconstant" , "defgeneric" , "define-compiler-macro" , "define-condition" , "define-method-combination" , "define-modify-macro" , "define-setf-expander" , "define-setf-method" , "define-symbol-macro" , "defmacro" , "defmethod" , "defpackage" , "defparameter" , "defsetf" , "defstruct" , "deftype" , "defun" , "defvar" ]) , rAttribute = KeywordTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Push ( "Common Lisp" , "function_decl" ) ] } , Rule { rMatcher = RegExpr RE { reString = "#\\\\." , reCompiled = Just (compileRegex True "#\\\\.") , reCaseSensitive = True } , rAttribute = CharTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = DetectChar '"' , rAttribute = StringTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Push ( "Common Lisp" , "String" ) ] } , Rule { rMatcher = RegExpr RE { reString = "#[bodxei]" , reCompiled = Just (compileRegex True "#[bodxei]") , reCaseSensitive = True } , rAttribute = CharTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Push ( "Common Lisp" , "SpecialNumber" ) ] } , Rule { rMatcher = RegExpr RE { reString = "#[tf]" , reCompiled = Just (compileRegex True "#[tf]") , reCaseSensitive = True } , rAttribute = DecValTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Float , rAttribute = FloatTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = Int , rAttribute = DecValTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } ] , cAttribute = NormalTok , cLineEmptyContext = [] , cLineEndContext = [] , cLineBeginContext = [] , cFallthrough = False , cFallthroughContext = [] , cDynamic = False } ) , ( "SpecialNumber" , Context { cName = "SpecialNumber" , cSyntax = "Common Lisp" , cRules = [ Rule { rMatcher = Float , rAttribute = FloatTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } , Rule { rMatcher = Int , rAttribute = DecValTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } , Rule { rMatcher = HlCOct , rAttribute = BaseNTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } , Rule { rMatcher = HlCHex , rAttribute = FloatTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } ] , cAttribute = NormalTok , cLineEmptyContext = [] , cLineEndContext = [ Pop ] , cLineBeginContext = [] , cFallthrough = False , cFallthroughContext = [] , cDynamic = False } ) , ( "String" , Context { cName = "String" , cSyntax = "Common Lisp" , cRules = [ Rule { rMatcher = RegExpr RE { reString = "#\\\\." , reCompiled = Just (compileRegex True "#\\\\.") , reCaseSensitive = True } , rAttribute = CharTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = HlCStringChar , rAttribute = NormalTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [] } , Rule { rMatcher = DetectChar '"' , rAttribute = StringTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } ] , cAttribute = StringTok , cLineEmptyContext = [] , cLineEndContext = [] , cLineBeginContext = [] , cFallthrough = False , cFallthroughContext = [] , cDynamic = False } ) , ( "function_decl" , Context { cName = "function_decl" , cSyntax = "Common Lisp" , cRules = [ Rule { rMatcher = RegExpr RE { reString = "\\s*[A-Za-z0-9-+\\<\\>//\\*]*\\s*" , reCompiled = Just (compileRegex True "\\s*[A-Za-z0-9-+\\<\\>//\\*]*\\s*") , reCaseSensitive = True } , rAttribute = FunctionTok , rIncludeAttribute = False , rDynamic = False , rCaseSensitive = True , rChildren = [] , rLookahead = False , rFirstNonspace = False , rColumn = Nothing , rContextSwitch = [ Pop ] } ] , cAttribute = FunctionTok , cLineEmptyContext = [] , cLineEndContext = [] , cLineBeginContext = [] , cFallthrough = False , cFallthroughContext = [] , cDynamic = False } ) ] , sAuthor = "Dominik Haumann (dhdev@gmx.de)" , sVersion = "3" , sLicense = "LGPLv2+" , sExtensions = [ "*.lisp" , "*.cl" , "*.lsp" ] , sStartingContext = "Normal" }