Update for the localization
Sylvestre Ledru [Thu, 18 Oct 2007 16:28:50 +0000 (16:28 +0000)]
35 files changed:
scilab/modules/fileio/locales/en_US/messages.pot
scilab/modules/fileio/macros/listvarinfile.sci
scilab/modules/fileio/sci_gateway/c/intreadxls.c
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_fileio.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_fscanfMat.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_mfprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mfscanf.c
scilab/modules/fileio/sci_gateway/c/sci_mprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mscanf.c
scilab/modules/fileio/sci_gateway/c/sci_msprintf.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/fileio.c
scilab/modules/fileio/src/c/logger.c
scilab/modules/fileio/src/c/mclose.c
scilab/modules/fileio/src/c/mget.c
scilab/modules/fileio/src/c/mopen.c
scilab/modules/fileio/src/c/mput.c
scilab/modules/fileio/src/c/mseek.c
scilab/modules/fileio/src/c/ole.c
scilab/modules/fileio/src/c/olestream-unwrap.c
scilab/modules/fileio/src/c/pldstr.c
scilab/modules/fileio/src/c/ripole.c

index aa54ac0..97bc44b 100644 (file)
@@ -20,125 +20,6 @@ msgstr      "Project-Id-Version: Scilab - fileio\n"
 msgid  "Wrong number of inputs!"
 msgstr ""
 #
-# File: macros/fullfile.sci, line: 22
-# File: macros/mdelete.sci, line: 26
-# File: macros/mdelete.sci, line: 30
-# File: macros/mdelete.sci, line: 40
-# File: src/c/getdrives.c, line: 46
-msgid  "/"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 6
-# File: src/c/ole.c, line: 1443
-# File: sci_gateway/c/sci_fileio.c, line: 52
-# File: sci_gateway/c/intreadxls.c, line: 151
-msgid  "rb"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 8
-msgid  "constant"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 9
-msgid  "polynomial"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 10
-msgid  "???boolean"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 12
-msgid  "sparse"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 13
-msgid  "boolean sparse"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 14
-msgid  "Matlab sparse"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 15
-msgid  "integergraphic handle"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 17
-msgid  "string"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 18
-msgid  "function"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 19
-msgid  "???function"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 21
-msgid  "library"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 22
-msgid  "listtlistmlist"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 33
-msgid  "Name"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 33
-msgid  "Type"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 33
-msgid  "Size"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 34
-msgid  "Bytes"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 35
-msgid  "---------------------------------------------------------------"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 39
-# File: macros/listvarinfile.sci, line: 81
-# File: macros/listvarinfile.sci, line: 85
-# File: macros/listvarinfile.sci, line: 92
-# File: macros/listvarinfile.sci, line: 95
-# File: macros/listvarinfile.sci, line: 102
-# File: macros/listvarinfile.sci, line: 109
-# File: macros/listvarinfile.sci, line: 117
-# File: macros/listvarinfile.sci, line: 123
-# File: macros/listvarinfile.sci, line: 154
-# File: macros/listvarinfile.sci, line: 156
-# File: macros/listvarinfile.sci, line: 162
-# File: macros/listvarinfile.sci, line: 164
-# File: macros/listvarinfile.sci, line: 166
-# File: macros/listvarinfile.sci, line: 171
-# File: macros/listvarinfile.sci, line: 173
-# File: macros/listvarinfile.sci, line: 175
-# File: macros/listvarinfile.sci, line: 179
-# File: macros/listvarinfile.sci, line: 182
-# File: macros/listvarinfile.sci, line: 188
-# File: macros/listvarinfile.sci, line: 196
-# File: macros/listvarinfile.sci, line: 204
-# File: macros/listvarinfile.sci, line: 214
-# File: macros/listvarinfile.sci, line: 217
-msgid  "il"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 40
-# File: macros/mdelete.sci, line: 20
-msgid  "*"
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 47
-msgid  "pointer"
-msgstr ""
-#
 # File: macros/listvarinfile.sci, line: 49
 msgid  "size implicit"
 msgstr ""
@@ -148,71 +29,21 @@ msgid      "primitive"
 msgstr ""
 #
 # File: macros/listvarinfile.sci, line: 53
-msgid  "Unknown variable type ("
-msgstr ""
-#
-# File: macros/listvarinfile.sci, line: 53
-msgid  "?), maybe wrong or corrupted file"
+msgid  "Unknown variable type (%s?), maybe wrong or corrupted file"
 msgstr ""
 #
 # File: macros/listvarinfile.sci, line: 59
 msgid  " by "
 msgstr ""
 #
-# File: macros/listvarinfile.sci, line: 61
-msgid  "unknown         unknown"
-msgstr ""
-#
 # File: macros/listvarinfile.sci, line: 62
 msgid  ".... unknown structure, I''m forced to stop here (bug 2387)"
 msgstr ""
 #
-# File: macros/listvarinfile.sci, line: 88
-# File: macros/listvarinfile.sci, line: 94
-# File: macros/listvarinfile.sci, line: 98
-# File: macros/listvarinfile.sci, line: 105
-# File: macros/listvarinfile.sci, line: 111
-# File: macros/listvarinfile.sci, line: 112
-# File: macros/listvarinfile.sci, line: 119
-# File: macros/listvarinfile.sci, line: 127
-# File: macros/listvarinfile.sci, line: 131
-# File: macros/listvarinfile.sci, line: 135
-# File: macros/listvarinfile.sci, line: 139
-# File: macros/listvarinfile.sci, line: 143
-# File: macros/listvarinfile.sci, line: 147
-# File: macros/listvarinfile.sci, line: 158
-# File: macros/listvarinfile.sci, line: 163
-# File: macros/listvarinfile.sci, line: 165
-# File: macros/listvarinfile.sci, line: 167
-# File: macros/listvarinfile.sci, line: 172
-# File: macros/listvarinfile.sci, line: 174
-# File: macros/listvarinfile.sci, line: 176
-# File: macros/listvarinfile.sci, line: 180
-# File: macros/listvarinfile.sci, line: 184
-# File: macros/listvarinfile.sci, line: 185
-# File: macros/listvarinfile.sci, line: 189
-# File: macros/listvarinfile.sci, line: 197
-# File: macros/listvarinfile.sci, line: 205
-# File: macros/listvarinfile.sci, line: 216
-# File: macros/listvarinfile.sci, line: 220
-# File: src/c/mseek.c, line: 37
-# File: src/c/xls.c, line: 613
-# File: src/c/xls.c, line: 614
-msgid  "cur"
-msgstr ""
-#
 # File: macros/mdelete.sci, line: 21
 msgid  "Wrong type argument, expecting a character string"
 msgstr ""
 #
-# File: macros/mdelete.sci, line: 33
-msgid  "./"
-msgstr ""
-#
-# File: macros/mdelete.sci, line: 40
-msgid  "\");"
-msgstr ""
-#
 # File: src/c/do_xxprintf.c, line: 40
 msgid  "Error:\tprintf: not enough arguments\n"
 msgstr ""
@@ -260,37 +91,6 @@ msgstr      ""
 msgid  "mput : format is of length 0\n"
 msgstr ""
 #
-# File: src/c/ripole.c, line: 25
-msgid  "0.2.0 - 12-December-2005 (C) PLDaniels http:/*www.pldaniels.com/"
-       "ripole"
-msgstr ""
-#
-# File: src/c/ripole.c, line: 26
-msgid  "ripOLE -i <OLE2 file> [ -d <directory> ] [--save-unknown-streams] [--"
-       "version|-V] [--verbose|-v] [--debug] [--help|-h]"
-msgstr ""
-
-#
-# File: src/c/ripole.c, line: 110
-msgid  "verbose"
-msgstr ""
-#
-# File: src/c/ripole.c, line: 114
-msgid  "save-unknown-streams"
-msgstr ""
-#
-# File: src/c/ripole.c, line: 117
-msgid  "debug"
-msgstr ""
-#
-# File: src/c/ripole.c, line: 120
-msgid  "version"
-msgstr ""
-#
-# File: src/c/ripole.c, line: 124
-msgid  "help"
-msgstr ""
-#
 # File: src/c/ripole.c, line: 129
 # File: src/c/ripole.c, line: 138
 #, c-format
@@ -337,20 +137,6 @@ msgstr     ""
 msgid  "mseek: wrong file logical unit\n"
 msgstr ""
 #
