Many files cleaned
Sylvestre Ledru [Sun, 2 Dec 2007 23:10:30 +0000 (23:10 +0000)]
35 files changed:
scilab/modules/core/Makefile.am
scilab/modules/core/Makefile.in
scilab/modules/core/includes/Os_specific.h
scilab/modules/core/includes/stack-c.h
scilab/modules/core/includes/stack2.h
scilab/modules/core/locales/fr_FR/core.po
scilab/modules/core/sci_gateway/c/sci_getos.c
scilab/modules/core/sci_gateway/c/sci_getversion.c
scilab/modules/core/src/c/CallScilab.c
scilab/modules/core/src/c/IsAScalar.c
scilab/modules/core/src/c/LoadFunctionsTab.c
scilab/modules/core/src/c/SCIHOME.c
scilab/modules/core/src/c/SendScilabJobs.c
scilab/modules/core/src/c/callinterf.c
scilab/modules/core/src/c/callinterf.h [deleted file]
scilab/modules/core/src/c/expr.c
scilab/modules/core/src/c/inisci-c.c
scilab/modules/core/src/c/intmacr2tree.c
scilab/modules/core/src/c/link.c
scilab/modules/core/src/c/link_SYSV.c
scilab/modules/core/src/c/loadversion.c
scilab/modules/core/src/c/parse.c
scilab/modules/core/src/c/run.c
scilab/modules/core/src/c/scilabmode.c
scilab/modules/core/src/c/scirun.c
scilab/modules/core/src/c/setgetSCIpath.c
scilab/modules/core/src/c/stack1.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/stack3.c
scilab/modules/core/src/c/stackinfo.c
scilab/modules/core/src/c/str2sci.c
scilab/modules/core/src/c/syncexec.c
scilab/modules/core/src/c/texmacs.c
scilab/modules/core/src/c/tmpdir.c
scilab/modules/core/src/c/with_module.c

index 3aeadcd..82f0bbe 100644 (file)
@@ -355,7 +355,7 @@ libscicore_la_xml_DATA = xml/modules.dtd xml/version.dtd
 
 #### core : include files ####
 libscicore_la_includedir=$(pkgincludedir)/core
-libscicore_la_include_HEADERS = includes/GetExceptionCode.h \
+libscicore_la_include_HEADERS = \
 includes/CallScilab.h \
 includes/IsAScalar.h \
 includes/intmacr2tree.h \
index 25c74f7..9a37db6 100644 (file)
@@ -746,7 +746,7 @@ libscicore_la_xml_DATA = xml/modules.dtd xml/version.dtd
 
 #### core : include files ####
 libscicore_la_includedir = $(pkgincludedir)/core
-libscicore_la_include_HEADERS = includes/GetExceptionCode.h \
+libscicore_la_include_HEADERS = \
 includes/CallScilab.h \
 includes/IsAScalar.h \
 includes/intmacr2tree.h \
index ff84670..edf7e50 100644 (file)
@@ -24,8 +24,6 @@ extern int C2F(basou1) __PARAMS((integer *lunit, char *string, ftnlen string_len
 extern void C2F(cgpath) __PARAMS((char *nomfic, integer *ln));  
 /*  "clunit-n.c.X1" */
 extern int C2F(clunit) __PARAMS((integer *lunit, char *name, integer *mode, ftnlen name_len));  
-/*  "csignal-n.c.X1" */
-extern void controlC_handler  __PARAMS((int sig));  
 /*  "dbasin-n.c.X1" */
 extern int C2F(dbasin) __PARAMS((integer *ierr, integer *lunit, char *fmt, double *v, integer *iv, integer *n, ftnlen fmt_len));  
 extern int C2F(s2val) __PARAMS((char *str, double *v, integer *iv, integer *n, integer *maxv, integer *ierr, ftnlen str_len));  
index 760cb31..c080651 100644 (file)
@@ -209,6 +209,7 @@ typedef struct { double r, i; } doublecomplex;
 #define CreateCVar(n,ct,it,mx,nx,lrx,lcx) if(! C2F(createcvar)((c_local=n,&c_local),ct,it,mx,nx,lrx,lcx, 1L))\
         { return 0;  }
 
+/* the real function error is defined in output_stream */
 #define Error(x) C2F(error)((c_local=x,&c_local))
 
 #define Errorinfo(routinename,info) C2F(errorinfo)(routinename,(c_local=info, &c_local), strlen(routinename));
@@ -373,8 +374,6 @@ int get_optionals __PARAMS((char *name,rhs_opts opts[]));
  * prototypes
  *-----------------------------*/
 
-extern int C2F(error) __PARAMS((int *));
-
 extern int C2F(firstopt) __PARAMS((void));
 extern int C2F(findopt) __PARAMS((char *, rhs_opts *));
 
index 9063c1f..9b839b0 100644 (file)
@@ -1,6 +1,5 @@
 #ifndef STACK2_H
 #define  STACK2_H
-
 /* from sci_tools */
 
 void SciToF77 __PARAMS((double *ptr, int size, int lda));
@@ -21,7 +20,6 @@ extern int C2F(putid) __PARAMS((integer *,integer *));
 extern int C2F(allowptr) __PARAMS((integer *));
 extern int C2F(ref2val) __PARAMS((void));
 extern int C2F(allops) __PARAMS((void));
-extern int C2F(callinterf) __PARAMS((integer *));
 extern int C2F(putfunnam) __PARAMS((char *fname,integer *lw, unsigned long));
 
 
index daec9ba..40dc3c5 100644 (file)
@@ -935,12 +935,12 @@ msgstr "Variable TMPDIR non d
 # File: src/c/link_W95.c, line: 44
 # File: src/c/link_SYSV.c, line: 125
 msgid "shared archive loaded\n"
-msgstr ""
+msgstr "Bibliothèque partagée chargée\n"
 
 #
 # File: src/c/link_W95.c, line: 96
 msgid "link: first argument must be a unique dll name\n"
-msgstr ""
+msgstr "link: le premier argument doit être le nom unique d'une DLL\n"
 
 #
 # File: src/c/link_W95.c, line: 101
@@ -967,7 +967,7 @@ msgstr ""
 # File: src/c/link_SYSV.c, line: 505
 #, c-format
 msgid "Shared lib %d does not exists\n"
-msgstr ""
+msgstr "La bibliothèque partagée %d n'existe pas\n"
 
 #
 # File: src/c/link_W95.c, line: 159
@@ -981,7 +981,7 @@ msgstr ""
 # File: src/c/link_SYSV.c, line: 529
 #, c-format
 msgid "%s is not an entry point\n"
-msgstr ""
+msgstr "%s n'est pas un point d'entré\n"
 
 #
 # File: src/c/link_W95.c, line: 172
@@ -1005,12 +1005,12 @@ msgstr ""
 # File: src/c/link_linux.c, line: 140
 #, c-format
 msgid "There are a total of %d undefined symbols:\n"
-msgstr ""
+msgstr "Il y a en tout %d symboles indéfinis :\n "
 
 #
 # File: src/c/link_linux.c, line: 147
 msgid "No undefined symbols\n"
-msgstr ""
+msgstr "Pas de symboles indéfinis\n"
 
 #
 # File: src/c/link_linux.c, line: 170
@@ -1023,7 +1023,7 @@ msgstr ""
 # File: src/c/link_linux.c, line: 305
 #, c-format
 msgid "unloading : \"%s\"\n"
-msgstr ""
+msgstr "Déchargement : \"%s\"\n"
 
 #
 # File: src/c/link_linux.c, line: 203
index 9861fea..2b82b72 100644 (file)
@@ -27,7 +27,7 @@ int C2F(sci_getos) _PARAMS((char *fname,unsigned long fname_len))
 int C2F(intgetos) _PARAMS((char *fname))
 {
        static int n1,m1;
-       char OperatinSystem[256];
+       char OperatingSystem[256];
        char Release[256];
        char *output=NULL;
 
@@ -42,69 +42,69 @@ int C2F(intgetos) _PARAMS((char *fname))
 #ifdef _MSC_VER
 
 
-       sprintf(OperatinSystem,"%s","Windows");
+       strcpy(OperatingSystem,"Windows");
 
        switch (GetWindowsVersion())
        {
        case OS_ERROR : default :
-               sprintf(Release,"%s","Unknow");
+               strcpy(Release,"Unknow");
                break;
        case OS_WIN32_WINDOWS_NT_3_51 :
-               sprintf(Release,"%s","NT 3.51");
+               strcpy(Release,"NT 3.51");
                break;
        case OS_WIN32_WINDOWS_NT_4_0 :
-               sprintf(Release,"%s","NT 4.0");
+               strcpy(Release,"NT 4.0");
                break;
        case OS_WIN32_WINDOWS_95 :
-               sprintf(Release,"%s","95");
+               strcpy(Release,"95");
                break;
        case OS_WIN32_WINDOWS_98 :
-               sprintf(Release,"%s","98");
+               strcpy(Release,"98");
                break;
        case OS_WIN32_WINDOWS_Me :
-               sprintf(Release,"%s","ME");
+               strcpy(Release,"ME");
                break;
        case OS_WIN32_WINDOWS_2000 :
-               sprintf(Release,"%s","2000");
+               strcpy(Release,"2000");
                break;
        case OS_WIN32_WINDOWS_XP :
-               sprintf(Release,"%s","XP");
+               strcpy(Release,"XP");
                break;
        case OS_WIN32_WINDOWS_XP_64 :
-               sprintf(Release,"%s","XP x64");
+               strcpy(Release,"XP x64");
                break;
        case OS_WIN32_WINDOWS_SERVER_2003 :
-               sprintf(Release,"%s","Server 2003");
+               strcpy(Release,"Server 2003");
                break;
        case OS_WIN32_WINDOWS_SERVER_2003_R2 :
-               sprintf(Release,"%s","Server 2003 R2");
+               strcpy(Release,"Server 2003 R2");
                break;
        case OS_WIN32_WINDOWS_SERVER_2003_64 :
-               sprintf(Release,"%s","Server 2003 x64");
+               strcpy(Release,"Server 2003 x64");
                break;
        case OS_WIN32_WINDOWS_VISTA :
-               sprintf(Release,"%s","Vista");
+               strcpy(Release,"Vista");
                break;
        case OS_WIN32_WINDOWS_VISTA_64 :
-               sprintf(Release,"%s","Vista x64");
+               strcpy(Release,"Vista x64");
                break;
        case OS_WIN32_WINDOWS_LONGHORN :
-               sprintf(Release,"%s","Longhorn");
+               strcpy(Release,"Longhorn");
                break;
        case OS_WIN32_WINDOWS_LONGHORN_64 :
-               sprintf(Release,"%s","Longhorn x64");
+               strcpy(Release,"Longhorn x64");
                break;
 
        }
 #else
        uname(&uname_pointer);
-       sprintf(OperatinSystem,"%s",uname_pointer.sysname);
-       sprintf(Release,"%s",uname_pointer.release);
+       strcpy(OperatingSystem,uname_pointer.sysname);
+       strcpy(Release,uname_pointer.release);
 #endif
 
 
-       output=(char*)MALLOC((strlen(OperatinSystem)+1)*sizeof(char));
-       sprintf(output,"%s",OperatinSystem);
+       output=(char*)MALLOC((strlen(OperatingSystem)+1)*sizeof(char));
+       strcpy(output,OperatingSystem);
        n1=1;
        CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=(int)strlen(output), &m1),&n1,&output);
        if (output) {FREE(output);output=NULL;}
@@ -114,7 +114,7 @@ int C2F(intgetos) _PARAMS((char *fname))
        {
                char *output2=NULL;
                output2=(char*)MALLOC((strlen(Release)+1)*sizeof(char));
-               sprintf(output2,"%s",Release);
+               strcpy(output2,Release);
                n1=1;
                CreateVarFromPtr(Rhs+ 2,STRING_DATATYPE,(m1=(int)strlen(output2), &m1),&n1,&output2);
                if (output2) {FREE(output2);output2=NULL;}
index 66592da..bb32f2a 100644 (file)
@@ -267,7 +267,7 @@ static int getversion_two_rhs(void)
                        {
                                char *output=NULL ;
                                output=(char*)MALLOC((strlen(SCI_VERSION_STRING)+1)*sizeof(char));
-                               sprintf(output,"%s",SCI_VERSION_STRING);
+                               strcpy(output,SCI_VERSION_STRING);
 
                                n1=1;
                                CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=(int)strlen(output), &m1),&n1,&output);
@@ -291,7 +291,7 @@ static int getversion_two_rhs(void)
                                {
                                        char *output=NULL ;
                                        output=(char*)MALLOC((LineMax+1)*sizeof(char));
-                                       sprintf(output,"%s",versionstring);
+                                       strcpy(output,versionstring);
 
                                        n1=1;
                                        CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=(int)strlen(output), &m1),&n1,&output);
