Skip to content
This repository has been archived by the owner on Nov 5, 2021. It is now read-only.

Add Modula-3 support #117

Merged
merged 1 commit into from
Dec 23, 2020
Merged

Add Modula-3 support #117

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
13 changes: 13 additions & 0 deletions src/m3/m3.contribution.ts
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
/*---------------------------------------------------------------------------------------------
* Copyright (c) Microsoft Corporation. All rights reserved.
* Licensed under the MIT License. See License.txt in the project root for license information.
*--------------------------------------------------------------------------------------------*/

import { registerLanguage } from '../_.contribution';

registerLanguage({
id: 'm3',
extensions: ['.m3', '.i3', '.mg', '.ig'],
aliases: ['Modula-3', 'Modula3', 'modula3', 'm3'],
loader: () => import('./m3')
});
119 changes: 119 additions & 0 deletions src/m3/m3.test.ts
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,119 @@
/*---------------------------------------------------------------------------------------------
* Copyright (c) Microsoft Corporation. All rights reserved.
* Licensed under the MIT License. See License.txt in the project root for license information.
*--------------------------------------------------------------------------------------------*/

import { testTokenization } from '../test/testRunner';

testTokenization('m3', [
[
{
line: '(**)',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
}
],

[
{
line: ' (* a comment *)',
tokens: [
{ startIndex: 0, type: 'white.m3' },
{ startIndex: 4, type: 'comment.m3' }
]
}
],

[
{
line: '(* Lorem ipsum dolor sit amet, consectetur ',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
},
{
line: ' adipiscing elit, sed do eiusmod tempor',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
},
{
line: ' incididunt ut labore et dolore magna aliqua. *)',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
}
],

[
{
line: '(* Lorem ipsum dolor sit amet (*, consectetur ',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
},
{
line: ' adipiscing elit, sed do eiusmod tempor',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
},
{
line: ' incididunt*) ut labore et dolore magna aliqua. *)',
tokens: [{ startIndex: 0, type: 'comment.m3' }]
}
],

[
{
line: 'MODULE Test EXPORTS Main; FROM IO IMPORT Put; BEGIN Put("test\\n") END Test.',
tokens: [
{ startIndex: 0, type: 'keyword.MODULE.m3' },
{ startIndex: 6, type: 'white.m3' },
{ startIndex: 7, type: 'identifier.m3' },
{ startIndex: 11, type: 'white.m3' },
{ startIndex: 12, type: 'keyword.EXPORTS.m3' },
{ startIndex: 19, type: 'white.m3' },
{ startIndex: 20, type: 'identifier.m3' },
{ startIndex: 24, type: 'delimiter.m3' },
{ startIndex: 25, type: 'white.m3' },

{ startIndex: 26, type: 'keyword.FROM.m3' },
{ startIndex: 30, type: 'white.m3' },
{ startIndex: 31, type: 'identifier.m3' },
{ startIndex: 33, type: 'white.m3' },
{ startIndex: 34, type: 'keyword.IMPORT.m3' },
{ startIndex: 40, type: 'white.m3' },
{ startIndex: 41, type: 'identifier.m3' },
{ startIndex: 44, type: 'delimiter.m3' },
{ startIndex: 45, type: 'white.m3' },

{ startIndex: 46, type: 'keyword.BEGIN.m3' },
{ startIndex: 51, type: 'white.m3' },
{ startIndex: 52, type: 'identifier.m3' },
{ startIndex: 55, type: 'delimiter.parenthesis.m3' },
{ startIndex: 56, type: 'string.text.m3' },
{ startIndex: 61, type: 'string.escape.m3' },
{ startIndex: 63, type: 'string.text.m3' },
{ startIndex: 64, type: 'delimiter.parenthesis.m3' },
{ startIndex: 65, type: 'white.m3' },

{ startIndex: 66, type: 'keyword.END.m3' },
{ startIndex: 69, type: 'white.m3' },
{ startIndex: 70, type: 'identifier.m3' },
{ startIndex: 74, type: 'operators.m3' }
]
}
],

[
{
line: '0',
tokens: [{ startIndex: 0, type: 'number.m3' }]
}
],
[
{
line: '-16_B33f',
tokens: [
{ startIndex: 0, type: 'operators.m3' },
{ startIndex: 1, type: 'number.m3' }
]
}
],
[
{
line: '2.0D-5',
tokens: [{ startIndex: 0, type: 'number.float.m3' }]
}
]
]);
226 changes: 226 additions & 0 deletions src/m3/m3.ts
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,226 @@
/*---------------------------------------------------------------------------------------------
* Copyright (c) Microsoft Corporation. All rights reserved.
* Licensed under the MIT License. See License.txt in the project root for license information.
*--------------------------------------------------------------------------------------------*/

import type { languages } from '../fillers/monaco-editor-core';

export const conf: languages.LanguageConfiguration = {
comments: {
blockComment: ['(*', '*)']
},
brackets: [
['{', '}'],
['[', ']'],
['(', ')']
],
autoClosingPairs: [
{ open: '[', close: ']' },
{ open: '{', close: '}' },
{ open: '(', close: ')' },
{ open: '(*', close: '*)' },
{ open: '<*', close: '*>' },
{ open: "'", close: "'", notIn: ['string', 'comment'] },
{ open: '"', close: '"', notIn: ['string', 'comment'] }
]
};

