logo

oasis-root

Compiled tree of Oasis Linux based on own branch at <https://hacktivis.me/git/oasis/> git clone https://anongit.hacktivis.me/git/oasis-root.git

logtalk.lua (3564B)

    

  1. -- Copyright © 2017-2024 Michael T. Richter <ttmrichter@gmail.com>. See LICENSE.
  2. -- Logtalk LPeg lexer.
  4. local lexer = require('lexer')
  5. local token, word_match = lexer.token, lexer.word_match
  6. local P, S = lpeg.P, lpeg.S
  8. local lex = lexer.new('logtalk', {inherit = lexer.load('prolog')})
  10. -- add logtalk keywords to prolog ones
  11. local directives = {
  12.   'set_logtalk_flag', 'object', 'info', 'built_in', 'threaded', 'uses', 'alias', 'use_module',
  13.   'coinductive', 'export', 'reexport', 'public', 'metapredicate', 'mode', 'meta_non_terminal',
  14.   'protected', 'synchronized', 'private', 'module', 'if', 'elif', 'else', 'endif', 'category',
  15.   'protocol', 'end_object', 'end_category', 'end_protocol', 'meta_predicate'
  16. }
  17. local indent = token(lexer.WHITESPACE, lexer.starts_line(S(' \t')^1))^-1
  18. lex:modify_rule('directive',
  19.   (indent * token(lexer.OPERATOR, ':-') * token(lexer.WHITESPACE, S(' \t')^0) *
  20.     token(lexer.PREPROCESSOR, word_match(directives))
  21. ) + lex:get_rule('directive'))
  23. -- Whitespace.
  24. lex:modify_rule('whitespace', token(lexer.WHITESPACE, lexer.space^1))
  26. local zero_arity_keywords = {
  27.   -- extracted from test document in logtalk distribution
  28.   'comment', 'argnames', 'arguments', 'author', 'version', 'date', 'parameters', 'parnames',
  29.   'copyright', 'license', 'remarks', 'see_also', 'as', 'logtalk_make', 'instantiation_error',
  30.   'system_error'
  31. }
  32. local one_plus_arity_keywords = {
  33.   -- extracted from test document in logtalk distribution
  34.   'implements', 'imports', 'extends', 'instantiates', 'specializes', 'number_chars', 'number_code',
  35.   'current_category', 'current_object', 'current_protocol', 'create_category', 'create_object',
  36.   'create_protocol', 'abolish_category', 'abolish_object', 'abolish_protocol', 'category_property',
  37.   'object_property', 'protocol_property', 'extends_category', 'extends_object', 'extends_protocol',
  38.   'implements_protocol', 'imports_category', 'instantiates_class', 'specializes_class',
  39.   'complements_object', 'conforms_to_protocol', 'abolish_events', 'current_event', 'define_events',
  40.   'threaded', 'threaded_call', 'threaded_call', 'threaded_once', 'threaded_ignore', 'threaded_exit',
  41.   'threaded_peek', 'threaded_cancel', 'threaded_wait', 'threaded_notify', 'threaded_engine',
  42.   'threaded_engine_create', 'threaded_engine_destroy', 'threaded_engine_self',
  43.   'threaded_engine_next', 'threaded_engine_next_reified', 'threaded_engine_yield',
  44.   'threaded_engine_post', 'threaded_engine_fetch', 'logtalk_compile', 'logtalk_load',
  45.   'logtalk_library_path', 'logtalk_load_context', 'logtalk_make_target_action',
  46.   'current_logtalk_flag', 'set_logtalk_flag', 'create_logtalk_flag', 'context', 'parameter', 'self',
  47.   'sender', 'this', 'type_error', 'domain_error', 'existence_error', 'permission_error',
  48.   'representation_error', 'evaluation_error', 'resource_error', 'syntax_error', 'bagof', 'findall',
  49.   'forall', 'setof', 'before', 'after', 'forward', 'phrase', 'expand_term', 'expand_goal',
  50.   'term_expansion', 'goal_expansion', 'numbervars', 'put_code', 'put_byte', 'current_op', 'op',
  51.   'ignore', 'repeat', 'number_codes', 'current_prolog_flag', 'set_prolog_flag', 'keysort', 'sort'
  52. }
  53. local keyword = word_match(zero_arity_keywords) + (word_match(one_plus_arity_keywords) * #P('('))
  54. lex:modify_rule('keyword', token(lexer.KEYWORD, keyword) + lex:get_rule('keyword'))
  56. local operators = {
  57.   -- extracted from test document in logtalk distribution
  58.   'as'
  59. }
  60. lex:modify_rule('operator', token(lexer.OPERATOR, word_match(operators)) + lex:get_rule('operator'))
  62. lexer.property['scintillua.comment'] = '%'
  64. return lex