Reindent Scilab sources
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@12277 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Sylvestre Ledru
parent
6da4c4d006
commit
8d0ceb287d
1 changed files with 114 additions and 110 deletions
|
|
@ -17,7 +17,7 @@ char cvsroot_scilab_cxx[] = "$Id$";
|
|||
|
||||
static const char *usage = (char *) "\
|
||||
Scilab Options (available with -scilab)\n\
|
||||
(none yet)\n\n";
|
||||
(none yet)\n\n";
|
||||
|
||||
|
||||
class SCILAB:public Language {
|
||||
|
|
@ -38,7 +38,7 @@ public:
|
|||
allow_overloading();
|
||||
}
|
||||
|
||||
|
||||
|
||||
/* ------------------------------------------------------------
|
||||
* main()
|
||||
* ------------------------------------------------------------ */
|
||||
|
|
@ -46,21 +46,21 @@ public:
|
|||
virtual void main(int argc, char *argv[]) {
|
||||
for (int i = 1; i < argc; i++) {
|
||||
if (argv[i]) {
|
||||
if (strcmp(argv[i], "-help") == 0) {
|
||||
fputs(usage, stderr);
|
||||
}
|
||||
if (strcmp(argv[i], "-help") == 0) {
|
||||
fputs(usage, stderr);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* Set language-specific subdirectory in SWIG library */
|
||||
SWIG_library_directory("scilab");
|
||||
|
||||
/* Add a symbol to the parser for conditional compilation */
|
||||
Preprocessor_define("SWIGSCILAB 1", 0);
|
||||
|
||||
|
||||
/* Set scilab configuration file */
|
||||
SWIG_config_file("scilab.swg");
|
||||
|
||||
|
||||
/* Set typemap for scilab */
|
||||
SWIG_typemap_lang("scilab");
|
||||
}
|
||||
|
|
@ -70,10 +70,10 @@ public:
|
|||
* --------------------------------------------------------------------- */
|
||||
|
||||
virtual int top(Node *n) {
|
||||
|
||||
|
||||
/* Get the name of the module */
|
||||
String *module = Getattr(n, "name");
|
||||
|
||||
|
||||
/* One output file for as the wrapper file */
|
||||
String *outfile;
|
||||
if (CPlusPlus)
|
||||
|
|
@ -81,37 +81,37 @@ public:
|
|||
else
|
||||
outfile= NewStringf("%s%s_wrap.c", SWIG_output_directory(), module);
|
||||
f_begin = NewFile(outfile, "w", SWIG_output_files());
|
||||
|
||||
|
||||
/* Initialize the output files */
|
||||
if (!f_begin) {
|
||||
FileErrorDisplay(outfile);
|
||||
SWIG_exit(EXIT_FAILURE);
|
||||
}
|
||||
}
|
||||
f_runtime = NewString("");
|
||||
f_header = NewString("");
|
||||
f_wrappers = NewString("");
|
||||
f_init = NewString("");
|
||||
|
||||
|
||||
/* Register file targets with the SWIG file handler */
|
||||
Swig_register_filebyname("begin", f_begin);
|
||||
Swig_register_filebyname("runtime", f_runtime);
|
||||
Swig_register_filebyname("header", f_header);
|
||||
Swig_register_filebyname("wrapper", f_wrappers);
|
||||
Swig_register_filebyname("init", f_init);
|
||||
|
||||
|
||||
/* Insert the banner at the beginning */
|
||||
Swig_banner(f_begin);
|
||||
|
||||
/* Include some header file of scilab */
|
||||
if (CPlusPlus)
|
||||
Printf(f_runtime, "extern \"C\" {\n");
|
||||
|
||||
|
||||
Printf(f_runtime, "#include \"stack-c.h\"\n");
|
||||
Printf(f_runtime, "#include \"sciprint.h\"\n");
|
||||
Printf(f_runtime, "#include \"Scierror.h\"\n");
|
||||
Printf(f_runtime, "#include \"api_scilab.h\"\n");
|
||||
Printf(f_runtime, "#include \"localization.h\"\n");
|
||||
|
||||
|
||||
if (CPlusPlus)
|
||||
Printf(f_runtime, "}\n");
|
||||
|
||||
|
|
@ -126,13 +126,13 @@ public:
|
|||
|
||||
if (CPlusPlus)
|
||||
Printf(f_wrappers, "extern \"C\" {\n");
|
||||
|
||||
|
||||
/* Emit code for children */
|
||||
Language::top(n);
|
||||
|
||||
if (CPlusPlus)
|
||||
Printf(f_wrappers, "}\n");
|
||||
|
||||
|
||||
/* Create the file to generate the module: "builder.sce" */
|
||||
if(hasfunction_flag) {
|
||||
Printf(f_builder_code, "];\n");
|
||||
|
|
@ -147,14 +147,14 @@ public:
|
|||
else {
|
||||
Delete(f_builder_code);
|
||||
}
|
||||
|
||||
|
||||
/* Dump out all the files */
|
||||
SwigType_emit_type_table(f_runtime, f_wrappers);
|
||||
Dump(f_runtime, f_begin);
|
||||
Dump(f_header, f_begin);
|
||||
Dump(f_wrappers, f_begin);
|
||||
Wrapper_pretty_print(f_init, f_begin);
|
||||
|
||||
|
||||
/* Close all of the files */
|
||||
Delete(f_init);
|
||||
Delete(f_wrappers);
|
||||
|
|
@ -162,7 +162,7 @@ public:
|
|||
Delete(f_runtime);
|
||||
Close(f_begin);
|
||||
Delete(f_begin);
|
||||
|
||||
|
||||
return SWIG_OK;
|
||||
}
|
||||
|
||||
|
|
@ -171,7 +171,7 @@ public:
|
|||
* ---------------------------------------------------------------------- */
|
||||
|
||||
virtual int functionWrapper(Node *n) {
|
||||
|
||||
|
||||
hasfunction_flag = true;
|
||||
|
||||
/* A new wrapper function object */
|
||||
|
|
@ -182,10 +182,10 @@ public:
|
|||
|
||||
/* Determine whether the function is overloaded or not */
|
||||
bool overloaded = !!Getattr(n, "sym:overloaded");
|
||||
|
||||
|
||||
/* Determine whether the function is the last overloaded */
|
||||
bool last_overload = overloaded && !Getattr(n, "sym:nextSibling");
|
||||
|
||||
|
||||
String *iname = Getattr(n, "sym:name");
|
||||
String *wname = Swig_name_wrapper(iname);
|
||||
String *overname = Copy(wname);
|
||||
|
|
@ -202,77 +202,78 @@ public:
|
|||
|
||||
/* Emit all of the local variables for holding arguments */
|
||||
emit_parameter_variables(l, f);
|
||||
|
||||
|
||||
/* Attach typemaps to the parameter list */
|
||||
emit_attach_parmmaps(l, f);
|
||||
Setattr(n, "wrap:parms", l);
|
||||
|
||||
|
||||
/* Get number of required and total arguments */
|
||||
int num_arguments = emit_num_arguments(l);
|
||||
int num_required = emit_num_required(l);
|
||||
|
||||
|
||||
/* The number of the output */
|
||||
int out_required = 0;
|
||||
|
||||
|
||||
/* Walk the function parameter list and generate code to get arguments */
|
||||
for (j = 0, p = l; j < num_arguments; ++j) {
|
||||
while (checkAttribute(p, "tmap:in:numinputs", "0")) {
|
||||
p = Getattr(p, "tmap:in:next");
|
||||
p = Getattr(p, "tmap:in:next");
|
||||
}
|
||||
|
||||
SwigType *pt = Getattr(p, "type");
|
||||
if ( Equal(SwigType_base(pt), "long long") || Equal(SwigType_base(pt), "unsigned long long"))
|
||||
if ( Equal(SwigType_base(pt), "long long") || Equal(SwigType_base(pt), "unsigned long long")) {
|
||||
Printv(f->code, " #ifdef __SCILAB_INT64__\n", NIL);
|
||||
}
|
||||
|
||||
/* Get typemap for this argument */
|
||||
String *tm = Getattr(p, "tmap:in");
|
||||
|
||||
|
||||
if (tm) {
|
||||
if (!tm || checkAttribute(p, "tmap:in:numinputs", "0")) {
|
||||
p = nextSibling(p);
|
||||
continue;
|
||||
}
|
||||
if (!tm || checkAttribute(p, "tmap:in:numinputs", "0")) {
|
||||
p = nextSibling(p);
|
||||
continue;
|
||||
}
|
||||
|
||||
char source[64];
|
||||
sprintf(source, "%d", j + 1);
|
||||
Setattr(p, "emit:input", source);
|
||||
Replaceall(tm, "$input", Getattr(p, "emit:input"));
|
||||
char source[64];
|
||||
sprintf(source, "%d", j + 1);
|
||||
Setattr(p, "emit:input", source);
|
||||
Replaceall(tm, "$input", Getattr(p, "emit:input"));
|
||||
|
||||
String *getargs = NewString("");
|
||||
|
||||
/* The paremeter is variable */
|
||||
if (j >= num_required)
|
||||
Printf(getargs, "if (Rhs > %d) {\n%s\n}", j, tm);
|
||||
else
|
||||
Printv(getargs, tm, NIL);
|
||||
Printv(f->code, getargs, "\n", NIL);
|
||||
if ( Equal(SwigType_base(pt), "long long") || Equal(SwigType_base(pt), "unsigned long long"))
|
||||
Printv(f->code, "#endif\n", NIL);
|
||||
Delete(getargs);
|
||||
p = Getattr(p, "tmap:in:next");
|
||||
continue;
|
||||
String *getargs = NewString("");
|
||||
|
||||
/* The paremeter is variable */
|
||||
if (j >= num_required)
|
||||
Printf(getargs, "if (Rhs > %d) {\n%s\n}", j, tm);
|
||||
else
|
||||
Printv(getargs, tm, NIL);
|
||||
Printv(f->code, getargs, "\n", NIL);
|
||||
if ( Equal(SwigType_base(pt), "long long") || Equal(SwigType_base(pt), "unsigned long long"))
|
||||
Printv(f->code, "#endif\n", NIL);
|
||||
Delete(getargs);
|
||||
p = Getattr(p, "tmap:in:next");
|
||||
continue;
|
||||
}
|
||||
else {
|
||||
Swig_warning(WARN_TYPEMAP_IN_UNDEF, input_file, line_number, "Unable to use type %s as a function argument.\n", SwigType_str(pt, 0));
|
||||
break;
|
||||
Swig_warning(WARN_TYPEMAP_IN_UNDEF, input_file, line_number, "Unable to use type %s as a function argument.\n", SwigType_str(pt, 0));
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Setattr(n, "wrap:name", overname);
|
||||
|
||||
/* Now write code to make the function call */
|
||||
Swig_director_emit_dynamic_cast(n, f);
|
||||
String *actioncode = emit_action(n);
|
||||
|
||||
|
||||
/* Insert the return variable */
|
||||
emit_return_variable(n, d, f);
|
||||
|
||||
if ((tm = Swig_typemap_lookup_out("out", n, "result", f, actioncode))) {
|
||||
Replaceall(tm, "$result", "result");
|
||||
|
||||
|
||||
/* There are more than one output */
|
||||
if (out_required > 0) {
|
||||
Printf(f->code, "LhsVar(iOutNum) = iVarOut;\n");
|
||||
Printf(f->code, "LhsVar(iOutNum) = iVarOut;\n");
|
||||
Printf(f->code, "iOutNum ++;\niVarOut ++;\n");
|
||||
}
|
||||
Printf(f->code, "%s\n", tm);
|
||||
|
|
@ -280,22 +281,22 @@ public:
|
|||
out_required ++;
|
||||
}
|
||||
else {
|
||||
Swig_warning(WARN_TYPEMAP_OUT_UNDEF, input_file, line_number, "Unable to use return type %s in function %s.\n", SwigType_str(d, 0), iname);
|
||||
Swig_warning(WARN_TYPEMAP_OUT_UNDEF, input_file, line_number, "Unable to use return type %s in function %s.\n", SwigType_str(d, 0), iname);
|
||||
}
|
||||
|
||||
|
||||
/* Insert argument output code */
|
||||
String *outarg = NewString("");
|
||||
for (p = l; p;) {
|
||||
if ((tm = Getattr(p, "tmap:argout"))) {
|
||||
//if (out_required > 0) {
|
||||
// Printf(f->code, "LhsVar(iOutNum) = iVarOut;\n");
|
||||
// Printf(f->code,"iOutNum ++;\niVarOut ++;\n");
|
||||
//}
|
||||
//if (out_required > 0) {
|
||||
// Printf(f->code, "LhsVar(iOutNum) = iVarOut;\n");
|
||||
// Printf(f->code,"iOutNum ++;\niVarOut ++;\n");
|
||||
//}
|
||||
Printv(outarg, tm, "\n", NIL);
|
||||
p = Getattr(p, "tmap:argout:next");
|
||||
p = Getattr(p, "tmap:argout:next");
|
||||
out_required ++;
|
||||
} else {
|
||||
p = nextSibling(p);
|
||||
p = nextSibling(p);
|
||||
}
|
||||
}
|
||||
Printv(f->code, outarg, NIL);
|
||||
|
|
@ -303,10 +304,10 @@ public:
|
|||
/* Insert constraint checking code */
|
||||
for (p = l; p;) {
|
||||
if ((tm = Getattr(p, "tmap:check"))) {
|
||||
Printv(f->code, tm, "\n", NIL);
|
||||
p = Getattr(p, "tmap:check:next");
|
||||
Printv(f->code, tm, "\n", NIL);
|
||||
p = Getattr(p, "tmap:check:next");
|
||||
} else {
|
||||
p = nextSibling(p);
|
||||
p = nextSibling(p);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -314,12 +315,12 @@ public:
|
|||
String *cleanup = NewString("");
|
||||
for (p = l; p;) {
|
||||
if ((tm = Getattr(p, "tmap:freearg"))) {
|
||||
if (tm && (Len(tm) != 0)) {
|
||||
Printv(cleanup, tm, "\n", NIL);
|
||||
}
|
||||
p = Getattr(p, "tmap:freearg:next");
|
||||
if (tm && (Len(tm) != 0)) {
|
||||
Printv(cleanup, tm, "\n", NIL);
|
||||
}
|
||||
p = Getattr(p, "tmap:freearg:next");
|
||||
} else {
|
||||
p = nextSibling(p);
|
||||
p = nextSibling(p);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -336,7 +337,7 @@ public:
|
|||
else {
|
||||
flag = 1;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
/* Insert the code checking the number of input */
|
||||
|
|
@ -353,16 +354,16 @@ public:
|
|||
|
||||
/* Finish the the code for the function */
|
||||
//if (flag)
|
||||
Printf(f->code, "//PutLhsVar();\n");
|
||||
Printf(f->code, "return 0;\n");
|
||||
Printf(f->code, "//PutLhsVar();\n");
|
||||
Printf(f->code, "return 0;\n");
|
||||
Printf(f->code, "}\n");
|
||||
|
||||
Replaceall(f->code, "$symname", iname);
|
||||
|
||||
|
||||
/* Dump the wrapper function */
|
||||
Wrapper_print(f, f_wrappers);
|
||||
DelWrapper(f);
|
||||
|
||||
|
||||
if (last_overload) {
|
||||
if (++ function_count % 10 == 0) {
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
|
|
@ -400,15 +401,16 @@ public:
|
|||
String *tmp = NewString("");
|
||||
|
||||
Printv(f->def, "int ", wname, " (char *fname, unsigned long fname_len) {\n", NIL);
|
||||
|
||||
|
||||
/* Get the number of the parameters */
|
||||
Wrapper_add_local(f, "argc", "int argc = Rhs");
|
||||
Wrapper_add_local(f, "sciErr", "SciErr sciErr");
|
||||
Wrapper_add_local(f, "iOutNum", "int iOutNum = 1");
|
||||
Wrapper_add_local(f, "iVarOut", "int iVarOut = Rhs + 1");
|
||||
Printf(tmp, "int argv[%d]={", maxargs);
|
||||
for (int j = 0; j < maxargs; ++j)
|
||||
for (int j = 0; j < maxargs; ++j) {
|
||||
Printf(tmp, "%s%d", j ? "," : " ", j + 1);
|
||||
}
|
||||
Printf(tmp, "}");
|
||||
Wrapper_add_local(f, "argv", tmp);
|
||||
/* Dump the dispatch function */
|
||||
|
|
@ -418,7 +420,7 @@ public:
|
|||
Printf(f->code, "return 0;\n");
|
||||
Printv(f->code, "}\n", NIL);
|
||||
Wrapper_print(f, f_wrappers);
|
||||
|
||||
|
||||
Delete(tmp);
|
||||
DelWrapper(f);
|
||||
Delete(dispatch);
|
||||
|
|
@ -430,17 +432,17 @@ public:
|
|||
* ----------------------------------------------------------------------- */
|
||||
|
||||
virtual int variableWrapper(Node *n) {
|
||||
|
||||
|
||||
hasfunction_flag = true;
|
||||
|
||||
|
||||
/* Get the useful information from the node */
|
||||
String *name = Getattr(n, "name");
|
||||
String *iname = Getattr(n, "sym:name");
|
||||
SwigType *t = Getattr(n, "type");
|
||||
|
||||
|
||||
if (!addSymbol(iname, n))
|
||||
return SWIG_ERROR;
|
||||
|
||||
|
||||
/* The rows and cols name of the variable */
|
||||
String *rowname = NewString("");
|
||||
String *colname = NewString("");
|
||||
|
|
@ -448,7 +450,7 @@ public:
|
|||
Printf(rowname, "iRows_%s", iname);
|
||||
Printf(colname, "iCols_%s", iname);
|
||||
Printf(iscomplexname, "isComplex_%s", iname);
|
||||
|
||||
|
||||
/* Two wrapper function to get and set the variable */
|
||||
String *tm;
|
||||
String *globalVar = NewString("");
|
||||
|
|
@ -457,17 +459,19 @@ public:
|
|||
|
||||
String *getname = Swig_name_get(NSPACE_TODO, iname);
|
||||
String *setname = Swig_name_set(NSPACE_TODO, iname);
|
||||
|
||||
|
||||
Printf(globalVar, "int %s = 1;\n", rowname);
|
||||
Printf(globalVar, "int %s = 1;\n", colname);
|
||||
if(!Strcmp(t, "p.double"))
|
||||
if(!Strcmp(t, "p.double")) {
|
||||
Printf(globalVar, "int %s = 0;\n\n", iscomplexname);
|
||||
else
|
||||
} else {
|
||||
Printf(globalVar, "\n");
|
||||
if ( Equal(SwigType_base(t), "long long") || Equal(SwigType_base(t), "unsigned long long"))
|
||||
}
|
||||
if ( Equal(SwigType_base(t), "long long") || Equal(SwigType_base(t), "unsigned long long")) {
|
||||
Printv(setf->def, "#ifdef __SCILAB_INT64__\n", NIL);
|
||||
}
|
||||
Printv(setf->def, "int ", setname, " (char *fname, unsigned long fname_len) {\n", NIL);
|
||||
|
||||
|
||||
/* Check the number of input and output */
|
||||
Printf(setf->def, "CheckRhs(1, 1);\n");
|
||||
Printf(setf->def, "CheckLhs(1, 1);\n");
|
||||
|
|
@ -483,29 +487,29 @@ public:
|
|||
if (Getattr(n, "unnamedinstance"))
|
||||
Setattr(n, "type", "int");
|
||||
if ((tm = Swig_typemap_lookup("varin", n, name, 0))) {
|
||||
Replaceall(tm, "$argnum", "1");
|
||||
Replaceall(tm, "$argnum", "1");
|
||||
Replaceall(tm, "iRows", rowname);
|
||||
Replaceall(tm, "iCols", colname);
|
||||
Replaceall(tm, "isComplex", iscomplexname);
|
||||
Replaceall(tm, "$input", "1");
|
||||
emit_action_code(n, setf->code, tm);
|
||||
Delete(tm);
|
||||
emit_action_code(n, setf->code, tm);
|
||||
Delete(tm);
|
||||
} else {
|
||||
Swig_warning(WARN_TYPEMAP_VARIN_UNDEF, input_file, line_number, "Unable to set variable of type %s.\n", SwigType_str(t, 0));
|
||||
Swig_warning(WARN_TYPEMAP_VARIN_UNDEF, input_file, line_number, "Unable to set variable of type %s.\n", SwigType_str(t, 0));
|
||||
}
|
||||
}
|
||||
else {
|
||||
Append(setf->code, "SWIG_Error(999, \"attempt to set immutable member variable\");");
|
||||
}
|
||||
Append(setf->code, "}\n");
|
||||
if ( Equal(SwigType_base(t), "long long") || Equal(SwigType_base(t), "unsigned long long"))
|
||||
if ( Equal(SwigType_base(t), "long long") || Equal(SwigType_base(t), "unsigned long long"))
|
||||
Printv(setf->def, "#endif\n", NIL);
|
||||
Wrapper_print(setf, f_wrappers);
|
||||
if (++ function_count % 10 == 0) {
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
}
|
||||
Printf(f_builder_code, "\"%s\",\"%s\";", setname, setname);
|
||||
|
||||
|
||||
/* Deal with the get function */
|
||||
Setattr(n, "wrap:name", getname);
|
||||
int addfail = 0;
|
||||
|
|
@ -542,22 +546,22 @@ public:
|
|||
/* Dump the wrapper function */
|
||||
Printf(getf->code, "LhsVar(iOutNum) = iVarOut;\n");
|
||||
Append(getf->code, "}\n");
|
||||
if ( Equal(SwigType_base(t), "long long") || Equal(SwigType_base(t), "unsigned long long"))
|
||||
if ( Equal(SwigType_base(t), "long long") || Equal(SwigType_base(t), "unsigned long long"))
|
||||
Printv(getf->def, " #endif\n", NIL);
|
||||
Wrapper_print(getf, f_wrappers);
|
||||
Printf(f_header,"%s", globalVar);
|
||||
if (++ function_count % 10 == 0) {
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
}
|
||||
Printf(f_builder_code, "\"%s\",\"%s\";", getname, getname);
|
||||
|
||||
|
||||
Delete(rowname);
|
||||
Delete(colname);
|
||||
Delete(iscomplexname);
|
||||
Delete(globalVar);
|
||||
DelWrapper(setf);
|
||||
DelWrapper(getf);
|
||||
|
||||
|
||||
return SWIG_OK;
|
||||
}
|
||||
|
||||
|
|
@ -566,9 +570,9 @@ public:
|
|||
* ----------------------------------------------------------------------- */
|
||||
|
||||
virtual int constantWrapper(Node *n) {
|
||||
|
||||
|
||||
hasfunction_flag = true;
|
||||
|
||||
|
||||
/* Get the useful information from the node */
|
||||
String *name = Getattr(n, "name");
|
||||
String *iname = Getattr(n, "sym:name");
|
||||
|
|
@ -576,10 +580,10 @@ public:
|
|||
String *rawval = Getattr(n, "rawval");
|
||||
String *value = rawval ? rawval : Getattr(n, "value");
|
||||
String *tm;
|
||||
|
||||
|
||||
if (!addSymbol(iname, n))
|
||||
return SWIG_ERROR;
|
||||
|
||||
|
||||
/* Use the get function to get the constant value */
|
||||
Wrapper *getf = NewWrapper();
|
||||
String *getname = Swig_name_get(NSPACE_TODO, iname);
|
||||
|
|
@ -593,7 +597,7 @@ public:
|
|||
Printf(getf->def, "SciErr sciErr;\n");
|
||||
/* Insert the order of output parameters*/
|
||||
Printf(getf->def, "\nint iOutNum=1;\nint iVarOut=Rhs+1;");
|
||||
|
||||
|
||||
/* Insert the argument counter */
|
||||
//Printf(getf->def, "\nint scilabArgNumber=0;");
|
||||
|
||||
|
|
@ -612,10 +616,10 @@ public:
|
|||
Append(getf->code, "}\n");
|
||||
Wrapper_print(getf, f_wrappers);
|
||||
if (++ function_count % 10 == 0) {
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
Printf(f_builder_code, "];\n\ntable = [table;");
|
||||
}
|
||||
Printf(f_builder_code, "\"%s\",\"%s\";", getname, getname);
|
||||
|
||||
|
||||
DelWrapper(getf);
|
||||
|
||||
return SWIG_OK;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue