replaces write(%io(2), ...
Allan CORNET [Wed, 25 Feb 2009 15:51:54 +0000 (16:51 +0100)]
scilab/modules/dynamic_link/macros/ilib_build.sci
scilab/modules/dynamic_link/macros/ilib_compile.sci
scilab/modules/dynamic_link/macros/ilib_for_link.sci

index 93205f3..05d6390 100644 (file)
@@ -32,13 +32,13 @@ function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,is
   
   // generate the gateway file
   if (warningmode == 'on') then
-    write(%io(2),_("   Generate a gateway file"));
+    mprintf(_("   Generate a gateway file\n"));
   end    
   ilib_gen_gateway(ilib_name,table)
   
   // generate a loader file
   if (warningmode == 'on') then
-    write(%io(2),_("   Generate a loader file"));
+    mprintf(_("   Generate a loader file\n"));
   end
   if ~ismex then
     ilib_gen_loader(ilib_name,table,libs);
@@ -48,11 +48,11 @@ function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,is
   
   // generate a Makefile
   if (warningmode == 'on') then
-       if MSDOS
-         write(%io(2),sprintf(_("   Generate a Makefile: %s"),'Makelib'));
-       else
-         write(%io(2),sprintf(_("   Generate a Makefile")));
-       end
+         if MSDOS
+           mprintf(_("   Generate a Makefile: %s\n"),'Makelib');
+         else
+         mprintf(_("   Generate a Makefile\n"));
+         end
   end
   
   if ~MSDOS then // Needs to copy the libfoo.c which contains important stuff
@@ -63,7 +63,7 @@ function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,is
   
   // we call make
   if (warningmode == 'on') then
-    write(%io(2),_("   Running the makefile"));
+    mprintf(_("   Running the makefile\n"));
   end
   ilib_compile(ilib_name,makename,files);
   
index 9fd9727..c8fec9e 100644 (file)
@@ -54,12 +54,12 @@ function libn = ilib_compile(lib_name,makename,files, ..
     nf = size(files,'*');
     
     for i=1:nf 
-      write(%io(2),_("   Compilation of ")+files1(i));
+      mprintf(_("   Compilation of ") + string(files1(i)) +'\n');
       unix_s(make_command+makename + ' '+ files(i)); 
     end
     
     // then the shared library 
-    write(%io(2),_("   Building shared library (be patient)"));
+    mprintf(_("   Building shared library (be patient)\n"));
     unix_s(make_command + makename + ' '+ lib_name); 
    
   else
index fe83216..189f915 100644 (file)
@@ -31,11 +31,11 @@ function libn = ilib_for_link(names, ..
   if rhs <= 10 then cc  = ""; end 
   
   // generate a loader file
-  write(%io(2),gettext("   Generate a loader file"));
+  mprintf(gettext("   Generate a loader file\n"));
   ilib_link_gen_loader(names,flag,loadername,libs,libname);
   
   // generate a Makefile
-  write(%io(2),gettext("   Generate a Makefile"));
+  mprintf(gettext("   Generate a Makefile\n"));
 
   ilib_link_gen_Make(names, ..
                      files, ..
@@ -49,7 +49,7 @@ function libn = ilib_for_link(names, ..
                                 flag);
                                 
   // we call make
-  write(%io(2),gettext("   Running the Makefile"));
+  mprintf(gettext("   Running the Makefile\n"));
   if (libname == "") then libname = names(1);end
   libn = ilib_compile('lib' + libname, makename, files);