etc/slate.lua

   1 -- Copyright 2010 Alex Suraci
   2 -- Slate LPeg Lexer
   3
   4 module(..., package.seeall)
   5 local P, R, S = lpeg.P, lpeg.R, lpeg.S
   6
   7 local ws = token('whitespace', space^1)
   8
   9 -- comments
  10 local comment = token('comment', delimited_range('"', '\\'))
  11
  12 -- strings
  13 local string = token('string', delimited_range("'", '\\'))
  14
  15 -- chars
  16 local char = token('char', '$' * (('\\' * P(1)) + P(1)))
  17
  18 -- numbers
  19 local number = token('number', float + integer)
  20
  21 -- operators
  22 local op = punct - S('()"\'') + S('\\[]]')
  23 local operator = token('operator', op)
  24
  25 -- identifiers
  26 local word = (alnum + S("._#"))^1
  27 local identifier = token('identifier', word + (':' * word))
  28
  29 -- symbols
  30 local symbol = token('symbol', '#' * word)
  31
  32 -- keywords
  33 local keyword = token('slate_keyword', word * ':')
  34
  35 -- optional keywords
  36 local optional_keyword = token('slate_optional_keyword', '&' * word * ':')
  37
  38 -- constructors
  39 local constructor = token('type', upper * word)
  40
  41 function LoadTokens()
  42   local slate = slate
  43   add_token(slate, 'whitespace', ws)
  44   add_token(slate, 'symbol', symbol)
  45   add_token(slate, 'slate_keyword', keyword)
  46   add_token(slate, 'slate_optional_keyword', optional_keyword)
  47   add_token(slate, 'type', constructor)
  48   add_token(slate, 'identifier', identifier)
  49   add_token(slate, 'string', string)
  50   add_token(slate, 'char', char)
  51   add_token(slate, 'comment', comment)
  52   add_token(slate, 'number', number)
  53   add_token(slate, 'operator', operator)
  54   add_token(slate, 'any_char', any_char)
  55 end
  56
  57 function LoadStyles()
  58   add_style('symbol', style_symbol)
  59   add_style('slate_keyword', style_slate_keyword)
  60   add_style('slate_optional_keyword', style_slate_keyword)
  61 end