Localization (fileio)
Allan Cornet [Wed, 28 May 2008 09:51:45 +0000 (09:51 +0000)]
25 files changed:
scilab/modules/fileio/macros/cd.sci
scilab/modules/fileio/macros/copyfile.sci
scilab/modules/fileio/macros/mdelete.sci
scilab/modules/fileio/macros/mkdir.sci
scilab/modules/fileio/macros/mputl.sci
scilab/modules/fileio/macros/rmdir.sci
scilab/modules/fileio/sci_gateway/c/sci_createdir.c
scilab/modules/fileio/sci_gateway/c/sci_deletefile.c
scilab/modules/fileio/sci_gateway/c/sci_fileext.c
scilab/modules/fileio/sci_gateway/c/sci_findfiles.c
scilab/modules/fileio/sci_gateway/c/sci_fprintfMat.c
scilab/modules/fileio/sci_gateway/c/sci_fullpath.c
scilab/modules/fileio/sci_gateway/c/sci_getlongpathname.c
scilab/modules/fileio/sci_gateway/c/sci_getshortpathname.c
scilab/modules/fileio/sci_gateway/c/sci_isdir.c
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/fileio/sci_gateway/c/sci_mfscanf.c
scilab/modules/fileio/sci_gateway/c/sci_mscanf.c
scilab/modules/fileio/sci_gateway/c/sci_msscanf.c
scilab/modules/fileio/sci_gateway/c/sci_removedir.c
scilab/modules/fileio/src/c/do_xxprintf.c
scilab/modules/fileio/src/c/do_xxscanf.c
scilab/modules/fileio/src/c/mget.c
scilab/modules/fileio/src/c/mput.c
scilab/modules/fileio/src/c/mseek.c

index 5e00640..48de3e7 100644 (file)
@@ -20,7 +20,7 @@ function path=cd(path)
       chdir(path)
     else
       if ~isdir(path) then
-        error('Can''t go to directory '+path,998);
+        error(msprintf(gettext("%s: Cannot go to directory %s\n"),'cd',path),998);
       end
       chdir(path)
     end 
index 0859642..148ae17 100644 (file)
@@ -33,7 +33,7 @@ case 3
   if (flag=='WRITABLE') then
        Writable=%T;
   else
-       error(msprintf(gettext("%s: Wrong value for third input argument: %s expected.\n"),fname,"WRITABLE"));
+       error(msprintf(gettext("%s: Wrong value for input argument #%d: %s expected.\n"),fname,3,"WRITABLE"));
   end
   break
 else
index 634811b..799f45d 100644 (file)
@@ -27,7 +27,7 @@ function mdelete(filename)
        end
        
        if type(filename)<>10 | size(filename,"*")<>1 then
-               error("Wrong type argument, expecting a character string");
+               error(msprintf(gettext("%s: Wrong type for input argument: String expected.\n"),'mdelete'));
        end
        
        // Handle file path
index 84198e7..5c71e90 100644 (file)
@@ -22,7 +22,7 @@ function [status,msg]=mkdir(varargin)
        select rhs
 
        case 0
-               error('Number of parameters incorrect.');
+         error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),'mkdir'));
                break
        
        case 1
@@ -44,7 +44,7 @@ function [status,msg]=mkdir(varargin)
                break
                
        else
-               error('Number of parameters incorrect.');
+               error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),'mkdir'));
        end
        
        if (fileinfo(NewDirectory)==[]) then
@@ -69,7 +69,7 @@ function [status,msg]=mkdir(varargin)
        case 1
                status = createdir(NewDirectory);
                if (~status) then
-                       msg    = "Error(s) Impossible to create directory "+NewDirectory+".";
+                       msg    =  msprintf(gettext("%s: An error occurred: %s\n"),'mkdir',gettext('Impossible to create directory ')) + NewDirectory;
                        status = 0;
                else
                        msg    = '';
@@ -78,15 +78,15 @@ function [status,msg]=mkdir(varargin)
                break
                
        case 2
-               msg = "This directory already exists in "+DirName+".";
+         msg    =  msprintf(gettext("%s: An error occurred: %s\n"),'mkdir',gettext('This directory already exists in ')) + NewDirectory;
                break
 
        case -2