-# File: src/c/mseek.c, line: 35
-# File: src/c/xls.c, line: 75
-# File: src/c/xls.c, line: 97
-# File: src/c/xls.c, line: 289
-# File: src/c/xls.c, line: 659
-# File: src/c/xls.c, line: 690
-# File: sci_gateway/c/sci_fileio.c, line: 329
-msgid  "set"
-msgstr ""
-#
-# File: src/c/mseek.c, line: 39
-msgid  "end"
-msgstr ""
-#
 # File: src/c/mseek.c, line: 43
 #, possible-c-format
 msgid  "mseek : flag = %s not recognized\n"
@@ -392,11 +178,6 @@ msgid      "%s:%d:OLEUNWRAP_save_stream:ERROR: Unable to open %s for writing (%"
        "s)\n"
 msgstr ""
 #
-# File: src/c/olestream-unwrap.c, line: 248
-#, possible-c-format
-msgid  "unknown-%ld"
-msgstr ""
-#
 # File: src/c/olestream-unwrap.c, line: 281
 #, possible-c-format
 msgid  "%s:%d:OLEUNWRAP_decode_attachment:DEBUG: Attachment %s:%s:%s size = %"
@@ -414,10 +195,6 @@ msgstr     ""
 msgid  "Unable to decode stream with element string '%s'\n"
 msgstr ""
 #
-# File: src/c/olestream-unwrap.h, line: 3
-msgid  "Ole10Native"
-msgstr ""
-#
 # File: src/c/ole.c, line: 100
 #, c-format
 msgid  "ripOLE: %s\n"
@@ -453,53 +230,6 @@ msgstr     ""
 msgid  "%s:%d:OLE_get_block:ERROR: OLE file is closed\n"
 msgstr ""
 #
-# File: src/c/ole.c, line: 517
-#, c-format
-msgid  "%02X "
-msgstr ""
-#
-# File: src/c/ole.c, line: 713
-#, c-format
-msgid  "Minor version = %d\n"
-       "DLL version = %d\n"
-       "Byte order = %d\n"
-       "\n"
-       "Sector shift = %d\n"
-       "Sector size  = %d\n"
-       "Mini Sector shift = %d\n"
-       "Mini sector size  = %d\n"
-       "\n"
-       "FAT sector count = %d\n"
-       "First FAT sector = %d\n"
-       "\n"
-       "Maximum ministream size = %d\n"
-       "\n"
-       "First MiniFAT sector = %d\n"
-       "MiniFAT sector count = %d\n"
-       "\n"
-       "First DIF sector = %d\n"
-       "DIF sector count = %d\n"
-       "--------------------------------\n"
-msgstr ""
-#
-# File: src/c/ole.c, line: 753
-#, c-format
-msgid  "FAT[%d] = %d\n"
-msgstr ""
-#
-# File: src/c/ole.c, line: 869
-#, c-format
-msgid  "Element Name = %s\n"
-       "Element type = %d\n"
-       "Element colour = %d\n"
-       "Left Child = %d\n"
-       "Right Child = %d\n"
-       "Root = %d\n"
-       "User flags = %d\n"
-       "Start sector = %d\n"
-       "Stream Size = %d\n"
-msgstr ""
-#
 # File: src/c/ole.c, line: 977
 #, possible-c-format
 msgid  "%s:%d:OLE_load_FAT:ERROR: Unable to allocate %d bytes\n"
@@ -564,23 +294,6 @@ msgstr     ""
 msgid  "%s:%d:OLE_store_stream:WARNING: Only wrote %d of %d bytes to file %s"
 msgstr ""
 #
-# File: src/c/ole.c, line: 1731
-# File: src/c/ole.c, line: 1733
-# File: src/c/ole.c, line: 1888
-# File: sci_gateway/c/intreadxls.c, line: 150
-msgid  "Workbook"
-msgstr ""
-#
-# File: src/c/ole.c, line: 1731
-# File: src/c/ole.c, line: 1888
-msgid  "Book"
-msgstr ""
-#
-# File: src/c/ole.c, line: 1742
-#, possible-c-format
-msgid  "ole-stream.%d"
-msgstr ""
-#
 # File: src/c/logger.c, line: 117
 #, possible-c-format
 msgid  "LOGGER_set_logfile: ERROR - Cannot open logfile '%s' (%s)"
@@ -636,7 +349,6 @@ msgstr      ""
 msgid  "mget : format is of length 0\n"
 msgstr ""
 #
-#
 # File: src/c/do_xxscanf.c, line: 123
 msgid  "Error:\tscanf, unclosed [ directive\n"
 msgstr ""
index 4a7b0c6..87c4b94 100644 (file)
@@ -50,7 +50,7 @@ function varargout=listvarinfile(fil)
     elseif typ==130 then
       typn="primitive";
     else
-       error("Unknown variable type ("+string(typ)+"?), maybe wrong or corrupted file")
+       error(msprintf(gettext("Unknown variable type (%s?), maybe wrong or corrupted file"), string(typ)))
     end
 
     if lhs==1 then
index 3e91794..7ed6e2a 100644 (file)
@@ -45,17 +45,17 @@ int C2F(intreadxls)(char *fname, long lfn)
   xls_read(&fd,&pos,&data, &ind, &N, &M,  &ierr);
   if (ierr == 1)
     {
-      Scierror(999,"%s :Not enough memory to allocate results\n",fname);
+      Scierror(999,_("%s :Not enough memory to allocate results\n"),fname);
       return 0;
     }
   else if(ierr == 2)
     {
-      Scierror(999,"%s :Failed to read expected data, may be invalid xls file\n",fname);
+      Scierror(999,_("%s :Failed to read expected data, may be invalid xls file\n"),fname);
       return 0;
     }
   else if(ierr == 3)
     {
-      Scierror(999,"%s :End of File\n",fname);
+      Scierror(999,_("%s :End of File\n"),fname);
       return 0;
     }
 
@@ -134,15 +134,15 @@ int C2F(intopenxls)(char *fname, long lfn)
   result=ripole(IN, TMP, 0, 0);
   if (result != OLE_OK) {
     if (result == OLEER_NO_INPUT_FILE)
-      Scierror(999,"%s :There is no  file %s\n",fname,IN);
+      Scierror(999,_("%s :There is no  file %s\n"),fname,IN);
     else if(result == OLEER_NOT_OLE_FILE || 
            result == OLEER_INSANE_OLE_FILE || 
            result == OLEER_LOADFAT_BAD_BOUNDARY || 
            result == OLEER_MINIFAT_READ_FAIL || 
            result == OLEER_PROPERTIES_READ_FAIL)
-      Scierror(999,"%s :file %s is not an ole2 file\n",fname,IN);
+      Scierror(999,_("%s :file %s is not an ole2 file\n"),fname,IN);
     else if(result == -1)
-      Scierror(999,"%s :file %s  cannot be opened\n",fname,IN);
+      Scierror(999,_("%s :file %s  cannot be opened\n"),fname,IN);
 
     return 0;
   }
@@ -151,7 +151,7 @@ int C2F(intopenxls)(char *fname, long lfn)
   C2F(mopen)(&fd, TMP,"rb", &f_swap, &res, &ierr);
   if (ierr != 0)
     {
-      Scierror(999,"%s :There is no xls stream in the ole2 file %s\n",fname,IN);
+      Scierror(999,_("%s :There is no xls stream in the ole2 file %s\n"),fname,IN);
       return 0;
     }
   CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&one,&one,&l2);
@@ -168,27 +168,27 @@ int C2F(intopenxls)(char *fname, long lfn)
    */
   if (ierr == 1)
     {
-      Scierror(999,"%s :Not an ole2 file\n",fname);
+      Scierror(999,_("%s :Not an ole2 file\n"),fname);
       return 0;
     }
   else  if (ierr == 2)
     {
-      Scierror(999,"%s : the file has no Workbook directory\n",fname);
+      Scierror(999,_("%s : the file has no Workbook directory\n"),fname);
       return 0;
     }
  else  if (ierr == 3)
     {
-      Scierror(999,"%s : impossible to alloc enough memory\n",fname);
+      Scierror(999,_("%s : impossible to alloc enough memory\n"),fname);
       return 0;
     }
   else  if (ierr == 4)
     {
-      Scierror(990,"%s : incorrect or corrupted file\n",fname);
+      Scierror(990,_("%s : incorrect or corrupted file\n"),fname);
       return 0;
     }
   else  if (ierr == 3)
     {
-      Scierror(999,"%s : Only BIFF8 file format is handled\n",fname);
+      Scierror(999,_("%s : Only BIFF8 file format is handled\n"),fname);
       return 0;
     }
 
