[d24f17c] | 1 | // https://smlfamily.github.io/sml97-defn.pdf
|
---|
| 2 | // https://people.mpi-sws.org/~rossberg/sml.html
|
---|
| 3 | (function (Prism) {
|
---|
| 4 |
|
---|
| 5 | var keywords = /\b(?:abstype|and|andalso|as|case|datatype|do|else|end|eqtype|exception|fn|fun|functor|handle|if|in|include|infix|infixr|let|local|nonfix|of|op|open|orelse|raise|rec|sharing|sig|signature|struct|structure|then|type|val|where|while|with|withtype)\b/i;
|
---|
| 6 |
|
---|
| 7 | Prism.languages.sml = {
|
---|
| 8 | // allow one level of nesting
|
---|
| 9 | 'comment': /\(\*(?:[^*(]|\*(?!\))|\((?!\*)|\(\*(?:[^*(]|\*(?!\))|\((?!\*))*\*\))*\*\)/,
|
---|
| 10 | 'string': {
|
---|
| 11 | pattern: /#?"(?:[^"\\]|\\.)*"/,
|
---|
| 12 | greedy: true
|
---|
| 13 | },
|
---|
| 14 |
|
---|
| 15 | 'class-name': [
|
---|
| 16 | {
|
---|
| 17 | // This is only an approximation since the real grammar is context-free
|
---|
| 18 | //
|
---|
| 19 | // Why the main loop so complex?
|
---|
| 20 | // The main loop is approximately the same as /(?:\s*(?:[*,]|->)\s*<TERMINAL>)*/ which is, obviously, a lot
|
---|
| 21 | // simpler. The difference is that if a comma is the last iteration of the loop, then the terminal must be
|
---|
| 22 | // followed by a long identifier.
|
---|
| 23 | pattern: RegExp(
|
---|
| 24 | /((?:^|[^:]):\s*)<TERMINAL>(?:\s*(?:(?:\*|->)\s*<TERMINAL>|,\s*<TERMINAL>(?:(?=<NOT-LAST>)|(?!<NOT-LAST>)\s+<LONG-ID>)))*/.source
|
---|
| 25 | .replace(/<NOT-LAST>/g, function () { return /\s*(?:[*,]|->)/.source; })
|
---|
| 26 | .replace(/<TERMINAL>/g, function () {
|
---|
| 27 | return /(?:'[\w']*|<LONG-ID>|\((?:[^()]|\([^()]*\))*\)|\{(?:[^{}]|\{[^{}]*\})*\})(?:\s+<LONG-ID>)*/.source;
|
---|
| 28 | })
|
---|
| 29 | .replace(/<LONG-ID>/g, function () { return /(?!<KEYWORD>)[a-z\d_][\w'.]*/.source; })
|
---|
| 30 | .replace(/<KEYWORD>/g, function () { return keywords.source; }),
|
---|
| 31 | 'i'
|
---|
| 32 | ),
|
---|
| 33 | lookbehind: true,
|
---|
| 34 | greedy: true,
|
---|
| 35 | inside: null // see below
|
---|
| 36 | },
|
---|
| 37 | {
|
---|
| 38 | pattern: /((?:^|[^\w'])(?:datatype|exception|functor|signature|structure|type)\s+)[a-z_][\w'.]*/i,
|
---|
| 39 | lookbehind: true
|
---|
| 40 | }
|
---|
| 41 | ],
|
---|
| 42 | 'function': {
|
---|
| 43 | pattern: /((?:^|[^\w'])fun\s+)[a-z_][\w'.]*/i,
|
---|
| 44 | lookbehind: true
|
---|
| 45 | },
|
---|
| 46 |
|
---|
| 47 | 'keyword': keywords,
|
---|
| 48 | 'variable': {
|
---|
| 49 | pattern: /(^|[^\w'])'[\w']*/,
|
---|
| 50 | lookbehind: true,
|
---|
| 51 | },
|
---|
| 52 |
|
---|
| 53 | 'number': /~?\b(?:\d+(?:\.\d+)?(?:e~?\d+)?|0x[\da-f]+)\b/i,
|
---|
| 54 | 'word': {
|
---|
| 55 | pattern: /\b0w(?:\d+|x[\da-f]+)\b/i,
|
---|
| 56 | alias: 'constant'
|
---|
| 57 | },
|
---|
| 58 |
|
---|
| 59 | 'boolean': /\b(?:false|true)\b/i,
|
---|
| 60 | 'operator': /\.\.\.|:[>=:]|=>?|->|[<>]=?|[!+\-*/^#|@~]/,
|
---|
| 61 | 'punctuation': /[(){}\[\].:,;]/
|
---|
| 62 | };
|
---|
| 63 |
|
---|
| 64 | Prism.languages.sml['class-name'][0].inside = Prism.languages.sml;
|
---|
| 65 |
|
---|
| 66 | Prism.languages.smlnj = Prism.languages.sml;
|
---|
| 67 |
|
---|
| 68 | }(Prism));
|
---|