index e601de5..6a7a3c9 100644 (file)
@@ -94,12 +94,12 @@ int StartScilab(char *SCIpath,char *ScilabStartup,int *Stacksize)
        if (ScilabStartup==NULL)
        {
                ScilabStartupUsed=(char*)MALLOC((strlen(DEFAULTSCILABSTARTUP)+1)*sizeof(char));
-               sprintf(ScilabStartupUsed,"%s",DEFAULTSCILABSTARTUP);
+               strcpy(ScilabStartupUsed,DEFAULTSCILABSTARTUP);
        }
        else
        {
                ScilabStartupUsed=(char*)MALLOC((strlen(DEFAULTSCILABSTARTUP)+1)*sizeof(char));
-               sprintf(ScilabStartupUsed,"%s",ScilabStartup);
+               strcpy(ScilabStartupUsed,ScilabStartup);
        }
        
        if (Stacksize==NULL)
index a006d21..294e4c8 100644 (file)
@@ -10,7 +10,6 @@
 /*--------------------------------------------------------------------------*/ 
 int IsAScalar(int RhsNumber)
 {
-       int bOK=0;
 
        if ( GetType(RhsNumber) == sci_matrix )
        {
@@ -18,9 +17,9 @@ int IsAScalar(int RhsNumber)
                GetRhsVar(RhsNumber,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
                if ( (m1 == 1) && (n1 == 1) )
                {
-                       bOK=1;
+                       return 1;
                }
        }
-       return bOK;
+       return 0;
 }
 /*--------------------------------------------------------------------------*/
index ea9747b..1265875 100644 (file)
@@ -96,7 +96,7 @@ static BOOL Load_primitives_from_file(char *filename)
                        {
                                printf(_("Error: could not parse file %s\n"), filename);
                                if (encoding) {FREE(encoding);encoding=NULL;}
-                               return bOK;
+                               return FALSE;
                        }
 
                        xpathCtxt = xmlXPathNewContext(doc);
@@ -151,7 +151,7 @@ static BOOL Load_primitives_from_file(char *filename)
                        else
                        {
                                printf(_("Error : Not a valid gateway file %s (should start with <GATEWAY> and contains <PRIMITIVE gatewayId='' primitiveId='' primitiveName=''>)\n"), filename);
-                               return bOK;
+                               return FALSE;
                        }
                        if(xpathObj) xmlXPathFreeObject(xpathObj);
                        if(xpathCtxt) xmlXPathFreeContext(xpathCtxt);
index 1e3ff13..27f3822 100644 (file)
@@ -24,7 +24,6 @@ static char SCIHOMEPATH[PATH_MAX*2]="empty_SCIHOME";
 /*--------------------------------------------------------------------------*/
 BOOL setSCIHOME(void)
 {
-       BOOL bOK=FALSE;
        int ierr=0;
        int buflen=PATH_MAX;
        int iflag=0;
@@ -54,7 +53,7 @@ BOOL setSCIHOME(void)
                #endif
 
 
-               if (ierr) {return bOK; }
+               if (ierr) {return FALSE; }
                else
                {
                        sprintf(USERPATHSCILAB,"%s%s%s",USERHOMESYSTEM,DIR_SEPARATOR,BASEDIR);
@@ -73,13 +72,11 @@ BOOL setSCIHOME(void)
                if(!isdir(USERPATHSCILAB)) createdirectory(USERPATHSCILAB);
                if (createdirectory(SCIHOMEPATH))
                {
-                       bOK=TRUE;
-                       return bOK;
+                       return TRUE;
                }
        }
-       else bOK=TRUE;
-       
-       return bOK;
+       else return TRUE;
+       return FALSE;
 }
 /*--------------------------------------------------------------------------*/
 char *getSCIHOME(void)
index ae35019..4229f18 100644 (file)
@@ -35,11 +35,11 @@ int SendScilabJob(char *job)
                strcpy(command,job);
                SetLastJob(command);
 
-               /* Creation Variable temporaire dans Scilab */
+               /* Creation of a temp variable in Scilab */
                if (!C2F(cwritechain)("TMP_EXEC_STRING",&lencommand,(char*)command,(int)strlen("TMP_EXEC_STRING"),(int)strlen(command)) )
                {
-                       /* Probleme */
-                       fprintf(stderr,"Error : SendScilabJob (1) 'TMP_EXEC_STRING'.\n");
+                       /* Problem */
+                       fprintf(stderr,"Error: SendScilabJob (1) 'TMP_EXEC_STRING'.\n");
                        retCode = -1;
 
                        if (command) {FREE(command);command=NULL;}
@@ -55,7 +55,7 @@ int SendScilabJob(char *job)
 
                        if ( ! C2F(cmatptr)("Err", &m, &n, &lp,(unsigned long)strlen("Err")))
                        {
-                               fprintf(stderr,_("Error : SendScilabJob (2) 'Err'.\n"));
+                               fprintf(stderr,"Error : SendScilabJob (2) 'Err'.\n");
                                retCode = -2;
                        }
                        else
@@ -68,7 +68,7 @@ int SendScilabJob(char *job)
                                }
                                else 
                                {
-                                       fprintf(stderr,_("Error : SendScilabJob (3) 'Err'.\n"));        
+                                       fprintf(stderr,"Error : SendScilabJob (3) 'Err'.\n");   
                                        retCode = -3;
                                }
                        }
@@ -80,7 +80,7 @@ int SendScilabJob(char *job)
        }
        else
        {
-               fprintf(stderr,_("Error : SendScilabJob (4) 'command' MALLOC.\n"));
+               fprintf(stderr,"Error : SendScilabJob (4) 'command' MALLOC.\n");
                retCode = -4;
        }
 
@@ -89,7 +89,6 @@ int SendScilabJob(char *job)
 /*--------------------------------------------------------------------------*/
 static BOOL SetLastJob(char *JOB)
 {
-       BOOL bOK=FALSE;
        
        if (lastjob) { FREE(lastjob);lastjob=NULL;}
 
@@ -99,15 +98,14 @@ static BOOL SetLastJob(char *JOB)
                if (lastjob)
                {
                        strcpy(lastjob,JOB);
-                       bOK =TRUE;
+                       return TRUE;
                }
        }
-       return bOK;
+       return FALSE;
 }
 /*--------------------------------------------------------------------------*/
 BOOL GetLastJob(char *JOB,int nbcharsJOB)
 {
-       BOOL bOK=FALSE;
        if (JOB)
        {
                if ((int)strlen(lastjob)<nbcharsJOB)
@@ -115,14 +113,14 @@ BOOL GetLastJob(char *JOB,int nbcharsJOB)
                        strcpy(JOB,lastjob);
                }
                else strncpy(JOB,lastjob,nbcharsJOB);
-               bOK=TRUE;
+               return TRUE;
        }
-       return bOK;
+       return FALSE;
 }
 /*--------------------------------------------------------------------------*/
 int SendScilabJobs(char **jobs,int numberjobs)
 {
-       #define BufferSecuritySize 64
+       #define BUFFERSECURITYSIZE 64
 
        int retcode=-10;
 
@@ -144,7 +142,7 @@ int SendScilabJobs(char **jobs,int numberjobs)
                                if (jobs[i])
                                {
                                        nbcharsjobs = nbcharsjobs+(int)strlen(jobs[i]);
-                                       LOCALJOBS[i]=(char*)MALLOC( sizeof(char)*(strlen(jobs[i])+BufferSecuritySize) );
+                                       LOCALJOBS[i]=(char*)MALLOC( sizeof(char)*(strlen(jobs[i])+BUFFERSECURITYSIZE) );
                                        if (LOCALJOBS[i])
                                        {
                                                strcpy(LOCALJOBS[i],jobs[i]);
@@ -152,18 +150,18 @@ int SendScilabJobs(char **jobs,int numberjobs)
                                        else
                                        {
                                                CleanBuffers(bufCommands,LOCALJOBS,numberjobs);
-                                               fprintf(stderr,_("Error : SendScilabJobs (1) 'LOCALJOBS[%d] MALLOC'.\n"),i);    
+                                               fprintf(stderr,"Error : SendScilabJobs (1) 'LOCALJOBS[%d] MALLOC'.\n",i);       
                                                return retcode;
                                        }
                                }
                                else
                                {
-                                       fprintf(stderr,_("Error : SendScilabJobs (2) 'jobs[%d] == NULL'.\n"),i);        
+                                       fprintf(stderr,"Error : SendScilabJobs (2) 'jobs[%d] == NULL'.\n",i);   
                                        return retcode;
                                }
                        }
 
-                       bufCommands = (char*)MALLOC( sizeof(char)*(nbcharsjobs+numberjobs+BufferSecuritySize) );
+                       bufCommands = (char*)MALLOC( sizeof(char)*(nbcharsjobs+numberjobs+BUFFERSECURITYSIZE) );
 
                        if (bufCommands)
                        {
@@ -218,20 +216,20 @@ int SendScilabJobs(char **jobs,int numberjobs)
                        else
                        {
                                CleanBuffers(bufCommands,LOCALJOBS,numberjobs);
-                               fprintf(stderr,_("Error : SendScilabJobs (3) 'bufCommands MALLOC'.\n"));        
+                               fprintf(stderr,"Error : SendScilabJobs (3) 'bufCommands MALLOC'.\n");   
                                return retcode;
                        }
                }
                else
                {
                        CleanBuffers(bufCommands,LOCALJOBS,numberjobs);
-                       fprintf(stderr,_("Error : SendScilabJobs (4) 'LOCALJOBS == NULL'.\n")); 
+                       fprintf(stderr,"Error : SendScilabJobs (4) 'LOCALJOBS == NULL'.\n");    
                        return retcode;
                }
        }
        else
        {
-               fprintf(stderr,_("Error : SendScilabJobs (5) 'jobs == NULL'.\n"));      
+               fprintf(stderr,"Error : SendScilabJobs (5) 'jobs == NULL'.\n");
                retcode = -10;
        }
        
@@ -260,7 +258,6 @@ static BOOL RemoveCharsFromEOL(char *line,char CharToRemove)
 static BOOL RemoveComments(char *line)
 {
        int l=0;
-       BOOL bOK=FALSE;
        int len=0;
        int idx=-1;
 
@@ -282,12 +279,11 @@ static BOOL RemoveComments(char *line)
 
        if (idx>=0) line[idx]='\0';
        
-       return bOK;
+       return FALSE;
 }
 /*--------------------------------------------------------------------------*/
 static BOOL CleanBuffers(char *bufCommands,char **LOCALJOBS,int numberjobs)
 {
-       BOOL bOK=FALSE;
 
        if (bufCommands) {FREE(bufCommands);bufCommands=NULL;}
 
@@ -301,9 +297,8 @@ static BOOL CleanBuffers(char *bufCommands,char **LOCALJOBS,int numberjobs)
                LOCALJOBS=NULL;
        }
 
-       bOK=TRUE;
        
-       return bOK;
+       return TRUE;
 
 }
 /*--------------------------------------------------------------------------*/
index 9c5d0fa..b612903 100644 (file)
@@ -18,8 +18,6 @@
 
 static  jmp_buf jmp_env;
 
-extern int C2F(error) __PARAMS((int *));
-
 static void sci_sigint_addinter(int n);
 
 /**
@@ -58,7 +56,7 @@ static OpTab Interfaces[] = {
        /* 28  */ {C2F(gw_slicot)},
        /* 29  */ {C2F(gw_differential_equations3)},
        /* 30  */ {C2F(gw_differential_equations4)},
-       /* 31  */ {C2F(gw_differential_equations5)},
+       /* 31  */ {C2F(gw_user2)},/* free position may be used */
        /* 32  */ {C2F(gw_differential_equations6)},
        /* 33  */ {C2F(gw_user2)}, /* free position may be used */
        /* 34  */ {C2F(gw_fileio)},
@@ -162,7 +160,7 @@ static void sci_sigint_addinter(int n)
 /*-------------------------------------
  * long jump to stop interface computation
  *-------------------------------------*/
-void errjump(int n)
+void  errjump(int n)
 {
   longjmp(jmp_env,-1);
 }
