+ Simple mode that handles Oracle PL/SQL language (and Oracle SQL, of course). +
+ +MIME type defined: text/x-plsql
+ (PLSQL code)
+
diff --git a/imports/codemirror/mode/plsql/plsql.js b/imports/codemirror/mode/plsql/plsql.js
new file mode 100755
index 00000000..a2ac2e8d
--- /dev/null
+++ b/imports/codemirror/mode/plsql/plsql.js
@@ -0,0 +1,217 @@
+CodeMirror.defineMode("plsql", function(config, parserConfig) {
+ var indentUnit = config.indentUnit,
+ keywords = parserConfig.keywords,
+ functions = parserConfig.functions,
+ types = parserConfig.types,
+ sqlplus = parserConfig.sqlplus,
+ multiLineStrings = parserConfig.multiLineStrings;
+ var isOperatorChar = /[+\-*&%=<>!?:\/|]/;
+ function chain(stream, state, f) {
+ state.tokenize = f;
+ return f(stream, state);
+ }
+
+ var type;
+ function ret(tp, style) {
+ type = tp;
+ return style;
+ }
+
+ function tokenBase(stream, state) {
+ var ch = stream.next();
+ // start of string?
+ if (ch == '"' || ch == "'")
+ return chain(stream, state, tokenString(ch));
+ // is it one of the special signs []{}().,;? Seperator?
+ else if (/[\[\]{}\(\),;\.]/.test(ch))
+ return ret(ch);
+ // start of a number value?
+ else if (/\d/.test(ch)) {
+ stream.eatWhile(/[\w\.]/);
+ return ret("number", "number");
+ }
+ // multi line comment or simple operator?
+ else if (ch == "/") {
+ if (stream.eat("*")) {
+ return chain(stream, state, tokenComment);
+ }
+ else {
+ stream.eatWhile(isOperatorChar);
+ return ret("operator", "operator");
+ }
+ }
+ // single line comment or simple operator?
+ else if (ch == "-") {
+ if (stream.eat("-")) {
+ stream.skipToEnd();
+ return ret("comment", "comment");
+ }
+ else {
+ stream.eatWhile(isOperatorChar);
+ return ret("operator", "operator");
+ }
+ }
+ // pl/sql variable?
+ else if (ch == "@" || ch == "$") {
+ stream.eatWhile(/[\w\d\$_]/);
+ return ret("word", "variable");
+ }
+ // is it a operator?
+ else if (isOperatorChar.test(ch)) {
+ stream.eatWhile(isOperatorChar);
+ return ret("operator", "operator");
+ }
+ else {
+ // get the whole word
+ stream.eatWhile(/[\w\$_]/);
+ // is it one of the listed keywords?
+ if (keywords && keywords.propertyIsEnumerable(stream.current().toLowerCase())) return ret("keyword", "keyword");
+ // is it one of the listed functions?
+ if (functions && functions.propertyIsEnumerable(stream.current().toLowerCase())) return ret("keyword", "builtin");
+ // is it one of the listed types?
+ if (types && types.propertyIsEnumerable(stream.current().toLowerCase())) return ret("keyword", "variable-2");
+ // is it one of the listed sqlplus keywords?
+ if (sqlplus && sqlplus.propertyIsEnumerable(stream.current().toLowerCase())) return ret("keyword", "variable-3");
+ // default: just a "word"
+ return ret("word", "plsql-word");
+ }
+ }
+
+ function tokenString(quote) {
+ return function(stream, state) {
+ var escaped = false, next, end = false;
+ while ((next = stream.next()) != null) {
+ if (next == quote && !escaped) {end = true; break;}
+ escaped = !escaped && next == "\\";
+ }
+ if (end || !(escaped || multiLineStrings))
+ state.tokenize = tokenBase;
+ return ret("string", "plsql-string");
+ };
+ }
+
+ function tokenComment(stream, state) {
+ var maybeEnd = false, ch;
+ while (ch = stream.next()) {
+ if (ch == "/" && maybeEnd) {
+ state.tokenize = tokenBase;
+ break;
+ }
+ maybeEnd = (ch == "*");
+ }
+ return ret("comment", "plsql-comment");
+ }
+
+ // Interface
+
+ return {
+ startState: function(basecolumn) {
+ return {
+ tokenize: tokenBase,
+ startOfLine: true
+ };
+ },
+
+ token: function(stream, state) {
+ if (stream.eatSpace()) return null;
+ var style = state.tokenize(stream, state);
+ return style;
+ }
+ };
+});
+
+(function() {
+ function keywords(str) {
+ var obj = {}, words = str.split(" ");
+ for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
+ return obj;
+ }
+ var cKeywords = "abort accept access add all alter and any array arraylen as asc assert assign at attributes audit " +
+ "authorization avg " +
+ "base_table begin between binary_integer body boolean by " +
+ "case cast char char_base check close cluster clusters colauth column comment commit compress connect " +
+ "connected constant constraint crash create current currval cursor " +
+ "data_base database date dba deallocate debugoff debugon decimal declare default definition delay delete " +
+ "desc digits dispose distinct do drop " +
+ "else elsif enable end entry escape exception exception_init exchange exclusive exists exit external " +
+ "fast fetch file for force form from function " +
+ "generic goto grant group " +
+ "having " +
+ "identified if immediate in increment index indexes indicator initial initrans insert interface intersect " +
+ "into is " +
+ "key " +
+ "level library like limited local lock log logging long loop " +
+ "master maxextents maxtrans member minextents minus mislabel mode modify multiset " +
+ "new next no noaudit nocompress nologging noparallel not nowait number_base " +
+ "object of off offline on online only open option or order out " +
+ "package parallel partition pctfree pctincrease pctused pls_integer positive positiven pragma primary prior " +
+ "private privileges procedure public " +
+ "raise range raw read rebuild record ref references refresh release rename replace resource restrict return " +
+ "returning reverse revoke rollback row rowid rowlabel rownum rows run " +
+ "savepoint schema segment select separate session set share snapshot some space split sql start statement " +
+ "storage subtype successful synonym " +
+ "tabauth table tables tablespace task terminate then to trigger truncate type " +
+ "union unique unlimited unrecoverable unusable update use using " +
+ "validate value values variable view views " +
+ "when whenever where while with work";
+
+ var cFunctions = "abs acos add_months ascii asin atan atan2 average " +
+ "bfilename " +
+ "ceil chartorowid chr concat convert cos cosh count " +
+ "decode deref dual dump dup_val_on_index " +
+ "empty error exp " +
+ "false floor found " +
+ "glb greatest " +
+ "hextoraw " +
+ "initcap instr instrb isopen " +
+ "last_day least lenght lenghtb ln lower lpad ltrim lub " +
+ "make_ref max min mod months_between " +
+ "new_time next_day nextval nls_charset_decl_len nls_charset_id nls_charset_name nls_initcap nls_lower " +
+ "nls_sort nls_upper nlssort no_data_found notfound null nvl " +
+ "others " +
+ "power " +
+ "rawtohex reftohex round rowcount rowidtochar rpad rtrim " +
+ "sign sin sinh soundex sqlcode sqlerrm sqrt stddev substr substrb sum sysdate " +
+ "tan tanh to_char to_date to_label to_multi_byte to_number to_single_byte translate true trunc " +
+ "uid upper user userenv " +
+ "variance vsize";
+
+ var cTypes = "bfile blob " +
+ "character clob " +
+ "dec " +
+ "float " +
+ "int integer " +
+ "mlslabel " +
+ "natural naturaln nchar nclob number numeric nvarchar2 " +
+ "real rowtype " +
+ "signtype smallint string " +
+ "varchar varchar2";
+
+ var cSqlplus = "appinfo arraysize autocommit autoprint autorecovery autotrace " +
+ "blockterminator break btitle " +
+ "cmdsep colsep compatibility compute concat copycommit copytypecheck " +
+ "define describe " +
+ "echo editfile embedded escape exec execute " +
+ "feedback flagger flush " +
+ "heading headsep " +
+ "instance " +
+ "linesize lno loboffset logsource long longchunksize " +
+ "markup " +
+ "native newpage numformat numwidth " +
+ "pagesize pause pno " +
+ "recsep recsepchar release repfooter repheader " +
+ "serveroutput shiftinout show showmode size spool sqlblanklines sqlcase sqlcode sqlcontinue sqlnumber " +
+ "sqlpluscompatibility sqlprefix sqlprompt sqlterminator suffix " +
+ "tab term termout time timing trimout trimspool ttitle " +
+ "underline " +
+ "verify version " +
+ "wrap";
+
+ CodeMirror.defineMIME("text/x-plsql", {
+ name: "plsql",
+ keywords: keywords(cKeywords),
+ functions: keywords(cFunctions),
+ types: keywords(cTypes),
+ sqlplus: keywords(cSqlplus)
+ });
+}());
--
cgit v1.2.3