export const language = <languages.IMonarchLanguage>{
defaultToken: '',
tokenPostfix: '.m3',

brackets: [
{ token: 'delimiter.curly', open: '{', close: '}' },
{ token: 'delimiter.parenthesis', open: '(', close: ')' },
{ token: 'delimiter.square', open: '[', close: ']' }
],
keywords: [
'AND',
'ANY',
'ARRAY',
'AS',
'BEGIN',
'BITS',
'BRANDED',
'BY',
'CASE',
'CONST',
'DIV',
'DO',
'ELSE',
'ELSIF',
'END',
'EVAL',
'EXCEPT',
'EXCEPTION',
'EXIT',
'EXPORTS',
'FINALLY',
'FOR',
'FROM',
'GENERIC',
'IF',
'IMPORT',
'IN',
'INTERFACE',
'LOCK',
'LOOP',
'METHODS',
'MOD',
'MODULE',
'NOT',
'OBJECT',
'OF',
'OR',
'OVERRIDES',
'PROCEDURE',
'RAISE',
'RAISES',
'READONLY',
'RECORD',
'REF',
'REPEAT',
'RETURN',
'REVEAL',
'SET',
'THEN',
'TO',
'TRY',
'TYPE',
'TYPECASE',
'UNSAFE',
'UNTIL',
'UNTRACED',
'VALUE',
'VAR',
'WHILE',
'WITH'
],
reservedConstNames: [
'ABS',
'ADR',
'ADRSIZE',
'BITSIZE',
'BYTESIZE',
'CEILING',
'DEC',
'DISPOSE',
'FALSE',
'FIRST',
'FLOAT',
'FLOOR',
'INC',
'ISTYPE',
'LAST',
'LOOPHOLE',
'MAX',
'MIN',
'NARROW',
'NEW',
'NIL',
'NUMBER',
'ORD',
'ROUND',
'SUBARRAY',
'TRUE',
'TRUNC',
'TYPECODE',
'VAL'
],
reservedTypeNames: [
'ADDRESS',
'ANY',
'BOOLEAN',
'CARDINAL',
'CHAR',
'EXTENDED',
'INTEGER',
'LONGCARD',
'LONGINT',
'LONGREAL',
'MUTEX',
'NULL',
'REAL',
'REFANY',
'ROOT',
'TEXT'
],
operators: ['+', '-', '*', '/', '&', '^', '.'],
relations: ['=', '#', '<', '<=', '>', '>=', '<:', ':'],
delimiters: ['|', '..', '=>', ',', ';', ':='],
symbols: /[>=<#.,:;+\-*/&^]+/,
escapes: /\\(?:[\\fnrt"']|[0-7]{3})/,

tokenizer: {
root: [
// Identifiers and keywords
[/_\w*/, 'invalid'],
[
/[a-zA-Z][a-zA-Z0-9_]*/,
{
cases: {
'@keywords': { token: 'keyword.$0' },
'@reservedConstNames': { token: 'constant.reserved.$0' },
'@reservedTypeNames': { token: 'type.reserved.$0' },
'@default': 'identifier'
}
}
],

// Whitespace
{ include: '@whitespace' },
[/[{}()\[\]]/, '@brackets'],

// Integer- and real literals
[/[0-9]+\.[0-9]+(?:[DdEeXx][\+\-]?[0-9]+)?/, 'number.float'],
[/[0-9]+(?:\_[0-9a-fA-F]+)?L?/, 'number'],

// Operators, relations, and delimiters
[
/@symbols/,
{
cases: {
'@operators': 'operators',
'@relations': 'operators',
'@delimiters': 'delimiter',
'@default': 'invalid'
}
}
],

// Character literals
[/'[^\\']'/, 'string.char'],
[/(')(@escapes)(')/, ['string.char', 'string.escape', 'string.char']],
[/'/, 'invalid'],

// Text literals
[/"([^"\\]|\\.)*$/, 'invalid'],
[/"/, 'string.text', '@text']
],

text: [
[/[^\\"]+/, 'string.text'],
[/@escapes/, 'string.escape'],
[/\\./, 'invalid'],
[/"/, 'string.text', '@pop']
],

comment: [
[/\(\*/, 'comment', '@push'],
[/\*\)/, 'comment', '@pop'],
[/./, 'comment']
],

pragma: [
[/<\*/, 'keyword.pragma', '@push'],
[/\*>/, 'keyword.pragma', '@pop'],
[/./, 'keyword.pragma']
],

whitespace: [
[/[ \t\r\n]+/, 'white'],
[/\(\*/, 'comment', '@comment'],
[/<\*/, 'keyword.pragma', '@pragma']
]
}
};
1 change: 1 addition & 0 deletions src/monaco.contribution.ts
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -30,6 +30,7 @@ import './kotlin/kotlin.contribution';
import './less/less.contribution';
import './lexon/lexon.contribution';
import './lua/lua.contribution';
import './m3/m3.contribution';
import './markdown/markdown.contribution';
import './mips/mips.contribution';
import './msdax/msdax.contribution';
Expand Down