Warning fixed
Sylvestre Ledru [Tue, 28 Nov 2006 15:21:07 +0000 (15:21 +0000)]
24 files changed:
scilab/modules/core/includes/machine.h.in
scilab/modules/core/src/c/CallScilab.c
scilab/modules/core/src/c/FTables.c
scilab/modules/core/src/c/addinter.h
scilab/modules/core/src/c/basout.c
scilab/modules/core/src/c/basout.h [new file with mode: 0644]
scilab/modules/core/src/c/cs2st.c
scilab/modules/core/src/c/cs2st.h [new file with mode: 0644]
scilab/modules/core/src/c/cvstr.c
scilab/modules/core/src/c/dynamic_menus.c
scilab/modules/core/src/c/dynamic_menus.h
scilab/modules/core/src/c/inffic.c
scilab/modules/core/src/c/inffic.h [new file with mode: 0644]
scilab/modules/core/src/c/md5.c
scilab/modules/core/src/c/prompt.h [new file with mode: 0644]
scilab/modules/core/src/c/realmain.c
scilab/modules/core/src/c/run.c
scilab/modules/core/src/c/run.h [new file with mode: 0644]
scilab/modules/core/src/c/sciquit.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/texmacs.c
scilab/modules/core/src/c/texmacs.h [new file with mode: 0644]
scilab/modules/core/src/c/tmpdir.c
scilab/modules/core/src/c/tmpdir.h [new file with mode: 0644]

index 73e043b..9f7c234 100644 (file)
@@ -80,6 +80,9 @@
 /* Define to 1 if you have the <libintl.h> header file. */
 #undef HAVE_LIBINTL_H
 
+/* Define to 1 if you have the `xml2' library (-lxml2). */
+#undef HAVE_LIBXML2
+
 /* Define to 1 if you have the <limits.h> header file. */
 #undef HAVE_LIMITS_H
 
@@ -337,18 +340,18 @@ typedef int integer;
 
 /* define boolean type */
 #ifdef BOOL
-#undef BOOL
+       #undef BOOL
 #endif
 
 typedef int BOOL ;
 
 #ifdef TRUE
-#undef TRUE
+       #undef TRUE
 #endif
 #define TRUE 1
 
 #ifdef FALSE
-#undef FALSE
+       #undef FALSE
 #endif
 #define FALSE 0
 
index bd09cfe..3afc313 100644 (file)
@@ -6,6 +6,8 @@
 #include "MALLOC.h"
 #include "../../../graphics/includes/WindowList.h"
 #include "setgetSCIpath.h"
+#include "fromc.h"
+#include "sciquit.h"
 
 #if _MSC_VER
 #define putenv _putenv
@@ -26,8 +28,6 @@ extern int C2F(ismenu)();
 extern void SetFromCToON(void);
 extern int version_flag(void); 
 extern void sciGetIdFigure (int *vect, int *id, int *flag);
-extern int IsFromC(void);
-extern int ExitScilab(void);
 extern BOOL GetWITH_GUI(void);
 extern void SetWITH_GUI(BOOL ON);
 
