/** | |
* @fileoverview | |
* Registers a language handler for Common Lisp and related languages. | |
* | |
* | |
* To use, include prettify.js and this file in your HTML page. | |
* Then put your code in an HTML tag like | |
* <pre class="prettyprint lang-lisp">(my lisp code)</pre> | |
* The lang-cl class identifies the language as common lisp. | |
* This file supports the following language extensions: | |
* lang-cl - Common Lisp | |
* lang-el - Emacs Lisp | |
* lang-lisp - Lisp | |
* lang-scm - Scheme | |
* | |
* | |
* I used http://www.devincook.com/goldparser/doc/meta-language/grammar-LISP.htm | |
* as the basis, but added line comments that start with ; and changed the atom | |
* production to disallow unquoted semicolons. | |
* | |
* "Name" = 'LISP' | |
* "Author" = 'John McCarthy' | |
* "Version" = 'Minimal' | |
* "About" = 'LISP is an abstract language that organizes ALL' | |
* | 'data around "lists".' | |
* | |
* "Start Symbol" = [s-Expression] | |
* | |
* {Atom Char} = {Printable} - {Whitespace} - [()"\''] | |
* | |
* Atom = ( {Atom Char} | '\'{Printable} )+ | |
* | |
* [s-Expression] ::= [Quote] Atom | |
* | [Quote] '(' [Series] ')' | |
* | [Quote] '(' [s-Expression] '.' [s-Expression] ')' | |
* | |
* [Series] ::= [s-Expression] [Series] | |
* | | |
* | |
* [Quote] ::= '' !Quote = do not evaluate | |
* | | |
* | |
* | |
* I used <a href="http://gigamonkeys.com/book/">Practical Common Lisp</a> as | |
* the basis for the reserved word list. | |
* | |
* | |
* @author mikesamuel@gmail.com | |
*/ | |
PR.registerLangHandler( | |
PR.createSimpleLexer( | |
[ | |
['opn', /^\(/, null, '('], | |
['clo', /^\)/, null, ')'], | |
// A line comment that starts with ; | |
[PR.PR_COMMENT, /^;[^\r\n]*/, null, ';'], | |
// Whitespace | |
[PR.PR_PLAIN, /^[\t\n\r \xA0]+/, null, '\t\n\r \xA0'], | |
// A double quoted, possibly multi-line, string. | |
[PR.PR_STRING, /^\"(?:[^\"\\]|\\[\s\S])*(?:\"|$)/, null, '"'] | |
], | |
[ | |
[PR.PR_KEYWORD, /^(?: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], | |
[PR.PR_LITERAL, | |
/^[+\-]?(?:0x[0-9a-f]+|\d+\/\d+|(?:\.\d+|\d+(?:\.\d*)?)(?:[ed][+\-]?\d+)?)/i], | |
// A single quote possibly followed by a word that optionally ends with | |
// = ! or ?. | |
[PR.PR_LITERAL, | |
/^\'(?:-*(?:\w|\\[\x21-\x7e])(?:[\w-]*|\\[\x21-\x7e])[=!?]?)?/], | |
// A word that optionally ends with = ! or ?. | |
[PR.PR_PLAIN, | |
/^-*(?:[a-z_]|\\[\x21-\x7e])(?:[\w-]*|\\[\x21-\x7e])[=!?]?/i], | |
// A printable non-space non-special character | |
[PR.PR_PUNCTUATION, /^[^\w\t\n\r \xA0()\"\\\';]+/] | |
]), | |
['cl', 'el', 'lisp', 'scm']); |