* Warnings fixed
Sylvestre Ledru [Thu, 15 Feb 2007 15:00:45 +0000 (15:00 +0000)]
* some extern removed
* comment added
* comment formated to the doxygen format
* more include file

52 files changed:
scilab/modules/core/includes/gw_core.h
scilab/modules/core/includes/intmacr2tree.h
scilab/modules/core/includes/stack1.h
scilab/modules/core/includes/warningmode.h
scilab/modules/core/sci_gateway/c/sci_clearfun.c
scilab/modules/core/sci_gateway/c/sci_newfun.c
scilab/modules/core/sci_gateway/c/sci_who.c
scilab/modules/core/src/c/CallScilab.c
scilab/modules/core/src/c/Funtab.c
scilab/modules/core/src/c/Funtab.h [new file with mode: 0644]
scilab/modules/core/src/c/InitializeCore.c
scilab/modules/core/src/c/IsAScalar.c
scilab/modules/core/src/c/IsAScalar.h [new file with mode: 0644]
scilab/modules/core/src/c/LoadFunctionsTab.c
scilab/modules/core/src/c/LoadFunctionsTab.h
scilab/modules/core/src/c/Scierror.c
scilab/modules/core/src/c/addinter.c
scilab/modules/core/src/c/banier.c
scilab/modules/core/src/c/banier.h
scilab/modules/core/src/c/callinterf.c
scilab/modules/core/src/c/callinterf.h
scilab/modules/core/src/c/csignal.c
scilab/modules/core/src/c/csignal.h [new file with mode: 0644]
scilab/modules/core/src/c/flags.c
scilab/modules/core/src/c/flags.h [new file with mode: 0644]
scilab/modules/core/src/c/getmemory.c
scilab/modules/core/src/c/getmemory.h
scilab/modules/core/src/c/hashtable_core.c
scilab/modules/core/src/c/hashtable_core.h
scilab/modules/core/src/c/inisci-c.h
scilab/modules/core/src/c/link_SYSV.c
scilab/modules/core/src/c/mexlib.c
scilab/modules/core/src/c/msgout.c
scilab/modules/core/src/c/msgout.h [new file with mode: 0644]
scilab/modules/core/src/c/msgstore.h
scilab/modules/core/src/c/parse.c
scilab/modules/core/src/c/realmain.c
scilab/modules/core/src/c/returnanan.c
scilab/modules/core/src/c/returnanan.h [new file with mode: 0644]
scilab/modules/core/src/c/run.c
scilab/modules/core/src/c/scicurdir.c
scilab/modules/core/src/c/scicurdir.h [new file with mode: 0644]
scilab/modules/core/src/c/sciprint.c
scilab/modules/core/src/c/scirun.c
scilab/modules/core/src/c/scirun.h [new file with mode: 0644]
scilab/modules/core/src/c/str2sci.c
scilab/modules/core/src/c/str2sci.h [new file with mode: 0644]
scilab/modules/core/src/c/timer.c
scilab/modules/core/src/c/timer.h [new file with mode: 0644]
scilab/modules/core/src/c/userf2.c
scilab/modules/core/src/c/userf2.h [new file with mode: 0644]
scilab/modules/core/src/c/warningmode.c

index 04cf09b..89d6abc 100644 (file)
 #endif
 
 #include <string.h>
-
 #include "machine.h"
 #include "stack-c.h"
 #include "sciprint.h"
 
+int C2F(gw_core)(void);
+
 typedef int (*Core_Interf) __PARAMS((char *fname,unsigned long l));
 
 typedef struct table_struct 
index 770546e..c555b97 100644 (file)
@@ -11,6 +11,7 @@
 #include <math.h>
 #include "machine.h"
 #include "stack-c.h" /* stack-def.h, stack1.h, stack2.h, stack3.h included */
+#include "Funtab.h"
 
 /**********************/
 /* External functions */
@@ -30,11 +31,6 @@ extern int C2F(cvnamel)(int *id,char *str,int *jobptr,int *str_len);
 /* *jobptr==0: Get Scilab codes from C-string */
 /* *jobptr==1: Get C-string from Scilab codes */
 
-/* Defined in SCI/modules/core/src/c/Funtab.c */
-extern int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction,unsigned long namefunction_len); 
-/* *job==1: Find id-name associated to function pointer */
-/* *job==2: Find function pointer associated to id-name */
-
 /* Defined in SCI/routines/system/mklist.f */
 extern int C2F(mklist)(int *nbitems); 
 extern int C2F(mktlist)(int *nbitems); 
index 6bcd6b9..bc1e802 100644 (file)
@@ -53,6 +53,9 @@ int C2F(getmat)  __PARAMS((char *fname, integer *topk, integer *lw, integer *it,
 int C2F(getmati)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, int *inlist__, integer *nel, unsigned long fname_len));
 int C2F(listcremat)  __PARAMS((char *fname, integer *lw, integer *numi, integer *stlw, integer *it, integer *m, integer *n, integer *lrs, integer *lcs, unsigned long fname_len));
 int C2F(cremat)  __PARAMS((char *fname, integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc, unsigned long fname_len));
+int C2F(crematvar)  __PARAMS((integer *id, integer *lw, integer *it, integer *m, integer *n, double *rtab, double *itab));
+int C2F(crebmatvar) __PARAMS((integer *id, integer *lw, integer *m, integer *n, integer *val));
+int C2F(cresmatvar) __PARAMS((integer *id, integer *lw, char *str, integer *lstr, unsigned long str_len));
 int C2F(fakecremat)  __PARAMS((integer *lw, integer *it, integer *m, integer *n, integer *lr, integer *lc));
 int C2F(cremati)  __PARAMS((char *fname, integer *stlw, integer *it, integer *m, integer *n, integer *lr, integer *lc, int *flag__, unsigned long fname_len));
 int C2F(getlistbmat)  __PARAMS((char *fname, integer *topk, integer *spos, integer *lnum, integer *m, integer *n, integer *lr, unsigned long fname_len));