index 3581905..8f2732b 100644 (file)
@@ -36,7 +36,7 @@ int C2F(sci_createdir) _PARAMS((char *fname,unsigned long l))
                }
                else
                {
-                       if (getWarningMode()) sciprint("Warning: Directory already exists.\n\n");
+                       if (getWarningMode()) sciprint(_("Warning: Directory already exists.\n\n"));
                        bOK = TRUE;
                }
 
@@ -49,7 +49,7 @@ int C2F(sci_createdir) _PARAMS((char *fname,unsigned long l))
        }
        else
        {
-               Scierror(999,"Invalid parameter , it must be a directory (string).\n");
+               Scierror(999,_("Invalid parameter , it must be a directory (string).\n"));
        }
        return 0;
 }
index 7e64b6f..c75b48d 100644 (file)
@@ -38,7 +38,7 @@ int C2F(sci_deletefile) _PARAMS((char *fname,unsigned long fname_len))
        }
        else
        {
-               Scierror(999,"Invalid parameter , it must be a filename (string).\n");
+               Scierror(999,_("Invalid parameter , it must be a filename (string).\n"));
        }
        return 0;
 }
index 55b344f..26bcc58 100644 (file)
@@ -42,7 +42,7 @@ int C2F(sci_fileext) _PARAMS((char *fname,unsigned long fname_len))
        }
        else
        {
-               Scierror(999,"Invalid parameter , it must be a filename (string).\n");
+               Scierror(999,_("Invalid parameter , it must be a filename (string).\n"));
        }
        return 0;
 }
index b006649..6fa3bd4 100644 (file)
@@ -72,7 +72,7 @@ int intsmopen(char *fname,unsigned long fname_len)
                        }
                        else if ( err == 2)
                        {
-                               Scierror(999,"%s:  Could not open the file!\n",fname);
+                               Scierror(999,_("%s:  Could not open the file!\n"),fname);
                                return 0;
                        }
                        else 
index 30990e1..87fc557 100644 (file)
@@ -37,7 +37,7 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
 
                        if (ierr)
                        {
-                               Scierror(999,"Problem with current directory.\n");
+                               Scierror(999,_("Problem with current directory.\n"));
                                return 0;
                        }
                        else
@@ -63,7 +63,7 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                        }
                        else
                        {
-                               Scierror(999,"Invalid parameter , it must be a path (string).\n");
+                               Scierror(999,_("Invalid parameter , it must be a path (string).\n"));
                                return 0;
                        }
 
@@ -84,7 +84,7 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                        }
                        else
                        {
-                               Scierror(999,"Invalid parameter(s) , it must be a path and a filespec (string).\n");
+                               Scierror(999,_("Invalid parameter(s) , it must be a path and a filespec (string).\n"));
                                return 0;
                        }
                }
index 0357b40..0e808bf 100644 (file)
@@ -24,7 +24,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
        }
        else
        {
-               Scierror(999,"first parameter must be a filename.\n");
+               Scierror(999,_("first parameter must be a filename.\n"));
                return 0;
        }
 
@@ -43,13 +43,13 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
                }
                else
                {
-                       Scierror(999,"%s works only with reals.\n",fname);
+                       Scierror(999,_("%s works only with reals.\n"),fname);
                        return 0;
                }
        }
        else
        {
-               Scierror(999,"%s works only with reals.\n",fname);
+               Scierror(999,_("%s works only with reals.\n"),fname);
                return 0;
        }
 
@@ -71,7 +71,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
 
        if (( f = fopen(cstk(l1),"w")) == (FILE *)0) 
        {
-               Scierror(999,"Error: in function %s, cannot open file %s\n",fname,cstk(l1));
+               Scierror(999,_("Error: in function %s, cannot open file %s\n"),fname,cstk(l1));
                return 0;
        }
 
index f4eb7ba..6a29139 100644 (file)
@@ -26,7 +26,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
        {
                if (( Info =MALLOC(INFOSIZE*sizeof(char)))==NULL)
                {
-                       Scierror(999,"Error: in function %s, cannot allocate enough memory\n",fname);
+                       Scierror(999,_("Error: in function %s, cannot allocate enough memory\n"),fname);
                        return 0;
                }
                Info_size = INFOSIZE;
@@ -50,7 +50,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
 
        if (( f = fopen(cstk(l1),"r")) == (FILE *)0) 
        {
-               Scierror(999,"Error: in function %s, cannot open file %s\n",fname,cstk(l1));
+               Scierror(999,_("Error: in function %s, cannot open file %s\n"),fname,cstk(l1));
                return 0;
        }
        /*** first pass to get colums and rows ***/
@@ -63,7 +63,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                {
                        FREE(Info);Info=NULL;
                        fclose(f);
-                       Scierror(999,"Error: in function %s, cannot allocate enough memory\n",fname);
+                       Scierror(999,_("Error: in function %s, cannot allocate enough memory\n"),fname);
                        return 0;
                }
                vl++;
@@ -73,7 +73,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
        {
                FREE(Info);Info=NULL;
                fclose(f);
-               Scierror(999,"Error: in function %s, cannot read data in file %s\n",fname,cstk(l1));
+               Scierror(999,_("Error: in function %s, cannot read data in file %s\n"),fname,cstk(l1));
                return 0;
        }
        cols = NumTokens(Info);
@@ -86,7 +86,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                {
                        FREE(Info);Info=NULL;
                        fclose(f);
-                       Scierror(999,"Error: in function %s, cannot allocate enough memory\n",fname);
+                       Scierror(999,_("Error: in function %s, cannot allocate enough memory\n"),fname);
                        return 0;
                }
 
@@ -109,7 +109,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                {
                        FREE(Info);Info=NULL;
                        fclose(f);
-                       Scierror(999,"Error: in function %s, cannot allocate enough memory\n", fname);
+                       Scierror(999,_("Error: in function %s, cannot allocate enough memory\n"), fname);
                        return 0;
                }
 
@@ -125,7 +125,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                        fclose(f);
                        for (j=0;j<i;j++) FREE(Str[j]);
                        FREE(Str);
-                       Scierror(999,"Error: in function %s, cannot allocate enough memory\n",fname);
+                       Scierror(999,_("Error: in function %s, cannot allocate enough memory\n"),fname);
                        return 0;
                }
 
@@ -137,7 +137,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                                fclose(f);
                                for (j=0;j<i;j++) FREE(Str[j]);
                                FREE(Str);
-                               Scierror(999,"Error: in function %s, cannot allocate enough memory\n", fname);
+                               Scierror(999,_("Error: in function %s, cannot allocate enough memory\n"), fname);
                                return 0;
                        }
                        strcpy(Str[i],Info);
index 3e17139..e541b4e 100644 (file)
@@ -46,12 +46,12 @@ int C2F(sci_fullpath) _PARAMS((char *fname,unsigned long fname_len))
                }
                else
                {
-                       Scierror(999,"Invalid path.\n");
+                       Scierror(999,_("Invalid path.\n"));
                }
        }
        else
        {
-               Scierror(999,"Invalid parameter , it must be a path (string).\n");
+               Scierror(999,_("Invalid parameter , it must be a path (string).\n"));
        }
 
        return 0;
index 7a700a1..a9ad897 100644 (file)
@@ -46,7 +46,7 @@ int C2F(sci_getlongpathname) _PARAMS((char *fname,unsigned long l))
        }
        else 
        {
-               Scierror(999,"Not a path string");
+               Scierror(999,_("Not a path string"));
        }
        return 0;
 }
index ce47e73..92eb2ae 100644 (file)
@@ -47,7 +47,7 @@ int C2F(sci_getshortpathname) _PARAMS((char *fname,unsigned long l))
        }
        else 
        {
-               Scierror(999,"Not a path string");
+               Scierror(999,_("Not a path string"));
        }
        return 0;
 }
index b717fec..fe9e8d5 100644 (file)
@@ -19,7 +19,7 @@ int C2F(sci_isdir) _PARAMS((char *fname,unsigned long fname_len))
        
        if (! (GetType(1) == sci_strings))
        {
-               Scierror(999,"parameter incorrect must be a string (a file pathname).\n");
+               Scierror(999,_("parameter incorrect must be a string (a file pathname).\n"));
                return 0;
        }
        else
@@ -37,7 +37,7 @@ int C2F(sci_isdir) _PARAMS((char *fname,unsigned long fname_len))
                }
                else
                {
-                       Scierror(999,"First parameter incorrect, must be a string (a file pathname).\n");
+                       Scierror(999,_("First parameter incorrect, must be a string (a file pathname).\n"));
                        return 0;
                }
 
