12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 |
- module.exports = function(hljs) {
- var TYPEPARAM = {
- begin: '<', end: '>',
- contains: [
- hljs.inherit(hljs.TITLE_MODE, {begin: /'[a-zA-Z0-9_]+/})
- ]
- };
- return {
- aliases: ['fs'],
- keywords:
- 'abstract and as assert base begin class default delegate do done ' +
- 'downcast downto elif else end exception extern false finally for ' +
- 'fun function global if in inherit inline interface internal lazy let ' +
- 'match member module mutable namespace new null of open or ' +
- 'override private public rec return sig static struct then to ' +
- 'true try type upcast use val void when while with yield',
- illegal: /\/\*/,
- contains: [
- {
- // monad builder keywords (matches before non-bang kws)
- className: 'keyword',
- begin: /\b(yield|return|let|do)!/
- },
- {
- className: 'string',
- begin: '@"', end: '"',
- contains: [{begin: '""'}]
- },
- {
- className: 'string',
- begin: '"""', end: '"""'
- },
- hljs.COMMENT('\\(\\*', '\\*\\)'),
- {
- className: 'class',
- beginKeywords: 'type', end: '\\(|=|$', excludeEnd: true,
- contains: [
- hljs.UNDERSCORE_TITLE_MODE,
- TYPEPARAM
- ]
- },
- {
- className: 'meta',
- begin: '\\[<', end: '>\\]',
- relevance: 10
- },
- {
- className: 'symbol',
- begin: '\\B(\'[A-Za-z])\\b',
- contains: [hljs.BACKSLASH_ESCAPE]
- },
- hljs.C_LINE_COMMENT_MODE,
- hljs.inherit(hljs.QUOTE_STRING_MODE, {illegal: null}),
- hljs.C_NUMBER_MODE
- ]
- };
- };
|