Changeset 2509 for code/branches/buildsystem2/src/tolua/lua/custom.lua

Timestamp:

Dec 17, 2008, 8:59:48 PM (15 years ago)

Author:

rgrieder

Message:

Merged revisions 1875-2278 of the buildsystem branch to buildsystem2.

Location:

code/branches/buildsystem2

Files:

• . (modified) (2 props)
• src/tolua/lua/custom.lua (modified) (2 diffs)

code/branches/buildsystem2/src/tolua/lua/custom.lua

@@ -1 +1 @@
 
 function extract_code(fn,s)
-        local code = ""
-        if fn then
-                code = '\n$#include "'..fn..'"\n'
-        end
-        s= "\n" .. s .. "\n" -- add blank lines as sentinels
-        local _,e,c,t = strfind(s, "\n([^\n]-)SCRIPT_([%w_]*)[^\n]*\n")
-        while e do
-                t = strlower(t)
-                if t == "bind_begin" then
-                        _,e,c = strfind(s,"(.-)\n[^\n]*SCRIPT_BIND_END[^\n]*\n",e)
-                        if not e then
-                         tolua_error("Unbalanced 'SCRIPT_BIND_BEGIN' directive in header file")
-                        end
-                end
-                if t == "bind_class" or t == "bind_block" then
-                        local b
-                        _,e,c,b = string.find(s, "([^{]-)(%b{})", e)
-                        c = c..'{\n'..extract_code(nil, b)..'\n};\n'
-                end
-                code = code .. c .. "\n"
-         _,e,c,t = strfind(s, "\n([^\n]-)SCRIPT_([%w_]*)[^\n]*\n",e)
-        end
-        return code
+    local code = ""
+    if fn then
+        code = '\n$#include "'..fn..'"\n'
+    end
+    s= "\n" .. s .. "\n" -- add blank lines as sentinels
+    local _,e,c,t = strfind(s, "\n([^\n]-)SCRIPT_([%w_]*)[^\n]*\n")
+    while e do
+        t = strlower(t)
+        if t == "bind_begin" then
+            _,e,c = strfind(s,"(.-)\n[^\n]*SCRIPT_BIND_END[^\n]*\n",e)
+            if not e then
+             tolua_error("Unbalanced 'SCRIPT_BIND_BEGIN' directive in header file")
+            end
+        end
+        if t == "bind_class" or t == "bind_block" then
+            local b
+            _,e,c,b = string.find(s, "([^{]-)(%b{})", e)
+            c = c..'{\n'..extract_code(nil, b)..'\n};\n'
+        end
+        code = code .. c .. "\n"
+     _,e,c,t = strfind(s, "\n([^\n]-)SCRIPT_([%w_]*)[^\n]*\n",e)
+    end
+    return code
 end
 
@@ -33 +33 @@
 
 function include_file_hook(p, filename)
-        do return end
+    do return end
 --print("FILENAME is "..filename)
-        p.code = string.gsub(p.code, "\n%s*SigC::Signal", "\n\ttolua_readonly SigC::Signal")
-        p.code = string.gsub(p.code, "#ifdef __cplusplus\nextern \"C\" {\n#endif", "")
-        p.code = string.gsub(p.code, "#ifdef __cplusplus\n};?\n#endif", "")
-        p.code = string.gsub(p.code, "DECLSPEC", "")
-        p.code = string.gsub(p.code, "SDLCALL", "")
-        p.code = string.gsub(p.code, "DLLINTERFACE", "")
-        p.code = string.gsub(p.code, "#define[^\n]*_[hH]_?%s*\n", "\n")
+    p.code = string.gsub(p.code, "\n%s*SigC::Signal", "\n\ttolua_readonly SigC::Signal")
+    p.code = string.gsub(p.code, "#ifdef __cplusplus\nextern \"C\" {\n#endif", "")
+    p.code = string.gsub(p.code, "#ifdef __cplusplus\n};?\n#endif", "")
+    p.code = string.gsub(p.code, "DECLSPEC", "")
+    p.code = string.gsub(p.code, "SDLCALL", "")
+    p.code = string.gsub(p.code, "DLLINTERFACE", "")
+    p.code = string.gsub(p.code, "#define[^\n]*_[hH]_?%s*\n", "\n")
 --print("code is "..p.code)
 end