From eec2a8dbb9ad3bb1ce562fef57ca04ab719fc050 Mon Sep 17 00:00:00 2001
From: Matthias Braun <matze@braunis.de>
Date: Tue, 12 Jul 2005 22:39:45 +0000
Subject: [PATCH] allow custom wrapper functions

SVN-Revision: 2718
---
 tools/miniswig/create_wrapper.cpp | 25 ++++++++++++++++++++++++-
 tools/miniswig/lexer.ll           |  1 +
 tools/miniswig/main.cpp           |  6 +++---
 tools/miniswig/parser.yy          |  5 +++++
 tools/miniswig/tree.hpp           |  4 ++++
 5 files changed, 37 insertions(+), 4 deletions(-)

diff --git a/tools/miniswig/create_wrapper.cpp b/tools/miniswig/create_wrapper.cpp
index 1fba6e7bc..7e44cd678 100644
--- a/tools/miniswig/create_wrapper.cpp
+++ b/tools/miniswig/create_wrapper.cpp
@@ -263,6 +263,28 @@ WrapperCreator::create_function_wrapper(Class* _class, Function* function)
         out << ind << ns_prefix <<  _class->name << "* _this;\n";
         out << ind << "sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0);\n";
     }
+
+    // custom function?
+    if(function->custom) {
+        if(function->type != Function::FUNCTION)
+            throw std::runtime_error(
+                    "custom not allow constructor+destructor yet");
+        if(function->return_type.atomic_type != &BasicType::INT)
+            throw std::runtime_error("custom function has to return int");
+        if(function->parameters.size() != 1)
+            throw std::runtime_error(
+                    "custom function must have 1 HSQUIRRELVM parameter");
+
+        out << ind << "return ";
+        if(_class != 0)
+            out << "_this->";
+        else
+            out << ns_prefix;
+        out << function->name << "(v);\n";
+        out << "}\n";
+        out << "\n";
+        return;
+    }
     
     // declare and retrieve arguments
     int i = 0;
@@ -431,7 +453,8 @@ WrapperCreator::create_squirrel_instance(Class* _class)
         << ind << ind << "sq_setreleasehook(v, -1, "
         << _class->name << "_release_hook);\n"
         << ind << "}\n"
-        << "}\n";
+        << "}\n"
+        << "\n";
 }
 
 void
diff --git a/tools/miniswig/lexer.ll b/tools/miniswig/lexer.ll
index 263464de0..e22fac141 100644
--- a/tools/miniswig/lexer.ll
+++ b/tools/miniswig/lexer.ll
@@ -95,6 +95,7 @@ protected                               { return T_PROTECTED; }
 private                                 { return T_PRIVATE; }
 namespace                               { return T_NAMESPACE; }
 __suspend                               { return T_SUSPEND; }
+__custom                                { return T_CUSTOM; }
 [a-zA-Z_][a-zA-Z_0-9]*                  {
         Namespace* ns = search_namespace;
         if(ns == 0)
diff --git a/tools/miniswig/main.cpp b/tools/miniswig/main.cpp
index 2655a6462..cbb76f15a 100644
--- a/tools/miniswig/main.cpp
+++ b/tools/miniswig/main.cpp
@@ -97,7 +97,7 @@ int main(int argc, char** argv)
         std_namespace->types.push_back(new StringType());
         unit->namespaces.push_back(std_namespace);
         unit->types.push_back(new HSQUIRRELVMType());
-        
+       
         yyparse();
 
         Namespace* ns = unit;
@@ -127,14 +127,14 @@ int main(int argc, char** argv)
             std::ofstream dout(output_doc.c_str());
             if(!dout.good()) {
                 std::cerr << "Couldn't open file '" 
-                    << dout << "' for writing.\n";
+                    << output_doc << "' for writing.\n";
                 return 1;
             }
             DocuCreator creator(dout);
             creator.create_docu(ns);
         }
     } catch(std::exception& e) {
-        std::cerr << e.what() << "\n";
+        std::cerr << "Exception: " << e.what() << "\n";
         return 1;
     }
 
diff --git a/tools/miniswig/parser.yy b/tools/miniswig/parser.yy
index 461c9f80a..a54c0afef 100644
--- a/tools/miniswig/parser.yy
+++ b/tools/miniswig/parser.yy
@@ -70,6 +70,7 @@ private:
 %token T_STRUCT
 %token T_STATIC
 %token T_SUSPEND
+%token T_CUSTOM
 %token T_CONST
 %token T_UNSIGNED
 %token T_SIGNED
@@ -308,6 +309,10 @@ function_declaration:
 function_attributes:
     /* empty */
     | T_CONST function_attributes
+    | T_CUSTOM function_attributes
+      {
+        current_function->custom = true;
+      }
     | T_SUSPEND function_attributes
       {
         current_function->suspend = true;
diff --git a/tools/miniswig/tree.hpp b/tools/miniswig/tree.hpp
index 0edca2ef3..4dfcf1bb1 100644
--- a/tools/miniswig/tree.hpp
+++ b/tools/miniswig/tree.hpp
@@ -158,6 +158,7 @@ public:
     Function() {
       type = FUNCTION;
       suspend = false;
+      custom = false;
     }
   
     enum FuncType {
@@ -166,7 +167,10 @@ public:
         DESTRUCTOR
     };
     FuncType type;
+    /// function should suspend squirrel VM after execution
     bool suspend;
+    /// a custom wrapper (just pass along HSQUIRRELVM)
+    bool custom;
     std::string docu_comment;
     std::string name;
     Type return_type;
-- 
2.11.0