2017-06-28 08:45:13 +00:00
/ *
Copyright ( C ) 2008 Google Inc .
Licensed under the Apache License , Version 2.0 ( the "License" ) ;
you may not use this file except in compliance with the License .
You may obtain a copy of the License at
http : //www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing , software
distributed under the License is distributed on an "AS IS" BASIS ,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND , either express or implied .
See the License for the specific language governing permissions and
limitations under the License .
* /
PR . registerLangHandler ( PR . createSimpleLexer ( [ [ "opn" , /^\(+/ , null , "(" ] , [ "clo" , /^\)+/ , null , ")" ] , [ "com" , /^;[^\r\n]*/ , null , ";" ] , [ "pln" , /^[\t\n\r \xA0]+/ , null , "\t\n\r \u00a0" ] , [ "str" , /^\"(?:[^\"\\]|\\[\s\S])*(?:\"|$)/ , null , '"' ] ] , [ [ "kwd" , /^(?:block|c[ad]+r|catch|con[ds]|def(?:ine|un)|do|eq|eql|equal|equalp|eval-when|flet|format|go|if|labels|lambda|let|load-time-value|locally|macrolet|multiple-value-call|nil|progn|progv|quote|require|return-from|setq|symbol-macrolet|t|tagbody|the|throw|unwind)\b/ ,
null ] , [ "lit" , /^[+\-]?(?:[0#]x[0-9a-f]+|\d+\/\d+|(?:\.\d+|\d+(?:\.\d*)?)(?:[ed][+\-]?\d+)?)/i ] , [ "lit" , /^\'(?:-*(?:\w|\\[\x21-\x7e])(?:[\w-]*|\\[\x21-\x7e])[=!?]?)?/ ] , [ "pln" , /^-*(?:[a-z_]|\\[\x21-\x7e])(?:[\w-]*|\\[\x21-\x7e])[=!?]?/i ] , [ "pun" , /^[^\w\t\n\r \xA0()\"\\\';]+/ ] ] ) , "cl el lisp lsp scm ss rkt" . split ( " " ) ) ;