@@ -45,7 +45,7 @@ int C2F(sci_isdir) _PARAMS((char *fname,unsigned long fname_len))
                
                if( strlen(path) > PATH_MAX )
                {
-                       Scierror(999,"The parameter is too long : must be less than %d caracters.\n",PATH_MAX);
+                       Scierror(999,_("The parameter is too long : must be less than %d caracters.\n"),PATH_MAX);
                }
                
                /* Crappy workaround because a / was added after SCI & ~ into 
index 677e4ca..c1eec24 100644 (file)
@@ -44,7 +44,7 @@ int C2F(sci_maxfiles) _PARAMS((char *fname,unsigned long fname_len))
                                {
                                        if (NewMaxFiles > MAX_FILES)
                                        {
-                                               sciprint("Warning : %d > Maximum of files (%d).\n",NewMaxFiles,MAX_FILES);
+                                               sciprint(_("Warning : %d > Maximum of files (%d).\n"),NewMaxFiles,MAX_FILES);
                                                DoOneLhs();
                                        }
                                        else
@@ -55,26 +55,26 @@ int C2F(sci_maxfiles) _PARAMS((char *fname,unsigned long fname_len))
                                                }
                                                else
                                                {
-                                                       Scierror(999,"Problem to extend the limit of scilab's files opened.\n",NewMaxFiles);
+                                                       Scierror(999,_("Problem to extend the limit of scilab's files opened.\n"),NewMaxFiles);
                                                        return 0;
                                                }
                                        }
                                }
                                else
                                {
-                                       sciprint("Warning : only extend the limit for the number of scilab's files opened simultaneously.\n");
+                                       sciprint(_("Warning : only extend the limit for the number of scilab's files opened simultaneously.\n"));
                                        DoOneLhs();
                                }
                        }
                        else
                        {
-                               Scierror(999,"invalid numbers of parameters.\n");
+                               Scierror(999,_("invalid numbers of parameters.\n"));
                                return 0;
                        }
                }
                else
                {
-                       Scierror(999,"invalid parameter type.\n");
+                       Scierror(999,_("invalid parameter type.\n"));
                        return 0;
                }
        }
index bc9754f..890531d 100644 (file)
@@ -22,7 +22,7 @@ int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
        CheckLhs(0,1);
        if ( Rhs < 2 ) 
        { 
-               Scierror(999,"Error:\tRhs must be >= 2\n");
+               Scierror(999,_("Error:\tRhs must be >= 2\n"));
                return 0;
        }
        for (k=3;k<=Rhs;k++) 
@@ -37,7 +37,7 @@ int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
 
        if ((f= GetFileOpenedInScilab(param1)) == (FILE *)0)
        {
-               Scierror(999,"mfprintf:\t wrong file descriptor %d\n",*istk(l1));
+               Scierror(999,_("mfprintf:\t wrong file descriptor %d\n"),*istk(l1));
                return 0;
        }
 
@@ -52,7 +52,7 @@ int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
 
        if (NumberPercent<Rhs-2)
        {
-               Scierror(999,"mfprintf: Invalid format.\n");
+               Scierror(999,_("mfprintf: Invalid format.\n"));
                return 0;
        }
 
index 8351b59..dc6bd1c 100644 (file)
@@ -31,7 +31,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,"Error: in fscanf: incorrect first argument\n");
+                       Scierror(999,_("Error: in fscanf: incorrect first argument\n"));
                        return 0;
                }
                iarg=2;
@@ -50,7 +50,7 @@ int int_objfscanf(char *fname,unsigned long fname_len)
        StringConvert(cstk(l2));  /* conversion */
        if ((f= GetFileOpenedInScilab(param1)) == (FILE *)0)
        {
-               Scierror(999,"fprintf:\t wrong file descriptor %d\n",*istk(l1));
+               Scierror(999,_("fprintf:\t wrong file descriptor %d\n"),*istk(l1));
                return 0;
        }
 
@@ -79,7 +79,7 @@ int int_objfscanf(char *fname,unsigned long fname_len)
                                if (maxrow>=0) 
                                {
                                        Free_Scan(rowcount,ncol,type_s,&data);
-                                       Scierror(999,"Error: in fscanf: data mismatch\n");
+                                       Scierror(999,_("Error: in fscanf: data mismatch\n"));
                                        return 0;
                                }
                                fseek(f,pos,SEEK_SET);
@@ -87,7 +87,7 @@ int int_objfscanf(char *fname,unsigned long fname_len)
 
                        case MEM_LACK:
                                Free_Scan(rowcount,ncol,type_s,&data);
-                               Scierror(999,"Error: in fscanf: cannot allocate more memory\n");
+                               Scierror(999,_("Error: in fscanf: cannot allocate more memory\n"));
                                return 0;
                                break;
                        }
@@ -98,7 +98,7 @@ int int_objfscanf(char *fname,unsigned long fname_len)
        /* create Scilab variable with each column of data */
        err=Sci_Store(rowcount,ncol,data,type_s,retval_s);
        Free_Scan(rowcount,ncol,type_s,&data);
-       if (err==MEM_LACK) { Scierror(999,"Error: in sscanf: cannot allocate more memory\n");}
+       if (err==MEM_LACK) { Scierror(999,_("Error: in sscanf: cannot allocate more memory\n"));}
        return 0;
 }  
 /*-----------------------------------------------------------------------------------*/ 
index fa10242..8674b0e 100644 (file)
@@ -19,7 +19,7 @@ int int_objprintf __PARAMS((char *fname,unsigned long fname_len))
   CheckLhs(0,1);
   if ( Rhs < 1 ) 
   { 
-     Scierror(999,"Error:\tRhs must be > 0\n");
+     Scierror(999,_("Error:\tRhs must be > 0\n"));
      return 0;
   }
 
@@ -41,7 +41,7 @@ int int_objprintf __PARAMS((char *fname,unsigned long fname_len))
 
   if (NumberPercent<Rhs-1)
   {
-       Scierror(999,"mfprintf: Invalid format.\n");
+       Scierror(999,_("mfprintf: Invalid format.\n"));
        return 0;
   }
 
index f1d15a4..7d98f04 100644 (file)
@@ -36,7 +36,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,"Error: in scanf: incorrect first argument\n");
+                       Scierror(999,_("Error: in scanf: incorrect first argument\n"));
                        return 0;
                }
                iarg=2;
@@ -53,7 +53,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
 
        if (n_count>1) 
        {
-               Scierror(999,"Error: in scanf: format cannot include \\n\n");
+               Scierror(999,_("Error: in scanf: format cannot include \\n\n"));
                return 0;
        }
 
@@ -70,7 +70,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
 
                if(status != 0) 
                {
-                       Scierror(999,"Error: in scanf\n");
+                       Scierror(999,_("Error: in scanf\n"));
                        return 0;
                }
 
@@ -95,14 +95,14 @@ int int_objscanf(char *fname,unsigned long fname_len)
                                if (maxrow>=0)
                                {
                                        Free_Scan(rowcount,ncol,type_s,&data);
-                                       Scierror(999,"Error: in fscanf: data mismatch\n");
+                                       Scierror(999,_("Error: in fscanf: data mismatch\n"));
                                        return 0;
                                }
                                break;
 
                        case MEM_LACK:
                                Free_Scan(rowcount,ncol,type_s,&data);
-                               Scierror(999,"Error: in scanf: cannot allocate more memory\n");
+                               Scierror(999,_("Error: in scanf: cannot allocate more memory\n"));
                                return 0;
                                break;
                        }
@@ -114,7 +114,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
        /* create Scilab variables with each column of data */
        err=Sci_Store(rowcount,ncol,data,type_s,retval_s);
        Free_Scan(rowcount,ncol,type_s,&data);
-       if (err==MEM_LACK) { Scierror(999,"Error: in sscanf: cannot allocate more memory\n");}
+       if (err==MEM_LACK) { Scierror(999,_("Error: in sscanf: cannot allocate more memory\n"));}
        return 0;
 } 
 /*-----------------------------------------------------------------------------------*/ 
index 521868b..4c21356 100644 (file)
@@ -25,7 +25,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
        CheckLhs(0,1);
        if ( Rhs < 1 ) 
        { 
-               Scierror(999,"Error:\tRhs must be > 0\n");
+               Scierror(999,_("Error:\tRhs must be > 0\n"));
                return 0;
        }
        for (k=2;k<=Rhs;k++) {
@@ -44,7 +44,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
 
        if (NumberPercent<Rhs-1)
        {
-               Scierror(999,"sprintf: Invalid format.\n");
+               Scierror(999,_("sprintf: Invalid format.\n"));
                return 0;
        }
 
@@ -135,7 +135,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
        PutLhsVar();    
        return 0;
 mem:
-       Scierror(999,"sprintf: cannot allocate cannot allocate more memory\n");
+       Scierror(999,_("sprintf: cannot allocate cannot allocate more memory\n"));
        return 0;
 }  
 /*-----------------------------------------------------------------------------------*/ 
