pmacs3/mode/lua.py

import commands
from method import Method 
from mode import Fundamental
from lex import Grammar, PatternRule, RegionRule, PatternMatchRule
from mode.python import StringGrammar1, StringGrammar2

chr1 = '[a-zA-Z_]'
chr2 = '[a-zA-Z_0-9]'
word = chr1 + chr2 + '*'

class LuaGrammar(Grammar):
    rules = [
        PatternRule(r'comment', r'--.*$'),
        PatternRule(r'spaces', r' +'),
        PatternRule(r'eol', r'\n'),

        RegionRule(r'string', r"'", StringGrammar1, r"'"),
        RegionRule(r'string', r'"', StringGrammar2, r'"'),

        PatternRule(r'keyword', r'(?:while|until|true|then|return|repeat|or|not|nil|local|in|if|function|for|false|end|elseif|else|do|break|and)(?!'+chr2+')'),
        PatternMatchRule('x', '(function)( +)('+word+')', 'keyword', 'spaces', 'function'),
        PatternRule(r'lua_identifier', word),

        PatternRule(r'delimiter', r'(?:[=(){}\[\];:,.])'),
        PatternRule(r'operator', r'(?:\.\.\.|\.\.|==|~=|<=|>=|<|>)'),

        PatternRule(r"integer", r"(?<![\.0-9a-zA-Z_])(?:0|-?[1-9][0-9]*|0[0-7]+|0[xX][0-9a-fA-F]+)[lL]?(?![\.0-9a-zA-Z_])"),
        PatternRule(r"float", r"(?<![\.0-9a-zA-Z_])(?:-?[0-9]+\.[0-9]*|-?\.[0-9]+|(?:[0-9]|[0-9]+\.[0-9]*|-?\.[0-9]+)[eE][\+-]?[0-9]+)(?![\.0-9a-zA-Z_])"),
    ]

class LuaCheckSyntax(Method):
    '''Check the syntax of a lua file'''
    def _execute(self, w, **vargs):
        app = w.application
        cmd = "luac -p %r" % (w.buffer.path)
        (status, output) = commands.getstatusoutput(cmd)
        if status == 0:
            app.set_error("Syntax OK")
            app.data_buffer("*Lua-Check-Syntax*", output, switch_to=False)
        else:
            app.data_buffer("*Lua-Check-Syntax*", output)

class Lua(Fundamental):
    name        = 'Lua'
    extensions  = ['.lua']
    #tabbercls  = mode.lisp.LispTabber
    grammar     = LuaGrammar
    commentc    = '--'
    opentokens  = ('delimiter',)
    opentags    = {'(': ')', '[': ']', '{': '}'}
    closetokens = ('delimiter',)
    closetags   = {')': '(', ']': '[', '}': '{'}
    colors      = {}
    actions     = [LuaCheckSyntax]
    _bindings   = {
        'close-paren':      (')',),
        'close-brace':      ('}',),
        'close-bracket':    (']',),
        'lua-check-syntax': ('C-c s',),
    }

install = Lua.install