index 7d6256a..3ed7325 100644 (file)
@@ -12,4 +12,4 @@ BOOL getWarningMode(void);
 int C2F(iswarningon)(int *rep); /* fortran version of getWarningMode */
 
 #endif /*  __WARNINGMODE_H__ */
-/*-----------------------------------------------------------------------------------*/
\ No newline at end of file
+/*-----------------------------------------------------------------------------------*/
index 9cfe49f..34eeebf 100644 (file)
@@ -9,9 +9,9 @@
 #include "MALLOC.h"
 #include "hashtable_core.h"
 #include "Scierror.h"
+#include "Funtab.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cvnamel)(int *id,char *str,int *jobptr,int *str_len); 
-extern int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction,unsigned long namefunction_len);
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_clearfun) _PARAMS((char *fname,unsigned long fname_len))
 {
index 5fd122d..070035b 100644 (file)
@@ -6,9 +6,9 @@
 #include "machine.h"
 #include "stack-c.h"
 #include "Scierror.h"
+#include "Funtab.h"
 /*-----------------------------------------------------------------------------------*/
 extern int IsAScalar(int RhsNumber);
-extern int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction,unsigned long namefunction_len);
 /*-----------------------------------------------------------------------------------*/
 static BOOL Is_a_correct_function_name(char *functionname);
 /*-----------------------------------------------------------------------------------*/
