lexers/inform.lua

   1 -- Inform LPeg lexer for Scintillua.
   2 -- JMS 2010-04-25.
   3
   4 local l = require('lexer')
   5 local token, word_match = l.token, l.word_match
   6 local P, R, S = lpeg.P, lpeg.R, lpeg.S
   7
   8 local M = {_NAME = 'inform'}
   9
  10 -- Whitespace.
  11 local ws = token(l.WHITESPACE, l.space^1)
  12
  13 -- Comments.
  14 local comment = token(l.COMMENT, '!' * l.nonnewline^0)
  15
  16 -- Strings.
  17 local sq_str = l.delimited_range("'")
  18 local dq_str = l.delimited_range('"')
  19 local string = token(l.STRING, sq_str + dq_str)
  20
  21 -- Numbers.
  22 local inform_hex = '$' * l.xdigit^1
  23 local inform_bin = '$$' * S('01')^1
  24 local number = token(l.NUMBER, l.integer + inform_hex + inform_bin)
  25
  26 -- Keywords.
  27 local keyword = token(l.KEYWORD, word_match{
  28   'Abbreviate', 'Array', 'Attribute', 'Class', 'Constant', 'Default', 'End',
  29   'Endif', 'Extend', 'Global', 'Ifdef', 'Iffalse', 'Ifndef', 'Ifnot', 'Iftrue',
  30   'Import', 'Include', 'Link', 'Lowstring', 'Message', 'Object', 'Property',
  31   'Release', 'Replace', 'Serial', 'StartDaemon', 'Statusline', 'StopDaemon',
  32   'Switches', 'Verb', 'absent', 'action', 'actor', 'add_to_scope', 'address',
  33   'additive', 'after', 'and', 'animate', 'article', 'articles', 'before',
  34   'bold', 'box', 'break', 'cant_go', 'capacity', 'char', 'class', 'child',
  35   'children', 'clothing', 'concealed', 'container', 'continue', 'creature',
  36   'daemon', 'deadflag', 'default', 'describe', 'description', 'do', 'door',
  37   'door_dir', 'door_to', 'd_to', 'd_obj', 'e_to', 'e_obj', 'each_turn',
  38   'edible', 'else', 'enterable', 'false', 'female', 'first', 'font', 'for',
  39   'found_in', 'general', 'give', 'grammar', 'has', 'hasnt', 'held', 'if', 'in',
  40   'in_to', 'in_obj', 'initial', 'inside_description', 'invent', 'jump', 'last',
  41   'life', 'light', 'list_together', 'location', 'lockable', 'locked', 'male',
  42   'move', 'moved', 'multi', 'multiexcept', 'multiheld', 'multiinside', 'n_to',
  43   'n_obj', 'ne_to', 'ne_obj', 'nw_to', 'nw_obj', 'name', 'neuter', 'new_line',
  44   'nothing', 'notin', 'noun', 'number', 'objectloop', 'ofclass', 'off', 'on',
  45   'only', 'open', 'openable', 'or', 'orders', 'out_to', 'out_obj', 'parent',
  46   'parse_name', 'player', 'plural', 'pluralname', 'print', 'print_ret',
  47   'private', 'proper', 'provides', 'random', 'react_after', 'react_before',
  48   'remove', 'replace', 'return', 'reverse', 'rfalse','roman', 'rtrue', 's_to',
  49   's_obj', 'se_to', 'se_obj', 'sw_to', 'sw_obj', 'scenery', 'scope', 'score',
  50   'scored', 'second', 'self', 'short_name', 'short_name_indef', 'sibling',
  51   'spaces', 'static', 'string', 'style', 'supporter', 'switch', 'switchable',
  52   'talkable', 'thedark', 'time_left', 'time_out', 'to', 'topic', 'transparent',
  53   'true', 'underline', 'u_to', 'u_obj', 'visited', 'w_to', 'w_obj',
  54   'when_closed', 'when_off', 'when_on', 'when_open', 'while', 'with',
  55   'with_key', 'workflag', 'worn'
  56 })
  57
  58 -- Library actions.
  59 local action = token('action', word_match{
  60   'Answer', 'Ask', 'AskFor', 'Attack', 'Blow', 'Burn', 'Buy', 'Climb', 'Close',
  61   'Consult', 'Cut', 'Dig', 'Disrobe', 'Drink', 'Drop', 'Eat', 'Empty', 'EmptyT',
  62   'Enter', 'Examine', 'Exit', 'Fill', 'FullScore', 'GetOff', 'Give', 'Go',
  63   'GoIn', 'Insert', 'Inv', 'InvTall', 'InvWide', 'Jump', 'JumpOver', 'Kiss',
  64   'LetGo', 'Listen', 'LMode1', 'LMode2', 'LMode3', 'Lock', 'Look', 'LookUnder',
  65   'Mild', 'No', 'NotifyOff', 'NotifyOn', 'Objects', 'Open', 'Order', 'Places',
  66   'Pray', 'Pronouns', 'Pull', 'Push', 'PushDir', 'PutOn', 'Quit', 'Receive',
  67   'Remove', 'Restart', 'Restore', 'Rub', 'Save', 'Score', 'ScriptOff',
  68   'ScriptOn', 'Search', 'Set', 'SetTo', 'Show', 'Sing', 'Sleep', 'Smell',
  69   'Sorry', 'Squeeze', 'Strong', 'Swim', 'Swing', 'SwitchOff', 'SwitchOn',
  70   'Take', 'Taste', 'Tell', 'Think', 'ThrowAt', 'ThrownAt', 'Tie', 'Touch',
  71   'Transfer', 'Turn', 'Unlock', 'VagueGo', 'Verify', 'Version', 'Wake',
  72   'WakeOther', 'Wait', 'Wave', 'WaveHands', 'Wear', 'Yes'
  73 })
  74
  75 -- Identifiers.
  76 local identifier = token(l.IDENTIFIER, l.word)
  77
  78 -- Operators.
  79 local operator = token(l.OPERATOR, S('@~=+-*/%^#=<>;:,.{}[]()&|?'))
  80
  81 M._rules = {
  82   {'whitespace', ws},
  83   {'comment', comment},
  84   {'string', string},
  85   {'number', number},
  86   {'keyword', keyword},
  87   {'action', action},
  88   {'identifier', identifier},
  89   {'operator', operator},
  90 }
  91
  92 _styles = {
  93   {'action', l.STYLE_VARIABLE}
  94 }
  95
  96 return M