51 lines
3.5 KiB
C
Executable File
51 lines
3.5 KiB
C
Executable File
static procedure language_highlight_lua (language_structure * language, syntax_structure * syntax) {
|
|
character * separators = ".,:;<=>+-*/%~^#|()[]{}'\" \t\r\n";
|
|
|
|
character * keywords [] = {
|
|
"and", "break", "do", "else", "elseif", "end", "false", "for",
|
|
"function", "if", "in", "local", "nil", "not", "or", "until",
|
|
"repeat", "return", "then", "true", "while"
|
|
};
|
|
|
|
character * types [] = {
|
|
"booleanean", "number", "string", "userdata", "function", "thread", "table"
|
|
};
|
|
|
|
character * commons [] = {
|
|
"require", "print", "seek", "dofile", "loadfile", "assert", "rawset", "rawget",
|
|
"setfenv", "pairs", "ipairs", "tonumber", "tostring", "foreach", "setn", "getn",
|
|
"insert", "concat", "sort", "remove", "abs", "ceil", "floor", "log10",
|
|
"rad", "sqrt", "acos", "cos", "fmod", "max", "random", "tan",
|
|
"asin", "cosh", "frexp", "min", "randomseed", "tanh", "atan", "deg",
|
|
"ldexp", "modf", "sin", "atan2", "sinh", "exp", "log", "pow",
|
|
"open", "close", "read", "write", "input", "output", "format", "lines",
|
|
"upper", "lower", "find", "gfind", "match", "gmatch", "sub", "gsub",
|
|
"len", "rep", "char", "dump", "reverse", "byte"
|
|
};
|
|
|
|
syntax_define (syntax, false, false, "--[[", "]]", '\0', language->comment_colour, language->comment_effect);
|
|
syntax_define (syntax, false, false, "--", "\n", '\0', language->comment_colour, language->comment_effect);
|
|
syntax_define (syntax, false, false, "'", "'", '\\', language->character_colour, language->character_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);
|
|
}
|
|
|
|
for (natural_64 word = 0; word < array_length (types); ++word) {
|
|
syntax_define (syntax, false, true, types [word], separators, '\0', language->type_colour, language->type_effect);
|
|
}
|
|
|
|
for (natural_64 word = 0; word < array_length (commons); ++word) {
|
|
syntax_define (syntax, false, true, commons [word], separators, '\0', language->extension_colour, language->extension_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_lowercase, separators, '\0', language->lowercase_colour, language->lowercase_effect);
|
|
syntax_define (syntax, true, true, language_uppercase, separators, '\0', language->uppercase_colour, language->uppercase_effect);
|
|
syntax_define (syntax, true, true, "_", separators, '\0', language->underscore_colour, language->underscore_effect);
|
|
}
|