Warnings removed
Sylvestre Ledru [Fri, 16 Mar 2007 16:24:39 +0000 (16:24 +0000)]
scilab/modules/core/sci_gateway/c/sci_what.c
scilab/modules/core/src/c/CallScilab.c
scilab/modules/core/src/c/InitScilab.c
scilab/modules/core/src/c/callinterf.c
scilab/modules/core/src/c/callinterf.h
scilab/modules/core/src/c/getmodules.c
scilab/modules/core/src/c/message_scilab.c
scilab/modules/core/src/c/mexlib.c
scilab/modules/core/src/c/tmpdir.c

index 41ffa26..1d9f6f8 100644 (file)
@@ -35,7 +35,6 @@ static char **LocalFunctionsTab=NULL;
 static int SizeLocalFunctionsTab=0;
 /*-----------------------------------------------------------------------------------*/
 static int CreateLocalFunctionsTab(void);
-static int GetFunTabSizes(int *MaxSize,int *MaxSizeWithoutCommands);
 static int IsACommand(char *primitive);
 static void DispInternalFunctions(void);
 static void DispCommands(void);
index 2cefe0d..8c5db17 100644 (file)
 #endif
 
 /*-----------------------------------------------------------------------------------*/
+
 static char DefaultScilabStartup[]="SCI/etc/scilab.start";
-static char DefaultScilabQuit[]="SCI/etc/scilab.quit";
-static char DefaultSCIenv[]="../..";
+// not used at the moment
+//static char DefaultScilabQuit[]="SCI/etc/scilab.quit";
+//static char DefaultSCIenv[]="../..";
 static int DefaultStacksize=1000000;
 static int StartScilabIsOK=FALSE;
 /*-----------------------------------------------------------------------------------*/
index c4d29a7..ea5d527 100644 (file)
@@ -5,8 +5,8 @@
 #include "InitScilab.h"
 #include "InitializeCore.h"
 #include "../../tclsci/includes/InitializeTclTk.h"
-#ifdef _MSC_VER
 #include "../../localization/includes/InitializeLocalization.h"
+#ifdef _MSC_VER
 #include "../../jvm/includes/InitializeJVM.h"
 #endif
 /*-----------------------------------------------------------------------------------*/
index 4481176..a9ddccc 100644 (file)
@@ -22,6 +22,7 @@ static  jmp_buf jmp_env;
 
 extern int C2F(error) __PARAMS((int *));
 
+static void sci_sigint_addinter(int n);
 
 /***********************************************************
  * interface function 
index 4bf5c7e..bb16526 100644 (file)
@@ -26,9 +26,6 @@ void C2F(Nogw_cscicos)(void);
 void C2F(Nogw_slicot)(void);
 void C2F(Nogw_fftw)(void);
 
-static void sci_sigint_addinter(int n);
-
-
 /* 01  C2F(gw_user)(); FREE */
 extern void    /* 02  */ C2F(gw_linear_algebra)(void);
 /* 03  C2F(gw_user)(); FREE */
index e1129c1..76c5a31 100644 (file)
@@ -17,7 +17,6 @@ extern BOOL FileExist(char *filename);
 /*-----------------------------------------------------------------------------------*/ 
 static struct MODULESLIST *ScilabModules=NULL;
 /*-----------------------------------------------------------------------------------*/ 
-static BOOL AddModules(void);
 static BOOL ReadModulesFile(void);
 static int GetNumberOfLinesInFile(char *filename);
 static BOOL AppendModules(char *filename);
index 771fdce..18d52c5 100644 (file)
@@ -3,12 +3,13 @@
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/
 #include <stdarg.h>
+#include <stdlib.h>
 #include "message_scilab.h"
 #include "MALLOC.h"
 #include "sciprint.h"
 #include "../../../localization/includes/QueryStringMessage.h"
 /*-----------------------------------------------------------------------------------*/