index 70629d8..9ff130d 100644 (file)
@@ -30,7 +30,7 @@ int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
                GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1!=1)
                {
-                       Scierror(999,"Error: in sscanf: incorrect first argument\n");
+                       Scierror(999,_("Error: in sscanf: incorrect first argument\n"));
                        return 0;
                }
 
@@ -50,7 +50,7 @@ int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
 
        if ( (maxrow >= 0) && (maxrow*n_count>m1*n1) )
        {
-               Scierror(999,"Error: in sscanf: not enough entries in str\n");
+               Scierror(999,_("Error: in sscanf: not enough entries in str\n"));
                return 0;
        }
 
@@ -88,14 +88,14 @@ int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
                                if (maxrow>=0) 
                                {
                                        Free_Scan(rowcount,ncol,type_s,&data);
-                                       Scierror(999,"Error: in sscanf: data mismatch\n");
+                                       Scierror(999,_("Error: in sscanf: data mismatch\n"));
                                        return 0;
                                }
                                break;
 
                        case MEM_LACK:
                                Free_Scan(rowcount,ncol,type_s,&data);
-                               Scierror(999,"Error: in sscanf: cannot allocate more memory\n");
+                               Scierror(999,_("Error: in sscanf: cannot allocate more memory\n"));
                                return 0;
                                break;
                        }
@@ -107,7 +107,7 @@ int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
        /* create Scilab variables with each column of data */
        err=Sci_Store(rowcount,ncol,data,type_s,retval_s);
        Free_Scan(rowcount,ncol,type_s,&data);
-       if (err==MEM_LACK) { Scierror(999,"Error: in sscanf: cannot allocate more memory\n");}
+       if (err==MEM_LACK) { Scierror(999,_("Error: in sscanf: cannot allocate more memory\n"));}
        return 0;
 }
 /*-----------------------------------------------------------------------------------*/ 
index 94f6f6c..dac9385 100644 (file)
@@ -43,7 +43,7 @@ int C2F(sci_removedir) _PARAMS((char *fname,unsigned long l))
        }
        else
        {
-               Scierror(999,"Invalid parameter , it must be a directory (string).\n");
+               Scierror(999,_("Invalid parameter , it must be a directory (string).\n"));
        }
        return 0;
 }
index 8d75534..07d7f66 100644 (file)
@@ -37,7 +37,7 @@ static void error_on_rval(XXPRINTF xxprintf,FLUSH flush,char *target)
 {
        (*xxprintf) ((VPTR) target, "\n");
        (*flush) ((FILE *) target);
-       Scierror(998,"Error:\tprintf: not enough arguments\n");
+       Scierror(998,_("Error:\tprintf: not enough arguments\n"));
 }
 /*-----------------------------------------------------------------------------------*/
 static int call_printf(XXPRINTF xxprintf,char *target,char *p,char *sval,int *asterisk,int asterisk_count,int conversion_type,double dval )
@@ -246,7 +246,7 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                                {
                                        if (target > sprintf_limit)     /* over sprintf_limit */
                                        {
-                                               Scierror(998,"Error:\tsprintf problem, buffer too small\n");
+                                               Scierror(998,_("Error:\tsprintf problem, buffer too small\n"));
                                                return RET_BUG;
                                        }
                                        else
@@ -350,11 +350,11 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                                {
                                        if (*tmpcurrentchar == 's')
                                        {
-                                               Scierror(998,"Warning:\tprintf: bad conversion l or h flag mixed with s directive\n");
+                                               Scierror(998,_("Warning:\tprintf: bad conversion l or h flag mixed with s directive\n"));
                                        }
                                        else /* 'c' */
                                        {
-                                               Scierror(998,"Warning:\tprintf: bad conversion l or h flag mixed with c directive\n");
+                                               Scierror(998,_("Warning:\tprintf: bad conversion l or h flag mixed with c directive\n"));
                                        }
                                }
 
@@ -412,7 +412,7 @@ int do_xxprintf (char *fname, FILE *fp, char *format, int nargs, int argcount, i
                case 'e': case 'g': case 'f': case 'E': case 'G':
                        if (high_flag + low_flag)
                        {
-                               Scierror(998,"Error:\tprintf: bad conversion\n");
+                               Scierror(998,_("Error:\tprintf: bad conversion\n"));
                                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,"Error:\tprintf: \"o\" format not allowed\n");
+                       Scierror(998,_("Error:\tprintf: \"o\" format not allowed\n"));
                        return RET_BUG;
                        break;
 
                default:
-                       Scierror(998,"Error:\tprintf: bad conversion\n");
+                       Scierror(998,_("Error:\tprintf: bad conversion\n"));
                        return RET_BUG;
                }
 
index 75d7e53..067b30e 100644 (file)
@@ -120,7 +120,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,_("Error:\tscanf, unclosed [ directive\n"));
                                return RET_BUG;
                        }
 
@@ -131,7 +131,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,_("Error:\tscanf unclosed [ directive\n"));
                                        return RET_BUG;
                                }
                        }
@@ -148,7 +148,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,_("Error:\tscanf too many (> %d) conversion required\n"),num_conversion,MAXSCAN);
                                return RET_BUG;
                        }
 
@@ -159,7 +159,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,_("Error:\tscanf, width field %d is too long (> %d) for %%[ directive\n"),width_val,MAX_STR-1);
                                        return RET_BUG;
                                }
 
@@ -171,14 +171,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,_("Error:\tscanf: bad conversion\n"));
                                        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,_("Error:\tscanf, width field %d is too long (< %d) for %%s directive\n"),width_val,MAX_STR-1);
                                        return RET_BUG;
                                }
 
@@ -191,7 +191,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,_("Error:\tscanf: bad conversion\n"));
                                        return RET_BUG;
                                }
 
@@ -200,7 +200,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,_("Error:\tscanf width field %d is too long (< %d) for %%c directive\n"),width_val,MAX_STR-1);
                                        return RET_BUG;
                                }
 
@@ -257,7 +257,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,_("Error:\tscanf: bad conversion\n"));
                                        return RET_BUG;
                                }
                                else if (l_flag) 
@@ -273,7 +273,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,_("Error:\tscanf: bad conversion\n"));
                                return RET_BUG;
                                break;
                        }
@@ -301,7 +301,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,_("Error:\tscanf, format is too long (> %d)\n"),MAX_STR-1);
                                return RET_BUG;
                        }
                }
index 11044b8..23da1db 100644 (file)
@@ -72,7 +72,7 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
 
   /* create Scilab variable with each column of data */
   if (ncol+Rhs > intersiz ){
-    Scierror(998,"Error:\ttoo many directive in scanf\n");
+    Scierror(998,_("Error:\ttoo many directive in scanf\n"));
     return RET_BUG;
   }
   iarg=Rhs;
index 1ce5672..003ad36 100644 (file)
@@ -114,9 +114,9 @@ int LOGGER_set_logfile( char *lfname )
        if (!_LOGGER_outf)
        {
 #ifndef _MSC_VER
-               syslog(1,"LOGGER_set_logfile: ERROR - Cannot open logfile '%s' (%s)",lfname,strerror(errno));
+               syslog(1,_("LOGGER_set_logfile: ERROR - Cannot open logfile '%s' (%s)"),lfname,strerror(errno));
 #else
-               fprintf(stderr, "LOGGER_set_logfile: ERROR - Cannot open logfile '%s' (%s)\n", lfname, strerror(errno));
+               fprintf(stderr, _("LOGGER_set_logfile: ERROR - Cannot open logfile '%s' (%s)\n"), lfname, strerror(errno));
 #endif
                result = -1;
        }
@@ -339,7 +339,7 @@ int LOGGER_log( char *format, ...)
                        fflush(_LOGGER_outf);
                        break;
                default:
-                       fprintf(stdout,"LOGGER-Default: %s%s",output,lineend);
+                       fprintf(stdout,_("LOGGER-Default: %s%s"),output,lineend);
        }
 
 
index 96d3dfc..475359b 100644 (file)
@@ -42,13 +42,13 @@ void C2F(mclose) (integer *fd, double *res)
                        else
                        {
                                *res = 0.0;
-                               sciprint("File %d not active\n",fd1);
+                               sciprint(_("File %d not active\n"),fd1);
                        }
                }
                else 
                {
                        *res = -1.0;
-                       sciprint("No file to close\n",fd1);
+                       sciprint(_("No file to close\n"),fd1);
                }
        }
 }
