utopia-project 0.37.5 → 0.38.0

data/public/_components/@socketry/syntax/Syntax/Language/ocaml.js

@@ -0,0 +1,225 @@
+// This brush is based loosely on the following documentation:
+// http://msdn.microsoft.com/en-us/library/dd233230.aspx
+
+import {Language} from '../Language.js';
+import {Rule} from '../Rule.js';
+
+const language = new Language('ocaml');
+
+const keywords = [
+	'abstract',
+	'and',
+	'as',
+	'assert',
+	'begin',
+	'class',
+	'default',
+	'delegate',
+	'do',
+	'done',
+	'downcast',
+	'downto',
+	'elif',
+	'else',
+	'end',
+	'exception',
+	'extern',
+	'finally',
+	'for',
+	'fun',
+	'function',
+	'if',
+	'in',
+	'inherit',
+	'inline',
+	'interface',
+	'internal',
+	'lazy',
+	'let',
+	'match',
+	'member',
+	'module',
+	'mutable',
+	'namespace',
+	'new',
+	'null',
+	'of',
+	'open',
+	'or',
+	'override',
+	'rec',
+	'return',
+	'static',
+	'struct',
+	'then',
+	'to',
+	'try',
+	'type',
+	'upcast',
+	'use',
+	'val',
+	'when',
+	'while',
+	'with',
+	'yield',
+	'asr',
+	'land',
+	'lor',
+	'lsl',
+	'lsr',
+	'lxor',
+	'mod',
+	'sig',
+	'atomic',
+	'break',
+	'checked',
+	'component',
+	'const',
+	'constraint',
+	'constructor',
+	'continue',
+	'eager',
+	'event',
+	'external',
+	'fixed',
+	'functor',
+	'global',
+	'include',
+	'method',
+	'mixin',
+	'object',
+	'parallel',
+	'process',
+	'protected',
+	'pure',
+	'sealed',
+	'trait',
+	'virtual',
+	'volatile'
+];
+
+const types = [
+	'bool',
+	'byte',
+	'sbyte',
+	/\bu?int\d*\b/,
+	'nativeint',
+	'unativeint',
+	'char',
+	'string',
+	'decimal',
+	'unit',
+	'void',
+	'float32',
+	'single',
+	'float64',
+	'double',
+	'list',
+	'array',
+	'exn',
+	'format',
+	'fun',
+	'option',
+	'ref'
+];
+
+const operators = [
+	':?>',
+	'<>',
+	'->',
+	'::',
+	':=',
+	':>',
+	':?',
+	'[<',
+	'>]',
+	'<|',
+	'|>',
+	'[|',
+	'|]',
+	'(|',
+	'|)',
+	'(*',
+	'*)',
+	'!',
+	'%',
+	'&',
+	'*',
+	'+',
+	'-',
+	'/',
+	'<',
+	'=',
+	'>',
+	'?',
+	'@',
+	'^',
+	'_',
+	'`',
+	'|',
+	'~',
+	"'",
+	'in'
+];
+
+const values = ['true', 'false'];
+
+const access = ['private', 'public'];
+
+language.push(access, {type: 'access'});
+language.push(values, {type: 'constant'});
+language.push(types, {type: 'type'});
+language.push(keywords, {type: 'keyword'});
+language.push(operators, {type: 'operator'});
+
+// http://caml.inria.fr/pub/docs/manual-ocaml/manual011.html#module-path
+// open [module-path], new [type]
+language.push({
+	pattern: /(?:open|new)\s+((?:\.?[a-z][a-z0-9]*)+)/i,
+	matches: Rule.extractMatches({type: 'type'})
+});
+
+// Functions
+language.push({
+	pattern: /(?:\.)([a-z_][a-z0-9_]+)/i,
+	matches: Rule.extractMatches({type: 'function'})
+});
+
+// Avoid highlighting keyword arguments as camel-case types.
+language.push({
+	pattern: /(?:\(|,)\s*(\w+\s*=)/,
+	matches: Rule.extractMatches({
+		type: 'keyword-argument'
+	})
+});
+
+// We need to modify cStyleFunction because "(*" is a comment token.
+language.push({
+	pattern: /([a-z_][a-z0-9_]*)\s*\((?!\*)/i,
+	matches: Rule.extractMatches({type: 'function'})
+});
+
+// Types
+language.push(Rule.camelCaseType);
+
+// Web Links
+language.push(Rule.webLink);
+
+// Comments
+language.push({
+	pattern: /\(\*[\s\S]*?\*\)/,
+	type: 'comment'
+});
+
+// Strings
+language.push(Rule.doubleQuotedString);
+language.push(Rule.stringEscape);
+
+// Numbers
+language.push(Rule.decimalNumber);
+language.push(Rule.hexNumber);
+
+export default function register(syntax) {
+	syntax.register('ocaml', language);
+	syntax.alias('ocaml', ['ml', 'sml', 'fsharp']);
+}

data/public/_components/@socketry/syntax/Syntax/Language/pascal.js

@@ -0,0 +1,166 @@
+//
+// Constructed using information from http://pascal.comsci.us/etymology/
+//
+
+import {Language} from '../Language.js';
+import {Rule} from '../Rule.js';
+
+const language = new Language('pascal');
+
+const keywords = [
+	'absolute',
+	'abstract',
+	'all',
+	'and_then',
+	'as',
+	'asm',
+	'asmname',
+	'attribute',
+	'begin',
+	'bindable',
+	'c',
+	'c_language',
+	'case',
+	'class',
+	'const',
+	'constructor',
+	'destructor',
+	'dispose',
+	'do',
+	'downto',
+	'else',
+	'end',
+	'except',
+	'exit',
+	'export',
+	'exports',
+	'external',
+	'far',
+	'file',
+	'finalization',
+	'finally',
+	'for',
+	'forward',
+	'function',
+	'goto',
+	'if',
+	'implementation',
+	'import',
+	'inherited',
+	'initialization',
+	'inline',
+	'interface',
+	'interrupt',
+	'is',
+	'keywords',
+	'label',
+	'library',
+	'module',
+	'name',
+	'near',
+	'new',
+	'object',
+	'of',
+	'on',
+	'only',
+	'operator',
+	'or_else',
+	'otherwise',
+	'packed',
+	'pascal',
+	'pow',
+	'private',
+	'procedure',
+	'program',
+	'property',
+	'protected',
+	'public',
+	'published',
+	'qualified',
+	'raise',
+	'record',
+	'repeat',
+	'resident',
+	'restricted',
+	'segment',
+	'set',
+	'then',
+	'threadvar',
+	'to',
+	'try',
+	'type',
+	'unit',
+	'until',
+	'uses',
+	'value',
+	'var',
+	'view',
+	'virtual',
+	'while',
+	'with'
+];
+
+const operators = [
+	':=',
+	'>=',
+	'<=',
+	'<>',
+	'+',
+	'-',
+	'*',
+	'/',
+	'div',
+	'mod',
+	'and',
+	'or',
+	'xor',
+	'shl',
+	'shr',
+	'not',
+	'=',
+	'>',
+	'<',
+	'in'
+];
+
+const values = ['true', 'false', 'nil'];
+
+// Keywords are case insensitive
+language.push(values, {type: 'constant', options: 'gi'});
+language.push(keywords, {type: 'keyword', options: 'gi'});
+language.push(operators, {type: 'operator', options: 'gi'});
+
+language.push(Rule.camelCaseType);
+
+// Pascal style comments
+language.push({
+	pattern: /\{[\s\S]*?\}/m,
+	type: 'comment',
+	allow: ['href']
+});
+
+language.push({
+	pattern: /\(\*[\s\S]*?\*\)/m,
+	type: 'comment',
+	allow: ['href']
+});
+
+language.push(Rule.webLink);
+
+// Strings
+language.push(Rule.singleQuotedString);
+language.push(Rule.doubleQuotedString);
+language.push(Rule.stringEscape);
+
+// Numbers
+language.push(Rule.decimalNumber);
+// Pascal hex numbers use $ prefix
+language.push({pattern: /\$[0-9a-fA-F]+/, type: 'constant'});
+
+// Functions
+language.push(Rule.cStyleFunction);
+
+export default function register(syntax) {
+	syntax.register('pascal', language);
+	syntax.alias('pascal', ['delphi']);
+}

data/public/_components/@socketry/syntax/Syntax/Language/patch.js

@@ -0,0 +1,2 @@
+// Alias for diff language
+export {default} from './diff.js';

data/public/_components/@socketry/syntax/Syntax/Language/perl5.js

@@ -0,0 +1,317 @@
+import {Language} from '../Language.js';
+import {Rule} from '../Rule.js';
+
+const language = new Language('perl5');
+
+const builtins = [
+	'abs',
+	'accept',
+	'alarm',
+	'atan2',
+	'bind',
+	'binmode',
+	'chdir',
+	'chmod',
+	'chomp',
+	'chop',
+	'chown',
+	'chr',
+	'chroot',
+	'close',
+	'closedir',
+	'connect',
+	'cos',
+	'crypt',
+	'defined',
+	'delete',
+	'each',
+	'endgrent',
+	'endhostent',
+	'endnetent',
+	'endprotoent',
+	'endpwent',
+	'endservent',
+	'eof',
+	'exec',
+	'exists',
+	'exp',
+	'fcntl',
+	'fileno',
+	'flock',
+	'fork',
+	'format',
+	'formline',
+	'getc',
+	'getgrent',
+	'getgrgid',
+	'getgrnam',
+	'gethostbyaddr',
+	'gethostbyname',
+	'gethostent',
+	'getlogin',
+	'getnetbyaddr',
+	'getnetbyname',
+	'getnetent',
+	'getpeername',
+	'getpgrp',
+	'getppid',
+	'getpriority',
+	'getprotobyname',
+	'getprotobynumber',
+	'getprotoent',
+	'getpwent',
+	'getpwnam',
+	'getpwuid',
+	'getservbyname',
+	'getservbyport',
+	'getservent',
+	'getsockname',
+	'getsockopt',
+	'glob',
+	'gmtime',
+	'grep',
+	'hex',
+	'index',
+	'int',
+	'ioctl',
+	'join',
+	'keys',
+	'kill',
+	'lc',
+	'lcfirst',
+	'length',
+	'link',
+	'listen',
+	'localtime',
+	'lock',
+	'log',
+	'lstat',
+	'map',
+	'mkdir',
+	'msgctl',
+	'msgget',
+	'msgrcv',
+	'msgsnd',
+	'oct',
+	'open',
+	'opendir',
+	'ord',
+	'pack',
+	'pipe',
+	'pop',
+	'pos',
+	'print',
+	'printf',
+	'prototype',
+	'push',
+	'quotemeta',
+	'rand',
+	'read',
+	'readdir',
+	'readline',
+	'readlink',
+	'readpipe',
+	'recv',
+	'rename',
+	'reset',
+	'reverse',
+	'rewinddir',
+	'rindex',
+	'rmdir',
+	'scalar',
+	'seek',
+	'seekdir',
+	'select',
+	'semctl',
+	'semget',
+	'semop',
+	'send',
+	'setgrent',
+	'sethostent',
+	'setnetent',
+	'setpgrp',
+	'setpriority',
+	'setprotoent',
+	'setpwent',
+	'setservent',
+	'setsockopt',
+	'shift',
+	'shmctl',
+	'shmget',
+	'shmread',
+	'shmwrite',
+	'shutdown',
+	'sin',
+	'sleep',
+	'socket',
+	'socketpair',
+	'sort',
+	'splice',
+	'split',
+	'sprintf',
+	'sqrt',
+	'srand',
+	'stat',
+	'study',
+	'substr',
+	'symlink',
+	'syscall',
+	'sysopen',
+	'sysread',
+	'sysseek',
+	'system',
+	'syswrite',
+	'tell',
+	'telldir',
+	'time',
+	'times',
+	'tr',
+	'truncate',
+	'uc',
+	'ucfirst',
+	'umask',
+	'undef',
+	'unlink',
+	'unpack',
+	'unshift',
+	'utime',
+	'values',
+	'vec',
+	'wait',
+	'waitpid',
+	'warn',
+	'write'
+];
+
+const keywords = [
+	'bless',
+	'caller',
+	'continue',
+	'die',
+	'do',
+	'dump',
+	'else',
+	'elsif',
+	'eval',
+	'exit',
+	'for',
+	'foreach',
+	'goto',
+	'if',
+	'import',
+	'last',
+	'local',
+	'my',
+	'next',
+	'no',
+	'our',
+	'package',
+	'redo',
+	'ref',
+	'require',
+	'return',
+	'sub',
+	'tie',
+	'tied',
+	'unless',
+	'untie',
+	'until',
+	'use',
+	'wantarray',
+	'while'
+];
+
+const operators = [
+	'<=>',
+	'...',
+	'->',
+	'++',
+	'--',
+	'**',
+	'=~',
+	'!~',
+	'<<',
+	'>>',
+	'<=',
+	'>=',
+	'==',
+	'!=',
+	'&&',
+	'||',
+	'//',
+	'..',
+	'=>',
+	'!',
+	'~',
+	'\\',
+	'+',
+	'-',
+	'*',
+	'/',
+	'%',
+	'x',
+	'.',
+	'<',
+	'>',
+	'lt',
+	'gt',
+	'le',
+	'ge',
+	'eq',
+	'ne',
+	'cmp',
+	'~~',
+	'&',
+	'|',
+	'^',
+	'?:',
+	'=',
+	',',
+	'not',
+	'and',
+	'or',
+	'xor'
+];
+
+const values = ['this', 'true', 'false'];
+
+language.push(values, {type: 'constant'});
+language.push(keywords, {type: 'keyword'});
+language.push(operators, {type: 'operator'});
+language.push(builtins, {type: 'function'});
+
+// Regular expressions
+language.push(Rule.perlStyleRegularExpression);
+
+// Comments
+language.push(Rule.perlStyleComment);
+language.push(Rule.webLink);
+
+// Variables
+language.push({
+	pattern: /(\$|@|%)\w+/i,
+	type: 'variable'
+});
+
+// Enddoc
+language.push({
+	pattern: /__END__[\s\S]*/m,
+	type: 'comment'
+});
+
+// Strings
+language.push(Rule.singleQuotedString);
+language.push(Rule.doubleQuotedString);
+language.push(Rule.stringEscape);
+
+// Numbers
+language.push(Rule.decimalNumber);
+language.push(Rule.hexNumber);
+
+// Functions
+language.push(Rule.cStyleFunction);
+
+export default function register(syntax) {
+	syntax.register('perl5', language);
+	syntax.alias('perl5', ['perl', 'pl']);
+}