-               msg = "A file with the same name already exists in "+DirName+".";
+         msg    =  msprintf(gettext("%s: An error occurred: %s\n"),'mkdir',gettext('A file with the same name already exists in ')) + DirName;
                break
-       
+
        else
-               msg = "Error(s) Impossible to create directory "+NewDirectory+".";
+               msg    =  msprintf(gettext("%s: An error occurred: %s\n"),'mkdir',gettext('Impossible to create directory ')) + NewDirectory;
        end
        
 endfunction
index 0634425..3587ded 100644 (file)
@@ -37,7 +37,9 @@ else
     opened=%t;
     fil=fd;
     [fd,ierr]=mopen(fil,'wb');
-    if ierr~=0 then error('File '+fil+' cannot be opened for writing'),end
+    if ierr~=0 then 
+      error(msprintf(gettext("%s: Cannot open file %s.\n"),'mputl',fil));
+    end
   else // file given by its logical unit
     opened=%f;
   end
index 1c94396..fa95948 100644 (file)
@@ -19,7 +19,7 @@ function [status,msg]=rmdir(varargin)
   
   select rhs
     case 0
-     error('Number of parameters incorrect.'); 
+     error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),'rmdir'));
     break
     case 1
       DirName = varargin(1);
@@ -30,11 +30,11 @@ function [status,msg]=rmdir(varargin)
       if (SubDir == 'S') then
         SubDirMode = %T;
       else
-        error('Second parameters incorrect.');
+        error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be ''%s''.\n"),'rmdir',2,'s'));
       end
     break
   else
-     error('Number of parameters incorrect.');
+     error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),'rmdir'));
   end
   
   if ~SubDirMode then
@@ -59,11 +59,11 @@ function [status,msg]=hidden_rmdir(DirName)
       msg = '';
       status = 1;
     else
-      msg = 'Error : Undefined error.';
+      msg = msprintf(gettext("%s: An error occurred: %s\n"),'rmdir', gettext('Undefined'));
       status = 0;
     end
   else
-    msg = 'Error : The system cannot find the file specified.'; 
+    msg = msprintf(gettext("%s: An error occurred: %s\n"),'rmdir', gettext('The system cannot find the file specified.'));
     status = 0;
   end
   
index 38a3ffa..6731c30 100644 (file)
@@ -60,7 +60,7 @@ int C2F(sci_createdir)(char *fname,unsigned long l)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"), fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"), fname);
        }
        return 0;
 }
index db36458..fb5097c 100644 (file)
@@ -48,7 +48,7 @@ int C2F(sci_deletefile)(char *fname,unsigned long fname_len)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"),fname);
        }
        return 0;
 }
index b52717c..a644b69 100644 (file)
@@ -63,7 +63,7 @@ int C2F(sci_fileext)(char *fname,unsigned long fname_len)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"),fname);
        }
        return 0;
 }
index 4200d0b..dcf6357 100644 (file)
@@ -76,7 +76,7 @@ int C2F(sci_findfiles)(char *fname,unsigned long fname_len)
                        }
                        else
                        {
-                               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+                               Scierror(999,_("%s: Wrong type for input argument #%d: String expected.\n"),fname,1);
                                return 0;
                        }
 
@@ -97,7 +97,7 @@ int C2F(sci_findfiles)(char *fname,unsigned long fname_len)
                        }
                        else
                        {
-                               Scierror(999,_("%s: Wrong type for first and/or second argument(s): Strings expected.\n"),fname);
+                               Scierror(999,_("%s: Wrong type for input arguments: Strings expected.\n"),fname); 
                                return 0;
                        }
                }
index c47cd9c..d2a5872 100644 (file)
@@ -27,7 +27,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument #%d: String expected.\n"),fname,1);
                return 0;
        }
 
@@ -46,13 +46,13 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
                }
                else
                {
-                       Scierror(999,_("%s: Wrong type for second input argument: Real values expected.\n"),fname);
+                       Scierror(999,_("%s: Wrong type for input argument #%d: Real values expected.\n"),fname,2);
                        return 0;
                }
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for second input argument: Matrix of floating point numbers expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument #%d: Matrix of floating point numbers expected.\n"),fname,2);
                return 0;
        }
 
