jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reindent Scilab sources

Browse source 
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 2010-10-14 15:59:20 +00:00
commit 8d0ceb287d
1 changed files with 114 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Source/Modules/scilab.cxx
View file

@ -221,8 +221,9 @@ public:
} }
SwigType *pt = Getattr(p, "type"); 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); Printv(f->code, " #ifdef __SCILAB_INT64__\n", NIL);
}
/* Get typemap for this argument */ /* Get typemap for this argument */
String *tm = Getattr(p, "tmap:in"); String *tm = Getattr(p, "tmap:in");
@ -407,8 +408,9 @@ public:
Wrapper_add_local(f, "iOutNum", "int iOutNum = 1"); Wrapper_add_local(f, "iOutNum", "int iOutNum = 1");
Wrapper_add_local(f, "iVarOut", "int iVarOut = Rhs + 1"); Wrapper_add_local(f, "iVarOut", "int iVarOut = Rhs + 1");
Printf(tmp, "int argv[%d]={", maxargs); 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, "%s%d", j ? "," : " ", j + 1);
}
Printf(tmp, "}"); Printf(tmp, "}");
Wrapper_add_local(f, "argv", tmp); Wrapper_add_local(f, "argv", tmp);
/* Dump the dispatch function */ /* Dump the dispatch function */
@ -460,12 +462,14 @@ public:
Printf(globalVar, "int %s = 1;\n", rowname); Printf(globalVar, "int %s = 1;\n", rowname);
Printf(globalVar, "int %s = 1;\n", colname); 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); Printf(globalVar, "int %s = 0;\n\n", iscomplexname);
else } else {
Printf(globalVar, "\n"); 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, "#ifdef __SCILAB_INT64__\n", NIL);
}
Printv(setf->def, "int ", setname, " (char *fname, unsigned long fname_len) {\n", NIL); Printv(setf->def, "int ", setname, " (char *fname, unsigned long fname_len) {\n", NIL);
/* Check the number of input and output */ /* Check the number of input and output */