1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
/* eslint-disable regexp/no-dupe-characters-character-class */
(function (Prism) {
/**
* Regular expression for characters that are not allowed in identifiers.
*
* @type {string}
*/
var nonId = /\s\x00-\x1f\x22-\x2f\x3a-\x3f\x5b-\x5e\x60\x7b-\x7e/.source;
/**
* Surround a regular expression for IDs with patterns for non-ID sequences.
*
* @param {string} pattern A regular expression for identifiers.
* @param {string} [flags] The regular expression flags.
* @returns {RegExp} A wrapped regular expression for identifiers.
*/
function wrapId(pattern, flags) {
return RegExp(pattern.replace(/<nonId>/g, nonId), flags);
}
Prism.languages.kumir = {
comment: {
pattern: /\|.*/,
},
prolog: {
pattern: /#.*/,
greedy: true,
},
string: {
pattern: /"[^\n\r"]*"|'[^\n\r']*'/,
greedy: true,
},
boolean: {
pattern: wrapId(/(^|[<nonId>])(?:да|нет)(?=[<nonId>]|$)/.source),
lookbehind: true,
},
'operator-word': {
pattern: wrapId(/(^|[<nonId>])(?:и|или|не)(?=[<nonId>]|$)/.source),
lookbehind: true,
alias: 'keyword',
},
'system-variable': {
pattern: wrapId(/(^|[<nonId>])знач(?=[<nonId>]|$)/.source),
lookbehind: true,
alias: 'keyword',
},
type: [
{
pattern: wrapId(
/(^|[<nonId>])(?:вещ|лит|лог|сим|цел)(?:\x20*таб)?(?=[<nonId>]|$)/
.source
),
lookbehind: true,
alias: 'builtin',
},
{
pattern: wrapId(
/(^|[<nonId>])(?:компл|сканкод|файл|цвет)(?=[<nonId>]|$)/.source
),
lookbehind: true,
alias: 'important',
},
],
/**
* Should be performed after searching for type names because of "таб".
* "таб" is a reserved word, but never used without a preceding type name.
* "НАЗНАЧИТЬ", "Фввод", and "Фвывод" are not reserved words.
*/
keyword: {
pattern: wrapId(
/(^|[<nonId>])(?:алг|арг(?:\x20*рез)?|ввод|ВКЛЮЧИТЬ|вс[её]|выбор|вывод|выход|дано|для|до|дс|если|иначе|исп|использовать|кон(?:(?:\x20+|_)исп)?|кц(?:(?:\x20+|_)при)?|надо|нач|нс|нц|от|пауза|пока|при|раза?|рез|стоп|таб|то|утв|шаг)(?=[<nonId>]|$)/
.source
),
lookbehind: true,
},
/** Should be performed after searching for reserved words. */
name: {
// eslint-disable-next-line regexp/no-super-linear-backtracking
pattern: wrapId(
/(^|[<nonId>])[^\d<nonId>][^<nonId>]*(?:\x20+[^<nonId>]+)*(?=[<nonId>]|$)/
.source
),
lookbehind: true,
},
/** Should be performed after searching for names. */
number: {
pattern: wrapId(
/(^|[<nonId>])(?:\B\$[\da-f]+\b|(?:\b\d+(?:\.\d*)?|\B\.\d+)(?:e[+-]?\d+)?)(?=[<nonId>]|$)/
.source,
'i'
),
lookbehind: true,
},
/** Should be performed after searching for words. */
punctuation: /:=|[(),:;\[\]]/,
/**
* Should be performed after searching for
* - numeric constants (because of "+" and "-");
* - punctuation marks (because of ":=" and "=").
*/
'operator-char': {
pattern: /\*\*?|<[=>]?|>=?|[-+/=]/,
alias: 'operator',
},
};
Prism.languages.kum = Prism.languages.kumir;
})(Prism);
|