-int message_scilab(char *Tag,va_list argptr)
+int message_scilab(char *Tag, va_list argptr)
 {
        int ret=0;
        char *LocalizedString=QueryStringMessage(Tag);
index b3c1fa3..51848a7 100644 (file)
@@ -1007,7 +1007,7 @@ mxArray *mxCreateStructMatrix(int m, int n, int nfields, const char **field_name
   return (mxArray *) C2F(vstk).lstk[lw + Top - Rhs - 1 ];
 }
 
-void mxSetFieldByNumber(mxArray *array_ptr, int index, int field_number, mxArray *value)
+void mxSetFieldByNumber(mxArray *array_ptr, int lindex, int field_number, mxArray *value)
 {
   int pointed, point_ed;int proddims,k;int is1x1;
   int *headerobj; int *headervalue;
@@ -1023,7 +1023,7 @@ void mxSetFieldByNumber(mxArray *array_ptr, int index, int field_number, mxArray
   if (is1x1) {
     headerobj = listentry( header, field_number+3);}
   else {
-    headerobj = listentry( listentry(header, field_number+3)  ,index+1);}
+    headerobj = listentry( listentry(header, field_number+3)  ,lindex+1);}
   if (IsReference(value))
     {
       headervalue = RawHeader(value);
@@ -1043,11 +1043,11 @@ void mxSetFieldByNumber(mxArray *array_ptr, int index, int field_number, mxArray
     }
 }
 
-void mxSetField(mxArray *array_ptr, int index, const char *field_name, mxArray *value)
+void mxSetField(mxArray *array_ptr, int lindex, const char *field_name, mxArray *value)
 {
   int field_num;
   field_num = mxGetFieldNumber(array_ptr, field_name);
-  mxSetFieldByNumber(array_ptr, index, field_num, value);
+  mxSetFieldByNumber(array_ptr, lindex, field_num, value);
 }
 
 const char *mxGetFieldNameByNumber(const mxArray *array_ptr, int field_number)
@@ -1177,7 +1177,7 @@ mxArray *mxCreateCellMatrix(int nrows, int ncols)
   return mxCreateCellArray(two, dims);
 }
 
-mxArray *mxGetCell(const mxArray *ptr, int index)
+mxArray *mxGetCell(const mxArray *ptr, int lindex)
 {
   int kk,lw,isize;int proddims,k;int is1x1;
   int *headerlist,*headerobj,*headerobjcopy;
@@ -1191,13 +1191,13 @@ mxArray *mxGetCell(const mxArray *ptr, int index)
   is1x1= (int) proddims==1;
 
   if (is1x1) {
-    headerobj = listentry( header, index+1);
+    headerobj = listentry( header, lindex+1);
     isize = header[5]- header[4];
   }
   else {
     headerlist = listentry(header,3);
-    headerobj = listentry(headerlist,index+1);
-    isize=headerlist[index+3]-headerlist[index+2];
+    headerobj = listentry(headerlist,lindex+1);
+    isize=headerlist[lindex+3]-headerlist[lindex+2];
   }
   Nbvars++;  lw=Nbvars;
   CreateData(lw,isize*sizeof(double));
@@ -1230,7 +1230,7 @@ int mxGetFieldNumber(const mxArray *ptr, const char *string)
   return retval;
 }
 
-mxArray *mxGetField(const mxArray *ptr, int index, const char *string)
+mxArray *mxGetField(const mxArray *ptr, int lindex, const char *string)
 {
   int kk,lw,isize,fieldnum;int proddims,k;int is1x1;
   int *headerlist, *headerobj, *headerobjcopy;
@@ -1252,8 +1252,8 @@ mxArray *mxGetField(const mxArray *ptr, int index, const char *string)
   }
   else {
     headerlist = listentry(header,3+fieldnum);
-    headerobj = listentry(headerlist,index+1);
-    isize=headerlist[index+3]-headerlist[index+2];
+    headerobj = listentry(headerlist,lindex+1);
+    isize=headerlist[lindex+3]-headerlist[lindex+2];
   }
 
   Nbvars++; lw=Nbvars;
index 488b23e..5b5a713 100644 (file)
@@ -114,4 +114,4 @@ char *getTMPDIR(void)
 
        return TMPDIR;
 }
-/*-----------------------------------------------------------------------------------*/
\ No newline at end of file
+/*-----------------------------------------------------------------------------------*/