src/compiler/mlp_lexer.lua

   1 ----------------------------------------------------------------------
   2 -- Metalua:  $Id: mll.lua,v 1.3 2006/11/15 09:07:50 fab13n Exp $
   3 --
   4 -- Summary: Source file lexer. ~~Currently only works on strings.
   5 -- Some API refactoring is needed.
   6 --
   7 ----------------------------------------------------------------------
   8 --
   9 -- Copyright (c) 2006-2007, Fabien Fleutot <metalua@gmail.com>.
  10 --
  11 -- This software is released under the MIT Licence, see licence.txt
  12 -- for details.
  13 --
  14 ----------------------------------------------------------------------
  15
  16 module ("mlp", package.seeall)
  17
  18 require "lexer"
  19
  20 local mlp_lexer = lexer.lexer:clone()
  21
  22 local keywords = {
  23     "and", "break", "do", "else", "elseif",
  24     "end", "false", "for", "function", "if",
  25     "in", "local", "nil", "not", "or", "repeat",
  26     "return", "then", "true", "until", "while",
  27     "...", "..", "==", ">=", "<=", "~=",
  28     "+{", "-{" }
  29
  30 for w in values(keywords) do mlp_lexer:add(w) end
  31
  32 _M.lexer = mlp_lexer