es2-code-prettify
Version:
Google Code Prettify for ES2
60 lines (58 loc) • 2.6 kB
JavaScript
/**
* @license
* Copyright (C) 2012 Jeffrey B. Arnold
*
* 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.
*/
/**
* @fileoverview
* Registers a language handler for S, S-plus, and R source code.
*
*
* 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-r"> code </pre>
*
* Language definition from
* http://cran.r-project.org/doc/manuals/R-lang.html.
* Many of the regexes are shared with the pygments SLexer,
* http://pygments.org/.
*
* Original: https://raw.github.com/jrnold/prettify-lang-r-bugs/master/lang-r.js
*
* @author jeffrey.arnold@gmail.com
*/
registerLangHandler(
createSimpleLexer(
[
[PR_PLAIN, RegExpProxy( "^[\\t\\n\\r \\xA0]+" ), null, '\t\n\r \xA0'],
[PR_STRING, RegExpProxy( "^\\\"(?:[^\\\"\\\\]|\\\\[\\s\\S])*(?:\\\"|$)" ), null, '"'],
[PR_STRING, RegExpProxy( "^\\'(?:[^\\'\\\\]|\\\\[\\s\\S])*(?:\\'|$)" ), null, "'"]
],
[
[PR_COMMENT, RegExpProxy( "^#.*" )],
[PR_KEYWORD, RegExpProxy( "^(?:if|else|for|while|repeat|in|next|break|return|switch|function)(?![A-Za-z0-9_.])" )],
// hex numbes
[PR_LITERAL, RegExpProxy( "^0[xX][a-fA-F0-9]+([pP][0-9]+)?[Li]?" )],
// Decimal numbers
[PR_LITERAL, RegExpProxy( "^[+-]?([0-9]+(\\.[0-9]+)?|\\.[0-9]+)([eE][+-]?[0-9]+)?[Li]?" )],
// builtin symbols
[PR_LITERAL, RegExpProxy( "^(?:NULL|NA(?:_(?:integer|real|complex|character)_)?|Inf|TRUE|FALSE|NaN|\\.\\.(?:\\.|[0-9]+))(?![A-Za-z0-9_.])" )],
// assignment, operators, and parens, etc.
[PR_PUNCTUATION, RegExpProxy( "^(?:<<?-|->>?|-|==|<=|>=|<|>|&&?|!=|\\|\\|?|\\*|\\+|\\^|\\/|!|%.*?%|=|~|\\$|@|:{1,3}|[\\[\\](){};,?])" )],
// valid variable names
[PR_PLAIN, RegExpProxy( "^(?:[A-Za-z]+[A-Za-z0-9_.]*|\\.[a-zA-Z_][0-9a-zA-Z\\._]*)(?![A-Za-z0-9_.])" )],
// string backtick
[PR_STRING, RegExpProxy( "^`.+`" )]
]),
['r', 's', 'R', 'S', 'Splus']);