From ca265fd05474d925e20cb84682f2bb95d582aac3 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Sun, 7 Dec 2008 05:02:28 +0000
Subject: [PATCH] --HG-- branch : pmacs2

---
 application.py |  2 +-
 mode/lua.py    | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 59 insertions(+), 1 deletion(-)
 create mode 100644 mode/lua.py

diff --git a/application.py b/application.py
index 2294640..c606613 100755
--- a/application.py
+++ b/application.py
@@ -111,7 +111,7 @@ class Application(object):
                  'latex', 'insertmini', 'conf', 'haskell', 'erlang',
                  'iperl', 'iperlmini', 'ipython', 'ipythonmini', 'awk',
                  'shell', 'shellmini', 'fstab', 'yacc', 'pipe',
-                 'mbox', 'error',
+                 'mbox', 'error', 'lua',
         )
         for name in names:
             exec("import mode.%s; mode.%s.install(self)" % (name, name))
diff --git a/mode/lua.py b/mode/lua.py
new file mode 100644
index 0000000..7938c19
--- /dev/null
+++ b/mode/lua.py
@@ -0,0 +1,58 @@
+import commands
+import color, mode, method, tab
+from lex import Grammar, PatternRule, RegionRule, OverridePatternRule
+from mode.python import StringGrammar1, StringGrammar2
+
+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)(?![a-zA-Z0-9_])'),
+        #PatternRule(r'function', r'[a-zA-Z_][a-zA-Z0-9_]*(?= *\()'),
+        PatternRule(r'function', r'(?<=function )[a-zA-Z_][a-zA-Z0-9_]*'),
+        #PatternRule(r'identifier', r'[a-zA-Z_][a-zA-Z0-9_]*'),
+        PatternRule(r'lua_identifier', r'[a-zA-Z_][a-zA-Z0-9_]*'),
+
+        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.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(mode.Fundamental):
+    modename    = 'Lua'
+    extensions  = ['.lua']
+    #tabbercls   = mode.lisp.LispTabber
+    grammar     = LuaGrammar
+    opentokens  = ('delimiter',)
+    opentags    = {'(': ')', '[': ']', '{': '}'}
+    closetokens = ('delimiter',)
+    closetags   = {')': '(', ']': '[', '}': '{'}
+    colors      = {}
+    actions = [LuaCheckSyntax]
+    def __init__(self, w):
+        mode.Fundamental.__init__(self, w)
+        self.add_bindings('close-paren', (')',))
+        self.add_bindings('close-brace', ('}',))
+        self.add_bindings('close-bracket', (']',))
+        self.add_bindings('lua-check-syntax', ('C-c s',))
+
+install = Lua.install