@@ -70,7 +70,6 @@ int StartScilab(char *SCIpath,char *ScilabStartup,int *Stacksize)
 {
        int bOK=FALSE;
 
-       char *SCIpathUsed=NULL;
        char *ScilabStartupUsed=NULL;
        char *InitStringToScilab=NULL;
        int StacksizeUsed=0;
index 845feba..63a90ed 100644 (file)
@@ -1,4 +1,3 @@
-
 /**************************************
  * Copyright Jean-Philippe Chancelier 
  * ENPC 
@@ -9,14 +8,13 @@
 #include "FTables.h"
 #define FTable_H   /* to prevent  a type conflict with GetFuncPtr */ 
 #include "stack-c.h"
-
+#include "sciprint.h"
 
 #include "link.h"
 
 extern int C2F(getcodc) __PARAMS((integer *nd1, integer *iflag1));
 static int SearchComp  __PARAMS((FTAB *Ftab, char *op, void (**realop) ( )));  
 static void Emptyfunc  __PARAMS((void)) {} ;
-extern void sciprint __PARAMS((char *fmt,...));
 
 voidf SetFunction  __PARAMS((char *name, int *rep, FTAB *table));  
 
index 067a32b..f17f389 100644 (file)
@@ -4,4 +4,10 @@
 /* Copyright ENPC */
 #define DynInterfStart 500
 
+int  SciLibLoad(int num_names, char **names, char **files, int *nums, int *err);
+void BuildName(char *name, char *str);
+
+void CallDynInterf(int *pos, int num_names, int namepos, char **names,
+                                  int *nums, char **files);
+
 #endif /*  __ADDINTER_H__ */
index a13c433..0269257 100644 (file)
@@ -5,6 +5,7 @@
 #include <string.h>
 #include "machine.h"
 #include "stack-def.h"
+#include "basout.h"
 /*-----------------------------------------------------------------------------------*/ 
 extern int C2F(xscimore)();
 extern int C2F(writewtemore)();
diff --git a/scilab/modules/core/src/c/basout.h b/scilab/modules/core/src/c/basout.h
new file mode 100644 (file)
index 0000000..b689c93
--- /dev/null
@@ -0,0 +1,6 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/
+
+int C2F(basout)(integer *io,integer *lunit,char *string,long int notused);
index 87be2ee..6c089fc 100644 (file)
@@ -4,9 +4,9 @@
  --------------------------------------------------------------------------*/
 
 #include "machine.h" 
+#include "cs2st.h"
 
-int C2F(cs2st)(i,ires)
-     integer *i,*ires;
+int C2F(cs2st)(integer *i,integer *ires)
 {
   unsigned int ui;
   ui = (unsigned int) *i;
diff --git a/scilab/modules/core/src/c/cs2st.h b/scilab/modules/core/src/c/cs2st.h
new file mode 100644 (file)
index 0000000..50762f8
--- /dev/null
@@ -0,0 +1,7 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/
+
+
+int C2F(cs2st)(integer *i,integer *ires);
index c6e031c..64bd506 100644 (file)
@@ -117,7 +117,6 @@ int C2F(asciitocode)(integer * n,integer * line,char * str,integer * flagx,
 integer C2F(getcode)(unsigned char * mc,unsigned long mc_len)
 {
   static integer eol = 99;
-  static integer blank = 40;
   integer k;
   for (k = 0 ; k < csiz; ++k) {
     if ( *mc == C2F(cha1).alfa[k]) 
index 5f263ed..5ba274b 100644 (file)
@@ -41,7 +41,6 @@ extern Scig_command_handler set_scig_command_handler __PARAMS((Scig_command_hand
 extern int StoreCommand  __PARAMS((char *command));  
 extern int StoreCommand1  __PARAMS((char *command, int flag));  
 extern int GetCommand  __PARAMS((char *str));  
-extern integer C2F (ismenu) __PARAMS((void));  
 extern int C2F (getmen) __PARAMS((char *btn_cmd, integer *lb, integer *entry));  
 extern void  reset_scig_command_handler __PARAMS((void));
 extern void write_scilab  __PARAMS((char *s));
@@ -190,7 +189,7 @@ int GetCommand ( char *str)
  * commandQueue 
  */
 /*-----------------------------------------------------------------------------------*/
-integer C2F(ismenu)()
+integer C2F(ismenu)(void)
 {
   /* Do not manage comands while compiling scilab function */
   if ( (commandQueue == NULL) || (C2F(com).comp[0] != 0)) 
@@ -226,7 +225,7 @@ void C2F(waitforinputend)( int *flag)
   wait_for_input_end=*flag;
 }
 /*-----------------------------------------------------------------------------------*/
-int iswaitingforinputend()
+int iswaitingforinputend(void)
 {
   int iwait;
   iwait=wait_for_input_end;
index af0e9dc..11338dd 100644 (file)
@@ -1,6 +1,6 @@
-int iswaitingforinputend();
+int iswaitingforinputend(void);
 
-integer C2F(ismenu)();
+integer C2F(ismenu)(void);
 
 void SetCommandflag(int flag);
 
index 48372af..1d965ce 100644 (file)
@@ -2,7 +2,7 @@
 #include <string.h>
 #include "machine.h"
 #include "core_math.h"
-
+#include "inffic.h"
 
 #define MAXDATA 5 
 
diff --git a/scilab/modules/core/src/c/inffic.h b/scilab/modules/core/src/c/inffic.h
new file mode 100644 (file)
index 0000000..028a599
--- /dev/null
@@ -0,0 +1,10 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/ 
+
+void C2F(inffic)(integer *iopt, char *name, integer *nc);
+
+void C2F(infficl)(integer *iopt, integer *nc);
+
+char *get_sci_data_strings(int n);
index ac26e58..6a7e8f3 100644 (file)
 #define T63    0x2ad7d2bb
 #define T64 /* 0xeb86d391 */ (T_MASK ^ 0x14792c6e)
 /*-----------------------------------------------------------------------------------*/ 
+char *md5_str(char *p);
+char *md5_file(FILE *fp);
+/*-----------------------------------------------------------------------------------*/ 
 static void md5_process(md5_state_t *pms, const md5_byte_t *data /*[64]*/)
 {
     md5_word_t
diff --git a/scilab/modules/core/src/c/prompt.h b/scilab/modules/core/src/c/prompt.h
new file mode 100644 (file)
index 0000000..fe3fd17
--- /dev/null
@@ -0,0 +1,8 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/ 
+
+
+void C2F(setprlev)( int *pause);
+void GetCurrentPrompt(char *CurrentPrompt);
index 9fc547e..887fc08 100644 (file)
@@ -32,13 +32,17 @@ static void strip_blank(char *source);
 /*-----------------------------------------------------------------------------------*/
 static int  no_startup_flag=0;
 /*-----------------------------------------------------------------------------------*/
-#define BSIZE 128 
+#define BSIZE 128
+#ifndef PATH_MAX
+#define PATH_MAX 1024
+#endif
 /*-----------------------------------------------------------------------------------*/
 void realmain(int nowin,int no_startup_flag_l,char *initial_script,int initial_script_type,int memory)
 {
   static int ini=-1;
   int ierr=0;
-  char startup[256];
+  char *startup=(char*)MALLOC(sizeof(char)*PATH_MAX+1);
+         //[256];
 
   Set_no_startup_flag(no_startup_flag_l);
 
@@ -154,7 +158,7 @@ void realmain(int nowin,int no_startup_flag_l,char *initial_script,int initial_s
                C2F(scirun)(startup,strlen(startup));
        #endif
   #endif
-
+  FREE(startup);
   /* cleaning */
   C2F(sciquit)();
 }
index e944ca5..5a2fe56 100644 (file)
 #endif
 
 #include <time.h>
+#include "sciquit.h"
 #include "stack-c.h"
+#include "run.h"
+
 #undef Lstk
 #undef Infstk
 
-typedef int logical;
-
 IMPORT struct {
   logical iflag, interruptible;
 } C2F(basbrk);
@@ -73,8 +74,6 @@ extern int C2F(ref2val)();
 extern int C2F(objvide)();
 
 extern int C2F(gettype)();
-extern int C2F(sciquit)();
-extern int C2F(adjustrhs)();
 extern int C2F(clunit)();
 
 extern logical Eptover(int n);
diff --git a/scilab/modules/core/src/c/run.h b/scilab/modules/core/src/c/run.h
new file mode 100644 (file)
index 0000000..ae42c23
--- /dev/null
@@ -0,0 +1,9 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/ 
+
+typedef int logical;
+logical Istrue(int n);
+int C2F(run)(void);
+int C2F(adjustrhs)(void);
index 8eb87ec..4573ada 100644 (file)
@@ -88,10 +88,10 @@ int ExitScilab(void)
                if (i != 0)     CloseConsoleGUI();
        #endif
 
-       #ifdef _MSC_VER /* Bug sous Linux lors de la liberation memoire */
+               //      #ifdef _MSC_VER /* Bug sous Linux lors de la liberation memoire */
                C2F(freegmem)();
                C2F(freemem)();
-       #endif
+               //      #endif
 
        #ifdef WITH_TK
                CloseTCLsci();
index 47883c1..fccdb0d 100644 (file)
@@ -3092,9 +3092,9 @@ static int check_list_prop(char *mes, int lpos,int posi, int m)
   return TRUE_;
 }
 
-int check_list_square __PARAMS((int lpos,int pos,int m,int n))
+int check_list_square __PARAMS((int lpos,int posi,int m,int n))
 {
-  return check_list_prop("square",lpos,pos, (m != n));
+  return check_list_prop("square",lpos,posi, (m != n));
 }
 
 int check_list_vector (int lpos,int posi,int m,int n) 
index 0ba10e0..d5a569f 100644 (file)
@@ -1,6 +1,7 @@
 #include <stdio.h> 
 #include "machine.h" /* for C2F */
 #include "stack-def.h" /* for paus */
+#include "texmacs.h"
 
 #if 0 /* to debug TeXmacs interface */
 #define DATA_BEGIN  ((char) 'B')
@@ -39,12 +40,7 @@ void next_input () {
 }
 
 extern void
-C2F(texmacsin)(buffer, buf_size, len_line, eof, dummy1)
-     char buffer[];
-     int *buf_size;
-     int *len_line;
-     int *eof;
-     long int dummy1; 
+C2F(texmacsin)(char buffer[],int *buf_size, int *len_line,int *eof,long int dummy1)
 {
 
   int nr,info;
diff --git a/scilab/modules/core/src/c/texmacs.h b/scilab/modules/core/src/c/texmacs.h
new file mode 100644 (file)
index 0000000..d26fd1b
--- /dev/null
@@ -0,0 +1,9 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/
+
+void settexmacs(void);
+int  C2F(intexmacs)(void);
+void next_input (void);
+void C2F(texmacsin)(char buffer[],int *buf_size, int *len_line,int *eof,long int dummy1);
index a2cca3d..015288b 100644 (file)
@@ -26,9 +26,8 @@ extern  char  *getenv();
 #if defined(_MSC_VER)
 #include <process.h>
 #endif
-
-extern void C2F(setprlev) __PARAMS((int*));
-
+#include "prompt.h"
+#include "tmpdir.h"
 
 static char tmp_dir[256],buf[256];
 
@@ -181,14 +180,14 @@ int DeleteDirectory(char *refcstrRootDirectory)
 
 void C2F(tmpdirc)(void)
 {
-  char *tmp_dir = get_sci_tmp_dir(); 
+  char *tmp_dir2 = get_sci_tmp_dir(); 
 #ifdef _MSC_VER 
-  DeleteDirectory(tmp_dir);
+  DeleteDirectory(tmp_dir2);
 #else 
 #if (defined(hppa))
   hppa_sci_unlink_shared();
 #endif
-  sprintf(buf,"rm -f -r %s >/dev/null  2>/dev/null",tmp_dir);
+  sprintf(buf,"rm -f -r %s >/dev/null  2>/dev/null",tmp_dir2);
   system(buf);
   sprintf(buf,"rm -f -r /tmp/%d.metanet.* > /dev/null  2>/dev/null",
          (int) getpid());
diff --git a/scilab/modules/core/src/c/tmpdir.h b/scilab/modules/core/src/c/tmpdir.h
new file mode 100644 (file)
index 0000000..6d569a8
--- /dev/null
@@ -0,0 +1,10 @@
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Ledru Sylvestre */
+/*-----------------------------------------------------------------------------------*/ 
+
+void C2F(settmpdir)(void);
+
+char *get_sci_tmp_dir(void);
+
+void C2F(tmpdirc)(void);