Adaptation to a toolbox version

2 files changed, 38 insertions, 52 deletions

diff --git a/macros/CCodeGeneration/C_Funcall.sci b/macros/CCodeGeneration/C_Funcall.sci
index f68d7c82..80544e8e 100644
--- a/macros/CCodeGeneration/C_Funcall.sci
+++ b/macros/CCodeGeneration/C_Funcall.sci
@@ -101,9 +101,9 @@ if ((mtlb_strcmp(FunctionName,'size')))
          PrintStringInfo('   '+CCall,ReportFileName,'file','y');
          // #RNU_RES_E
          PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
-         
+
          CCall ='';
-         CCall = CCall+OutArg(1).Name+'[1] = __'+InArg(1).Name+'Size[1];';         
+         CCall = CCall+OutArg(1).Name+'[1] = __'+InArg(1).Name+'Size[1];';
          // #RNU_RES_B
          PrintStringInfo('   '+CCall,ReportFileName,'file','y');
          // #RNU_RES_E
@@ -114,9 +114,9 @@ if ((mtlb_strcmp(FunctionName,'size')))
          PrintStringInfo('   '+CCall,ReportFileName,'file','y');
          // #RNU_RES_E
          PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
-         
+
          CCall ='';
-         CCall = CCall+OutArg(2).Name+' = __'+InArg(1).Name+'Size[1];';               
+         CCall = CCall+OutArg(2).Name+' = __'+InArg(1).Name+'Size[1];';
          // #RNU_RES_B
          PrintStringInfo('   '+CCall,ReportFileName,'file','y');
          // #RNU_RES_E
@@ -126,13 +126,13 @@ if ((mtlb_strcmp(FunctionName,'size')))
       end
    elseif (NInArg == 2)
       if (NOutArg == 1)
-         if (InArg(2).Value == 1)      
+         if (InArg(2).Value == 1)
             CCall = CCall+OutArg(1).Name+' = __'+InArg(1).Name+'Size[0];';
             // #RNU_RES_B
             PrintStringInfo('   '+CCall,ReportFileName,'file','y');
             // #RNU_RES_E
             PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
-         elseif (InArg(2).Value == 2)      
+         elseif (InArg(2).Value == 2)
             CCall = CCall+OutArg(1).Name+' = __'+InArg(1).Name+'Size[1];';
             // #RNU_RES_B
             PrintStringInfo('   '+CCall,ReportFileName,'file','y');
@@ -206,15 +206,15 @@ for counterin = 1:NInArg
    else
       TmpInArgName = InArg(counterin).Name;
    end
-   
+
    TmpInArgType = C_Type(InArg(counterin).Type);
-   
+
    //if (FunctionName == 'OpEqual')
    //      TmpInArgSizeVar = '__'+OutArg(counterin).Name+'Size';
    // else
-   TmpInArgSizeVar = '__'+InArg(counterin).Name+'Size';   
+   TmpInArgSizeVar = '__'+InArg(counterin).Name+'Size';
    //end
-      
+
    if (InArg(counterin).Dimension == 0)
       if (FlagCall == 0)
          CCall = CCall+TmpInArgType+' ';
@@ -261,7 +261,7 @@ for counterout = 1:NOutArg
       else
          if (FlagCall == 0)
             CCall = CCall+TmpOutArgType+'* '+TmpOutArgName+',';
-            if (OutArg(counterout).FindLike == 1)  
+            if (OutArg(counterout).FindLike == 1)
                CCall = CCall+'SCI2Cint* __'+TmpOutArgName+'Size'+',';
             end
             // #RNU_RES_B
@@ -280,9 +280,9 @@ for counterout = 1:NOutArg
             PrintStringInfo(' ',CInitVarsFileName,'file','y');
          else
             CCall = CCall+OutArg(counterout).Name+',';
-            if (OutArg(counterout).FindLike == 1)  
+            if (OutArg(counterout).FindLike == 1)
                CCall = CCall+'(SCI2Cint* ) __'+TmpOutArgName+'Size'+',';
-            end            
+            end
          end
       end
    end
@@ -302,7 +302,7 @@ if (FlagCall == 1)
 end
 //NUT: la parte di generazione della C call va inserita in una funzione a parte.
 //NUT: tale funzione deve avere anche uno switch che consenta di generare differenti versioni
-//NUT: delle chiamate C in accordo con la libreria disponibile, fermo restando che 
+//NUT: delle chiamate C in accordo con la libreria disponibile, fermo restando che
 //NUT:  e' sempre possibile fornire la lista delle macro.
 if mtlb_strcmp(FunctionName,'return')
    // Here I introduce the pointer assignment for output scalar arguments.
@@ -358,12 +358,14 @@ else
    PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
    if (FlagCall == 0)
       // Add prototype to the header file
-      C_InitHeader(CCall+';',HeaderFileName,SharedInfo.Sci2CLibMainHeaderFName);
-      
+
+     //-- FIXME : disable this for now
+     //-- C_InitHeader(CCall+';',HeaderFileName,SharedInfo.Sci2CLibMainHeaderFName);
+
       // Add { at the beginning of the function.
       PrintStringInfo('   {',ReportFileName,'file','y');
       PrintStringInfo(C_IndentBlanks(IndentLevel)+'{',CPass1FileName,'file','y');