index 3eadf83..ffba836 100644 (file)
@@ -56,12 +56,12 @@ int C2F(sci_fullpath)(char *fname,unsigned long fname_len)
                }
                else
                {
-                       Scierror(999,_("%s: Wrong value for first input argument: '%s' is an invalid path.\n"),fname,relPath);
+                       Scierror(999,_("%s: Wrong value for input argument #%d: '%s' is an invalid path.\n"),fname,1,relPath);
                }
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument #%d: String expected.\n"),fname,1);
        }
 
        return 0;
index 93fa8c8..499236b 100644 (file)
@@ -23,7 +23,7 @@ int C2F(sci_getlongpathname)(char *fname,unsigned long l)
 {
        static int l1,n1,m1;
 
-       CheckRhs(0,1);
+       CheckRhs(1,1);
        CheckLhs(1,2);
 
        if (GetType(1) == sci_strings)
@@ -57,7 +57,7 @@ int C2F(sci_getlongpathname)(char *fname,unsigned long l)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"),fname);
        }
        return 0;
 }
index ed8d67e..2011934 100644 (file)
@@ -58,7 +58,7 @@ int C2F(sci_getshortpathname)(char *fname,unsigned long l)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"),fname);
        }
        return 0;
 }
index 8359583..7116606 100644 (file)
@@ -34,7 +34,7 @@ int C2F(sci_isdir)(char *fname,unsigned long fname_len)
        
        if (! (GetType(1) == sci_strings))
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"),fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"),fname);
                return 0;
        }
        else
@@ -52,7 +52,7 @@ int C2F(sci_isdir)(char *fname,unsigned long fname_len)
                }
                else
                {
-                       Scierror(999,_("%s: Wrong size for first input argument: Single string expected.\n"),fname);
+                       Scierror(999,_("%s: Wrong size for input argument: Single string expected.\n"),fname);
                        return 0;
                }
 
@@ -60,7 +60,7 @@ int C2F(sci_isdir)(char *fname,unsigned long fname_len)
                
                if( strlen(path) > PATH_MAX )
                {
-                 Scierror(999,_("%s: Wrong size for first input argument: Must be less than %d characters.\n"),fname,PATH_MAX);
+                 Scierror(999,_("%s: Wrong size for input argument: Must be less than %d characters.\n"),fname,PATH_MAX);
                }
                
                /* Crappy workaround because a / was added after SCI & ~ into 
index fcbe82e..7f51f06 100644 (file)
@@ -78,13 +78,13 @@ int C2F(sci_maxfiles)(char *fname,unsigned long fname_len)
                        }
                        else
                        {
-                               Scierror(999,_("%s: Wrong size for first input argument: Scalar expected.\n"),fname);
+                               Scierror(999,_("%s: Wrong size for input argument: Scalar expected.\n"),fname);
                                return 0;
                        }
                }
                else
                {
-                       Scierror(999,_("%s: Wrong type for first input argument: Matrix expected.\n"),fname);
+                       Scierror(999,_("%s: Wrong type for input argument: Matrix expected.\n"),fname);
                        return 0;
                }
        }
index 7ac7999..2d30743 100644 (file)
@@ -33,7 +33,7 @@ int int_objfscanf(char *fname,unsigned long fname_len)
                GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1 != 1 )
                {
-                       Scierror(999,_("%s: Wrong size for first input argument: Scalar expected.\n"),fname);
+                       Scierror(999,_("%s: Wrong size for input argument #%d: Scalar expected.\n"),fname,1);
                        return 0;
                }
                iarg=2;
index 9e8624e..43890bf 100644 (file)
@@ -37,7 +37,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
                GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1 != 1) 
                {
-                       Scierror(999,_("%s: Wrong size for first input argument: Scalar expected.\n"),fname);
+                       Scierror(999,_("%s: Wrong size for input argument #%d: Scalar expected.\n"),fname,1);
                        return 0;
                }
                iarg=2;
@@ -71,7 +71,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
 
                if(status != 0) 
                {
-                       Scierror(999,_("Error: in scanf\n"));
+                       Scierror(999,_("%s: An error occurred: %s\n"),fname,"[EOF]"); 
                        return 0;
                }
 
@@ -80,14 +80,6 @@ int int_objscanf(char *fname,unsigned long fname_len)
                args = Rhs; /* args set to Rhs on entry */
                if (do_xxscanf("scanf",(FILE *) 0,cstk(l1),&args,String,&retval,buf,type) < 0) return 0;
 
