107 lines
3.1 KiB
JavaScript
107 lines
3.1 KiB
JavaScript
|
/*---------------------------------------------------------------------------------------------
|
||
|
* Copyright (c) Microsoft Corporation. All rights reserved.
|
||
|
* Licensed under the MIT License. See License.txt in the project root for license information.
|
||
|
*--------------------------------------------------------------------------------------------*/
|
||
|
'use strict';
|
||
|
export var conf = {
|
||
|
comments: {
|
||
|
lineComment: ';',
|
||
|
blockComment: ['#|', '|#'],
|
||
|
},
|
||
|
brackets: [['(', ')'], ['{', '}'], ['[', ']']],
|
||
|
autoClosingPairs: [
|
||
|
{ open: '{', close: '}' },
|
||
|
{ open: '[', close: ']' },
|
||
|
{ open: '(', close: ')' },
|
||
|
{ open: '"', close: '"' },
|
||
|
],
|
||
|
surroundingPairs: [
|
||
|
{ open: '{', close: '}' },
|
||
|
{ open: '[', close: ']' },
|
||
|
{ open: '(', close: ')' },
|
||
|
{ open: '"', close: '"' },
|
||
|
],
|
||
|
};
|
||
|
export var language = {
|
||
|
defaultToken: '',
|
||
|
ignoreCase: true,
|
||
|
tokenPostfix: '.scheme',
|
||
|
brackets: [
|
||
|
{ open: '(', close: ')', token: 'delimiter.parenthesis' },
|
||
|
{ open: '{', close: '}', token: 'delimiter.curly' },
|
||
|
{ open: '[', close: ']', token: 'delimiter.square' },
|
||
|
],
|
||
|
keywords: [
|
||
|
'case',
|
||
|
'do',
|
||
|
'let',
|
||
|
'loop',
|
||
|
'if',
|
||
|
'else',
|
||
|
'when',
|
||
|
'cons',
|
||
|
'car',
|
||
|
'cdr',
|
||
|
'cond',
|
||
|
'lambda',
|
||
|
'lambda*',
|
||
|
'syntax-rules',
|
||
|
'format',
|
||
|
'set!',
|
||
|
'quote',
|
||
|
'eval',
|
||
|
'append',
|
||
|
'list',
|
||
|
'list?',
|
||
|
'member?',
|
||
|
'load',
|
||
|
],
|
||
|
constants: ['#t', '#f'],
|
||
|
operators: ['eq?', 'eqv?', 'equal?', 'and', 'or', 'not', 'null?'],
|
||
|
tokenizer: {
|
||
|
root: [
|
||
|
[/#[xXoObB][0-9a-fA-F]+/, 'number.hex'],
|
||
|
[/[+-]?\d+(?:(?:\.\d*)?(?:[eE][+-]?\d+)?)?/, 'number.float'],
|
||
|
[
|
||
|
/(?:\b(?:(define|define-syntax|define-macro))\b)(\s+)((?:\w|\-|\!|\?)*)/,
|
||
|
['keyword', 'white', 'variable'],
|
||
|
],
|
||
|
{ include: '@whitespace' },
|
||
|
{ include: '@strings' },
|
||
|
[
|
||
|
/[a-zA-Z_#][a-zA-Z0-9_\-\?\!\*]*/,
|
||
|
{
|
||
|
cases: {
|
||
|
'@keywords': 'keyword',
|
||
|
'@constants': 'constant',
|
||
|
'@operators': 'operators',
|
||
|
'@default': 'identifier',
|
||
|
},
|
||
|
},
|
||
|
],
|
||
|
],
|
||
|
comment: [
|
||
|
[/[^\|#]+/, 'comment'],
|
||
|
[/#\|/, 'comment', '@push'],
|
||
|
[/\|#/, 'comment', '@pop'],
|
||
|
[/[\|#]/, 'comment'],
|
||
|
],
|
||
|
whitespace: [
|
||
|
[/[ \t\r\n]+/, 'white'],
|
||
|
[/#\|/, 'comment', '@comment'],
|
||
|
[/;.*$/, 'comment'],
|
||
|
],
|
||
|
strings: [
|
||
|
[/"$/, 'string', '@popall'],
|
||
|
[/"(?=.)/, 'string', '@multiLineString'],
|
||
|
],
|
||
|
multiLineString: [
|
||
|
[/[^\\"]+$/, 'string', '@popall'],
|
||
|
[/[^\\"]+/, 'string'],
|
||
|
[/\\./, 'string.escape'],
|
||
|
[/"/, 'string', '@popall'],
|
||
|
[/\\$/, 'string']
|
||
|
],
|
||
|
},
|
||
|
};
|