-      
+
    end
 end
 
diff --git a/macros/CCodeGeneration/C_GenerateMakefile.sci b/macros/CCodeGeneration/C_GenerateMakefile.sci
index 1ef7385c..e591e6f3 100644
--- a/macros/CCodeGeneration/C_GenerateMakefile.sci
+++ b/macros/CCodeGeneration/C_GenerateMakefile.sci
@@ -37,34 +37,18 @@ PrintStringInfo('# -----------------------',FileInfo.MakefileFilename,'file','y'
 PrintStringInfo('# --- USER PARAMETERS ---',FileInfo.MakefileFilename,'file','y');
 PrintStringInfo('# -----------------------',FileInfo.MakefileFilename,'file','y');
 PrintStringInfo('# --- DIRECTORIES AND FILES ---',FileInfo.MakefileFilename,'file','y');
-if (SharedInfo.CCompilerPathStyle == 'windows')
-   makeobjpath  = '..\..\..\Scilab2C\CFiles\sci2cobj';
-   // makeobjpath  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cobj';
-   makecsrcdir  = '..\..\..\Scilab2C\CFiles\sci2ccode';
-   // makecsrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2ccode';
-   makehsrcdir  = '..\..\..\Scilab2C\CFiles\sci2cincludes';
-   // makehsrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cincludes';
-   makeisrcdir  = '..\..\..\Scilab2C\CFiles\sci2cinterfaces';
-   // makeisrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cinterfaces';
-   makesci2cdir = FileInfo.CStyleOutCCCodeDir;
-   // makesci2cdir = FileInfo.CStyleOutCCCodeDir;
-elseif (SharedInfo.CCompilerPathStyle == 'unix' | ...
-        SharedInfo.CCompilerPathStyle == 'cygwin')
-   makeobjpath  = '../../../Scilab2C/CFiles/sci2cobj';
-   // makeobjpath  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cobj';
-   makecsrcdir  = '../../../Scilab2C/CFiles/sci2ccode';
-   // makecsrcdir  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2ccode';
-   makehsrcdir  = '../../../Scilab2C/CFiles/sci2cincludes';
-   // makehsrcdir  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cincludes';
-   makeisrcdir  = '../../../Scilab2C/CFiles/sci2cinterfaces';
-   // makeisrcdir  = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cinterfaces';
-   makesci2cdir = FileInfo.CStyleOutCCCodeDir;
-else
-   PrintStringInfo(' ',ReportFileName,'stdout','y');
-   PrintStringInfo('SCI2CERROR: Unkwnown option for CCompilerPathStyle','','both','y');
-   PrintStringInfo('SCI2CERROR: Please check SCI2CInputParameters.sce file.','','both','y');
-   SCI2Cerror(' ');
-end
+
+makeobjpath  = pathconvert('..\..\..\Scilab2C\CFiles\sci2cobj', %f, %f, 'u');
+// makeobjpath  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cobj';
+makecsrcdir  = pathconvert('..\..\..\Scilab2C\CFiles\sci2ccode', %f, %f, 'u');
+// makecsrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2ccode';
+makehsrcdir  = pathconvert('..\..\..\Scilab2C\CFiles\sci2cincludes', %f, %f, 'u');
+// makehsrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cincludes';
+makeisrcdir  = pathconvert('..\..\..\Scilab2C\CFiles\sci2cinterfaces', %f, %f, 'u');
+// makeisrcdir  = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cinterfaces';
+makesci2cdir = FileInfo.CStyleOutCCCodeDir;
+// makesci2cdir = FileInfo.CStyleOutCCCodeDir;
+
 
 PrintStringInfo('OBJDIR      = '+makeobjpath,FileInfo.MakefileFilename,'file','y');
 PrintStringInfo('CSRCDIR     = '+makecsrcdir,FileInfo.MakefileFilename,'file','y');
@@ -77,17 +61,17 @@ PrintStringInfo('EXEFILENAME = mytest.exe',FileInfo.MakefileFilename,'file','y')
 // -------------------------------
 // --- Open template makefile. ---
 // -------------------------------
-fidfile = SCI2COpenFileRead(FileInfo.MakefileTemplate);
+//-- fidfile = SCI2COpenFileRead(FileInfo.MakefileTemplate);
 
 // -------------------
 // --- Read lines. ---
 // -------------------
-tmpline = mgetl(fidfile,1);
-while (meof(fidfile) == 0)
-   PrintStringInfo(tmpline,FileInfo.MakefileFilename,'file','y');
-   tmpline = mgetl(fidfile,1);
-end
+//-- tmpline = mgetl(fidfile,1);
+//-- while (meof(fidfile) == 0)
+//--   PrintStringInfo(tmpline,FileInfo.MakefileFilename,'file','y');
+//--   tmpline = mgetl(fidfile,1);
+//-- end
 
-mclose(fidfile);
+//-- mclose(fidfile);
 
 endfunction