index a00e5cf..2dfb044 100644 (file)
@@ -38,7 +38,7 @@ int swap = 0;
                  MGET_NC(NumType,Fswap); break; \
          case 'l': swap = (islittleendian()==1) ? 0:1; \
          MGET_NC(NumType,Fswap);  break; \
-         default: sciprint("mget : %s format not recognized\n",type); \
+         default: sciprint(_("mget : %s format not recognized\n"),type); \
          *ierr=1; return; \
                                } \
 }
@@ -52,7 +52,7 @@ void C2F(mgetnc)(integer *fd, void * res, integer *n1, char *type, integer *ierr
 
        *ierr=0;
        if ((fa = GetFileOpenedInScilab(*fd)) ==NULL) {
-               sciprint("No input file associated to logical unit %d\n",*fd);
+               sciprint(_("No input file associated to logical unit %d\n"),*fd);
                *ierr=3;
                return;
        }
@@ -154,7 +154,7 @@ void C2F(mget) (integer *fd, double *res, integer *n, char *type, integer *ierr)
        *ierr=0;
        if ( nc == 0) 
        {
-               sciprint("mget : format is of length 0\n",type);
+               sciprint(_("mget : format is of length 0\n"),type);
                *ierr=2;
                return;
        }
@@ -163,11 +163,11 @@ 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("mget : %s format not recognized\n",type);
+               if (*ierr > 0) sciprint(_("mget : %s format not recognized\n"),type);
        }
        else 
        {
-               sciprint("No input file associated to logical unit %d\n",*fd);
+               sciprint(_("No input file associated to logical unit %d\n"),*fd);
                *ierr=3;
        }
 }
index 5e1ff53..a11b301 100644 (file)
@@ -22,7 +22,7 @@ void C2F(mopen)(int *fd, char *file, char *status, int *f_swap, double *res, int
 
        if ( getWarningMode() && IsAlreadyOpenedInScilab(file) )
        {
-               sciprint("Warning : file '%s' already opened in scilab.\n",file);
+               sciprint(_("Warning : file '%s' already opened in scilab.\n"),file);
        }
 
        swap =0;
index 649ccc2..6c72c31 100644 (file)
@@ -44,7 +44,7 @@ extern int swap; /* defined in mget.c */
                swap = (islittleendian()==1) ? 0 : 1; \
                MPUT_NC(Type,Fswap); break; \
                default: \
-               sciprint("mput : %s format not recognized\n",type); \
+               sciprint(_("mput : %s format not recognized\n"),type); \
                *ierr=1;return; \
        }
 /*-----------------------------------------------------------------------------------*/
@@ -56,7 +56,7 @@ void C2F(mputnc) (integer *fd, void * res, integer *n1, char *type, integer *ier
        n=*n1;
        *ierr=0;
        if ((fa = GetFileOpenedInScilab(*fd)) ==NULL) {
-               sciprint("No input file associated to logical unit %d\n",*fd);
+               sciprint(_("No input file associated to logical unit %d\n"),*fd);
                *ierr=3;
                return;
        }
@@ -122,7 +122,7 @@ data **/
                swap = (islittleendian()==1) ? 0 : 1; \
                MPUT(Type,Fswap); break; \
                default: \
-               sciprint("mput : %s format not recognized\n",type); \
+               sciprint(_("mput : %s format not recognized\n"),type); \
                *ierr=1;return; \
 }
 /*-----------------------------------------------------------------------------------*/
@@ -165,7 +165,7 @@ void C2F(mput) (integer *fd, double *res, integer *n, char *type, integer *ierr)
        *ierr=0;
        if ((nc = (int)strlen(type)) == 0) 
        {
-               sciprint("mput : format is of length 0\n",type);
+               sciprint(_("mput : format is of length 0\n"),type);
                *ierr=2;
                return;
        }
@@ -173,11 +173,11 @@ 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("mput : %s format not recognized\n",type);
+               if (*ierr > 0) sciprint(_("mput : %s format not recognized\n"),type);
        }
        else 
        {
-               sciprint("No input file associated to logical unit %d\n",*fd);
+               sciprint(_("No input file associated to logical unit %d\n"),*fd);
                *ierr=3;
        }
 }
index b94fdef..b6428db 100644 (file)
@@ -28,7 +28,7 @@ void C2F(mseek) (integer *fd, integer *offset, char *flag, integer *err)
        *err=0;
        if ( fa == (FILE *) 0 ) 
        {
-               sciprint("mseek: wrong file logical unit\n");
+               sciprint(_("mseek: wrong file logical unit\n"));
                *err=1;
                return;
        }
@@ -40,7 +40,7 @@ void C2F(mseek) (integer *fd, integer *offset, char *flag, integer *err)
                iflag = SEEK_END;
        else 
        {
-               sciprint("mseek : flag = %s not recognized\n");
+               sciprint(_("mseek : flag = %s not recognized\n"));
                *err=1;
                return;
        }
@@ -56,7 +56,7 @@ void C2F(mseek) (integer *fd, integer *offset, char *flag, integer *err)
 #else
        if (fseek(fa,(long) *offset,iflag) == -1 ) 
        {
-               sciprint("mseek: error\n");
+               sciprint(_("mseek: error\n"));
                *err=1;
        }
        else 
index daa6621..781f5b3 100644 (file)
@@ -97,7 +97,7 @@ unsigned char OLE_id_v1[]={ 0x0e, 0x11, 0xfc, 0x0d, 0xd0, 0xcf, 0x11, 0xe0 };
   \------------------------------------------------------------------*/
 int OLE_version( void )
 {
-  fprintf(stderr,"ripOLE: %s\n", LIBOLE_VERSION);
+  fprintf(stderr,_("ripOLE: %s\n"), LIBOLE_VERSION);
 
   return 0;
 }
@@ -247,7 +247,7 @@ int OLE_set_quiet( struct OLE_object *ole, int level )
 int OLE_set_debug( struct OLE_object *ole, int level )
 {
   ole->debug = level;
-  if (ole->debug > 0) LOGGER_log("%s:%d:OLE_set_debug: Debug level set to %d",FL, ole->debug);
+  if (ole->debug > 0) LOGGER_log(_("%s:%d:OLE_set_debug: Debug level set to %d"),FL, ole->debug);
 
   return OLE_OK;
 }