-               if ( retval == EOF)
-               {
-                       /* 
-                       Scierror(999,"Error: in %s: end of file reached\n",fname);
-                       return 0;
-                       */
-               }
-
                if ((err=Store_Scan(&nrow,&ncol,type_s,type,&retval,&retval_s,buf,&data,rowcount,args)) <0 )
                {
                        switch (err)
index 00dcba2..9d64444 100644 (file)
@@ -32,7 +32,7 @@ int int_objsscanf(char *fname,unsigned long fname_len)
                GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1!=1)
                {
-                       Scierror(999,_("%s: Wrong size for first input argument: Scalar expected.\n"),fname);
+                       Scierror(999,_("%s: Wrong size for input argument #%d: Scalar expected.\n"),fname,1);
                        return 0;
                }
 
@@ -52,7 +52,7 @@ int int_objsscanf(char *fname,unsigned long fname_len)
 
        if ( (maxrow >= 0) && (maxrow*n_count>m1*n1) )
        {
-               Scierror(999,_("%s: Not enough entries in str.\n"),fname);
+               Scierror(999,_("%s: An error occurred: %s\n"),fname,_("Not enough entries."));
                return 0;
        }
 
@@ -73,15 +73,6 @@ int int_objsscanf(char *fname,unsigned long fname_len)
                FREE(str);
                if ( err < 0 )  return 0;
 
-               if ( retval == EOF)
-               {
-                       /*
-                       first returned argument wil be set to -1
-                       Scierror(999,"Error: in %s: end of string reached\n",fname);
-                       return 0;
-                       */
-               }
-
                if ((err=Store_Scan(&nrow,&ncol,type_s,type,&retval,&retval_s,buf,&data,rowcount,args)) <0 )
                {
                        switch (err)
index aae3337..565dd73 100644 (file)
@@ -53,7 +53,7 @@ int C2F(sci_removedir)(char *fname,unsigned long l)
        }
        else
        {
-               Scierror(999,_("%s: Wrong type for first input argument: String expected.\n"), fname);
+               Scierror(999,_("%s: Wrong type for input argument: String expected.\n"), fname);
        }
        return 0;
 }
index 79af87b..446affd 100644 (file)
@@ -238,7 +238,7 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                                {
                                        if (target > sprintf_limit)     /* over sprintf_limit */
                                        {
-                                               Scierror(998,_("%s: Buffer too small.\n"),fname);
+                                               Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Buffer too small."));
                                                return RET_BUG;
                                        }
                                        else
@@ -343,11 +343,11 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                                {
                                        if (*tmpcurrentchar == 's')
                                        {
-                                               Scierror(998,_("%s: Bad conversion l or h flag mixed with s directive.\n"),fname);
+                                               Scierror(998,_("%s: Bad conversion 'l' or 'h' flag mixed with 's' directive.\n"),fname);
                                        }
                                        else /* 'c' */
                                        {
-                                               Scierror(998,_("%s: Bad conversion l or h flag mixed with c directive.\n"),fname);
+                                               Scierror(998,_("%s: Bad conversion 'l' or 'h' flag mixed with 'c' directive.\n"),fname);
                                        }
                                }
 
@@ -412,7 +412,7 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                        case 'G':
                        if (high_flag + low_flag)
                        {
-                               Scierror(998,_("%s: Bad conversion.\n"),fname);
+                               Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Bad conversion."));
                                return RET_BUG;
                        }
                        rval=GetScalarDouble(fname,&prev,&arg_count,nargs,&ccount,lcount,&dval);
@@ -429,12 +429,12 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                        break;
 
                case 'o':
-                       Scierror(998,_("%s: 'o' format not allowed.\n"),fname);
+                       Scierror(998,_("%s: An error occurred: %s\n"),fname,_("'o' format not allowed."));
                        return RET_BUG;
                        break;
 
                default:
-                       Scierror(998,_("%s: Bad conversion.\n"),fname);
+                       Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Bad conversion."));
                        return RET_BUG;
                }
 