index 32ef8ea..e72d7a7 100644 (file)
@@ -24,12 +24,14 @@ static BOOL SetVariablesStructs(struct VariableStruct **GVstruct,int *GlenStruct
 static void DispVariables(struct VariableStruct* Vstruct,char *Message,int lenStructArray,int memused,int memtotal,int varused,int vartotal);
 static void SortVarsStructByStrings(struct VariableStruct *Vstruct,int SizeStruct);
 static BOOL FreeVariableStructArray(struct VariableStruct* Vstruct,int lenStructArray);
+int getLocalSizefromId(int n);
+int getGlobalSizefromId(int n);
 /*-----------------------------------------------------------------------------------*/
 static int NoRhs(struct VariableStruct* GVstruct,int GlenStructArray,struct VariableStruct* LVstruct,int LlenStructArray,BOOL Sorted);
 static int OneLhs(struct VariableStruct* Vstruct,int lenStructArray,BOOL Sorted);
 static int TwoLhs(struct VariableStruct* Vstruct,int lenStructArray,BOOL Sorted);
 /*-----------------------------------------------------------------------------------*/
- int C2F(sci_who) _PARAMS((char *fname,unsigned long fname_len))
+int C2F(sci_who) _PARAMS((char *fname,unsigned long fname_len))
  {
         static int l1,n1,m1;
 
index dfa218b..ee7a100 100644 (file)
@@ -5,9 +5,13 @@
 #include "CallScilab.h"
 #include "MALLOC.h"
 #include "../../../graphics/includes/WindowList.h"
+#include "../../../graphics/includes/GetProperty.h"
 #include "setgetSCIpath.h"
 #include "fromc.h"
 #include "sciquit.h"
+#include "tmpdir.h"
+#include "fromc.h"
+#include "inisci-c.h"
 
 #if _MSC_VER
 #define putenv _putenv
@@ -22,13 +26,8 @@ static int StartScilabIsOK=FALSE;
 /*-----------------------------------------------------------------------------------*/
 extern int setenvc(char *string,char *value);
 extern int C2F(inisci)(int *,int *,int *);
-extern void C2F(settmpdir) (void);
 extern int C2F(scirun)(char * startup, int lstartup);
 extern int C2F(ismenu)();
-extern void SetFromCToON(void);
-extern void sciGetIdFigure (int *vect, int *id, int *flag);
-extern BOOL GetWITH_GUI(void);
-extern void SetWITH_GUI(BOOL ON);
 /*-----------------------------------------------------------------------------------*/
 #ifdef _MSC_VER
 extern char *GetScilabDirectory(BOOL UnixStyle);
index 19e8c01..f4e59f9 100644 (file)
@@ -7,31 +7,9 @@
 #include "hashtable_core.h"
 #include "stack-c.h"
 #include "machine.h"
+#include "Funtab.h"
 /*-----------------------------------------------------------------------------------*/
-/************************************************************
- *    Hash table for scilab functions 
- *    job is used to specify a job
- *   job : indicateur  de l'operation a effectuer
- *   0 impression de la table des primitives id et fptr ne sont pas
- *           references
- *   1 recherche du pointeur fptr associe au nom id, le sous programme
- *           retourne la valeur du pointeur dans fptr. S'il n'y a pas
- *           de fonction correspondant a id funtab retourne fptr=0
- *           si id est un nom incorrect funtab retourne fptr=-1
- *   2 recherche du nom id associe au pointeur fptr s'il n'y a pas
- *           de fonction associee a ce pointeur funtab retourne
- *           id(1)=0
- *   3 ajout du nom donne par id avec le pointeur donne par fptr
- *           en cas d'erreur (nom incorrecte ou capacite de la table
- *           depasse funtab appele error et retourne avec err>0
- *   4 suppression du nom donne par id, le sous programme retourne
- *           la valeur du pointeur associe dans fptr. S'il n'y a pas
- *           de fonction correspondant a id funtab retourne fptr=0
- *           si id est un nom incorrect funtab retourne fptr=-1
- *   id  :vecteur de taille nsiz contenant le code scilab du nom
- *   fptr:entier
- ************************************************************/
-int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction,unsigned long namefunction_len) 
+int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction, unsigned long namefunction_len) 
 {
   switch ( *job) 
     {
diff --git a/scilab/modules/core/src/c/Funtab.h b/scilab/modules/core/src/c/Funtab.h
new file mode 100644 (file)
index 0000000..76f9bf2
--- /dev/null
@@ -0,0 +1,28 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+/**
+ *    Hash table for scilab functions 
+ *    job is used to specify a job
+ *   @param job : indicateur  de l'operation a effectuer
+ *   0 impression de la table des primitives id et fptr ne sont pas
+ *           references
+ *   1 recherche du pointeur fptr associe au nom id, le sous programme
+ *           retourne la valeur du pointeur dans fptr. S'il n'y a pas
+ *           de fonction correspondant a id funtab retourne fptr=0
+ *           si id est un nom incorrect funtab retourne fptr=-1
+ *   2 recherche du nom id associe au pointeur fptr s'il n'y a pas
+ *           de fonction associee a ce pointeur funtab retourne
+ *           id(1)=0
+ *   3 ajout du nom donne par id avec le pointeur donne par fptr
+ *           en cas d'erreur (nom incorrecte ou capacite de la table
+ *           depasse funtab appele error et retourne avec err>0
+ *   4 suppression du nom donne par id, le sous programme retourne
+ *           la valeur du pointeur associe dans fptr. S'il n'y a pas
+ *           de fonction correspondant a id funtab retourne fptr=0
+ *           si id est un nom incorrect funtab retourne fptr=-1
+ *   @param id  :vecteur de taille nsiz contenant le code scilab du nom
+ *   @param fptr
+ */
+int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction,unsigned long namefunction_len);
index 16dcd95..24a6c54 100644 (file)
@@ -2,6 +2,7 @@
 /* INRIA 2007 */
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/ 
+#include <stdlib.h>
 #include "InitializeCore.h"
 #include "SciEnv.h"
 #include "getmodules.h"
index 71d00e7..f4f2dca 100644 (file)
@@ -6,6 +6,7 @@
 #include <string.h>
 #include "machine.h"
 #include "stack-c.h"
+#include "IsAScalar.h"
 /*-----------------------------------------------------------------------------------*/ 
 int IsAScalar(int RhsNumber)
 {
diff --git a/scilab/modules/core/src/c/IsAScalar.h b/scilab/modules/core/src/c/IsAScalar.h
new file mode 100644 (file)
index 0000000..fce2a83
--- /dev/null
@@ -0,0 +1,6 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/ 
+
+int IsAScalar(int RhsNumber);
index b9a4929..4ef732b 100644 (file)
@@ -10,6 +10,7 @@
 #include "hashtable_core.h"
 #include "getmodules.h"
 #include "setgetSCIpath.h"
+#include "LoadFunctionsTab.h"
 /*-----------------------------------------------------------------------------------*/  
 static int firstentry = 0;
 /*-----------------------------------------------------------------------------------*/  
@@ -21,7 +22,6 @@ static BOOL Load_primitives_from_file(char *filename);
 /*-----------------------------------------------------------------------------------*/  
 void LoadFunctionsTab(void)
 {
-       static int firstentry = 0;
        struct MODULESLIST *Modules=NULL;
        char *SciPath=NULL;
        
index fe1a237..25c94d0 100644 (file)
@@ -5,7 +5,11 @@
 #ifndef __LOADFUNCTIONSTAB_H__
 #define __LOADFUNCTIONSTAB_H__
 
+/**
+ * load all the functions from modules/xxxx/sci_gateway/xxxx where xxxx is 
+ * the name of the module
+ */
 void LoadFunctionsTab(void);
 
 #endif /* __LOADFUNCTIONSTAB_H__ */
-/*-----------------------------------------------------------------------------------*/
\ No newline at end of file
+/*-----------------------------------------------------------------------------------*/
index ca566d9..f8e322d 100644 (file)
@@ -11,6 +11,7 @@
 
 #include "MALLOC.h"
 #include "sciprint.h"
+#include "msgstore.h"
 /*-----------------------------------------------------------------------------------*/ 
 #if _MSC_VER
        #define vsnprintf _vsnprintf
@@ -24,9 +25,7 @@ extern int C2F(errmds)  __PARAMS((integer *num, integer *imess, integer *imode))
 extern int C2F(depfun)  __PARAMS((integer *lunit, int *trace, int *first));
 extern int C2F(depexec)  __PARAMS((integer *lunit, int *trace, int *first, int *pflag));
 extern int C2F(errloc)  __PARAMS((integer *n));
-extern void C2F(freemsgtable)();
-extern int C2F(msgstore)(char *str,int *n);
-extern int C2F(errstore)(int *n);
+
 static int Scierror_internal __PARAMS((integer *n,char *buffer));
 /*-----------------------------------------------------------------------------------*/ 
 /* Scilab Error at C level */
index 02544cc..d2b8dbc 100644 (file)
 #include "stack-def.h"
 #include "MALLOC.h" /* MALLOC */
 #include "sciprint.h"
+#include "Funtab.h"
 
 #ifdef _MSC_VER
 #include "ExceptionMessage.h"
 #endif
 
 extern int C2F(namstr) __PARAMS((integer *id, integer *str, integer *n, integer *job));
-extern int C2F(funtab) __PARAMS((int *id, int *fptr, int *job,char *namefunction,unsigned long namefunction_len));  
 extern int C2F(error)  __PARAMS((integer *n));  
 extern void GetenvB __PARAMS(( char *name,char *env, int len));
 
index edd39b7..3e70eff 100644 (file)
@@ -6,6 +6,7 @@
 #include "machine.h"
 #include "version.h"
 #include "sciprint.h"
+#include "banier.h"
 
 /*-----------------------------------------------------------------------------------*/
 extern int sci_show_banner ; 
index b10e15c..4e6baee 100644 (file)
@@ -2,6 +2,15 @@
 /* INRIA 2006 */
 /* Ledru Sylvestre */
 /*-----------------------------------------------------------------------------------*/
+#include "machine.h"
 
+/** 
+ * TODO : comment
+ */
 void banner(void);
+
+/** 
+ * TODO : comment
+ * @param flag
+ */
 int C2F(banier)(integer *flag);
index 51f14aa..2c9a7ac 100644 (file)
 #include "machine.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "csignal.h"
 
 #include "addinter.h" /* for DynInterfStart */
 #include "Os_specific.h" /* for DynInterfStart */
 
+
 static  jmp_buf jmp_env; 
 
 extern int  C2F(error) __PARAMS((int *));
 
-extern void  errjump(int n);
-extern void  sci_sig_tstp(int n);
-extern void  controlC_handler(int n);
+void errjump(int n);
+void C2F(no_gw_tclsci)(void);
+void C2F(NoPvm)(void);
+void C2F(Nogw_scicos)(void);
+void C2F(Nogw_cscicos)(void);
+void C2F(Nogw_slicot)(void);
+int ForceLink(void);
+
 static void  sci_sigint_addinter(int n);
 
 /***********************************************************
index dff0354..6741664 100644 (file)
@@ -1,6 +1,7 @@
 /* Copyright INRIA */
 #ifndef __CALLINTERF__
 #define __CALLINTERF__
+
 /********************************************************
  * Table of hard coded Scilab interface 
  *  to add a new interface add a declaration and a new entry 
@@ -9,7 +10,6 @@
  *                                 ( file /core/includes/addinter.h ) 
  ********************************************************/
 
-
 /* 01  C2F(gw_user)(); FREE */
 extern void    /* 02  */ C2F(gw_linear_algebra)();
 /* 03  C2F(gw_user)(); FREE */
@@ -84,7 +84,7 @@ extern void    /* 48  */ C2F(gw_time)();
 extern void    /* 49  */ C2F(gw_sound)();
 extern void    /* 50  */ C2F(gw_localization)();
 
-#if _MSC_VER
+#ifdef _MSC_VER
 extern void    /* 51  */ C2F(gw_fftw)();
 #endif
 
@@ -139,7 +139,7 @@ static OpTab Interfaces[] ={
        /* 48  */ {C2F(gw_time)},
        /* 49  */ {C2F(gw_sound)},
        /* 50  */ {C2F(gw_localization)}
-#if _MSC_VER
+#ifdef _MSC_VER
        ,
        /* 51  */ {C2F(gw_fftw)}
 #endif
index 3a653ec..9034f56 100644 (file)
@@ -1,10 +1,9 @@
 /* Copyright INRIA/ENPC */
 
-#include <signal.h>
-#include "machine.h"
 #include "banier.h"
+#include "csignal.h"
 
-extern int   C2F(sigbas)(); /*  __PARAMS((integer *));*/
+extern int C2F(sigbas)(); /*  __PARAMS((integer *));*/
 
 void controlC_handler (int sig)
 {
diff --git a/scilab/modules/core/src/c/csignal.h b/scilab/modules/core/src/c/csignal.h
new file mode 100644 (file)
index 0000000..4d1c47d
--- /dev/null
@@ -0,0 +1,19 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+#include <signal.h>
+#include "machine.h"
+
+/** 
+ * TODO : comment
+ * @param sig
+ */
+void controlC_handler (int sig);
+
+
+/** 
+ * TODO : comment
+ */
+int C2F(csignal)(void);
+
index 97e26f0..b3c59f5 100644 (file)
@@ -5,28 +5,26 @@
 #else
 #include <X11/Xlib.h>
 #endif
-
+#include "flags.h"
 
 static int echo_mode = True;
 static int reading = False;
-/* 
-   functions to handle echo of typed scilab commands 
-*/
+
 void set_echo_mode(int mode)
 {
     echo_mode = mode;
 }
+
 int get_echo_mode(void)
 {
     return(echo_mode);
 }
-/* 
-   functions to handle when scilab waits for commands 
-*/
+
 void set_is_reading(int mode)
 {
     reading = mode;
 }
+
 int get_is_reading(void)
 {
     return(reading);
diff --git a/scilab/modules/core/src/c/flags.h b/scilab/modules/core/src/c/flags.h
new file mode 100644 (file)
index 0000000..a0111d2
--- /dev/null
@@ -0,0 +1,30 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+
+/**
+ * set the echo mode of typed scilab commands 
+ * @param mode the mode wanted
+*/
+void set_echo_mode(int mode);
+
+/**
+ * return the echo mode of the typed scilab commands
+ * @return the mode
+ */ 
+int get_echo_mode(void);
+
+/**
+ * handle function when scilab waits for commands 
+ * set the mode 
+ * @param mode the mode wanted
+*/
+void set_is_reading(int mode);
+
+/**
+ * handle function when scilab waits for commands 
+ * get the mode 
+ * @return the reading mode
+*/
+int get_is_reading(void);
index dec2c71..e1e8ce3 100644 (file)
@@ -3,9 +3,9 @@
 /* INRIA 2005 */
 /* Allan CORNET */
 /* References
-http://nixdoc.net/man-pages/Tru64/man2/getsysinfo.2.html
-http://www.opensource.apple.com/darwinsource/projects/other/gccfast-1621.1/libiberty/physmem.c
-http://lists.gnu.org/archive/html/bug-gnulib/2003-08/msg00102.html
+@sa http://nixdoc.net/man-pages/Tru64/man2/getsysinfo.2.html
+@sa http://www.opensource.apple.com/darwinsource/projects/other/gccfast-1621.1/libiberty/physmem.c
+@sa http://lists.gnu.org/archive/html/bug-gnulib/2003-08/msg00102.html
 */
 #include "getmemory.h"
 
index 564bf8e..46c073e 100644 (file)
    #include <stdio.h>
    #include <string.h>
 #endif /*GETMEMORY*/
+
+/**
+ * Return the size of free memory in megabytes
+ * @return the size of free memory 
+ */
+int getfreememory(void);
+
+
+/**
+ * Return the size of memory in megabytes
+ * @return the size of memory 
+ */
+int getmemorysize(void);
+
+
 /*-----------------------------------------------------------------------------------*/ 
index 6b4ff26..95545b1 100644 (file)
@@ -13,6 +13,11 @@ static unsigned   hsize;
 static unsigned   filled;
 /*-----------------------------------------------------------------------------------*/
 static int Equal_id(int *x, int *y);
+
+/**
+ * Check if a number is prime (or not)
+ * @param number the number
+ */
 static int isprime(unsigned int number);
 /*-----------------------------------------------------------------------------------*/
 int create_hashtable_scilab_functions(unsigned int nel)
@@ -168,11 +173,11 @@ static int Equal_id(int *x, int *y)
 /*-----------------------------------------------------------------------------------*/  
 static int isprime(unsigned int number)
 {
-       unsigned div = 3;
+       unsigned div_ = 3;
 
-       while (div*div < number && number%div != 0) div += 2;
+       while (div_*div_ < number && number%div_ != 0) div_ += 2;
 
-       return number%div != 0;
+       return number%div_ != 0;
 }
 /*-----------------------------------------------------------------------------------*/  
 char **GetFunctionsList(int *sizeList)
index ffff72e..a44da14 100644 (file)
@@ -35,9 +35,38 @@ typedef enum
 /* for good efficiency of the hash code */
 #define MAXTAB 1536
 /*-----------------------------------------------------------------------------------*/
+/** 
+ * Create the hashtable of Scilab functions
+ * @param nel TODO
+ */
 int    create_hashtable_scilab_functions(unsigned int nel);
-void destroy_hashtable_scilab_functions();
+
+/** 
+ * Destroy the hashtable of Scilab functions
+ */
+void destroy_hashtable_scilab_functions(void);
+
+/** 
+ * Perform an action on the hashtable of Scilab functions
+ * @param key 
+ * @param name
+ * @param data
+ * @param action┬áSCI_HFUNCTIONS_ACTION 
+ * @return result of the operation
+ */
 int action_hashtable_scilab_functions(int *key,char *name, int *data, SCI_HFUNCTIONS_ACTION action);
+
+/** 
+ * Return the list of the functions 
+ * @param[out] sizeList the size of the function list
+ * @return all the functions
+ */
 char **GetFunctionsList(int *sizeList);
+
+/** 
+ * Check if a function exists in the list
+ * @param[in] name the name of the function
+ * @return if there is this function or not
+ */
 BOOL ExistFunction(char *name);
 /*-----------------------------------------------------------------------------------*/
index f904196..b5eabae 100644 (file)
@@ -13,12 +13,22 @@ int C2F(withmsdos)(int *rep);
 int C2F(getcomp)(char *buf,int *nbuf,long int lbuf);
 
 int ExistJavaSciUnix(void);
-BOOL ExistScicos(void);
-BOOL ExistJavaSciWin(void);
 void SetWITH_GUI(int ON);
-BOOL  GetWITH_GUI(void);
+BOOL GetWITH_GUI(void);
 BOOL ExistModelicac(void);
+BOOL ExistScicos(void);
+BOOL ExistJavaSciWin(void);
 int SetSci(void);
-int C2F(getsci)(char *buf,int *nbuf,long int lbuf);
+
 int C2F(gettmpdir)(char *buf,int *nbuf,long int lbuf);
 int C2F(withgui)(int *rep);
+/**
+ * Get the SCI path and initialize the scilab environment path
+ *
+ */
+int C2F(getsci)(char *buf,int *nbuf,long int lbuf);
+/**
+* Get the SCIHOME path and initialize the scilab environment path
+*
+*/
+int C2F(getscihome)(char *buf,int *nbuf,long int lbuf);
index fc97739..24d8066 100644 (file)
@@ -67,7 +67,7 @@
 
 #include <string.h>
 #include "sciprint.h"
-
+#include "../../gui/src/c/xsci/x_charproc.h"
 #include "tmpdir.h"
 #include "setgetSCIpath.h"
 
index 945e19c..5d73557 100644 (file)
@@ -1265,7 +1265,7 @@ mxArray *mxGetField(const mxArray *ptr, int index, const char *string)
   return (mxArray *) C2F(intersci).iwhere[lw-1];
 }
 
-mxArray *mxGetFieldByNumber(const mxArray *ptr, int index, int field_number)
+mxArray *mxGetFieldByNumber(const mxArray *ptr, int lindex, int field_number)
 {
   int kk,lw,isize,fieldnum;int proddims,k;int is1x1;
   int maxfieldnum, maxindex;
@@ -1277,7 +1277,7 @@ mxArray *mxGetFieldByNumber(const mxArray *ptr, int index, int field_number)
   maxfieldnum = mxGetNumberOfFields(ptr)-1;
   maxindex = mxGetNumberOfElements(ptr)-1;
   if (maxfieldnum < fieldnum) return (mxArray *) NULL;
-  if (maxindex < index) return (mxArray *) NULL; 
+  if (maxindex < lindex) return (mxArray *) NULL; 
 
   proddims=1;
   for (k=0; k<headerdims[1]*headerdims[2]; k++) {
@@ -1291,8 +1291,8 @@ mxArray *mxGetFieldByNumber(const mxArray *ptr, int index, int field_number)
   }
   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];
   }
   if (isize==2) return (mxArray *) NULL; /* empty field */
   Nbvars++; lw=Nbvars;
@@ -1713,7 +1713,7 @@ mxArray *UnrefStruct(mxArray *ptr)
 {
   /*   Unreference objects in a struct or cell */
   int number, k;
-  int list, index, offset; int sizeobj;
+  int list, lindex, offset; int sizeobj;
   int nb, nbobj, suite, newbot;
 
   int oldsize, newsize;
@@ -1741,14 +1741,14 @@ mxArray *UnrefStruct(mxArray *ptr)
     for (list=0; list<nb; list++) {
       headerlist= listentry(header, list+3);  /* pointing to the field list */
       nbobj=headerlist[1];   /* number of objects in the field */
-      for (index=0; index < nbobj; index++)
+      for (lindex=0; lindex < nbobj; lindex++)
        {
-         headerobj = listentry( headerlist,index+1);  
+         headerobj = listentry( headerlist,lindex+1);  
          /* pointing to the object in the field */
          if (headerobj[0] < 0)
            sizeobj=headerobj[3];
          else
-           sizeobj=headerlist[index+3]-headerlist[index+2];
+           sizeobj=headerlist[lindex+3]-headerlist[lindex+2];
          newsize += sizeobj;   /* update size of the field */
        }
       suite++;
@@ -1768,23 +1768,23 @@ mxArray *UnrefStruct(mxArray *ptr)
       headerlistnew[0]= 15;
       headerlistnew[1]= nbobj;
       headerlistnew[2]= 1;
-      for (index=0; index < nbobj; index++)
-       {       headerobj = listentry( headerlist,index+1);
+      for (lindex=0; lindex < nbobj; lindex++)
+       {       headerobj = listentry( headerlist,lindex+1);
        if (headerobj[0] < 0)
          sizeobj=headerobj[3];  /* reference (size of ) */
        else
-         sizeobj=headerlist[index+3]-headerlist[index+2];
-       headerlistnew[3+index]=headerlistnew[2+index]+sizeobj;
+         sizeobj=headerlist[lindex+3]-headerlist[lindex+2];
+       headerlistnew[3+lindex]=headerlistnew[2+lindex]+sizeobj;
        }
     }
     for (list=0; list<nb; list++) {
       headerlist= listentry(header, list+3);
       headerlistnew=listentry(headernew, list+3);
       nbobj=headerlist[1]; 
-      for (index=0; index < nbobj; index++)
+      for (lindex=0; lindex < nbobj; lindex++)
        {       
-         headerobj = listentry( headerlist,index+1);
-         headerobjnew = listentry( headerlistnew,index+1);     
+         headerobj = listentry( headerlist,lindex+1);
+         headerobjnew = listentry( headerlistnew,lindex+1);    
          if (headerobj[0] < 0)   /* reference */
            {
              sizeobj=headerobj[3];
@@ -1792,7 +1792,7 @@ mxArray *UnrefStruct(mxArray *ptr)
            }
          else
            {
-             sizeobj=headerlist[index+3]-headerlist[index+2];
+             sizeobj=headerlist[lindex+3]-headerlist[lindex+2];
            }
          for (k=0; k<2*sizeobj; k++)
            headerobjnew[k]=headerobj[k];  /* OUF! */
@@ -2469,9 +2469,9 @@ const char *mxGetClassName(const mxArray *ptr)
   return "unknown";
 }
 
-void mxSetCell(mxArray *array_ptr, int index, mxArray *value)
+void mxSetCell(mxArray *array_ptr, int lindex, mxArray *value)
 {
-  mxSetFieldByNumber(array_ptr, index, 0 , value);
+  mxSetFieldByNumber(array_ptr, lindex, 0 , value);
   return;
 }
 
index 12111f3..44b0b91 100644 (file)
@@ -3,17 +3,17 @@
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/ 
 #include "machine.h"
-/*-----------------------------------------------------------------------------------*/ 
-extern integer C2F(msgstore)();
-extern int C2F(basout)();
+#include "msgout.h"
+#include "msgstore.h"
+#include "basout.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(msgout)(integer *io,integer *lunit,char *str,long int str_len)
 {
        static integer ierr;
        integer i__1=str_len;
 
-    C2F(basout)(io, lunit, str, str_len);;
-    ierr = C2F(msgstore)(str, &i__1, str_len);
+    C2F(basout)(io, lunit, str, str_len);
+    ierr = C2F(msgstore)(str, &i__1);
 
     return 0;
 }
diff --git a/scilab/modules/core/src/c/msgout.h b/scilab/modules/core/src/c/msgout.h
new file mode 100644 (file)
index 0000000..cb0fc58
--- /dev/null
@@ -0,0 +1,12 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+/**
+ * TODO : comment
+ * @param io
+ * @param lunit
+ * @param str
+ * @param str_len
+ */
+int C2F(msgout)(integer *io,integer *lunit,char *str,long int str_len);
index 3dea9c5..4ab5abc 100644 (file)
@@ -4,16 +4,49 @@
 /*-----------------------------------------------------------------------------------*/ 
 
 
-
+/**
+ * TODO : comment
+ * @param n
+ */
 int C2F(errstore)(int *n);
+
+
+/**
+ * TODO : comment
+ * @param n
+ */
 int C2F(linestore)(int *n);
 
+/**
+ * TODO : comment
+ * @param str
+ * @param n
+ */
 int C2F(funnamestore)(char *str,int *n);
+
+/**
+ * TODO : comment
+ * @param str
+ * @param n
+ */
 int C2F(msgstore)(char *str,int *n);
 
+/**
+ * TODO : comment
+ */
 void C2F(freemsgtable)(void);
 
+
+/**
+ * TODO : comment
+ * @param fname
+ * @param fname_len
+ */
 int C2F(lasterror)(char *fname, unsigned long fname_len);
 
+
+/**
+ * TODO : comment
+ */
 int GetLastErrorCode(void);
 
index 3b2e13c..7683c29 100644 (file)
@@ -7,6 +7,8 @@
 #include <stdio.h>
 #include "stack-c.h"
 #include "parse.h"
+#include "timer.h"
+
 #undef Lstk
 #undef Infstk
 
@@ -91,7 +93,6 @@ extern int C2F(name2var)();
 extern void C2F(parsecomment)();
 extern int C2F(msgs)();
 extern int C2F(error)();
-extern int scilab_timer_check();
 extern logical C2F(compil)();
 extern logical C2F(eptover)();
 extern logical C2F(Ptover)();
index 2cc01b6..7cc8384 100644 (file)
@@ -49,6 +49,7 @@ void realmain(int nowin,int no_startup_flag_l,char *initial_script,int initial_s
   /* create temp directory */
   C2F(settmpdir)();
   /* signals */
+  #ifdef ENABLESIG
   signal(SIGINT,sci_clear_and_exit);
   #ifdef SIGBUS
   signal(SIGBUS,sci_clear_and_exit);
@@ -71,6 +72,7 @@ void realmain(int nowin,int no_startup_flag_l,char *initial_script,int initial_s
   signal(SIGBREAK,sci_clear_and_exit);
   signal(SIGABRT,sci_clear_and_exit);
   #endif
+  #endif
 
   /*  prepare startup script  */
 
index 6753d3b..b4226eb 100644 (file)
@@ -1,7 +1,8 @@
 /*-----------------------------------------------------------------------------------*/
 #include "machine.h"
+#include "returnanan.h"
 /*-----------------------------------------------------------------------------------*/
-double C2F(returnanan)()
+double C2F(returnanan)(void)
 {
        static int first = 1;
        static double nan = 1.0;
diff --git a/scilab/modules/core/src/c/returnanan.h b/scilab/modules/core/src/c/returnanan.h
new file mode 100644 (file)
index 0000000..badd185
--- /dev/null
@@ -0,0 +1,9 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+/**
+ * Returns a "not a number"
+ * @return the "nan"
+ */
+double C2F(returnanan)(void);
index 524034b..acf8040 100644 (file)
@@ -16,6 +16,7 @@
 #include "sciquit.h"
 #include "stack-c.h"
 #include "run.h"
+#include "timer.h"
 
 #undef Lstk
 #undef Infstk
@@ -80,7 +81,6 @@ extern logical Eptover(int n);
 extern logical Ptover(int n);
 extern void Msgs(int n,int ierr);
 extern void SciError(int n);
-extern int scilab_timer_check(void);
 extern logical C2F(istrue)();
 
 logical Istrue(int n)
index 9502d19..46b2446 100644 (file)
 #endif 
 
 #include "sciprint.h"
-
+#include "scicurdir.h"
 #define FSIZE 1024
 static char     cur_dir[FSIZE];
 
-
-/*******************************
- * Changes scilab current directory 
- *******************************/
-
 int C2F(scichdir)(char *path,int *err)
 {
   *err=0;
@@ -41,25 +36,21 @@ int C2F(scichdir)(char *path,int *err)
   return 0;
 }
 
-/*******************************
- * Get scilab current directory 
- *******************************/
-
 int C2F(scigetcwd)(char **path,int *lpath,int *err)
 {
     if (GETCWD(cur_dir, 1024) == (char*) 0)
-      {        /* get current working dir */
-       sciprint("Can't get current directory\r\n");
-       *cur_dir = '\0';
-       *lpath=0;
-       *err=1;
-      }
+               {       /* get current working dir */
+                       sciprint("Can't get current directory\r\n");
+                       *cur_dir = '\0';
+                       *lpath=0;
+                       *err=1;
+               }
     else 
-      {
-               *path= cur_dir;
-               *lpath=strlen(cur_dir);
-               *err=0;
-      }
+               {
+                       *path= cur_dir;
+                       *lpath=strlen(cur_dir);
+                       *err=0;
+               }
     return 0;
 }
 
diff --git a/scilab/modules/core/src/c/scicurdir.h b/scilab/modules/core/src/c/scicurdir.h
new file mode 100644 (file)
index 0000000..ef70035
--- /dev/null
@@ -0,0 +1,20 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+
+/*******************************
+ * Changes scilab current directory 
+ * @param path : the path where Scilab should go
+ * @param[out] err : the error code
+ *******************************/
+int C2F(scichdir)(char *path,int *err);
+
+/*******************************
+ * Get scilab current directory 
+ * @param[out] path : the current path
+ * @param[out] lpath : the length of the char * path
+ * @param[out] err : the error code
+ *******************************/
+int C2F(scigetcwd)(char **path,int *lpath,int *err);
+
index 8088def..325e227 100644 (file)
   TW textwin;
 #endif
 /*-----------------------------------------------------------------------------------*/ 
-#if _MSC_VER
+#ifdef _MSC_VER
   extern int PutString(char *Str);
 #else
-  extern int C2F(xscisrn)();
+#include "../../gui/src/c/xsci/x_charproc.h"
 #endif
 extern int getdiary __PARAMS(());
 extern int C2F(xscion)();
@@ -149,7 +149,6 @@ extern void diary_nnl __PARAMS((char *str,int *n));
          integer lstr;
          va_list ap;
          char s_buf[MAXPRINTF];
-         int count=0;
 #if defined(__STDC__)
          va_start(ap,fmt);
 #else
index 47ae5bb..03d472c 100644 (file)
@@ -3,6 +3,7 @@
 /* Scilab */
 /*-----------------------------------------------------------------------------------*/ 
 #include "stack-c.h"
+#include "scirun.h"
 /*-----------------------------------------------------------------------------------*/ 
 extern int C2F(allowptr)(int *);
 extern int C2F(callinterf)(int *, int *);
@@ -14,16 +15,8 @@ extern int C2F(ref2val)(void);
 extern int C2F(isbyref)(int *);
 /*-----------------------------------------------------------------------------------*/ 
 static void str_copy_buf(register char *a, register char *b, long int la, long int lb);
-/*-----------------------------------------------------------------------------------*/ 
+
 int C2F(scirun)(char *bu1, long int bu1_len)
-/**
-Purpose
-       run scilab parser with initial instruction 
-Syntax
-       call scirun(bu1)
-parameters
-       bu1 : character string which contain the initial instruction 
-**/
 {
     static int iflagint = 0;
        static int k = 0;
diff --git a/scilab/modules/core/src/c/scirun.h b/scilab/modules/core/src/c/scirun.h
new file mode 100644 (file)
index 0000000..a93d0b8
--- /dev/null
@@ -0,0 +1,11 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+/**
+ * run scilab parser with initial instruction 
+ * @param bu1 : character string which contain the initial instruction 
+ * @param bu1_len : length of bu1 
+**/
+
+int C2F(scirun)(char *bu1, long int bu1_len);
index 81f36ed..6f658ec 100644 (file)
@@ -1,12 +1,10 @@
 #include <string.h>
 #include "stack-c.h"
 #include "machine.h"
+#include "str2sci.h"
 
 void str2sci(char** x,int n,int m)
 {
-  /* C string  var2vec  to scilab
-     x is supposed to be a fortran image of var2vec result
-     Copyright INRIA */
       
   int l=0,il=0,zero=0,err,n1,i,m1=0;
       
@@ -31,10 +29,11 @@ void str2sci(char** x,int n,int m)
   *istk(il+3) = 0;
   *istk(il+4) = 1;
   for (i = 1; i <= n*m; i++){
-    n1=strlen(x[i-1]);
-    *istk(il+4+i) =  *istk(il+4+i-1)+n1;
-  if (n1 > 0) C2F(cvstr)(&n1,istk(il+m*n+5 -1 + *istk(il+3+i)),x[i-1],&zero,(unsigned long) n1);
-  m1=m1+n1;
+         n1=strlen(x[i-1]);
+         *istk(il+4+i) =  *istk(il+4+i-1)+n1;
+         if (n1 > 0) 
+                 C2F(cvstr)(&n1,istk(il+m*n+5 -1 + *istk(il+3+i)),x[i-1],&zero,(unsigned long) n1);
+         m1=m1+n1;
   }
   *Lstk(Top+1) = l + m1;      
                 
diff --git a/scilab/modules/core/src/c/str2sci.h b/scilab/modules/core/src/c/str2sci.h
new file mode 100644 (file)
index 0000000..29f6abe
--- /dev/null
@@ -0,0 +1,10 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+
+/** C string  var2vec  to scilab
+ *  @param x is supposed to be a fortran image of var2vec result
+ */
+void str2sci(char** x,int n,int m);
+
index 0b6e116..3150395 100644 (file)
@@ -9,6 +9,7 @@
        #include <sys/time.h>
 #endif
 #include "machine.h"
+#include "timer.h"
 /*-----------------------------------------------------------------------------------*/
 #define DT_TIMER 10000
 /*-----------------------------------------------------------------------------------*/
        #define X_GETTIMEOFDAY(t) gettimeofday(t, (struct timezone*)0)
 #endif
 /*-----------------------------------------------------------------------------------*/
-/* returns 1 if interval from last call is greater than 
- * a time interval of dt microsec (dt=10000)
- */
-/*-----------------------------------------------------------------------------------*/
-#if _MSC_VER
+#ifdef _MSC_VER
 static ULARGE_INTEGER ctime_old;
 static BOOL Initialize_ctime_old=TRUE;
 int scilab_timer_check(void)
 {
        int rep=0;
-       ULARGE_INTEGER ctime;
+       ULARGE_INTEGER lctime;
        FILETIME ftFileTime;
 
        if (Initialize_ctime_old)
@@ -37,11 +34,11 @@ int scilab_timer_check(void)
        }
 
        GetSystemTimeAsFileTime(&ftFileTime); /* Resolution 100 nsec */
-       ctime.LowPart = ftFileTime.dwLowDateTime; 
-       ctime.HighPart = ftFileTime.dwHighDateTime;
+       lctime.LowPart = ftFileTime.dwLowDateTime; 
+       lctime.HighPart = ftFileTime.dwHighDateTime;
 
-       rep = ( (ctime.QuadPart  - ctime_old.QuadPart)  > DT_TIMER ) ? 1 : 0 ;
-       if (rep) ctime_old=ctime;
+       rep = ( (lctime.QuadPart  - ctime_old.QuadPart)  > DT_TIMER ) ? 1 : 0 ;
+       if (rep) ctime_old=lctime;
        return rep;
 }
 #else 
@@ -49,10 +46,10 @@ int scilab_timer_check(void)
 {
   int rep;
   static struct timeval ctime_old;
-  struct timeval ctime;
-  X_GETTIMEOFDAY(&ctime);
-  rep = (ctime.tv_sec > ctime_old.tv_sec) ? 1  : ( ctime.tv_usec - ctime_old.tv_usec > DT_TIMER ) ? 1 : 0 ;
-  if (rep) ctime_old=ctime;
+  struct timeval lctime;
+  X_GETTIMEOFDAY(&lctime);
+  rep = (lctime.tv_sec > ctime_old.tv_sec) ? 1  : ( lctime.tv_usec - ctime_old.tv_usec > DT_TIMER ) ? 1 : 0 ;
+  if (rep) ctime_old=lctime;
   return rep;
 }
 #endif /* _MSC_VER */
diff --git a/scilab/modules/core/src/c/timer.h b/scilab/modules/core/src/c/timer.h
new file mode 100644 (file)
index 0000000..84cca00
--- /dev/null
@@ -0,0 +1,11 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+
+/**
+ * a time interval of dt microsec (dt=10000)
+ * @return 1 if interval from last call is greater than 
+
+ */
+int scilab_timer_check(void);
index f70c7f3..305d761 100644 (file)
@@ -3,6 +3,7 @@
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/ 
 #include "machine.h"
+#include "userf2.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(userf2)()
 {
diff --git a/scilab/modules/core/src/c/userf2.h b/scilab/modules/core/src/c/userf2.h
new file mode 100644 (file)
index 0000000..54fc0d9
--- /dev/null
@@ -0,0 +1,6 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+
+int C2F(userf2)(void);
index c81e629..058263f 100644 (file)
@@ -23,4 +23,4 @@ int C2F(iswarningon)(int *rep)
        else *rep=0;
        return 0;
 }
-/*-----------------------------------------------------------------------------------*/
\ No newline at end of file
+/*-----------------------------------------------------------------------------------*/