From e767bea2c871e30c32305ad4035527188c844f29 Mon Sep 17 00:00:00 2001 From: xolatile Date: Sun, 20 Apr 2025 12:12:07 +0200 Subject: Trying... --- xanguage/ada.h | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100755 xanguage/ada.h (limited to 'xanguage/ada.h') diff --git a/xanguage/ada.h b/xanguage/ada.h new file mode 100755 index 0000000..05392cb --- /dev/null +++ b/xanguage/ada.h @@ -0,0 +1,30 @@ +static procedure language_highlight_ada (language_structure * language, syntax_structure * syntax) { + character * separators = ".,:;<=>+-*/&|()\" \t\r\n"; + + character * keywords [] = { + "abort", "else", "new", "return", "abs", "elsif", "not", "reverse", + "abstract", "end", "null", "accept", "entry", "select", "access", "of", + "separate", "aliased", "exit", "or", "some", "all", "others", "subtype", + "and", "for", "out", "array", "function", "at", "tagged", "generic", + "package", "task", "begin", "goto", "pragma", "body", "private", "then", + "type", "case", "in", "constant", "until", "is", "raise", "use", + "if", "declare", "range", "delay", "limited", "record", "when", "delta", + "loop", "rem", "while", "digits", "renames", "with", "do", "mod", + "requeue", "xor", "procedure", "protected", "interface", "synchronized", "exception", "overriding", + "terminate" + }; + + 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); + } + + 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); +} -- cgit v1.2.3