@@ -329,7 +329,7 @@ int OLE_get_block( struct OLE_object *ole, int block_index, unsigned char *block
 {
   if (block_buffer == NULL)
     {
-      LOGGER_log("%s:%d:OLE_get_block:ERROR: Block buffer is NULL",FL);
+      LOGGER_log(_("%s:%d:OLE_get_block:ERROR: Block buffer is NULL"),FL);
       return -1;
     }
 
@@ -343,7 +343,7 @@ int OLE_get_block( struct OLE_object *ole, int block_index, unsigned char *block
       bb = MALLOC(sizeof(unsigned char) *ole->header.sector_size);
       if (bb == NULL)
        {
-         LOGGER_log("%s:%d:OLE_get_block:ERROR: Cannot allocate %d bytes for OLE block",FL, ole->header.sector_size);
+         LOGGER_log(_("%s:%d:OLE_get_block:ERROR: Cannot allocate %d bytes for OLE block"),FL, ole->header.sector_size);
          return -1;
        }
 
@@ -358,7 +358,7 @@ int OLE_get_block( struct OLE_object *ole, int block_index, unsigned char *block
       if (fseek_result != 0)
        {
          if (bb != NULL) { FREE(bb); bb = NULL; }
-         LOGGER_log("%s:%d:OLE_get_block:ERROR: Seek failure (block=%d:%d)",FL, block_index,offset, strerror(errno));
+         LOGGER_log(_("%s:%d:OLE_get_block:ERROR: Seek failure (block=%d:%d)"),FL, block_index,offset, strerror(errno));
          return OLEER_GET_BLOCK_SEEK;
        }
 
@@ -368,7 +368,7 @@ int OLE_get_block( struct OLE_object *ole, int block_index, unsigned char *block
       if (read_count != (int)ole->header.sector_size)
        {
          if (bb != NULL){ FREE(bb); bb = NULL; }
-         VOLE LOGGER_log("%s:%d:Mismatch in bytes read. Requested %d, got %d\n", FL, ole->header.sector_size, read_count);
+         VOLE LOGGER_log(_("%s:%d:Mismatch in bytes read. Requested %d, got %d\n"), FL, ole->header.sector_size, read_count);
          return OLEER_GET_BLOCK_READ;
        }
 
@@ -384,7 +384,7 @@ int OLE_get_block( struct OLE_object *ole, int block_index, unsigned char *block
       DOLE LOGGER_log("%s:%d:OLE_get_block:DEBUG: Disposed of temporary bb block",FL);
 
     } else {
-      LOGGER_log("%s:%d:OLE_get_block:ERROR: OLE file is closed\n",FL);
+      LOGGER_log(_("%s:%d:OLE_get_block:ERROR: OLE file is closed\n"),FL);
       return -1;
     }
 
@@ -974,7 +974,7 @@ int OLE_load_FAT( struct OLE_object *ole )
 
          if (fat_block == NULL) 
            {
-             LOGGER_log("%s:%d:OLE_load_FAT:ERROR: Unable to allocate %d bytes\n", FL, ole->header.sector_size);
+             LOGGER_log(_("%s:%d:OLE_load_FAT:ERROR: Unable to allocate %d bytes\n"), FL, ole->header.sector_size);
              return -1;
              /*                        exit(1);*/
            }
@@ -1028,7 +1028,7 @@ int OLE_load_FAT( struct OLE_object *ole )
                        getblock_result = OLE_get_block(ole, import_sector, fat_position);
                        if (getblock_result != OLE_OK)
                          {
-                           LOGGER_log("%s:%d:OLE_load_FAT:ERROR: Not able to load block, import sector = 0x%x, fat position = 0x%x",FL, import_sector, fat_position);
+                           LOGGER_log(_("%s:%d:OLE_load_FAT:ERROR: Not able to load block, import sector = 0x%x, fat position = 0x%x"),FL, import_sector, fat_position);
                            if (fat_block) FREE(fat_block);
                            return getblock_result;
                          }
@@ -1044,19 +1044,19 @@ int OLE_load_FAT( struct OLE_object *ole )
                        /*if (fat_position +ole->header.sector_size > ole->FAT_limit)*/
                        if (fat_position > ole->FAT_limit)
                          { 
-                           DOLE LOGGER_log("%s:%d:OLE_load_FAT:ERROR: FAT memory boundary limit exceeded %p >= %p",FL,fat_position,ole->FAT_limit); 
+                           DOLE LOGGER_log(_("%s:%d:OLE_load_FAT:ERROR: FAT memory boundary limit exceeded %p >= %p"),FL,fat_position,ole->FAT_limit); 
                            if (fat_block) FREE(fat_block);
                            return OLEER_MEMORY_OVERFLOW;
                          }
                        tick++;
                        DIF += LEN_ULONG;
                      }  else {
-                       LOGGER_log("%s:%d:OLE_load_FAT:ERROR: FAT memory boundary limit exceeded %p >= %p",FL,fat_position,ole->FAT_limit); 
+                       LOGGER_log(_("%s:%d:OLE_load_FAT:ERROR: FAT memory boundary limit exceeded %p >= %p"),FL,fat_position,ole->FAT_limit); 
                        if (fat_block) FREE(fat_block);
                        return OLEER_MEMORY_OVERFLOW;
                      }
                  } else {
-                   VOLE LOGGER_log("%s:%d:OLE_load_FAT:ERROR: sector request was negative (%d)",FL, import_sector);
+                   VOLE LOGGER_log(_("%s:%d:OLE_load_FAT:ERROR: sector request was negative (%d)"),FL, import_sector);
                  }
 
                DOLE LOGGER_log("%s:%d:OLE_load_FAT:DEBUG: DIF = 0x%x",FL,DIF);
@@ -1310,7 +1310,7 @@ unsigned char *OLE_load_minichain( struct OLE_object *ole, int miniFAT_sector_st
       } while ((break_out==0));
 
     } else {
-      LOGGER_log("%s:%d:OLE_get_miniblock:ERROR: Failed to allocate enough memory for miniChain",FL);
+      LOGGER_log(_("%s:%d:OLE_get_miniblock:ERROR: Failed to allocate enough memory for miniChain"),FL);
     }
 
   DOLE LOGGER_log("%s:%d:OLE_load_minichain:DEBUG: Done. buffer=%p",FL, buffer);
@@ -1388,7 +1388,7 @@ unsigned char *OLE_load_chain( struct OLE_object *ole, int FAT_sector_start )
            bp += ole->header.sector_size;
            if (bp > bp_limit) {  
              if (buffer != NULL) { FREE(buffer); bp = buffer = NULL; }
-             VOLE LOGGER_log("%s:%d:OLE_load_chain:ERROR: Load-chain went over memory boundary",FL); 
+             VOLE LOGGER_log(_("%s:%d:OLE_load_chain:ERROR: Load-chain went over memory boundary"),FL); 
              return NULL;
            };
 
@@ -1431,7 +1431,7 @@ int OLE_open_file( struct OLE_object *ole, char *fullpath )
 
   stat_result = stat(fullpath, &st);
   if (stat_result != 0) {
-    DOLE LOGGER_log("%s:%d:OLE_open_file:ERROR: Cannot locate file '%s' for opening (%s)",FL, fullpath, strerror(errno));
+    DOLE LOGGER_log(_("%s:%d:OLE_open_file:ERROR: Cannot locate file '%s' for opening (%s)"),FL, fullpath, strerror(errno));
     return OLEER_BAD_INPUT_FILE;
   }
 
@@ -1446,7 +1446,7 @@ int OLE_open_file( struct OLE_object *ole, char *fullpath )
       ole->f = NULL;
       if (ole->quiet == 0)
        {
-         LOGGER_log("%s:%d:OLE_open_file:ERROR:Cannot open %s for reading (%s)\n",FL,fullpath, strerror(errno));
+         LOGGER_log(_("%s:%d:OLE_open_file:ERROR:Cannot open %s for reading (%s)\n"),FL,fullpath, strerror(errno));
        }
       return -1;
     } else {
@@ -1488,7 +1488,7 @@ int OLE_open_directory( struct OLE_object *ole, char *directory )
 #endif
                    if ((result != 0)&&(errno != EEXIST))
                      {
-                       LOGGER_log("%s:%d:OLE_open_directory:ERROR: %s",FL,strerror(errno));
+                       LOGGER_log(_("%s:%d:OLE_open_directory:ERROR: %s"),FL,strerror(errno));
                      } else result = OLE_OK;
 
                    return result;
@@ -1545,7 +1545,7 @@ int OLE_store_stream( struct OLE_object *ole, char *stream_name, char *directory
   full_path = PLD_dprintf("%s/%s", directory, stream_name);
   if (full_path == NULL)
     {
-      LOGGER_log("%s:%d:OLE_store_stream:ERROR: Cannot compose full filename string from '%s' and '%s'", FL, directory, stream_name);
+      LOGGER_log(_("%s:%d:OLE_store_stream:ERROR: Cannot compose full filename string from '%s' and '%s'"), FL, directory, stream_name);
       return -1;
     } else {
       FILE *f;
@@ -1553,7 +1553,7 @@ int OLE_store_stream( struct OLE_object *ole, char *stream_name, char *directory
       f = fopen(full_path,"wb");
       if (f == NULL)
        {
-         LOGGER_log("%s:%d:OLE_store_stream:ERROR: Cannot open %s for writing (%s)",FL, full_path, strerror(errno));
+         LOGGER_log(_("%s:%d:OLE_store_stream:ERROR: Cannot open %s for writing (%s)"),FL, full_path, strerror(errno));
          if (full_path) FREE(full_path);
          return -1;
        } else {
@@ -1562,7 +1562,7 @@ int OLE_store_stream( struct OLE_object *ole, char *stream_name, char *directory
          written_bytes = fwrite( stream, 1, stream_size, f );
          if (written_bytes != stream_size)
            {
-             LOGGER_log("%s:%d:OLE_store_stream:WARNING: Only wrote %d of %d bytes to file %s",FL,written_bytes,stream_size,full_path);
+             LOGGER_log(_("%s:%d:OLE_store_stream:WARNING: Only wrote %d of %d bytes to file %s"),FL,written_bytes,stream_size,full_path);
            }
          fclose(f);
 
index ac11ea7..b60aaee 100644 (file)
@@ -153,7 +153,7 @@ int OLEUNWRAP_save_stream( struct OLEUNWRAP_object *oleuw, char *fname, char *de
        full_name = PLD_dprintf("%s/%s", decode_path, fname );
        if (full_name == NULL)
        {
-               LOGGER_log("%s:%d:OLEUNWRAP_save_stream:ERROR: Unable to create filename string from '%s' and '%s'",FL,fname,decode_path);
+               LOGGER_log(_("%s:%d:OLEUNWRAP_save_stream:ERROR: Unable to create filename string from '%s' and '%s'"),FL,fname,decode_path);
                return -1;
        }
 
@@ -165,14 +165,14 @@ int OLEUNWRAP_save_stream( struct OLEUNWRAP_object *oleuw, char *fname, char *de
                write_count = fwrite( stream, 1, bytes, f );
                if (write_count != bytes)
                {
-                       LOGGER_log("%s:%d:OLEUNWRAP_save_stream:WARNING: Only wrote %d of %d bytes to file %s\n",FL, write_count, bytes, full_name );
+                       LOGGER_log(_("%s:%d:OLEUNWRAP_save_stream:WARNING: Only wrote %d of %d bytes to file %s\n"),FL, write_count, bytes, full_name );
                }
 
                fclose(f);
 
 
        } else {
-               LOGGER_log("%s:%d:OLEUNWRAP_save_stream:ERROR: Unable to open %s for writing (%s)\n",FL,full_name, strerror(errno));
+               LOGGER_log(_("%s:%d:OLEUNWRAP_save_stream:ERROR: Unable to open %s for writing (%s)\n"),FL,full_name, strerror(errno));
                result = -1;
        }
 
@@ -278,7 +278,7 @@ int OLEUNWRAP_decode_attachment( struct OLEUNWRAP_object *oleuw, char *stream, s
                data_start_point = sp;
        } 
 
-       DUW LOGGER_log("%s:%d:OLEUNWRAP_decode_attachment:DEBUG: Attachment %s:%s:%s size = %d\n",FL, oh.attach_name, oh.fname_1, oh.fname_2, oh.attach_size );
+       DUW LOGGER_log(_("%s:%d:OLEUNWRAP_decode_attachment:DEBUG: Attachment %s:%s:%s size = %d\n"),FL, oh.attach_name, oh.fname_1, oh.fname_2, oh.attach_size );
 
 
        /** 20050119:2053:PLD - Added to sanitize 8-bit filenames **/
@@ -290,7 +290,7 @@ int OLEUNWRAP_decode_attachment( struct OLEUNWRAP_object *oleuw, char *stream, s
        result = OLEUNWRAP_save_stream( oleuw, oh.attach_name, decode_path, data_start_point, oh.attach_size );
        if (result == OLEUW_OK)
        {
-               if (oleuw->debug > 0) LOGGER_log("%s:%d:OLEUNWRAP_decode_attachment:DEBUG: Calling reporter for the filename",FL);
+               if (oleuw->debug > 0) LOGGER_log(_("%s:%d:OLEUNWRAP_decode_attachment:DEBUG: Calling reporter for the filename"),FL);
                if ((oleuw->verbose > 0)&&(oleuw->filename_report_fn != NULL))
                {
                        oleuw->filename_report_fn(oh.attach_name);
@@ -331,7 +331,7 @@ int OLEUNWRAP_decodestream( struct OLEUNWRAP_object *oleuw, char *element_string
                OLEUNWRAP_decode_attachment( oleuw, stream, stream_size, decode_path );
 
        } else {
-               if (oleuw->debug) LOGGER_log("Unable to decode stream with element string '%s'\n", element_string);
+               if (oleuw->debug) LOGGER_log(_("Unable to decode stream with element string '%s'\n"), element_string);
                result = OLEUW_STREAM_NOT_DECODED;
        }
 
index 0131742..ac78181 100644 (file)
@@ -496,7 +496,7 @@ char *PLD_strreplace_general( struct PLD_strreplace *replace_details )
        new_buffer = MALLOC( sizeof(char) *size_required);
        if (new_buffer == NULL)
        {
-               LOGGER_log("%s:%d:PLD_strreplace:ERROR: Cannot allocate %d bytes of memory to perform replacement operation", FL, size_required);
+               LOGGER_log(_("%s:%d:PLD_strreplace:ERROR: Cannot allocate %d bytes of memory to perform replacement operation"), FL, size_required);
                return replace_details->source;
        } 
 
@@ -578,7 +578,7 @@ char *PLD_strreplace_general( struct PLD_strreplace *replace_details )
 
                if (size_required < 1 )
                {
-                       LOGGER_log("%s:%d:PLD_strreplace_general: Allocated memory ran out while replacing '%s' with '%s'",FL, replace_details->searchfor, replace_details->replacewith);
+                       LOGGER_log(_("%s:%d:PLD_strreplace_general: Allocated memory ran out while replacing '%s' with '%s'"),FL, replace_details->searchfor, replace_details->replacewith);
                        *new_p='\0';
                        break;
                }
index b8d2386..fb23671 100644 (file)
@@ -10,6 +10,7 @@
 #include "pldstr.h"
 #include "ole.h"
 #include "ripole.h"
+#include "machine.h"
 
 #undef WITHMAIN
 
@@ -126,7 +127,7 @@ int ROLE_parse_parameters( struct ripOLE_object *role, int argc, char **argv )
                                                exit(1);
 
                                        } else {
-                                               fprintf(stdout,"Cannot interpret option \"%s\"\n%s\n", argv[i], help);
+                                               fprintf(stdout,_("Cannot interpret option \"%s\"\n%s\n"), argv[i], help);
                                                exit (1);
                                                break;
                                        }
@@ -135,7 +136,7 @@ int ROLE_parse_parameters( struct ripOLE_object *role, int argc, char **argv )
                                        /* else, just dump out the help message*/
 
                                default:
-                                       fprintf(stdout,"Cannot interpret option \"%s\"\n%s\n", argv[i], help);
+                                       fprintf(stdout,_("Cannot interpret option \"%s\"\n%s\n"), argv[i], help);
                                        exit (1);
                                        break;
 
@@ -202,7 +203,7 @@ Changes:
 \------------------------------------------------------------------*/
 int ROLE_report_filename_decoded(char *filename)
 {
-       LOGGER_log("Decoding filename=%s", filename);
+       LOGGER_log(_("Decoding filename=%s"), filename);
 
        return 0;
 }
@@ -281,7 +282,7 @@ int ROLE_validate(struct ripOLE_object *role )
        int result = 0;
 
        if (role->inputfile == NULL) {
-               fprintf(stderr,"ripOLE requires an input file to decode\n");
+               fprintf(stderr,_("ripOLE requires an input file to decode\n"));
                return -1;
        }
 
@@ -315,7 +316,7 @@ int main( int argc, char **argv )
        ole = MALLOC(sizeof(struct OLE_object));
        if (ole == NULL)
        {
-               LOGGER_log("ripOLE: Cannot allocate memory for OLE object");
+               LOGGER_log(_("ripOLE: Cannot allocate memory for OLE object"));
                return 1;
        }
 
@@ -342,16 +343,16 @@ int main( int argc, char **argv )
                        switch (result) {
                                case OLEER_NO_INPUT_FILE:
                                case OLEER_BAD_INPUT_FILE:
-                                       LOGGER_log("Cannot locate input file '%s'",role.inputfile);
+                                       LOGGER_log(_("Cannot locate input file '%s'"),role.inputfile);
                                        break;
                                case OLEER_NOT_OLE_FILE:
-                                       LOGGER_log("File '%s' is not OLE2 format",role.inputfile);
+                                       LOGGER_log(_("File '%s' is not OLE2 format"),role.inputfile);
                                        break;
                                case OLEER_INSANE_OLE_FILE:
-                                       LOGGER_log("OLE input file '%s' is insane", role.inputfile);
+                                       LOGGER_log(_("OLE input file '%s' is insane"), role.inputfile);
                                        break;
                                default:
-                                       LOGGER_log("ripOLE: decoding of %s resulted in error %d\n", role.inputfile, result );
+                                       LOGGER_log(_("ripOLE: decoding of %s resulted in error %d\n"), role.inputfile, result );
                        }
                }
                return result;
@@ -375,7 +376,7 @@ int ripole(char *inputfile, char *outputdir, int debug, int verbose)
        /*ole = MALLOC(sizeof(struct OLE_object));
        if (ole == NULL)
        {
-               LOGGER_log("ripOLE: Cannot allocate memory for OLE object");
+               LOGGER_log(_("ripOLE: Cannot allocate memory for OLE object"));
                return 1;
        }*/
 
@@ -395,7 +396,7 @@ int ripole(char *inputfile, char *outputdir, int debug, int verbose)
 
 
        if ((result != 0)&&(verbose==1))
-         LOGGER_log("ripOLE: decoding of %s resulted in error %d\n", inputfile, result );
+         LOGGER_log(_("ripOLE: decoding of %s resulted in error %d\n"), inputfile, result );
 
        /*if (ole != NULL) FREE(ole);*/
        return result;