29 lines
2.1 KiB
C
Executable File
29 lines
2.1 KiB
C
Executable File
static procedure language_highlight_pascal (language_structure * language, syntax_structure * syntax) {
|
|
character * separators = ".,:;<=>+-*/&@#$%^()[] \t\r\n";
|
|
|
|
character * keywords [] = {
|
|
"absolute", "and", "array", "asm", "begin", "case", "const", "constructor",
|
|
"destructor", "div", "do", "downto", "else", "end", "file", "for",
|
|
"function", "goto", "if", "in", "inherited", "inline", "interface", "xor",
|
|
"label", "mod", "nil", "not", "object", "of", "operator", "or",
|
|
"packed", "procedure", "program", "record", "reintroduce", "repeat", "self", "set",
|
|
"shl", "shr", "string", "then", "to", "type", "unit", "until",
|
|
"uses", "var", "while", "with"
|
|
};
|
|
|
|
syntax_define (syntax, false, false, "//", "\n", '\0', language->comment_colour, language->comment_effect);
|
|
syntax_define (syntax, false, false, "(*", "*)", '\0', language->comment_colour, language->comment_effect);
|
|
syntax_define (syntax, false, false, "{", "}", '\0', language->comment_colour, language->comment_effect);
|
|
syntax_define (syntax, false, false, "'", "'", '#', language->string_colour, language->string_effect);
|
|
|
|
for (natural_64 word = 0; word < array_length (keywords); ++word) {
|
|
syntax_define (syntax, false, true, keywords [word], separators, '\0', language->keyword_colour, language->keyword_effect);
|
|
}
|
|
|
|
syntax_define (syntax, true, false, "[]()", "", '\0', language->bracket_colour, language->bracket_effect);
|
|
syntax_define (syntax, true, false, ".,:;<=>+-*/&@#$%^", "", '\0', language->operator_colour, language->operator_effect);
|
|
|
|
syntax_define (syntax, true, true, language_digits, separators, '\0', language->number_colour, language->number_effect);
|
|
syntax_define (syntax, true, true, language_letters, separators, '\0', language->lowercase_colour, language->lowercase_effect);
|
|
}
|