index f8f6563..1e6b152 100644 (file)
@@ -133,7 +133,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
 
                        if ( *currentchar1 == '\0')
                        {
-                               Scierror(998,_("Error:\tscanf, unclosed [ directive\n"));
+                               Scierror(998,_("%s: An error occurred: %s\n"),fname,_("unclosed [ directive."));
                                return RET_BUG;
                        }
 
@@ -144,7 +144,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
 
                                if ( *currentchar1 == '\0')
                                {
-                                       Scierror(998,_("Error:\tscanf unclosed [ directive\n"));
+                                       Scierror(998,_("%s: An error occurred: %s\n"),fname,_("unclosed [ directive."));
                                        return RET_BUG;
                                }
                        }
@@ -161,7 +161,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
 
                        if ( num_conversion >= MAXSCAN )
                        {
-                               Scierror(998,_("Error:\tscanf too many (> %d) conversion required\n"),num_conversion,MAXSCAN);
+                               Scierror(998,_("%s: An error occurred: too many (> %d) conversion required.\n"),fname,MAXSCAN);
                                return RET_BUG;
                        }
 
@@ -172,7 +172,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
 
                                if (width_flag == 1 && width_val > MAX_STR-1 )
                                {
-                                       Scierror(998,_("Error:\tscanf, width field %d is too long (> %d) for %%[ directive\n"),width_val,MAX_STR-1);
+                                       Scierror(998,_("%s: An error occurred: field %d is too long (> %d) for %%[ directive.\n"),fname,width_val,MAX_STR-1);
                                        return RET_BUG;
                                }
 
@@ -184,14 +184,14 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
                        case 's':
                                if (l_flag + h_flag)
                                {
-                                       Scierror(998,_("Error:\tscanf: bad conversion\n"));
+                                       Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Bad conversion."));
                                        return RET_BUG;
                                }
 
                                if (width_flag == 0 ) str_width_flag = 1;
                                if (width_flag == 1 && width_val > MAX_STR-1 )
                                {
-                                       Scierror(998,_("Error:\tscanf, width field %d is too long (< %d) for %%s directive\n"),width_val,MAX_STR-1);
+                                       Scierror(998,_("%s: An error occurred: field %d is too long (< %d) for %%s directive.\n"),fname,width_val,MAX_STR-1);
                                        return RET_BUG;
                                }
 
@@ -204,7 +204,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
                        case 'c':
                                if (l_flag + h_flag)
                                {
-                                       Scierror(998,_("Error:\tscanf: bad conversion\n"));
+                                       Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Bad conversion."));
                                        return RET_BUG;
                                }
 
@@ -213,7 +213,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
 
                                if (width_flag == 1 && width_val > MAX_STR-1 )
                                {
-                                       Scierror(998,_("Error:\tscanf width field %d is too long (< %d) for %%c directive\n"),width_val,MAX_STR-1);
+                                       Scierror(998,_("%s: An error occurred: field %d is too long (< %d) for %%c directive.\n"),fname,width_val,MAX_STR-1);
                                        return RET_BUG;
                                }
 
@@ -270,7 +270,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
                        case 'e': case 'f': case 'g': case 'E': case 'G':
                                if (h_flag)
                                {
-                                       Scierror(998,_("Error:\tscanf: bad conversion\n"));
+                                       Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Bad conversion."));
                                        return RET_BUG;
                                }
                                else if (l_flag)
@@ -286,7 +286,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
                                break;
 
                        default:
-                               Scierror(998,_("Error:\tscanf: bad conversion\n"));
+                               Scierror(998,_("%s: An error occurred: %s\n"),fname,_("Bad conversion."));
                                return RET_BUG;
                                break;
                        }
@@ -314,7 +314,7 @@ int do_xxscanf (char *fname, FILE *fp, char *format, int *nargs, char *strv, int
 
                        if ( f2 == slast )
                        {
-                               Scierror(998,_("Error:\tscanf, format is too long (> %d)\n"),MAX_STR-1);
+                               Scierror(998,_("%s: An error occurred: format is too long (> %d).\n"),fname,MAX_STR-1);
                                return RET_BUG;
                        }
                }
index 9cbcca2..e2f3c66 100644 (file)
@@ -53,7 +53,7 @@ int swap = 0;
            swap = (islittleendian()==1) ? 0:1; \
            MGET_NC(NumType,Fswap);  break; \
          default: \
