Add cleanup code (copy and modify from tcl.cxx)

swig · Apr 29, 2013 · 0a66805 · 0a66805
1 parent 680374f
commit 0a66805
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/Source/Modules/scilab.cxx b/Source/Modules/scilab.cxx
@@ -357,6 +357,20 @@ class SCILAB : public Language {
       }
     }
     /* Add cleanup code */
+    for (param = functionParamsList; param;) {
+      String *tm;
+      if ((tm = Getattr(param, "tmap:freearg"))) {
+		if (tm && (Len(tm) != 0)) {
+		  Replaceall(tm, "$source", Getattr(param, "lname"));
+          Printf(wrapper->code, "%s\n", tm);
+	      Delete(tm);
+		}
+		param= Getattr(param, "tmap:freearg:next");
+      } else {
+		param = nextSibling(param);
+      }
+    }
+
 
     /* Close the function(ok) */
     Printv(wrapper->code, "return SWIG_OK;\n", NIL);