diff --git a/scilab/modules/core/src/c/callinterf.h b/scilab/modules/core/src/c/callinterf.h
deleted file mode 100644 (file)
index 579bc24..0000000
+++ /dev/null
@@ -1,106 +0,0 @@
-/* Copyright INRIA */
-#ifndef __CALLINTERF__
-#define __CALLINTERF__
-#include "machine.h"
-
-/********************************************************
- * Table of hard coded Scilab interface
- *  to add a new interface add a declaration and a new entry
- *  at the end of the Interfaces array
- *  The maximum number of interfaces is bound to DynInterfStart
- *  ( file /core/src/c/addinter.h )
- ********************************************************/
-
-/* 01  C2F(gw_user)(); FREE */ #include "gw_user.h"
-/* 02 */                                               #include "../../../linear_algebra/includes/gw_linear_algebra.h"
-/* 03  C2F(gw_user)(); FREE */
-/* 04  C2F(gw_user)(); FREE */
-/* 05 */                                               #include "../../../io/includes/gw_io.h"
-/* 06 */                                               #include "../../../elementary_functions/includes/gw_elementary_functions.h"
-/* 07 */                                               #include "../../../graphics/includes/gw_graphics.h"
-/* 08 */                                               #include "../../../cacsd/includes/gw_cacsd0.h"
-/* 09 */                                               #include "../../../cacsd/includes/gw_cacsd1.h"
-/* 10 */                                               #include "../../../cacsd/includes/gw_cacsd2.h"
-/* 11 */                                               #include "../../../optimization/includes/gw_optim.h"
-/* 12 */                                               #include "../../../differential_equations/includes/gw_differential_equations1.h"
-/* 13 */                                               #include "gw_core.h"
-/* 14  C2F(gw_user)(); FREE */
-/* 15 */                                               #include "../../../metanet/includes/gw_metanet.h"
-/* 16 */                                               #include "../../../polynomials/includes/gw_polynomials.h"
-/* 17 */                                               #include "../../../data_structures/includes/gw_data_structures1.h"
-/* 18 */                                               #include "../../../signal_processing/includes/gw_signal.h"
-/* 19 */                                               #include "../../../interpolation/includes/gw_interpolation.h"
-/* 20 */                                               #include "../../../cacsd/includes/gw_cacsd3.h"
-/* 21 */                                               #include "../../../string/includes/gw_string.h"
-/* 22 */                                               #include "../../../symbolic/includes/gw_symbolic.h"
-/* 23 */                                               #include "../../../boolean/includes/gw_boolean.h"
-/* 24  C2F(gw_user2)(); FREE */        #include "gw_user2.h"
-/* 25 */                                               #include "../../../gui/includes/gw_gui.h"
-/* 26 */                                               #include "../../../differential_equations/includes/gw_differential_equations2.h"
-/* 27 */                                               #include "../../../sparse/includes/gw_sparse.h"
-/* 28 */                                               #include "../../../cacsd/includes/gw_slicot.h"
-/* 29 */                                               #include "../../../differential_equations/includes/gw_differential_equations3.h"
-/* 30 */                                               #include "../../../differential_equations/includes/gw_differential_equations4.h"
-/* 31 */                                               #include "../../../differential_equations/includes/gw_differential_equations5.h"
-/* 32 */                                               #include "../../../differential_equations/includes/gw_differential_equations6.h"
-/* 33  C2F(gw_user)(); FREE */
-/* 34 */                                               #include "../../../fileio/includes/gw_fileio.h"
-/* 35 */                                               #include "../../../arnoldi/includes/gw_arnoldi.h"
-/* 36 */                                               #include "../../../special_functions/includes/gw_special_functions1.h"
-/* 37 */                                               #include "../../../statistics/includes/gw_statistics.h"
-/* 38 */                                               #include "../../../randlib/includes/gw_randlib.h"
-/* 39 */                                               #include "../../../special_functions/includes/gw_special_functions2.h"
-
-/* 40 */                                               #include "../../../tclsci/includes/gw_tclsci.h"
-
-/* 41 */                                               #include "../../../data_structures/includes/gw_data_structures2.h"
-
-/* 42 */                                               #include "../../../pvm/includes/gw_pvm.h"
-
-/* 43 */                                               #include "../../../integer/includes/gw_integer.h"
-/* 44 */                                               #include "../../../linear_algebra/includes/gw_linear_algebra2.h"
-
-/* 45 */                                               #include "../../../scicos/includes/gw_scicos.h"
-
-/* 46 */                                               #include "../../../scicos/includes/gw_cscicos.h"
-
-/* 47 */                                               #include "../../../windows_tools/includes/gw_windows_tools.h"
-
-/* 48 */                                               #include "../../../time/includes/gw_time.h"
-/* 49 */                                               #include "../../../sound/includes/gw_sound.h"
-/* 50 */                                               #include "../../../localization/includes/gw_localization.h"
-
-/* 51 */                                               #include "../../../fftw/includes/gw_fftw.h"
-/* 52 */                                               #include "../../../jvm/includes/gw_jvm.h"
-/* 53 */                                               #include "../../../shell/includes/gw_shell.h"
-
-/* 54 */                                               #include "../../../completion/includes/gw_completion.h"
-/* 55 */                                               #include "../../../history_manager/includes/gw_history_manager.h"
-
-/* 56 */                                               #include "../../../spreadsheet/includes/gw_spreadsheet.h"
-
-/* 55 *///                        #include "../../../mpi/includes/gw_mpi.h"
-
-
-/*-------------------------------------
- * long jump to stop interface computation
- * @param n
- *-------------------------------------*/
-
-void errjump (int n);
-
-
-/** table of interfaces **/
-
-typedef struct {
-       int  (*fonc)(void);
-} OpTab ;
-
-/**
- * call the apropriate interface according to the value of k
- * @param k the number of the interface
- * @return
- */
-int C2F(callinterf) (int *k);
-
-#endif /*__CALLINTERF__*/
index 0b3da82..506a2f5 100644 (file)
@@ -7,20 +7,19 @@
 #include "msgs.h"
 #include "stack-def.h"
 #include "stack-c.h"
+#include "error.h"
 /*--------------------------------------------------------------------------*/ 
 static int inc = 1;
 static int checkvalue = 4095;
 static int code = 30;
 static int val = 0;
 /*--------------------------------------------------------------------------*/ 
-extern int C2F(putid)(int *, int *);
-extern int C2F(error)(int *);
 extern int C2F(compil)(int *, int *, int *, int *, int *);
 extern int C2F(getsym)(void);
 extern int C2F(istrue)(int *);
 extern int C2F(eptover)(int *, int *);
 /*--------------------------------------------------------------------------*/ 
-#define  et      58
+#define  et      58 /* @TODO does 'et' is 'and' in english ? */
 #define  equal   50
 #define  less    59
 #define  great   60
@@ -30,7 +29,7 @@ extern int C2F(eptover)(int *, int *);
 #define  blank   40
 #define  plus    45
 #define  minus   46
-#define  ou      57
+#define  ou      57 /* @TODO does 'ou' is 'or' in english ? */
 /*--------------------------------------------------------------------------*/ 
 int C2F(expr)(void)
 {
index 3d545d2..bb376ce 100644 (file)
@@ -230,8 +230,8 @@ int ExistJavaSciUnix(void)
        char extension[5];
 
        uname(&uname_pointer);
-       sprintf(OperatinSystem,"%s",uname_pointer.sysname);
-       sprintf(Release,"%s",uname_pointer.release);
+       strcpy(OperatinSystem,uname_pointer.sysname);
+       strcpy(Release,uname_pointer.release);
 
        if ( strcmp(OperatinSystem,"HP-UX") == 0 )
        {
index ed977f1..6fae75f 100644 (file)
@@ -35,11 +35,6 @@ int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
   int *stkdata = NULL; /* Pointeur to rhs arguments */
   int *data = NULL; /* Macro integer vector (pointer to copy of rhs argument) */
  
-  int minRhs = 1; /* Minimum number of RHS arguments */
-  int maxRhs = 1; /* Maximum number of RHS arguments */
-  int minLhs = 1; /* Minimum number of LHS arguments */
-  int maxLhs = 1; /* Maximum number of LHS arguments */
-  
   int il = 0,ils = 0,ile = 0,ilt = 0,codelength = 0;
   
   int i = 0,cod_ind = 0; /* Loop index */
@@ -72,17 +67,17 @@ int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
   int newinstr = 0; /* flag used to know if a new instruction has been created (1->TRUE) */
 
   /* Verify number of RHS arguments */
-  CheckRhs(minRhs,maxRhs);
+  CheckRhs(1,1);
   
   /* Verify number of LHS arguments */
-  CheckLhs(minLhs,maxLhs);
+  CheckLhs(1,1);
 
   /* Read all data */
   stkdata = (int *) stk(*Lstk(Top));
 
   if (stkdata[0] > 0) /* Not a reference to variable */
     {
-               Scierror(999,_("acr2tree: input argument must be a named variable\n"));
+               Scierror(999,_("%s: input argument must be a named variable\n"),"acr2tree");
       return 0;
     }
   else
@@ -93,7 +88,7 @@ int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
   /* Verify good type for input: must be a compiled macro (type 13) */
   if(stkdata[0] != 13)
     {
-               Scierror(999,_("macr2tree: Wrong input type (must be a compiled macro)!\n"));
+               Scierror(999,_("%s: Wrong input type (must be a compiled macro)!\n"),"macr2tree");
       return 0;
     }
 
@@ -105,7 +100,7 @@ int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
     }
   if((name[0]=(char *)CALLOC(1,sizeof(char)*(nlgh+1)))==NULL)
     {
-               Scierror(999,_("macr2tree: Out of code\n"));
+               Scierror(999,_("%s: Out of code\n"),"macr2tree");
       return 0;
     }
   (name[0])[nlgh]='\0';
@@ -233,7 +228,7 @@ int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
          cod_ind++;
          if(cod_ind>codelength+ilt+1)
          {
-                 Scierror(999,_("macr2tree: Out of code\n"));
+                 Scierror(999,_("%s: Out of code\n"),"macr2tree");
  
              /* Free memory */
              FREE(name[0]);
@@ -248,7 +243,7 @@ int C2F(macr2tree) _PARAMS((char *fname,unsigned long fname_len))
        }
       if(TopSave!=Top-1) 
          {
-                 Scierror(999,_("macr2tree: wrong Top value %d instead of %d\n"),Top,TopSave+1);
+                 Scierror(999,_("%s: wrong Top value %d instead of %d\n"),"macr2tree",Top,TopSave+1);
 
 
        /* Free memory */
@@ -776,7 +771,7 @@ static int GetControlInstruction(int *data,int *index2,int *nblines)
        {
          /* This part will not be written */
          /* No more used */
-         Scierror(999,_("GetControlInstruction: old version of if and while not yet implemented.\n"));
+         Scierror(999,_("%s: old version of if and while not yet implemented.\n"),"GetControlInstruction");
          return 0;
        }
       else
@@ -1084,7 +1079,7 @@ static int CreateCsteTList(char *type,int *data,int *index2)
     }
   else /* Should never happen */
     {
-         Scierror(999,_("CreateCsteTList: wrong type value.\n"),type);
+         Scierror(999,_("%s: wrong type value.\n"),"CreateCsteTList");
       return 0;
     }
   
@@ -1160,7 +1155,7 @@ static int CreateOperationTList(int *data,int *index2)
        }
     }
   if(operator_index2<0) {
-         Scierror(999,_("CreateOperationTList: unknown operator %d.\n"),operator_num);
+         Scierror(999,_("%s: unknown operator %d.\n"),"CreateOperationTList",operator_num);
     return 0;
   }
 
@@ -1338,7 +1333,7 @@ static int CreateFuncallTList(char *fromwhat,int *data,int *index2)
     }
   else /* Should never happen */
     {
-         Scierror(999,_("CreateEqualTList: wrong fromwhat value %s\n"),fromwhat);
+         Scierror(999,_("%s: wrong fromwhat value %s\n"),"CreateEqualTList",fromwhat);
       return 0;
     }
 
@@ -1699,7 +1694,7 @@ static int CreateEqualTList(char *fromwhat,int *data,int *index2)
     }
   else /* Should not happen */
     {
-         Scierror(999,_("CreateEqualTList: wrong fromwhat value %s\n"),fromwhat);
+         Scierror(999,_("%s: wrong fromwhat value %s\n"),"CreateEqualTList",fromwhat);
       return 0;
     }
 
@@ -1983,7 +1978,7 @@ int complexity(int *data,int *index2,int *lgth)
            }
          else
            {
-             sciprint(_("complexity: wrong code %d.\n"),data[cur_ind]);
+             sciprint(_("%s: wrong code %d.\n"),"Complexity",data[cur_ind]);
              return -1;
            }
          break;
index 6105b9c..0709b3d 100644 (file)
@@ -25,7 +25,6 @@ static void Underscores __PARAMS((int isfor,char *ename,char *ename1));
 static int SearchFandS  __PARAMS( ( char *,int ));
 static void ShowDynLinks(void);
 int LinkStatus __PARAMS((void)) ;