-           sciprint(_("%s: Wrong value for fourth input argument: '%s' or '%s' or '%s' expected.\n"),"mget"," ","b","l"); \
+         sciprint(_("%s: Wrong value for input argument #%d: '%s' or '%s' or '%s' expected.\n"),"mget",4," ","b","l"); \
            *ierr=1; return; \
        } \
 }
@@ -169,7 +169,7 @@ void C2F(mget) (integer *fd, double *res, integer *n, char *type, integer *ierr)
        *ierr=0;
        if ( nc == 0) 
        {
-               sciprint(_("%s: Wrong size for fourth input argument: Non-empty string expected.\n"),"mput",type);
+               sciprint(_("%s: Wrong size for input argument #%d: Non-empty string expected.\n"),"mput",4,type);
                *ierr=2;
                return;
        }
@@ -178,7 +178,7 @@ void C2F(mget) (integer *fd, double *res, integer *n, char *type, integer *ierr)
        {
                swap2 = GetSwapStatus(*fd);
                mget2(fa,swap2,res,*n,type,ierr);
-               if (*ierr > 0) sciprint(_("%s: Wrong value for fourth input argument: Format not recognized.\n"),"mget");
+               if (*ierr > 0) sciprint(_("%s: Wrong value for input argument #%d: Format not recognized.\n"),"mget",4);
        }
        else 
        {
index 253ae28..b2af47d 100644 (file)
@@ -56,7 +56,7 @@ switch ( cf )  \
          swap = (islittleendian()==1) ? 0 : 1; \
          MPUT_NC(Type,Fswap); break; \
        default: \
-         sciprint(_("%s: Wrong value for fourth input argument (%s): '%s' or '%s' or '%s' expected.\n"),"mput",type," ","b","l"); \
+       sciprint(_("%s: Wrong value for input argument #%d (%s): '%s' or '%s' or '%s' expected.\n"),"mput",4,type," ","b","l"); \
          *ierr=1;return; \
 }
 /*--------------------------------------------------------------------------*/
@@ -135,7 +135,7 @@ switch ( cf )  \
          swap = (islittleendian()==1) ? 0 : 1; \
          MPUT(Type,Fswap); break; \
   default: \
-         sciprint(_("%s: Wrong value for fourth input argument (%s): '%s' or '%s' or '%s' expected.\n"),"mput",type," ","b","l"); \
+  sciprint(_("%s: Wrong value for input argument #%d (%s): '%s' or '%s' or '%s' expected.\n"),"mput",4,type," ","b","l"); \
          *ierr=1;return; \
 }
 /*--------------------------------------------------------------------------*/
@@ -178,7 +178,7 @@ void C2F(mput) (integer *fd, double *res, integer *n, char *type, integer *ierr)
        *ierr=0;
        if ((nc = (int)strlen(type)) == 0) 
        {
-               sciprint(_("%s: Wrong size for fourth input argument ('%s'): Non-empty string expected.\n"),"mput",type);
+               sciprint(_("%s: Wrong size for input argument #%d ('%s'): Non-empty string expected.\n"),"mput",4,type);
                *ierr=2;
                return;
        }
@@ -186,7 +186,7 @@ void C2F(mput) (integer *fd, double *res, integer *n, char *type, integer *ierr)
        {
                swap2 = GetSwapStatus(*fd);
                mput2(fa,swap2,res,*n,type,ierr);
-               if (*ierr > 0) sciprint(_("%s: Wrong value for fourth input argument ('%s'): Format not recognized.\n"),"mput",type);
+               if (*ierr > 0) sciprint(_("%s: Wrong value for input argument #%d ('%s'): Format not recognized.\n"),"mput",4,type);
        }
        else 
        {
index 6610a50..af3c829 100644 (file)
@@ -52,7 +52,7 @@ void C2F(mseek) (integer *fd, integer *offset, char *flag, integer *err)
                iflag = SEEK_END;
        else 
        {
-               sciprint(_("%s: Wrong value for third input argument: '%s', '%s' or '%s' expected.\n"),"mseek","set","cur","end");
+               sciprint(_("%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n"),"mseek",3,"set","cur","end");
                *err=1;
                return;
        }