Menu
▾
▴
[Swig-cvs] SF.net SVN: swig:[12277] branches/gsoc2009-sploving/Source/Modules/scilab. cxx
|
From: <gra...@us...> - 2010-10-14 15:59:27
|
Revision: 12277
http://swig.svn.sourceforge.net/swig/?rev=12277&view=rev
Author: grayswandir
Date: 2010-10-14 15:59:20 +0000 (Thu, 14 Oct 2010)
Log Message:
-----------
Reindent Scilab sources
Modified Paths:
--------------
branches/gsoc2009-sploving/Source/Modules/scilab.cxx
Modified: branches/gsoc2009-sploving/Source/Modules/scilab.cxx
===================================================================
--- branches/gsoc2009-sploving/Source/Modules/scilab.cxx 2010-10-14 15:45:49 UTC (rev 12276)
+++ branches/gsoc2009-sploving/Source/Modules/scilab.cxx 2010-10-14 15:59:20 UTC (rev 12277)
@@ -17,7 +17,7 @@
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 @@
allow_overloading();
}
-
+
/* ------------------------------------------------------------
* main()
* ------------------------------------------------------------ */
@@ -46,21 +46,21 @@
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 @@
* --------------------------------------------------------------------- */
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 @@
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 @@
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 @@
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 @@
Delete(f_runtime);
Close(f_begin);
Delete(f_begin);
-
+
return SWIG_OK;
}
@@ -171,7 +171,7 @@
* ---------------------------------------------------------------------- */
virtual int functionWrapper(Node *n) {
-
+
hasfunction_flag = true;
/* A new wrapper function object */
@@ -182,10 +182,10 @@
/* 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 @@
/* 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 @@
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 @@
/* 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 @@
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 @@
else {
flag = 1;
}
-
+
/* Insert the code checking the number of input */
@@ -353,16 +354,16 @@
/* 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 @@
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 @@
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 @@
* ----------------------------------------------------------------------- */
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 @@
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 @@
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 @@
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 @@
/* 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 @@
* ----------------------------------------------------------------------- */
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 @@
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 @@
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 @@
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;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|