-int C2F(scilinknorhs)(void);
 
 
 /*********************************************
index 0ca2598..b4b7bd5 100644 (file)
@@ -220,7 +220,7 @@ static int Sci_dlopen(char **loaded_files,int global)
   shl_t hd1;
   void (*init_ctor)() = 0;
 #endif
-  char tmp_file[PATH_MAX],*getenv(const char *);
+  char tmp_file[PATH_MAX];
   /** XXXXX **/
   if ( strncmp(loaded_files[0],"scilab",6) !=0)
     {
index 974fca9..aa0030c 100644 (file)
@@ -60,7 +60,7 @@ BOOL getversionmodule(char *modulename,
                                if (doc == NULL) 
                                {
                                        printf(_("Error: could not parse file %s\n"), filename_VERSION_module);
-                                       return bOK;
+                                       return FALSE;
                                }
 
                        xpathCtxt = xmlXPathNewContext(doc);
@@ -116,7 +116,7 @@ BOOL getversionmodule(char *modulename,
                        else
                                {
                                        printf(_("Error : Not a valid version file %s (should start with <MODULE_VERSION> and contains <VERSION major='' minor='' maintenance='' revision='' string=''>)\n"), filename_VERSION_module);
-                                       return bOK;
+                                       return FALSE;
                                }
                        if(xpathObj) xmlXPathFreeObject(xpathObj);
                        if(xpathCtxt) xmlXPathFreeContext(xpathCtxt);
index 8c3b839..472ae2e 100644 (file)
@@ -55,11 +55,9 @@ extern int C2F(fact)();
 extern int C2F(expr)();
 extern int C2F(terme)();
 extern int C2F(stackp)();
-extern int C2F(stackg)();
 extern int C2F(macro)();
 extern int C2F(getsym)();
 
-extern int C2F(putid)(); 
 extern int C2F(eqid)();
 extern int C2F(funs)();
 
@@ -70,7 +68,6 @@ extern int C2F(findequal)();
 extern int C2F(print)();
 extern int C2F(createref1)();
 extern int C2F(command)();
-extern int C2F(cvname)();
 extern int C2F(getlin)();
 extern int C2F(mrknmd)();
 extern int C2F(stimer)();
@@ -78,15 +75,12 @@ extern int C2F(mkindx)();
 extern int C2F(whatln)();
 extern int C2F(prompt)();
 extern int C2F(seteol)();
-extern int C2F(allops)();
 extern int C2F(run)();
 extern int C2F(name2var)();
 extern int C2F(msgs)();
-extern int C2F(error)();
 extern int C2F(compil)();
 extern int C2F(ptover)(); /* see src/fortran/ptover.f */
 extern int C2F(eptover)();/* see src/fortran/eptover.f */
-extern int C2F(callinterf) (int *k);
 /*--------------------------------------------------------------------------*/
 void handle_onprompt(int *n);
 /*--------------------------------------------------------------------------*/
index c5cc3c0..9989e71 100644 (file)
@@ -45,18 +45,14 @@ static int c__0 = 0;
 #define Pt (C2F(recu).pt)
 
 extern int C2F(stackp)();
-extern int C2F(stackg)();
 
-extern int C2F(putid)(); 
 extern int C2F(eqid)();
-extern int C2F(funs)();
 
 extern int C2F(bexec)();
 extern int C2F(getmen)();
 
 extern int C2F(print)();
 extern int C2F(createref1)();
-extern int C2F(cvname)();
 extern int C2F(stimer)();
 
 extern int C2F(mkindx)();
@@ -69,10 +65,7 @@ extern int C2F(nextj)();
 extern int C2F(isafunptr)();
 extern int C2F(varfunptr)();
 extern int C2F(defmat)();
-extern int C2F(ref2val)();
-extern int C2F(objvide)();
 
-extern int C2F(gettype)();
 extern int C2F(clunit)();
 
 extern int C2F(istrue)();
index e6506cc..547cb1d 100644 (file)
@@ -14,13 +14,12 @@ int getScilabMode(void)
 /*--------------------------------------------------------------------------*/ 
 BOOL setScilabMode(int newmode)
 {
-       BOOL bOK=FALSE;
        if ( (newmode == SCILAB_API) || (newmode == SCILAB_STD) || (newmode == SCILAB_NW) || (newmode == SCILAB_NWNI) )
        {
                CurrentScilabMode = (scilabMode)newmode;
-               bOK=TRUE;
+               return TRUE;
        }
-       return bOK;
+       return FALSE;
 }
 /*--------------------------------------------------------------------------*/ 
 int C2F(getscilabmode)(int *mode)
index 048056c..a4e6f3d 100644 (file)
@@ -3,15 +3,10 @@
 /* Scilab */
 /*--------------------------------------------------------------------------*/ 
 #include "scirun.h"
-#include "callinterf.h" 
 #include "stack-c.h"
+#include "error.h"
 /*--------------------------------------------------------------------------*/ 
-extern int C2F(allowptr)(int *);
-extern int C2F(iset)(int *, int *, int *, int *);
-extern int C2F(funs)(int *);
 extern int C2F(parse)(void);
-extern int C2F(error)(int *);
-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);
index 54274e6..2af72b7 100644 (file)
@@ -14,7 +14,7 @@ static char SCIPATH[PATH_MAX];
 /*--------------------------------------------------------------------------*/ 
 void setSCIpath(char *path)
 {
-       sprintf(SCIPATH,"%s",path);
+       strcpy(SCIPATH,path);
 }
 /*--------------------------------------------------------------------------*/ 
 char *getSCIpath(void)
index 7872005..ffcd469 100644 (file)
@@ -63,7 +63,7 @@ int C2F(getlistmat)(char *fname,integer *topk,integer *spos,integer *lnum,intege
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return C2F(getmati)(fname, topk, spos, &ili, it, m, n, lr, lc, &c_true, lnum, fname_len);
@@ -99,7 +99,7 @@ int C2F(getrmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
     return FALSE_;
 
   if (it != 0) {
-    Scierror(202,_("%s : Argument %d: wrong type argument, expecting a real matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(202,_("%s: Argument %d: wrong type argument, expecting a real matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     return FALSE_;
   }
   return TRUE_;
@@ -116,7 +116,7 @@ int C2F(getcmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,int
     return FALSE_;
 
   if (it != 1) {
-    Scierror(202,_("%s : Argument %d: wrong type argument, expecting a real matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(202,_("%s: Argument %d: wrong type argument, expecting a real matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     return FALSE_;
   }
   return TRUE_;
@@ -135,7 +135,7 @@ int C2F(matsize)(char *fname,integer *topk,integer *lw,integer *m,integer *n,uns
   if (  C2F(getmat)(fname, topk, lw, &it, &m1, &n1, &lr, &lc, fname_len)  == FALSE_)
     return FALSE_;
   if (*m != m1 || *n != n1) {
-    Scierror(205,_("%s : Argument %d: wrong matrix size (%d,%d) expected.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk), *m,*n);
+    Scierror(205,_("%s: Argument %d: wrong matrix size (%d,%d) expected.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk), *m,*n);
     return FALSE_;
   }
   return  TRUE_;
@@ -152,9 +152,9 @@ int C2F(getmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *it
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != 1) {
     if (*inlistx) 
-      Scierror(999,_("%s : argument %d <(%d) should be a real or complex matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+      Scierror(999,_("%s: argument %d <(%d) should be a real or complex matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
     else 
-      Scierror(201,_("%s : argument %d should be a real or complex matrix.\n"),get_fname(fname,fname_len),
+      Scierror(201,_("%s: argument %d should be a real or complex matrix.\n"),get_fname(fname,fname_len),
               Rhs + (*spos - *topk));
     return  FALSE_;
   }
@@ -213,7 +213,7 @@ int C2F(cremat)(char *fname,integer *lw,integer *it,integer *m,integer *n,intege
 {
 
   if (*lw + 1 >= Bot) {
-         Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+         Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   if ( C2F(cremati)(fname, Lstk(*lw ), it, m, n, lr, lc, &c_true, fname_len) == FALSE_)
@@ -249,7 +249,7 @@ int C2F(cremati)(char *fname,integer *stlw,integer *it,integer *m,integer *n,int
   ix1 = il + 4;
   Err = sadr(ix1) - *Lstk(Bot );
   if ( (double) Err > -size ) {
-         Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+         Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   if (*flagx) {
@@ -320,9 +320,6 @@ int C2F(crematvar)(integer *id, integer *lw, integer *it, integer *m, integer *n
 *---------------------------------------------------------- */
 int C2F(crebmatvar)(integer *id, integer *lw, integer *m, integer *n, integer *val)
 {
-       extern int C2F(icopy)(integer *, integer *, integer *, integer *, integer *);
-       extern int C2F(putid)(integer *, integer *);
-
        /* Local variables */
        static integer il, lr;
        integer i__1;
@@ -350,7 +347,6 @@ int C2F(crebmatvar)(integer *id, integer *lw, integer *m, integer *n, integer *v
 *---------------------------------------------------------- */
 int C2F(cresmatvar)(integer *id, integer *lw, char *str, integer *lstr, unsigned long str_len)
 {
-       extern int C2F(putid)(integer *, integer *);
        static integer il, mn, lr1, ix1, ilp;
        static integer ilast;
        static integer c__0 = 0;
@@ -410,7 +406,7 @@ int C2F(getlistimat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return C2F(getimati)(fname, topk, spos, &ili,it, m, n, lr,  &c_true, lnum, fname_len);
@@ -444,9 +440,9 @@ int C2F(getimati)(char *fname,integer *topk,integer *spos,integer *lw,integer *i
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != 8 ) {
     if (*inlistx) 
-      Scierror(999,_("%s : argument %d <(%d) should be an int matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+      Scierror(999,_("%s: argument %d <(%d) should be an int matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
     else 
-      Scierror(201,_("%s : argument %d should be a real or complex matrix.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk));
+      Scierror(201,_("%s: argument %d should be a real or complex matrix.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk));
     return  FALSE_;
   }
   *m = *istk(il + 1);
@@ -501,7 +497,7 @@ int C2F(creimat)(char *fname,integer *lw,integer *it,integer *m,integer *n,integ
 {
 
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   if ( C2F(creimati)(fname, Lstk(*lw ), it, m, n, lr,&c_true, fname_len) == FALSE_)
@@ -523,7 +519,7 @@ int C2F(creimati)(char *fname,integer *stlw,integer *it,integer *m,integer *n,in
   ix1 = il + 4;
   Err = sadr(ix1) - *Lstk(Bot );
   if (Err > -size ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   if (*flagx) {
@@ -559,7 +555,7 @@ int C2F(getlistbmat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
     return FALSE_ ;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_ ;
   }
   
@@ -594,7 +590,7 @@ int C2F(matbsize)(char *fname,integer *topk,integer *lw,integer *m,integer *n,un
   if ( C2F(getbmat)(fname, topk, lw, &m1, &n1, &lr, fname_len) == FALSE_)
     return FALSE_;
   if (*m != m1 || *n != n1) {
-    Scierror(205,_("%s : Argument %d: wrong matrix size (%d,%d) expected.\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk),*m,*n);
+    Scierror(205,_("%s: Argument %d: wrong matrix size (%d,%d) expected.\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk),*m,*n);
     return FALSE_;
   }
   return TRUE_;
@@ -613,9 +609,9 @@ int C2F(getbmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *m
 
   if (*istk(il ) != 4) {
     if (*inlistx) 
-      Scierror(999,_("%s : argument %d <(%d) should be a boolean matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+      Scierror(999,_("%s: argument %d <(%d) should be a boolean matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
     else 
-      Scierror(208,_("%s : argument %d should be a boolean matrix.\n"),get_fname(fname,fname_len),
+      Scierror(208,_("%s: argument %d should be a boolean matrix.\n"),get_fname(fname,fname_len),
               Rhs + (*spos - *topk));
     return FALSE_;
   };
@@ -672,7 +668,7 @@ int C2F(crebmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsig
   integer ix1;
   
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_ ;
   }
 
@@ -692,7 +688,7 @@ int C2F(crebmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsig
 int C2F(fakecrebmat)(integer *lw,integer *m,integer *n,integer *lr) 
 {
   if (*lw + 1 >= Bot) {
-       Scierror(18,_("%s : too many names.\n"),"fakecrebmat");
+       Scierror(18,_("%s: too many names.\n"),"fakecrebmat");
     return FALSE_;
   }
   if ( C2F(crebmati)("crebmat", Lstk(*lw ), m, n, lr, &c_false, 7L)== FALSE_)
@@ -712,7 +708,7 @@ int C2F(crebmati)(char *fname,integer *stlw,integer *m,integer *n,integer *lr,in
   il = iadr(*stlw);
   Err = il + 3  - iadr(*Lstk(Bot ));
   if (Err > -size ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   if (*flagx) {
@@ -753,7 +749,7 @@ int C2F(getlistsparse)(char *fname,integer *topk,integer *spos,integer *lnum,int
     return FALSE_ ;
   
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),
             get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
@@ -788,7 +784,7 @@ int C2F(getrsparse)(char *fname, integer *topk, integer *lw, integer *m, integer
     return FALSE_;
 
   if (it != 0) {
-    Scierror(202,_("%s : Argument %d: wrong type argument, expecting a real matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(202,_("%s: Argument %d: wrong type argument, expecting a real matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     return FALSE_;
   }
   return TRUE_;
@@ -807,9 +803,9 @@ int C2F(getsparsei)(char *fname,integer *topk,integer *spos,integer *lw,integer
 
   if (*istk(il ) != sci_sparse) {
     if (*inlistx) 
-      Scierror(999,_("%s : argument %d <(%d) should be a sparse matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nellist);
+      Scierror(999,_("%s: argument %d <(%d) should be a sparse matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nellist);
     else 
-      Scierror(999,_("%s : argument %d should be a sparse matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk));
+      Scierror(999,_("%s: argument %d should be a sparse matrix.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk));
     return FALSE_;
   }
   *m   = *istk(il + 1);
@@ -870,7 +866,7 @@ int C2F(listcresparse)(char *fname,integer *lw,integer *numi,integer *stlw,integ
 int C2F(cresparse)(char *fname,integer *lw,integer *it,integer *m,integer *n,integer *nel,integer *mnel,integer *icol,integer *lr,integer *lc,unsigned long fname_len)
 {
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_ ;
   }
   
@@ -894,7 +890,7 @@ int C2F(cresparsei)(char *fname,integer *stlw,integer *it,integer *m,integer *n,
   ix1 = il + 5 + *m + *nel;
   Err = sadr(ix1) + *nel * (*it + 1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   *istk(il ) = sci_sparse;
@@ -934,7 +930,7 @@ int C2F(getlistvect)(char *fname,integer *topk,integer *spos,integer *lnum,integ
     return FALSE_;
 
   if (*m != 1 && *n != 1) {
-    Scierror(999,_("%s : argument %d < (%d) should be a vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d < (%d) should be a vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk), *lnum);
     return  FALSE_;
   }
   return TRUE_;
@@ -958,7 +954,7 @@ int C2F(getvect)(char *fname,integer *topk,integer *lw,integer *it,integer *m,in
     return FALSE_;
 
   if (*m != 1 && *n != 1) {
-    Scierror(214,_("%s : Argument %d: wrong type argument, expecting a vector.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(214,_("%s: Argument %d: wrong type argument, expecting a vector.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     return FALSE_;
   };
   return  TRUE_;
@@ -975,7 +971,7 @@ int C2F(getrvect)(char *fname,integer *topk,integer *lw,integer *m,integer *n,in
     return FALSE_;
 
   if (*m != 1 && *n != 1) {
-    Scierror(203,_("%s : Argument %d: wrong type argument, expecting a real vector.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(203,_("%s: Argument %d: wrong type argument, expecting a real vector.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     return FALSE_;
   }
   return TRUE_ ;
@@ -995,7 +991,7 @@ int C2F(vectsize)(char *fname,integer *topk,integer *lw,integer *n,unsigned long
     return FALSE_;
 
   if (*n != m1 * n1) {
-    Scierror(206,_("%s : Argument %d wrong vector size (%d) expected.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk), *n);
+    Scierror(206,_("%s: Argument %d wrong vector size (%d) expected.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk), *n);
     return FALSE_;
   }
   return TRUE_;
@@ -1019,7 +1015,7 @@ int C2F(getlistscalar)(char *fname,integer *topk,integer *spos,integer *lnum,int
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),
             get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
@@ -1029,7 +1025,7 @@ int C2F(getlistscalar)(char *fname,integer *topk,integer *spos,integer *lnum,int
     return FALSE_;
 
   if (m * n != 1) {
-    Scierror(999,_("%s : argument %d < (%d) should be a scalar.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d < (%d) should be a scalar.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return TRUE_;
@@ -1053,7 +1049,7 @@ int C2F(getscalar)(char *fname,integer *topk,integer *lw,integer *lr,unsigned lo
     return  FALSE_;
 
   if (m * n != 1) {
-    Scierror(204,_("%s : Argument 1: wrong type argument, expecting a scalar or 'min' or 'max'.\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk));
+    Scierror(204,_("%s: Argument 1: wrong type argument, expecting a scalar or 'min' or 'max'.\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk));
     return FALSE_ ; 
   };
   return TRUE_;
@@ -1088,7 +1084,7 @@ int C2F(getlistsmat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),
             get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
@@ -1150,7 +1146,7 @@ int C2F(getlistwsmat)(char *fname,integer *topk,integer *spos,integer *lnum,inte
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return C2F(getwsmati)(fname, topk, spos, &ili, m, n, ilr, ilrd, &c_true, lnum, fname_len);
@@ -1179,9 +1175,9 @@ static int C2F(getwsmati)(char *fname,integer *topk,integer *spos,integer *lw,in
     if (*istk(il ) < 0) il = iadr(*istk(il +1));
     if (*istk(il ) != sci_strings) {
       if (*inlistx)
-       Scierror(999,_("%s : argument %d <(%d) should be a matrix of strings.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+       Scierror(999,_("%s: argument %d <(%d) should be a matrix of strings.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
       else 
-       Scierror(207,_("%s : Argument %d : wrong type argument, expecting a matrix of strings\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk));
+       Scierror(207,_("%s: Argument %d : wrong type argument, expecting a matrix of strings\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk));
       return FALSE_;
     }
     *m = *istk(il + 1);
@@ -1201,9 +1197,9 @@ int C2F(getsmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *m
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != sci_strings ) {
     if (*inlistx) 
-      Scierror(999,_("%s : argument %d <(%d) should be a row vector.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+      Scierror(999,_("%s: argument %d <(%d) should be a row vector.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
     else 
-      Scierror(201,_("%s : argument %d should be a real or complex matrix.\n"),get_fname(fname,fname_len),
+      Scierror(201,_("%s: argument %d should be a real or complex matrix.\n"),get_fname(fname,fname_len),
               Rhs + (*spos - *topk));
     return  FALSE_;
   }
@@ -1266,7 +1262,7 @@ int C2F(cresmat)(char *fname,integer *lw,integer *m,integer *n,integer *nchar,un
   int job = 1;
   integer ix1, ilast, sz,lr ;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return  FALSE_;
   }
   if ( C2F(cresmati)(fname,Lstk(*lw), m, n, nchar, &job, &lr, &sz, fname_len) == FALSE_ )
@@ -1292,7 +1288,7 @@ int C2F(cresmat1)(char *fname,integer *lw,integer *m,integer *nchar,unsigned lon
   int job = 2, n=1;
   integer ix1, ilast, sz,lr ;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return  FALSE_;
   }
   if ( C2F(cresmati)(fname,Lstk(*lw), m, &n, nchar, &job, &lr, &sz, fname_len) == FALSE_ )
@@ -1316,7 +1312,7 @@ int C2F(cresmat2)(char *fname,integer *lw,integer *nchar,integer *lr,unsigned lo
   int job = 1, n=1,m=1;
   integer ix1, ilast, sz ;
   if (*lw + 1 >= Bot) {
-   Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+   Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return  FALSE_;
   }
   if ( C2F(cresmati)(fname,Lstk(*lw), &m, &n, nchar, &job, lr, &sz, fname_len) == FALSE_ )
@@ -1345,7 +1341,7 @@ int C2F(cresmat3)(char *fname,integer *lw,integer *m,integer *n,integer *nchar,c
   int job = 2;
   integer ix1, ilast, sz,lr,lr1 ;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return  FALSE_;
   }
   if ( C2F(cresmati)(fname,Lstk(*lw), m, n, nchar, &job, &lr, &sz, fname_len) == FALSE_ )
@@ -1370,7 +1366,7 @@ int C2F(cresmat4)(char *fname,integer *lw,integer *m,integer *nchar,integer *lr,
 {
   integer ix1,ix, ilast, il, nnchar, kij, ilp;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   nnchar = 0;
@@ -1380,7 +1376,7 @@ int C2F(cresmat4)(char *fname,integer *lw,integer *m,integer *nchar,integer *lr,
   ix1 = il + 4 + (nnchar + 1) * *m;
   Err = sadr(ix1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   } 
   *istk(il ) = sci_strings;
@@ -1425,7 +1421,7 @@ int C2F(cresmati)(char *fname,integer *stlw,integer *m,integer *n,integer *nchar
   ix1 = il + 4 + mn + 1 + *sz;
   Err = sadr(ix1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   
@@ -1482,7 +1478,7 @@ int cre_smat_from_str_i(char *fname, integer *lw, integer *m, integer *n, char *
   ix1 = il + 4 + (nnchar + 1) + (*m * *n + 1);
   Err = sadr(ix1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return  FALSE_;
   } ;
   *istk(il ) = sci_strings;
@@ -1517,7 +1513,7 @@ int cre_smat_from_str(char *fname,integer *lw,integer *m,integer *n,char *Str[],
   int rep;
   
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
 
@@ -1562,7 +1558,7 @@ int cre_sparse_from_ptr_i(char *fname, integer *lw, integer *m, integer *n, SciS
   ix1 = il + 5 + *m + S->nel;
   Err = sadr(ix1)  - *Lstk(Bot );
   if (Err > -size ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return  FALSE_;
   } ;
   *istk(il ) = sci_sparse;
@@ -1594,7 +1590,7 @@ int cre_sparse_from_ptr(char *fname,integer *lw,integer *m,integer *n,SciSparse
 {
   int rep;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
 
@@ -1687,7 +1683,7 @@ int C2F(crestringi)(char *fname,integer *stlw,integer *nchar,integer *ilrs,unsig
   ix1 = il + 4 + (*nchar + 1);
   Err = sadr(ix1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   } ;
   *istk(il ) = sci_strings;
@@ -1744,7 +1740,7 @@ int C2F(smatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
   integer il1j, il2p;
 
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   ix1 = *lw - 1;
@@ -1763,7 +1759,7 @@ int C2F(smatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
   ix1 = il2 + 4 + m + nj + 1;
   Err = sadr(ix1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   *istk(il2 ) = sci_strings;
@@ -1893,7 +1889,7 @@ int C2F(lmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
   integer n;
   integer il, ilj, slj;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   ix1 = *lw - 1;
@@ -1939,7 +1935,7 @@ int C2F(getilist)(char *fname,integer *topk,integer *lw,integer *n,integer *ix,i
 
   itype = *istk(il );
   if (itype < sci_list || itype > sci_mlist) {
-    Scierror(210,_("%s : Argument %d: wrong type argument, expecting a list.\n"),get_fname(fname,fname_len) , Rhs + (*lw - *topk));
+    Scierror(210,_("%s: Argument %d: wrong type argument, expecting a list.\n"),get_fname(fname,fname_len) , Rhs + (*lw - *topk));
     return FALSE_;
   }
   *n = *istk(il +1);
@@ -1981,7 +1977,7 @@ int C2F(getpoly)(char *fname,integer *topk,integer *lw,integer *it,integer *m,in
   integer il;
   il = iadr(*Lstk(*lw ));
   if (*istk(il ) != 2) {
-    Scierror(212,_("%s : Argument %d: wrong type argument, expecting a polynomial matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(212,_("%s: Argument %d: wrong type argument, expecting a polynomial matrix.\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     return FALSE_;
   } ;
   *m = *istk(il +1);
@@ -2022,7 +2018,7 @@ int C2F(getonepoly)(char *fname,integer *topk,integer *lw,integer *it,integer *m
     return FALSE_;
 
   if (m * n != 1) {
-    Scierror(998,_("%s : argument should be a polygon.\n"),get_fname(fname,fname_len));
+    Scierror(998,_("%s: argument should be a polygon.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   *md = *istk(ilp +1) - *istk(ilp ) - 1;
@@ -2049,7 +2045,7 @@ int C2F(pmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
   integer l2, m2, n2, lc, il, lj, it, lr, il2, ilp;
 
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   ix1 = *lw - 1;
@@ -2074,7 +2070,7 @@ int C2F(pmatj)(char *fname,integer *lw,integer *j,unsigned long fname_len)
   n2 = *istk(il + 8 + incj + m ) - *istk(il + 8 + incj );
   Err = l2 + n2 * (it + 1) - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   C2F(icopy)(&cx4, istk(il + 3 +1), &cx1, istk(il2 + 3 +1), &cx1);
@@ -2116,7 +2112,7 @@ int C2F(crewmat)(char *fname,integer *lw,integer *m,integer *lr,unsigned long fn
 {
   integer il,ix1; 
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   il = iadr(*Lstk(*lw ));
@@ -2145,13 +2141,13 @@ int C2F(crewimat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsi
   double size = ((double) *m) * ((double) *n ); 
   integer ix1,il;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   il = iadr(*Lstk(*lw ));
   Err = il + 3  - iadr(*Lstk(Bot ));
   if (Err > -size ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   *istk(il ) = 4;
@@ -2181,7 +2177,7 @@ int C2F(getwimat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,in
     il = iadr(*istk(il +1));
   }
   if (*istk(il ) != sci_boolean) {
-    Scierror(213,_("%s : Argument %d: wrong type argument, expecting a working\n               integer matrix\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk));
+    Scierror(213,_("%s: Argument %d: wrong type argument, expecting a working\n                integer matrix\n"),get_fname(fname,fname_len),Rhs + (*lw - *topk));
     return FALSE_;
   };
   *m = *istk(il + 1);
@@ -2240,7 +2236,7 @@ int C2F(crepointer)(char *fname,integer *lw,integer *lr,unsigned long fname_len)
 {
 
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   if ( C2F(crepointeri)(fname, Lstk(*lw ), lr, &c_true, fname_len) == FALSE_)
@@ -2260,7 +2256,7 @@ int C2F(crepointeri)(char *fname,integer *stlw,integer *lr,int *flagx,unsigned l
   ix1 = il + 4;
   Err = sadr(ix1) + 2 - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   if (*flagx) {
@@ -2343,7 +2339,7 @@ int C2F(getlistvectrow)(char *fname,integer *topk,integer *spos,integer *lnum,in
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
 
@@ -2351,7 +2347,7 @@ int C2F(getlistvectrow)(char *fname,integer *topk,integer *spos,integer *lnum,in
       FALSE_) 
     return FALSE_;
   if (*m != 1) {
-    Scierror(999,_("%s : argument %d <(%d) should be a row vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d <(%d) should be a row vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk), *lnum);
     return FALSE_;
   }
   return TRUE_;
@@ -2382,7 +2378,7 @@ int C2F(getvectrow)(char *fname,integer *topk,integer *spos,integer *it,integer
     return FALSE_;
 
   if (*m != 1) {
-    Scierror(999,_("%s : argument %d should be a row vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk));
+    Scierror(999,_("%s: argument %d should be a row vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk));
     return FALSE_;
   }
   return TRUE_ ;
@@ -2400,7 +2396,7 @@ int C2F(getlistvectcol)(char *fname,integer *topk,integer *spos,integer *lnum,in
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   if ( C2F(getmati)(fname, topk, spos, &ili, it, m, n, lr, lc, &c_true, lnum, fname_len)
@@ -2408,7 +2404,7 @@ int C2F(getlistvectcol)(char *fname,integer *topk,integer *spos,integer *lnum,in
     return FALSE_;
 
   if (*n != 1) {
-    Scierror(999,_("%s : argument %d >(%d) should be a column vector.\n"), get_fname(fname,fname_len),Rhs + (*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d >(%d) should be a column vector.\n"), get_fname(fname,fname_len),Rhs + (*spos - *topk), *lnum);
     return FALSE_;
   }
   return TRUE_;
@@ -2440,7 +2436,7 @@ int C2F(getvectcol)(char *fname,integer *topk,integer *spos,integer *it,integer
     return FALSE_;
 
   if (*n != 1) {
-    Scierror(999,_("%s : argument %d should be a column vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk));
+    Scierror(999,_("%s: argument %d should be a column vector.\n"),get_fname(fname,fname_len),Rhs + (*spos - *topk));
     return FALSE_;
   }
   return TRUE_;
@@ -2456,7 +2452,7 @@ int C2F(getlistsimat)(char *fname,integer *topk,integer *spos,integer *lnum,inte
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return  C2F(getsmati)(fname, topk, spos, &ili, m, n, ix, j, lr, nlr, &c_true, lnum, fname_len);
@@ -2492,7 +2488,7 @@ int C2F(getlistpointer)(char *fname,integer *topk,integer *spos,integer *lnum,in
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return C2F(getpointeri)(fname, topk, spos, &ili, lw, &c_true, lnum, fname_len);
@@ -2510,9 +2506,9 @@ int C2F(getpointeri)(char *fname,integer *topk,integer *spos,integer *lw,integer
   if (*istk(il ) != sci_lufact_pointer) {
     sciprint("----%d\n",*istk(il));
     if (*inlistx) 
-      Scierror(197,_("%s : argument %d <(%d) should be a boxed pointer.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+      Scierror(197,_("%s: argument %d <(%d) should be a boxed pointer.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
     else 
-      Scierror(198,_("%s : argument %d should be a boxed pointer.\n"),get_fname(fname,fname_len),
+      Scierror(198,_("%s: argument %d should be a boxed pointer.\n"),get_fname(fname,fname_len),
               Rhs + (*spos - *topk));
     return  FALSE_;
   }
@@ -2531,7 +2527,7 @@ int C2F(mspcreate)(integer *lw,integer *m,integer *n,integer *nzMax,integer *it)
   int k,pr;
   double size;
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),"");
+    Scierror(18,_("%s: too many names.\n"),"");
     return FALSE_;
   }
 
@@ -2542,7 +2538,7 @@ int C2F(mspcreate)(integer *lw,integer *m,integer *n,integer *nzMax,integer *it)
   size = (*it + 1) * NZMAX ;
   Err = sadr(ix1)  - *Lstk(Bot );
   if (Err > -size ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),"");
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),"");
     return FALSE_;
   };
   *istk(il ) = sci_matlab_sparse;
@@ -2657,12 +2653,12 @@ int C2F(vcopyobj)(char *fname,integer *lw,integer *lwd,unsigned long fname_len)
   lv = *Lstk(*lw +1) - *Lstk(*lw );
   l1 = *Lstk(*lwd );
   if (*lwd + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   Err = *Lstk(*lwd ) + lv - *Lstk(Bot );
   if (Err > 0) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   /* check for overlaping region */
@@ -2827,7 +2823,7 @@ int C2F(allmat)(char *fname,integer *topk,integer *lw,integer *m,integer *n,unsi
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   itype = *istk(il );
   if (itype != sci_matrix && itype != sci_poly && itype != sci_strings) {
-    Scierror(209,_("%s : Argument %d wrong type argument, expecting a matrix\n"),get_fname(fname,fname_len) ,  Rhs + (*lw - *topk));
+    Scierror(209,_("%s: Argument %d wrong type argument, expecting a matrix\n"),get_fname(fname,fname_len) ,  Rhs + (*lw - *topk));
     return FALSE_;
   }
   *m = *istk(il + 1);
@@ -2911,13 +2907,13 @@ int C2F(getexternal)(char *fname,integer *topk,integer *lw,char *namex,int *type
        (*setfun)(namex, &irep); /* , name_len); */
        if (irep == 1) 
          {
-                 Scierror(50,_("%s : entry point %s not found in predefined tables or link table.\n"),get_fname(fname,fname_len),namex);
+                 Scierror(50,_("%s: entry point %s not found in predefined tables or link table.\n"),get_fname(fname,fname_len),namex);
            ret_value = FALSE_;
          }
       }
     break;
   default: 
-    Scierror(211,_("%s : Argument %d: wrong type argument, expecting a function\n              or string (external function).\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
+    Scierror(211,_("%s: Argument %d: wrong type argument, expecting a function\n               or string (external function).\n"),get_fname(fname,fname_len), Rhs + (*lw - *topk));
     ret_value = FALSE_;
     break;
   }
@@ -2931,7 +2927,7 @@ int C2F(checkval)(char *fname,integer *ival1,integer *ival2,unsigned long fname_
 {
   if (*ival1 != *ival2) 
   {
-    Scierror(999,_("%s : incompatible sizes.\n"),get_fname(fname,fname_len));
+    Scierror(999,_("%s: incompatible sizes.\n"),get_fname(fname,fname_len));
     return  FALSE_;
   } ;
   return  TRUE_;
@@ -2952,7 +2948,7 @@ int C2F(optvarget)(char *fname,integer *topk,integer *iel,char *namex,unsigned l
   /*     recupere la variable et incremente top */
   C2F(stackg)(id);
   if (Fin == 0) {
-    Scierror(999,_("%s : optional argument %d not given and default value %s not found.\n"),get_fname(fname,fname_len),*iel,namex);
+    Scierror(999,_("%s: optional argument %d not given and default value %s not found.\n"),get_fname(fname,fname_len),*iel,namex);
     return FALSE_;
   }
   ++Rhs;
@@ -2998,13 +2994,13 @@ int C2F(credata)(char *fname,integer *lw,integer m,unsigned long fname_len)
   integer lr;
   lr = *Lstk(*lw );
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   
   Err = lr   - *Lstk(Bot);
   if (Err > -m ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   /*  *Lstk(*lw +1) = lr + 1 + m/sizeof(double);  */
@@ -3029,7 +3025,7 @@ int C2F(crehmati)(char *fname,integer *stlw,integer *m,integer *n,integer *lr,in
   ix1 = il + 4;
   Err = sadr(ix1) - *Lstk(Bot );
   if ( (double) Err > -size ) {
-    Scierror(17,_("%s : stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
+    Scierror(17,_("%s: stack size exceeded (Use stacksize function to increase it).\n"),get_fname(fname,fname_len));
     return FALSE_;
   };
   if (*flagx) {
@@ -3087,7 +3083,7 @@ int C2F(crehmat)(char *fname,integer *lw,integer *m,integer *n,integer *lr,unsig
 {
 
   if (*lw + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),get_fname(fname,fname_len));
+    Scierror(18,_("%s: too many names.\n"),get_fname(fname,fname_len));
     return FALSE_;
   }
   if ( C2F(crehmati)(fname, Lstk(*lw ), m, n, lr, &c_true, fname_len) == FALSE_)
@@ -3117,7 +3113,7 @@ int C2F(getlisthmat)(char *fname,integer *topk,integer *spos,integer *lnum,integ
     return FALSE_;
 
   if (*lnum > nv) {
-    Scierror(999,_("%s : argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
+    Scierror(999,_("%s: argument %d should be a list of size at least %d.\n"),get_fname(fname,fname_len), Rhs+(*spos - *topk), *lnum);
     return FALSE_;
   }
   return C2F(gethmati)(fname, topk, spos, &ili, m, n, lr, &c_true, lnum, fname_len);
@@ -3151,9 +3147,9 @@ int C2F(gethmati)(char *fname,integer *topk,integer *spos,integer *lw,integer *m
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   if (*istk(il ) != sci_handles) {
     if (*inlistx) 
-      Scierror(999,_("%s : argument %d < (%d) should be a matrix of handle.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
+      Scierror(999,_("%s: argument %d < (%d) should be a matrix of handle.\n"),get_fname(fname,fname_len), Rhs + (*spos - *topk), *nel);
     else 
-      Scierror(200,_("%s : argument %d should be a matrix of handle.\n"),get_fname(fname,fname_len),
+      Scierror(200,_("%s: argument %d should be a matrix of handle.\n"),get_fname(fname,fname_len),
               Rhs + (*spos - *topk));
     return  FALSE_;
   }
index a5c5410..52a2bfe 100644 (file)
@@ -29,6 +29,8 @@
 #include "rea2b.h"
 #include "Scierror.h"
 #include "localization.h"
+#include "error.h"
+#include "callinterf.h"
 
 #ifdef _MSC_VER
 #define abs(x) ((x) >= 0 ? (x) : -(x)) /* pour abs  C2F(mvfromto) line 2689 */
@@ -66,7 +68,7 @@ int C2F(checkrhs)(char *fname, integer *iMin, integer *iMax, unsigned long  fnam
 
   if ( Rhs < *iMin || Rhs > *iMax)
     {
-               Scierror(77,_("%s : wrong number of input arguments (RHS)\n"),get_fname(fname,fname_len));
+               Scierror(77,_("%s: wrong number of input arguments (RHS)\n"),get_fname(fname,fname_len));
       return FALSE_;
     }
   return TRUE_;
@@ -80,7 +82,7 @@ int C2F(checklhs)(char *fname, integer *iMin, integer *iMax, unsigned long  fnam
 {
   if ( Lhs < *iMin || Lhs > *iMax)
     {
-               Scierror(78,_("%s : wrong number of output arguments (LHS)\n"),get_fname(fname,fname_len));
+               Scierror(78,_("%s: wrong number of output arguments (LHS)\n"),get_fname(fname,fname_len));
       return FALSE_;
     }
   return TRUE_;
@@ -305,7 +307,7 @@ int get_optionals(char *fname ,rhs_opts opts[])
     {
       if ( IsOpt(k,name) == 0  )
        {
-         Scierror(999,_("%s : optional arguments name=val must be at the end.\n"),fname);
+         Scierror(999,_("%s: optional arguments name=val must be at the end.\n"),fname);
          return 0;
        }
       else
@@ -320,7 +322,7 @@ int get_optionals(char *fname ,rhs_opts opts[])
            }
          else
            {
-             sciprint(_("%s : unrecognized optional arguments %s.\n"),fname,name);
+             sciprint(_("%s: unrecognized optional arguments %s.\n"),fname,name);
              rhs_opt_print_names(opts) ;
              Error(999);
              return(0);
@@ -362,10 +364,10 @@ void rhs_opt_print_names(rhs_opts opts[])
   int i=0;
   if ( opts[i].name == NULL )
     {
-      sciprint(_("optional argument list is empty.\n"));
+      sciprint(_("Optional argument list is empty.\n"));
       return;
     }
-  sciprint(_("optional arguments list: \n"));
+  sciprint(_("Optional arguments list: \n"));
   while ( opts[i+1].name != NULL )
     {
       sciprint("%s, ",opts[i].name);
@@ -390,7 +392,7 @@ int C2F(isref)(integer *number)
   integer il,lw;
   lw = *number + Top - Rhs;
   if ( *number > Rhs) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),"isref","isref");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),"isref","isref");
     return FALSE_;
   }
   il = iadr(*Lstk(lw));
@@ -421,13 +423,13 @@ int C2F(createvar)(integer *lw,char *typex,integer *m,integer *n,integer  *lr,un
   unsigned char Type = *typex;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createvar");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createvar");
     return FALSE_ ;
   }
   Nbvars = Max(*lw,Nbvars);
   lw1 = *lw + Top - Rhs;
   if (*lw < 0) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"createvar");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"createvar");
     return FALSE_ ;
   }
   switch (Type )
@@ -537,13 +539,13 @@ int C2F(createcvar)(integer *lw, char *typex,integer *it,integer *m,integer *n,i
   integer lw1;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createcvar");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createcvar");
     return FALSE_;
   }
   Nbvars = Max(*lw,Nbvars);
   lw1 = *lw + Top - Rhs;
   if (*lw < 0) {
-  Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"createcvar");
+  Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"createcvar");
     return FALSE_;
   }
   switch ( Type )  {
@@ -583,13 +585,13 @@ int C2F(createlist)(integer *lw,integer *nel)
   char *fname = Get_Iname();
   integer lr, lw1;
   if (*lw > intersiz) {
-       Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlist");
+       Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlist");
     return FALSE_;
   }
   Nbvars = Max(*lw,Nbvars);
   lw1 = *lw + Top - Rhs;
   if (*lw < 0) {
-       Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"createlist");
+       Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"createlist");
     return FALSE_;
   }
   C2F(crelist)(&lw1, nel, &lr);
@@ -616,13 +618,13 @@ int C2F(createvarfrom)(integer *lw,char *typex,integer *m,integer *n,integer *lr
   integer it=0, lw1, lcs;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createvarfrom");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createvarfrom");
     return FALSE_;
   }
   Nbvars = Max(*lw,Nbvars);
   lw1 = *lw + Top - Rhs;
   if (*lw < 0) {
-       Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"createvarfrom");
+       Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"createvarfrom");
     return FALSE_;
   }
   switch ( Type ) {
@@ -699,14 +701,14 @@ int C2F(createcvarfrom)(integer *lw,char *typex,integer *it,integer *m,integer *
   integer lw1, lcs;
   char *fname =     Get_Iname();
   if (*lw > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createcvarfrom");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createcvarfrom");
     return FALSE_;
   }
   Nbvars = Max(*lw,Nbvars);
   lw1 = *lw + Top - Rhs;
   MN = (*m)*(*n);
   if (*lw < 0) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"createcvarfrom");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"createcvarfrom");
     return FALSE_;
   }
   switch ( Type ) {
@@ -765,7 +767,7 @@ int C2F(createlistvarfrom)(integer *lnumber,integer *number,char * typex,integer
   integer lc, ix1, it = 0, mn = (*m)*(*n),inc=1;
   char *fname = Get_Iname();
   if (*lnumber > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvar");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvar");
     return FALSE_;
   }
   switch ( Type ) {
@@ -848,7 +850,7 @@ int C2F(createlistvarfrom)(integer *lnumber,integer *number,char * typex,integer
     *lar = *lr;
     break;
   default :
-    Scierror(999,_("%s : (%s) bad third argument!\n"),fname,"createlistvar");
+    Scierror(999,_("%s: (%s) bad third argument!\n"),fname,"createlistvar");
     return FALSE_;
     break;
   }
@@ -869,7 +871,7 @@ int C2F(createlistcvarfrom)(integer *lnumber, integer *number, char *typex, inte
   char *fname = Get_Iname();
 
   if (*lnumber > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistcvar");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistcvar");
     return FALSE_;
   }
 
@@ -908,7 +910,7 @@ int C2F(createlistcvarfrom)(integer *lnumber, integer *number, char *typex, inte
     *lc = *lr + *m * *n;
     break;
   default :
-    Scierror(999,_("%s : (%s) bad third argument!\n"),fname,"createlistcvar");
+    Scierror(999,_("%s: (%s) bad third argument!\n"),fname,"createlistcvar");
     return FALSE_;
   }
   return TRUE_;
@@ -939,7 +941,7 @@ int C2F(createlistvarfromptr)(integer *lnumber,integer * number,char *typex,inte
   integer lc, ix1, it = 0, lr,inc=1;
   char *fname = Get_Iname();
   if (*lnumber > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvarfromptr");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvarfromptr");
     return FALSE_;
   }
 
@@ -1013,7 +1015,7 @@ int C2F(createlistvarfromptr)(integer *lnumber,integer * number,char *typex,inte
     *stk(lr) = (double) ((unsigned long int) iptr);
     break;
   default :
-    Scierror(999,_("%s : (%s) bad third argument!\n"),fname,"createlistcvar");
+    Scierror(999,_("%s: (%s) bad third argument!\n"),fname,"createlistcvar");
     return FALSE_;
     break;
   }
@@ -1044,7 +1046,7 @@ int C2F(createlistcvarfromptr)(integer *lnumber,integer *number,char *typex,inte
   integer lr,lc, ix1;
   char *fname = Get_Iname();
   if (*lnumber > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvarfromptr");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createlistvarfromptr");
     return FALSE_;
   }
   switch ( Type ) {
@@ -1079,7 +1081,7 @@ int C2F(createlistcvarfromptr)(integer *lnumber,integer *number,char *typex,inte
     if ( *it == 1)     C2F(cint)(&ix1,(int **) iptc, stk(lc));
     break;
   default :
-    Scierror(999,_("%s : (%s) bad third argument!\n"),fname,"createlistcvarfromptr");
+    Scierror(999,_("%s: (%s) bad third argument!\n"),fname,"createlistcvarfromptr");
     return FALSE_;
     break;
   }
@@ -1098,13 +1100,13 @@ int C2F(creatework)(integer *number,integer *m,integer *lr)
   char *fname = Get_Iname();
   if (*number > intersiz) {
 
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"creatework");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"creatework");
     return FALSE_ ;
   }
   Nbvars = Max(*number,Nbvars);
   lw1 = *number + Top - Rhs;
   if (lw1 < 0) {
-       Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"creatework");
+       Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"creatework");
     return FALSE_ ;
   }
   il = iadr(*Lstk(lw1));
@@ -1127,13 +1129,13 @@ int C2F(setworksize)(integer *number,integer *size)
   int lw1;
   char *fname = Get_Iname();
   if (*number > intersiz) {
-       Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"creatework");
+       Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"creatework");
     return FALSE_ ;
   }
   Nbvars = Max(*number,Nbvars);
   lw1 = *number + Top - Rhs;
   if (lw1 < 0) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"setworksize");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"setworksize");
     return FALSE_ ;
   }
   *istk(iadr(*Lstk(lw1)))=0;
@@ -1158,7 +1160,7 @@ int C2F(getmatdims)(integer *number,integer *m,integer *n)
 
   lw = *number + Top - Rhs;
   if ( *number > Rhs) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"getmatdims");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"getmatdims");
     return FALSE_;
   }
 
@@ -1166,7 +1168,7 @@ int C2F(getmatdims)(integer *number,integer *m,integer *n)
   if (*istk(il ) < 0) il = iadr(*istk(il +1));
   typ = *istk(il );
   if (typ > sci_strings) {
-    Scierror(199,_("%s : argument %d should be a matrix.\n"), fname,*number);
+    Scierror(199,_("%s: argument %d should be a matrix.\n"), fname,*number);
     return  FALSE_;
   }
   *m = *istk(il + 1);
@@ -1203,7 +1205,7 @@ int C2F(getrhsvar)(integer *number,char *typex,integer *m,integer *n,integer *lr
   SciIntMat *Im;
   /* we accept a call to getrhsvar after a createvarfromptr call */
   if ( *number > Rhs && *number > Nbvars ) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"getrhsvar");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"getrhsvar");
     return FALSE_;
   }
 
@@ -1211,7 +1213,7 @@ int C2F(getrhsvar)(integer *number,char *typex,integer *m,integer *n,integer *lr
   lw = *number + Top - Rhs;
 
   if (*number > intersiz) {
-       Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getrhsvar");
+       Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getrhsvar");
     return FALSE_;
   }
 
@@ -1403,11 +1405,11 @@ int C2F(getrhscvar)(integer *number,char *typex,integer *it,integer *m,integer *
   Nbvars = Max(Nbvars,*number);
   lw = *number + Top - Rhs;
   if (*number > Rhs) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"getrhscvar");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"getrhscvar");
     return FALSE_;
   }
   if (*number > intersiz) {
-       Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getrhscvar");
+       Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getrhscvar");
     return FALSE_;
   }
   topk = Top;
@@ -1448,7 +1450,7 @@ int C2F(elementtype)(integer *lnumber, integer *number)
   char *fname = Get_Iname();
 
   if (*lnumber > Rhs) {
-    Scierror(999,_("%s : bad call to elementtype!\n"),fname);
+    Scierror(999,_("%s: bad call to %s!\n"),fname, "elementtype");
     return FALSE_;
   }
 
@@ -1457,7 +1459,7 @@ int C2F(elementtype)(integer *lnumber, integer *number)
   if (*istk(il) < 0) il = iadr(*istk(il + 1));
   itype = *istk(il ); /* type of the variable numbered *lnumber */
   if (itype <  sci_list || itype > sci_mlist) { /* check if it is really a list */
-    Scierror(210,_("%s : Argument %d: wrong type argument, expecting a list.\n"),fname,*lnumber);
+    Scierror(210,_("%s: Argument %d: wrong type argument, expecting a list.\n"),fname,*lnumber);
     return FALSE_;
   }
   n = *istk(il + 1);/* number of elements in the list */
@@ -1500,11 +1502,11 @@ int C2F(getlistrhsvar)(integer *lnumber,integer *number,char *typex,integer *m,i
   Nbvars = Max(Nbvars,*lnumber);
   lw = *lnumber + Top - Rhs;
   if (*lnumber > Rhs) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"getlistrhsvar");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"getlistrhsvar");
     return FALSE_;
   }
   if (*lnumber > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getlistrhsvar");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getlistrhsvar");
     return FALSE_;
   }
 
@@ -1544,7 +1546,7 @@ int C2F(getlistrhsvar)(integer *lnumber,integer *number,char *typex,integer *m,i
     if (! C2F(getlistmat)(fname, &topk, &lw,number, &it, m, n, lr, &lc, nlgh)) return FALSE_;
     ix2 = *m * *n;
     if ((it != 1) && (ix2 !=0)){
-      Scierror(999,_("%s : argument %d > (%d) should be a complex matrix.\n"),fname, Rhs + (lw -topk) , *number);
+      Scierror(999,_("%s: argument %d > (%d) should be a complex matrix.\n"),fname, Rhs + (lw -topk) , *number);
       return FALSE_;
     };
       if (!(*lr % 2) ) {  /* bad adress (lr is even) shift up the stack */
@@ -1600,7 +1602,7 @@ int C2F(getlistrhsvar)(integer *lnumber,integer *number,char *typex,integer *m,i
       return FALSE_;
     break;
   default :
-    Scierror(999,_("%s : bad call to %s (third argument %c).\n"),fname,"getlistrhsvar",Type);
+    Scierror(999,_("%s: bad call to %s (third argument %c).\n"),fname,"getlistrhsvar",Type);
     return FALSE_;
   }
   /* can't perform back data conversion with lists */
@@ -1621,11 +1623,11 @@ int C2F(getlistrhscvar)(integer *lnumber,integer *number,char *typex,integer *it
   Nbvars = Max(Nbvars,*lnumber);
   lw = *lnumber + Top - Rhs;
   if (*lnumber > Rhs) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"getlistrhscvar");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"getlistrhscvar");
     return FALSE_;
   }
   if (*lnumber > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getlistrhscvar");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"getlistrhscvar");
     return FALSE_;
   }
   switch ( Type ) {
@@ -1649,7 +1651,7 @@ int C2F(getlistrhscvar)(integer *lnumber,integer *number,char *typex,integer *it
     *lc = *lr + *m * *n;
     break;
   default :
-    Scierror(999,_("%s : (%s) bad third argument!\n"),fname,"getlistrhscvar");
+    Scierror(999,_("%s: (%s) bad third argument!\n"),fname,"getlistrhscvar");
 
     return FALSE_;
   }
@@ -1717,7 +1719,7 @@ int C2F(createvarfromptr)(integer *number,char *typex,integer *m,integer *n,void
                                C2F(intersci).ntypes[*number - 1] = '$';
                                break;
                        default :
-                               Scierror(999,_("%s : (%s) bad second argument!\n"),fname,"createvarfromptr");
+                               Scierror(999,_("%s: (%s) bad second argument!\n"),fname,"createvarfromptr");
 
                                return FALSE_;
                }
@@ -1739,7 +1741,7 @@ int C2F(createcvarfromptr)(integer *number,char *typex,integer *it,integer *m,in
 
   Nbvars = Max(Nbvars,*number);
   if (*number > intersiz) {
-    Scierror(999,_("%s : createcvarfromptr: too many arguments on the stack, enlarge intersiz.\n"),fname);
+    Scierror(999,_("%s: createcvarfromptr: too many arguments on the stack, enlarge intersiz.\n"),fname);
     return FALSE_;
   }
   lw1 = *number + Top - Rhs;
@@ -1765,7 +1767,7 @@ int C2F(createcvarfromptr)(integer *number,char *typex,integer *it,integer *m,in
     }
     break;
   default :
-       Scierror(999,_("%s : (%s) bad second argument!\n"),fname,"createcvarfromptr");
+       Scierror(999,_("%s: (%s) bad second argument!\n"),fname,"createcvarfromptr");
                                
     return FALSE_;
   }
@@ -1911,11 +1913,11 @@ int C2F(scifunction)(integer *number,integer *ptr,integer *mlhs,integer *mrhs)
 
  L89:
   if (Top < Rhs) {
-         Scierror(22,_("%s : recursion problems. Sorry ...\n"),"scifunction");
+         Scierror(22,_("%s: recursion problems. Sorry ...\n"),"scifunction");
     goto L9999;
   }
   if (Top - Rhs + Lhs + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),"scifunction");
+    Scierror(18,_("%s: too many names.\n"),"scifunction");
     goto L9999;
   }
   goto L91;
@@ -1930,7 +1932,7 @@ int C2F(scifunction)(integer *number,integer *ptr,integer *mlhs,integer *mrhs)
   k = C2F(com).fun;
   C2F(com).fun = 0;
   if (k == krec) {
-    Scierror(22,_("%s : recursion problems. Sorry ...\n"),"scifunction");
+    Scierror(22,_("%s: recursion problems. Sorry ...\n"),"scifunction");
     goto L9999;
   }
   if (k == 0) {
@@ -2137,11 +2139,11 @@ int C2F(scibuiltin)(integer *number,integer *ifun,integer *ifin,integer *mlhs,in
   }
  L89:
   if (Top < Rhs) {
-    Scierror(22,_("%s : recursion problems. Sorry ...\n"),_("built in"));
+    Scierror(22,_("%s: recursion problems. Sorry ...\n"),_("built in"));
     goto L9999;
   }
   if (Top - Rhs + Lhs + 1 >= Bot) {
-    Scierror(18,_("%s : too many names.\n"),"");
+    Scierror(18,_("%s: too many names.\n"),"");
     goto L9999;
   }
   goto L91;
@@ -2156,7 +2158,7 @@ int C2F(scibuiltin)(integer *number,integer *ifun,integer *ifin,integer *mlhs,in
   k = C2F(com).fun;
   C2F(com).fun = 0;
   if (k == krec) {
-    Scierror(22,_("%s : recursion problems. Sorry ...\n"),_("built in"));
+    Scierror(22,_("%s: recursion problems. Sorry ...\n"),_("built in"));
     goto L9999;
   }
   if (k == 0) {
@@ -2320,11 +2322,11 @@ int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,in
     Scierror(999,_("Invalid time domain.\n"));
     return FALSE_;
   }
-  for (ix = 0; ix < 23; ++ix)
+  for (ix = 0; ix < 23; ++ix) /* @TODO : what is 23 ? */
     {
       if (iwork[ix] != *istk(junk + ix)) {
-       Scierror(999,_("Invalid system.\n"));
-       return FALSE_;
+                 Scierror(999,_("Invalid system.\n"));
+                 return FALSE_;
       }
     }
   if (! C2F(getlistrhsvar)(lw, &cx2, "d", &ma, &na, ptra, 1L)) return FALSE_;
@@ -2333,7 +2335,7 @@ int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,in
   if (! C2F(getlistrhsvar)(lw, &cx5, "d", &md, &nd, ptrd, 1L)) return FALSE_;
   if (! C2F(getlistrhsvar)(lw, &cx6, "d", &mx0, &nx0, ptrx0, 1L))  return FALSE_;
   if (ma != na) {
-    Scierror(999,_("A matrix non square!\n"));
+    Scierror(999,_("A non square matrix!\n"));
     return FALSE_;
   }
   if (ma != mb && mb != 0) {
@@ -2365,7 +2367,7 @@ int C2F(getrhssys)(integer *lw,integer *n,integer *m,integer *p,integer *ptra,in
 
 int C2F(errorinfo)(char *fname,integer *info,unsigned long fname_len)
 {
-  Scierror(998,_("%s : internal error, info=%d.\n"),get_fname(fname,fname_len),*info);
+  Scierror(998,_("%s: internal error, info=%d.\n"),get_fname(fname,fname_len),*info);
   return 0;
 }
 
@@ -2430,13 +2432,17 @@ static int Check_references()
                                                                case 'i' :
                                                                case 'r' :
                                                                case 'd' :
-                                                                       size  = m * n * (it + 1); break;
+                                                                       size  = m * n * (it + 1); 
+                                                                       break;
                                                                case 'z' :
-                                                                       size  = 0;break; /* size is unsued for 'z' in ConvertData;*/
+                                                                       size  = 0;
+                                                                       break; /* size is unsued for 'z' in ConvertData;*/
                                                                case 'c' :
-                                                                       size =*istk(il + 4  +1) - *istk(il + 4 ); break;
+                                                                       size =*istk(il + 4  +1) - *istk(il + 4 ); 
+                                                                       break;
                                                                case 'b' :
-                                                                       size = m*n ; break;
+                                                                       size = m*n ; 
+                                                                       break;
                                                                default:
                                                                        return FALSE_;
                                                        }
@@ -2517,7 +2523,7 @@ int C2F(putlhsvar)()
        */
       if (nbvars1 + ivar > intersiz)
          {
-               Scierror(999,_("putlhsvar: intersiz is too small.\n"));
+               Scierror(999,_("%s: intersiz is too small.\n"),"putlhsvar");
                return FALSE_;
       }
       C2F(intersci).ntypes[nbvars1 + ivar - 1] = '$';
@@ -2717,7 +2723,7 @@ int Ref2val(int from , int to )
   lw = from + Top - Rhs;
   if ( from  > Rhs)
   {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),"copyref","isref");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),"copyref","isref");
     return FALSE_;
   }
   il = iadr(*Lstk(lw));
@@ -2912,7 +2918,7 @@ int check_dims(int posi,int m,int n,int m1,int n1)
 {
   if ( m != m1 ||  n != n1 )
     {
-      Scierror(999,_("%s : %s has wrong dimensions (%d,%d), expecting (%d,%d).\n"),Get_Iname(),ArgPosition(posi),m,n,m1,n1);
+      Scierror(999,_("%s: %s has wrong dimensions (%d,%d), expecting (%d,%d).\n"),Get_Iname(),ArgPosition(posi),m,n,m1,n1);
       return FALSE_;
     }
   return TRUE_;
@@ -2922,7 +2928,7 @@ int check_one_dim(int posi,int dim,int val,int valref)
 {
   if ( val != valref)
     {
-      Scierror(999,_("%s : %s has wrong %s dimension (%d), expecting (%d).\n"), Get_Iname(), ArgPosition(posi),  ( dim == 1 ) ? _("first") : _("second") , val,valref);
+      Scierror(999,_("%s: %s has wrong %s dimension (%d), expecting (%d).\n"), Get_Iname(), ArgPosition(posi),  ( dim == 1 ) ? _("first") : _("second") , val,valref);
       return FALSE_;
     }
   return TRUE_;
@@ -2932,7 +2938,7 @@ int check_length(int posi,int m,int m1)
 {
   if ( m != m1 )
     {
-      Scierror(999,_("%s : %s has wrong length %d, expecting (%d).\n"), Get_Iname(), ArgPosition(posi), m, m1);
+      Scierror(999,_("%s: %s has wrong length %d, expecting (%d).\n"), Get_Iname(), ArgPosition(posi), m, m1);
       return FALSE_;
     }
   return TRUE_;
@@ -2941,7 +2947,7 @@ int check_length(int posi,int m,int m1)
 int check_same_dims(int i,int j,int m1,int n1,int m2,int n2)
 {
   if ( m1 == m2 && n1 == n2 ) return TRUE_ ;
-  Scierror(999,_("%s : %s have incompatible dimensions (%dx%d) # (%dx%d)\n"),Get_Iname(), ArgsPosition(i,j),  m1,n1,m2,n2);
+  Scierror(999,_("%s: %s have incompatible dimensions (%dx%d) # (%dx%d)\n"),Get_Iname(), ArgsPosition(i,j),  m1,n1,m2,n2);
   return FALSE_;
 }
 
@@ -2949,7 +2955,7 @@ int check_dim_prop(int i,int j,int flag)
 {
   if ( flag )
     {
-      Scierror(999,_("%s : %s have incompatible dimensions.\n"), Get_Iname(), ArgsPosition(i,j));
+      Scierror(999,_("%s: %s have incompatible dimensions.\n"), Get_Iname(), ArgsPosition(i,j));
       return FALSE_;
     }
   return TRUE_;
@@ -2960,7 +2966,7 @@ static int check_list_prop(char *mes, int lpos,int posi, int m)
 {
   if ( m )
     {
-      Scierror(999,_("%s : %s should be a list with %d-element being %s.\n"), Get_Iname(), ArgPosition(posi),posi,mes);
+      Scierror(999,_("%s: %s should be a list with %d-element being %s.\n"), Get_Iname(), ArgPosition(posi),posi,mes);
       return FALSE_;
     }
   return TRUE_;
@@ -2995,7 +3001,7 @@ int check_list_one_dim(int lpos,int posi,int dim,int val,int valref)
 {
   if ( val != valref)
     {
-      Scierror(999,_("%s : argument %d(%d) has wrong %s dimension (%d), expecting (%d).\n"),Get_Iname(),lpos,posi,( dim == 1 ) ? _("first") : _("second") , val,valref);
+      Scierror(999,_("%s: argument %d(%d) has wrong %s dimension (%d), expecting (%d).\n"),Get_Iname(),lpos,posi,( dim == 1 ) ? _("first") : _("second") , val,valref);
       return FALSE_;
     }
   return TRUE_;
@@ -3012,13 +3018,13 @@ int C2F(createdata)(integer *lw, integer n)
   integer lw1;
   char *fname = Get_Iname();
   if (*lw > intersiz) {
-    Scierror(999,_("%s : (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createdata");
+    Scierror(999,_("%s: (%s) too many arguments in the stack edit stack.h and enlarge intersiz.\n"),fname,"createdata");
     return FALSE_ ;
   }
   Nbvars = Max(*lw,Nbvars);
   lw1 = *lw + Top - Rhs;
   if (*lw < 0) {
-    Scierror(999,_("%s : bad call to %s! (1rst argument).\n"),fname,"createdata");
+    Scierror(999,_("%s: bad call to %s! (1rst argument).\n"),fname,"createdata");
     return FALSE_ ;
   }
   if (! C2F(credata)(fname, &lw1, n, nlgh))    return FALSE_;
@@ -3150,7 +3156,7 @@ int C2F(createreffromname)(int number, char *name)
   }
   else
     {
-      Scierror(999,_("CreateRefFromName: variable %s not found.\n"),name);
+      Scierror(999,_("%s: variable %s not found.\n"),"CreateRefFromName",name);
       return 0;
     }
 }
index 24b4cf2..8ebf9b0 100644 (file)
@@ -16,7 +16,6 @@
 #include "Scierror.h"
 
 extern int C2F(dmcopy)  __PARAMS((double *a, integer *na, double *b, integer *nb, integer *m, integer *n));
-extern int C2F(stackg)  __PARAMS((integer *id));
 extern int C2F(stackp)  __PARAMS((integer *id, integer *macmod));
 
 /*------------------------------------------------------*/
@@ -269,7 +268,7 @@ int C2F(creadchain)(char *namex,  integer *itslen,  char *chai,  unsigned long n
        return FALSE_;
     }
     if (m1 * n1 != 1) {
-      Scierror(999,_("creadchain: argument must be a string.\n"));
+      Scierror(999,_("%s: argument must be a string.\n"),"creadchain");
       return FALSE_ ;
     }
 
index c19ed66..5aa1a02 100644 (file)
@@ -64,14 +64,13 @@ integer getIntermediateMemoryNeeded(void)
 /*--------------------------------------------------------------------------*/
 BOOL is_a_valid_size_for_scilab_stack(int sizestack)
 {
-       BOOL bOK=TRUE;
        double dsize = ((double) sizeof(double)) * (sizestack);
        unsigned long ulsize = ((unsigned long)sizeof(double)) * (sizestack);
        if ( dsize != (double) ulsize)
        {
-               bOK=FALSE;
+               return FALSE;
        }
-       return bOK;
+       return TRUE;
 }
 /*--------------------------------------------------------------------------*/
 unsigned long get_max_memory_for_scilab_stack(void)
index e282199..76d0c5a 100644 (file)
@@ -3,6 +3,7 @@
 #include "machine.h"
 #include "str2sci.h"
 #include "cvstr.h"
+#include "error.h"
 
 void str2sci(char** x,int n,int m)
 {
index 3966a3d..206b8e1 100644 (file)
@@ -6,6 +6,7 @@
 #include "stack-c.h"
 #include "core_math.h"
 #include "parse.h"
+#include "error.h"
 /*--------------------------------------------------------------------------*/ 
 #define Pt (C2F(recu).pt)
 /*--------------------------------------------------------------------------*/ 
@@ -15,8 +16,6 @@ IMPORT struct {
 /*--------------------------------------------------------------------------*/ 
 int C2F(syncexec)(char *str, int *ns, int *ierr, int *seq, long int str_len)
 {
-       extern int C2F(iset)();
-       extern int C2F(ref2val)();
        extern int C2F(bexec)();
 
        /* Local variables */
index 249d2ca..085f396 100644 (file)
@@ -21,16 +21,16 @@ static int texmacs_mode=0;
 
 extern int LineRead();
 
-void settexmacs() {
+void settexmacs(void) {
   texmacs_mode=1;
 }
 
 
-int  C2F(intexmacs)() {
+int  C2F(intexmacs)(void) {
   return texmacs_mode;
 }
 
-void next_input () {
+void next_input (void) {
   fprintf(stdout,"%cchannel:prompt%c",DATA_BEGIN,DATA_END);
   if (Pause==0)
     fprintf(stdout,SCIPROMPT);
@@ -40,7 +40,7 @@ void next_input () {
   fprintf(stdout,"%c",DATA_END);fflush (stdout);
 }
 
-extern void
+void
 C2F(texmacsin)(char buffer[],int *buf_size, int *len_line,int *eof,long int dummy1)
 {
 
index 82d4c88..24f2d63 100644 (file)
@@ -75,7 +75,7 @@ void C2F(settmpdir)(void)
                  exit(1);
                  #else
                  GetTempPath(PATH_MAX,TmpDirDefault);
-                 sprintf(tmp_dir,"%s",TmpDirDefault);
+                 strcpy(tmp_dir,TmpDirDefault);
                  tmp_dir[strlen(tmp_dir)-1]='\0'; /* Remove last \ */
                  #endif
                }
index 32e6125..af6172e 100644 (file)
@@ -8,7 +8,6 @@
 /*--------------------------------------------------------------------------*/
 BOOL with_module(char *modulename)
 {
-       BOOL bOK=FALSE;
        if (modulename)
        {
                struct MODULESLIST *Modules=getmodules();
@@ -23,7 +22,7 @@ BOOL with_module(char *modulename)
                        }
                }
        }
-       return bOK;
+       return FALSE;
 
 }
 /*--------------------------------------------------------------------------*/