MSDOS replaced by getos() == 'Windows'
Allan CORNET [Mon, 8 Mar 2010 08:28:07 +0000 (09:28 +0100)]
294 files changed:
scilab/CHANGES_5.3.X
scilab/contrib/toolbox_skeleton/sci_gateway/c/builder_gateway_c.sce
scilab/etc/scilab.start
scilab/modules/atoms/macros/atomsInstall.sci
scilab/modules/atoms/macros/atoms_internals/atomsDownload.sci
scilab/modules/atoms/macros/atoms_internals/atomsExtract.sci
scilab/modules/atoms/macros/atoms_internals/atomsGetPlatform.sci
scilab/modules/completion/tests/utilities/build_primitives.sce
scilab/modules/core/help/en_US/getos.xml
scilab/modules/core/help/fr_FR/getos.xml
scilab/modules/core/help/pt_BR/getos.xml
scilab/modules/core/includes/getos.h
scilab/modules/core/macros/check_modules_xml.sci
scilab/modules/core/macros/check_versions.sci
scilab/modules/core/macros/edit.sci
scilab/modules/core/macros/getshell.sci
scilab/modules/core/macros/perl.sci
scilab/modules/core/src/c/getos.c
scilab/modules/core/src/fortran/inisci.f
scilab/modules/core/tests/nonreg_tests/bug_3646.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3646.tst
scilab/modules/core/tests/nonreg_tests/bug_3646.win.dia.ref
scilab/modules/core/tests/unit_tests/exit.dia.ref
scilab/modules/core/tests/unit_tests/exit.tst
scilab/modules/core/tests/unit_tests/getmd5.encoding.dia.ref
scilab/modules/core/tests/unit_tests/getmd5.encoding.tst
scilab/modules/development_tools/macros/launchtest.sci
scilab/modules/development_tools/macros/scitest.sci
scilab/modules/development_tools/macros/test_run.sci
scilab/modules/dynamic_link/etc/dynamic_link.start
scilab/modules/dynamic_link/help/en_US/G_make.xml
scilab/modules/dynamic_link/help/en_US/dllinfo.xml
scilab/modules/dynamic_link/macros/G_make.sci
scilab/modules/dynamic_link/macros/configure_lcc.sci
scilab/modules/dynamic_link/macros/configure_msifort.sci
scilab/modules/dynamic_link/macros/configure_msvc.sci
scilab/modules/dynamic_link/macros/detectmsifort64tools.sci
scilab/modules/dynamic_link/macros/detectmsvc64tools.sci
scilab/modules/dynamic_link/macros/dllinfo.sci
scilab/modules/dynamic_link/macros/findlcccompiler.sci
scilab/modules/dynamic_link/macros/findmsifortcompiler.sci
scilab/modules/dynamic_link/macros/findmsvccompiler.sci
scilab/modules/dynamic_link/macros/gencompilationflags_unix.sci
scilab/modules/dynamic_link/macros/haveacompiler.sci
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
scilab/modules/dynamic_link/macros/ilib_gen_cleaner.sci
scilab/modules/dynamic_link/macros/ilib_gen_loader.sci
scilab/modules/dynamic_link/macros/ilib_mex_build.sci
scilab/modules/dynamic_link/macros/with_lcc.sci
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3532.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3532.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3561.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_3561.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4298.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4298.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4548.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4548.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4853.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4853.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4919.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4919.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_5138.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_5138.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_5433.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_5484.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_5484.tst
scilab/modules/dynamic_link/tests/unit_tests/G_make.tst
scilab/modules/dynamic_link/tests/unit_tests/G_make.unix.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/G_make.win.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/dllinfo.tst
scilab/modules/dynamic_link/tests/unit_tests/dllinfo.unix.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/dllinfo.win.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_build_2.macosx.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_build_2.tst
scilab/modules/dynamic_link/tests/unit_tests/ilib_build_2.unix.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_build_2.win.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_build_f90.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_build_f90.tst
scilab/modules/dynamic_link/tests/unit_tests/ilib_for_link.macosx.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_for_link.tst
scilab/modules/dynamic_link/tests/unit_tests/ilib_for_link.unix.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/ilib_for_link.win.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/link.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/link.encoding.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/link.encoding.tst
scilab/modules/dynamic_link/tests/unit_tests/link.tst
scilab/modules/fftw/etc/fftw.start
scilab/modules/fileio/help/en_US/basename.xml
scilab/modules/fileio/help/en_US/dirname.xml
scilab/modules/fileio/help/en_US/getrelativefilename.xml
scilab/modules/fileio/help/en_US/listfiles.xml
scilab/modules/fileio/help/en_US/pathconvert.xml
scilab/modules/fileio/help/pt_BR/getrelativefilename.xml
scilab/modules/fileio/macros/dirname.sci
scilab/modules/fileio/macros/is_absolute_path.sci
scilab/modules/fileio/macros/listfiles.sci
scilab/modules/fileio/macros/mdelete.sci
scilab/modules/fileio/tests/nonreg_tests/bug_1693.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1693.tst
scilab/modules/fileio/tests/nonreg_tests/bug_1693.win.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2181.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2181.tst
scilab/modules/fileio/tests/nonreg_tests/bug_2320.tst
scilab/modules/fileio/tests/nonreg_tests/bug_3663.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3663.tst
scilab/modules/fileio/tests/nonreg_tests/bug_3663.win.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_4467.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_4467.tst
scilab/modules/fileio/tests/nonreg_tests/bug_4688.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_4688.tst
scilab/modules/fileio/tests/unit_tests/cd.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/cd.encoding.tst
scilab/modules/fileio/tests/unit_tests/chdir.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/chdir.encoding.tst
scilab/modules/fileio/tests/unit_tests/deletefile.dia.ref
scilab/modules/fileio/tests/unit_tests/deletefile.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/deletefile.encoding.tst
scilab/modules/fileio/tests/unit_tests/deletefile.tst
scilab/modules/fileio/tests/unit_tests/dir.dia.ref
scilab/modules/fileio/tests/unit_tests/dir.tst
scilab/modules/fileio/tests/unit_tests/fileext.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/fileext.encoding.tst
scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.tst
scilab/modules/fileio/tests/unit_tests/fprintfMat.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/fprintfMat.encoding.tst
scilab/modules/fileio/tests/unit_tests/fullpath.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/fullpath.encoding.tst
scilab/modules/fileio/tests/unit_tests/getshortlongpathname.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/getshortlongpathname.encoding.tst
scilab/modules/fileio/tests/unit_tests/is_absolute_path.dia.ref
scilab/modules/fileio/tests/unit_tests/is_absolute_path.tst
scilab/modules/fileio/tests/unit_tests/isfile.dia.ref
scilab/modules/fileio/tests/unit_tests/isfile.tst
scilab/modules/fileio/tests/unit_tests/mopen.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/mopen.encoding.tst
scilab/modules/fileio/tests/unit_tests/newest.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/newest.encoding.tst
scilab/modules/fileio/tests/unit_tests/pathconvert.dia.ref
scilab/modules/fileio/tests/unit_tests/pathconvert.tst
scilab/modules/fileio/tests/unit_tests/pwd.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/pwd.encoding.tst
scilab/modules/fileio/tests/unit_tests/removedir.encoding.dia.ref
scilab/modules/fileio/tests/unit_tests/removedir.encoding.tst
scilab/modules/functions/macros/check_gateways.sci
scilab/modules/functions/macros/genlib.sci
scilab/modules/functions/macros/genlib_old.sci
scilab/modules/functions/macros/getd.sci
scilab/modules/functions/scripts/buildmacros/cleanmacros.sce
scilab/modules/functions/tests/unit_tests/libraryinfo.encoding.dia.ref
scilab/modules/functions/tests/unit_tests/libraryinfo.encoding.tst
scilab/modules/graphic_export/help/en_US/xs2emf.xml
scilab/modules/graphic_export/help/pt_BR/xs2emf.xml
scilab/modules/graphic_export/macros/xs2emf.sci
scilab/modules/graphic_export/macros/xs2fig.sci
scilab/modules/graphic_export/tests/nonreg_tests/bug_685.tst
scilab/modules/graphics/macros/colordef.sci
scilab/modules/graphics/macros/ged.sci
scilab/modules/graphics/tests/nonreg_tests/bug_612.tst
scilab/modules/graphics/tests/unit_tests/xlfont.dia.ref
scilab/modules/graphics/tests/unit_tests/xlfont.tst
scilab/modules/gui/help/en_US/uigetfile.xml
scilab/modules/gui/tests/nonreg_tests/bug_1590.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_1590.tst
scilab/modules/gui/tests/nonreg_tests/bug_6547.tst
scilab/modules/helptools/help/en_US/xmltochm.xml
scilab/modules/helptools/macros/add_help_chapter.sci
scilab/modules/helptools/macros/check_help.sci
scilab/modules/helptools/macros/clean_help.sci
scilab/modules/helptools/macros/find_links.sci
scilab/modules/helptools/macros/xmlfiletohtml.sci.in
scilab/modules/helptools/macros/xmlfiletohtml.sci.vc
scilab/modules/helptools/macros/xmltochm.sci
scilab/modules/helptools/macros/xmltoformat.sci
scilab/modules/helptools/tests/unit_tests/xmltochm.dia.ref
scilab/modules/helptools/tests/unit_tests/xmltochm.tst
scilab/modules/helptools/tests/unit_tests/xmltochm.win.dia.ref
scilab/modules/history_manager/tests/unit_tests/historyfile.encoding.dia.ref
scilab/modules/history_manager/tests/unit_tests/historyfile.encoding.tst
scilab/modules/io/help/en_US/host.xml
scilab/modules/io/help/en_US/read.xml
scilab/modules/io/help/en_US/unix.xml
scilab/modules/io/help/en_US/unix_g.xml
scilab/modules/io/help/en_US/unix_s.xml
scilab/modules/io/help/en_US/unix_w.xml
scilab/modules/io/help/en_US/unix_x.xml
scilab/modules/io/help/en_US/write.xml
scilab/modules/io/help/fr_FR/host.xml
scilab/modules/io/help/fr_FR/unix.xml
scilab/modules/io/help/fr_FR/unix_g.xml
scilab/modules/io/help/fr_FR/unix_s.xml
scilab/modules/io/help/fr_FR/unix_w.xml
scilab/modules/io/help/fr_FR/unix_x.xml
scilab/modules/io/help/pt_BR/host.xml
scilab/modules/io/help/pt_BR/read.xml
scilab/modules/io/help/pt_BR/unix.xml
scilab/modules/io/help/pt_BR/unix_g.xml
scilab/modules/io/help/pt_BR/unix_s.xml
scilab/modules/io/help/pt_BR/unix_w.xml
scilab/modules/io/help/pt_BR/unix_x.xml
scilab/modules/io/help/pt_BR/write.xml
scilab/modules/io/macros/unix_g.sci
scilab/modules/io/macros/unix_s.sci
scilab/modules/io/macros/unix_w.sci
scilab/modules/io/macros/unix_x.sci
scilab/modules/io/tests/nonreg_tests/bug_1969.dia.ref
scilab/modules/io/tests/nonreg_tests/bug_1969.tst
scilab/modules/io/tests/unit_tests/searchenv.encoding.dia.ref
scilab/modules/io/tests/unit_tests/searchenv.encoding.tst
scilab/modules/javasci/tests/nonreg_tests/java.sci
scilab/modules/javasci/tests/unit_tests/java.sci
scilab/modules/jvm/macros/check_classpath.sci
scilab/modules/jvm/macros/check_librarypath.sci
scilab/modules/localization/tests/unit_tests/io_encoding.dia.ref
scilab/modules/localization/tests/unit_tests/io_encoding.tst
scilab/modules/localization/tests/unit_tests/setdefaultlanguage.tst
scilab/modules/localization/tests/unit_tests/setdefaultlanguage.unix.dia.ref
scilab/modules/localization/tests/unit_tests/setdefaultlanguage.win.dia.ref
scilab/modules/m2sci/macros/mfile2sci.sci
scilab/modules/m2sci/macros/translatepaths.sci
scilab/modules/mexlib/examples/cppmex/builder.sce
scilab/modules/optimization/tests/unit_tests/neldermead/fminsearch.linux.dia.ref
scilab/modules/optimization/tests/unit_tests/neldermead/fminsearch.tst
scilab/modules/optimization/tests/unit_tests/neldermead/fminsearch.win.dia.ref
scilab/modules/optimization/tests/unit_tests/neldermead/neldermead_search.dia.ref
scilab/modules/optimization/tests/unit_tests/neldermead/neldermead_search.tst
scilab/modules/optimization/tests/unit_tests/optimsimplex/optimsimplex_tostring.linux.dia.ref
scilab/modules/optimization/tests/unit_tests/optimsimplex/optimsimplex_tostring.tst
scilab/modules/optimization/tests/unit_tests/optimsimplex/optimsimplex_tostring.win.dia.ref
scilab/modules/output_stream/tests/nonreg_tests/bug_167.dia.ref
scilab/modules/output_stream/tests/nonreg_tests/bug_167.tst
scilab/modules/output_stream/tests/nonreg_tests/bug_438.dia.ref
scilab/modules/output_stream/tests/nonreg_tests/bug_438.tst
scilab/modules/output_stream/tests/unit_tests/msprintf.dia.ref
scilab/modules/output_stream/tests/unit_tests/msprintf.tst
scilab/modules/pvm/demos/pvm.dem
scilab/modules/pvm/etc/pvm.start
scilab/modules/pvm/macros/configure_pvm.sci
scilab/modules/renderer/tests/nonreg_tests/bug_4055.dia.ref
scilab/modules/renderer/tests/nonreg_tests/bug_4055.tst
scilab/modules/scicos/demos/dialogs_play.sci
scilab/modules/scicos/macros/scicos_menus/XcosMenuSelectRegion.sci
scilab/modules/scicos/macros/scicos_scicos/Link_modelica_C.sci
scilab/modules/scicos/macros/scicos_scicos/Modelica_execs.sci
scilab/modules/scicos/macros/scicos_scicos/compile_init_modelica.sci
scilab/modules/scicos/macros/scicos_scicos/do_compile_superblock42.sci
scilab/modules/scicos/macros/scicos_scicos/do_icon_edit.sci
scilab/modules/scicos/macros/scicos_scicos/do_load_as_palette.sci
scilab/modules/scicos/macros/scicos_scicos/do_palettes.sci
scilab/modules/scicos/macros/scicos_scicos/do_run.sci
scilab/modules/scicos/macros/scicos_scicos/getmodelicacpath.sci
scilab/modules/scicos/macros/scicos_scicos/link_olibs.sci
scilab/modules/scicos/macros/scicos_scicos/modelicac.sci
scilab/modules/scicos/macros/scicos_scicos/scstxtedit_tk.sci
scilab/modules/scicos/macros/scicos_scicos/tk_getfile_scicos.sci
scilab/modules/scicos/macros/scicos_scicos/tk_message_modeless.sci
scilab/modules/scicos/macros/scicos_scicos/translator.sci
scilab/modules/scicos/macros/scicos_scicos/update_scicos_pal.sci
scilab/modules/scicos/macros/scicos_scicos/xml2modelica.sci
scilab/modules/scicos/tests/nonreg_tests/scicos_nonreg.sci
scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.tst
scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.unix.dia.ref
scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.win.dia.ref
scilab/modules/scicos_blocks/macros/NonLinear/LOOKUP_c.sci
scilab/modules/scicos_blocks/macros/Sources/CURVE_c.sci
scilab/modules/scicos_blocks/macros/buildmacros.sce
scilab/modules/sound/macros/playsnd.sci
scilab/modules/tclsci/demos/tk/scroll.dem.sce
scilab/modules/tclsci/macros/gettklib.sci
scilab/modules/tclsci/tests/nonreg_tests/bug_3223.dia.ref
scilab/modules/tclsci/tests/nonreg_tests/bug_3223.tst
scilab/modules/tclsci/tests/nonreg_tests/bug_488.dia.ref
scilab/modules/tclsci/tests/nonreg_tests/bug_488.tst
scilab/modules/windows_tools/help/en_US/MSDOS.xml
scilab/modules/windows_tools/help/en_US/createGUID.xml
scilab/modules/windows_tools/help/en_US/istssession.xml
scilab/modules/windows_tools/help/en_US/win64.xml
scilab/modules/windows_tools/help/en_US/winqueryreg.xml
scilab/modules/windows_tools/help/fr_FR/winqueryreg.xml
scilab/modules/windows_tools/macros/powershell.sci
scilab/modules/windows_tools/tests/nonreg_tests/bug_6489.dia.ref
scilab/modules/windows_tools/tests/nonreg_tests/bug_6489.tst
scilab/modules/windows_tools/tests/unit_tests/findfileassociation.dia.ref
scilab/modules/windows_tools/tests/unit_tests/findfileassociation.tst
scilab/modules/windows_tools/tests/unit_tests/powershell.dia.ref
scilab/modules/windows_tools/tests/unit_tests/powershell.tst
scilab/modules/xcos/tests/nonreg_tests/xcos_nonreg.sci
scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.tst
scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.win.dia.ref
scilab/modules/xpad/src/java/org/scilab/modules/xpad/style/KeywordManager.java
scilab/modules/xpad/tests/nonreg_tests/bug_5086.tst
scilab/tools/localization/generatePoFile.sce

index 463ec51..3137475 100644 (file)
@@ -94,6 +94,13 @@ Text Rendering:
 
 * Antialiasing activated by default to render text
 
+
+Obsolete Functions:
+===================
+
+* 'MSDOS' obsolete see 'getos'.
+
+
 Removed functions (previously declared as obsolete):
 ====================================================
 
index caac7f8..5e4c86d 100644 (file)
@@ -5,7 +5,7 @@
 // This file is released into the public domain
 // ====================================================================
 
-if MSDOS then
+if getos() == 'Windows' then
   // to manage long pathname
   includes_src_c = '-I""' + get_absolute_file_path('builder_gateway_c.sce') + '../../src/c""';
 else
index 8daac78..de21a90 100644 (file)
@@ -48,7 +48,7 @@ ieee(0);
 // boolean variables
 %T = %t;
 %F = %f;
-
+MSDOS = (getos() == 'Windows');
 %pvm = with_module('pvm');
 // Set LANGUAGE  ======================================================
 // used mainly for on-line help
@@ -98,7 +98,7 @@ clear modules i add_demo WITH_DEMOS
 
 // Create some configuration variables ================================
 home = getenv("HOME",SCI);
-if MSDOS then
+if getos() == 'Windows' then
   // path of scilab main directory for Windows
   WSCI = getlongpathname(pathconvert(SCI,%f,%f,"w"));
 else
index 6a98b10..3541936 100644 (file)
@@ -303,7 +303,7 @@ function result = atomsInstall(packages,section)
                // Rename the created directory
                // =====================================================================
                
-               if MSDOS then
+               if getos() == 'Windows' then
                        rename_cmd = "rename """+this_package_details("extractedDirectory")+""" """+this_package_version+"""";
                else
                        rename_cmd = "mv """+this_package_details("extractedDirectory")+""" """+this_package_directory+this_package_version+"""";
@@ -316,7 +316,7 @@ function result = atomsInstall(packages,section)
                        // Second try after a sleep
                        // This is needed on windows platforms
                        
-                       if MSDOS then
+                       if getos() == 'Windows' then
                                sleep(2000);
                                [rep,stat,err]=unix_g(rename_cmd);
                        end
@@ -335,7 +335,7 @@ function result = atomsInstall(packages,section)
                // → Only if it's a local package
                // =====================================================================
                
-               if MSDOS & (this_package_details("fromRepository") == "0") then
+               if getos() == 'Windows' & (this_package_details("fromRepository") == "0") then
                        
                        move_cmd = "move """+atoms_tmp_directory+this_package_version+""" """+pathconvert(this_package_directory,%F)+"""";
                        
@@ -346,7 +346,7 @@ function result = atomsInstall(packages,section)
                                // Second try after a sleep
                                // This is needed on windows platforms
                                
-                               if MSDOS then
+                               if getos() == 'Windows' then
                                        sleep(2000);
                                        [rep,stat,err]=unix_g(move_cmd);
                                end
index 4312207..f3e159f 100644 (file)
@@ -80,7 +80,7 @@ function atomsDownload(url_in,file_out,md5sum)
        elseif atomsGetConfig("downloadTool") == "curl" then
                CURL=%T;
        
-       elseif atomsGetConfig("downloadTool") == "httpdownload" & MSDOS then
+       elseif atomsGetConfig("downloadTool") == "httpdownload" & getos() == 'Windows' then
                HTTPDOWNLOAD=%T;
        
        else
@@ -104,7 +104,7 @@ function atomsDownload(url_in,file_out,md5sum)
                                end
                        end
                        
-               elseif MACOSX | MSDOS then
+               elseif MACOSX | getos() == 'Windows' then
                        CURL = %T;
                end
                
@@ -173,7 +173,7 @@ function atomsDownload(url_in,file_out,md5sum)
                        
                end
                
-               if MSDOS & CURL then
+               if getos() == 'Windows' & CURL then
                        download_cmd = """" + pathconvert(SCI+"/tools/curl/curl.exe",%F)+""""+proxy_host_arg+proxy_user_arg+timeout_arg+" -s "+url_in + " -o " + file_out;
                
                elseif CURL then
@@ -188,7 +188,7 @@ function atomsDownload(url_in,file_out,md5sum)
                
                // Second try with httpdownload
                
-               if ( HTTPDOWNLOAD | stat<>0 ) & MSDOS then
+               if ( HTTPDOWNLOAD | stat<>0 ) & (getos() == 'Windows') then
                        
                        imode = ilib_verbose();
                        ilib_verbose(0) ;
@@ -213,7 +213,7 @@ function atomsDownload(url_in,file_out,md5sum)
        
        elseif regexp(url_in,"/^file:\/\//","o") == 1 then
                
-               if MSDOS then
+               if getos() == 'Windows' then
                        url_pattern = "file:///";
                else
                        url_pattern = "file://";
index f193c64..b6ba66c 100644 (file)
@@ -74,7 +74,7 @@ function dir_created = atomsExtract(archive_in,dir_out)
                
        elseif regexp(archive_in,"/\.zip$/","o") <> [] then
                
-               if MSDOS then
+               if getos() == 'Windows' then
                        extract_cmd = getshortpathname(pathconvert(SCI+"/tools/zip/unzip.exe",%F));
                else
                        extract_cmd = "unzip";
index 6f67dca..7ce323e 100644 (file)
@@ -14,7 +14,7 @@ function [OSNAME,ARCH,LINUX,MACOSX,SOLARIS,BSD] = atomsGetPlatform()
        
        // Operating system detection
        
-       if ~MSDOS then
+       if getos() <> 'Windows' then
                OSNAME   = unix_g("uname");
                MACOSX   = (strcmpi(OSNAME,"darwin") == 0);
                LINUX    = (strcmpi(OSNAME,"linux")  == 0);
@@ -27,7 +27,7 @@ function [OSNAME,ARCH,LINUX,MACOSX,SOLARIS,BSD] = atomsGetPlatform()
                BSD     = %F;
        end
        
-       if MSDOS then
+       if getos() == 'Windows' then
                OSNAME = "windows";
        elseif LINUX then
                OSNAME = "linux";
index 7992980..fea858b 100644 (file)
@@ -16,7 +16,7 @@ cd(sci_completeline_dir);
 ilib_name  = "completion_c";
 files = ["sci_completeline.c","sci_getpartlevel.c","sci_getfilepartlevel.c","sci_getcommonpart.c"];
 
-if MSDOS then
+if getos() == 'Windows' then
        libs   = SCI   + "/bin/scicompletion";
        cflags = "-I " + SCI +"/modules/completion/includes";
 
index cdc59fc..1d25093 100644 (file)
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
 OS=getos()
-[OS,version]=getos()
+[OS,version] = getos()
+if (getos() == "Windows") then disp("Scilab on Windows"); end
+if (getos() == "Linux") then disp("Scilab on Linux"); end
+if (getos() == "SunOS") then disp("Scilab on Solaris"); end
+if (getos() == "Darwin") then disp("Scilab on MacOs"); end
+
  ]]></programlisting>
   </refsection>
   <refsection>
index 2d67105..6442338 100644 (file)
     <title>Exemples</title>
     <programlisting role="example"><![CDATA[ 
 OS=getos()
-[OS,version]=getos()
+[OS,version] = getos()
+if (getos() == "Windows") then disp("Scilab on Windows"); end
+if (getos() == "Linux") then disp("Scilab on Linux"); end
+if (getos() == "SunOS") then disp("Scilab on Solaris"); end
+if (getos() == "Darwin") then disp("Scilab on MacOs"); end
+
  ]]></programlisting>
   </refsection>
   <refsection>
index 4442b9d..d274888 100644 (file)
 
     <programlisting role="example"><![CDATA[ 
 OS=getos()
-[OS,version]=getos()
+[OS,version] = getos()
+if (getos() == "Windows") then disp("Scilab on Windows"); end
+if (getos() == "Linux") then disp("Scilab on Linux"); end
+if (getos() == "SunOS") then disp("Scilab on Solaris"); end
+if (getos() == "Darwin") then disp("Scilab on MacOs"); end
+
  ]]></programlisting>
   </refsection>
 
index be59a18..33ceccd 100644 (file)
 /*--------------------------------------------------------------------------*/ 
 
 /**
-* get OS name
-* macosx, linux, windows or other
-* @return a string
-*/
-char *getOSName(void);
-
-/**
 * get OS Full name based on uname
 * @return a string
 */
index 1b62d0e..4e6f16d 100644 (file)
@@ -13,7 +13,7 @@ function ret=check_modules_xml(varargin)
   file_to_check=SCI+'/etc/modules.xml';
   printf('checking : '+file_to_check+'\n');
   try
-  if MSDOS then
+  if getos() == 'Windows' then
     stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);
   else
     stat = unix_w("xmllint --noout --valid "+file_to_check);
index 6ee41ea..2d18aa2 100644 (file)
@@ -18,7 +18,7 @@ function ret=check_versions(varargin)
     mprintf(gettext("Checking: %s\n"),modules(i))
     if (fileinfo(file_to_check)<>[]) then
       try
-        if MSDOS then
+        if getos() == 'Windows' then
           stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);
         else
            stat = unix_w("xmllint --noout --valid "+file_to_check);
index 3589f3b..d102d41 100644 (file)
@@ -37,7 +37,7 @@ function edit(macroname,ueditor)
     if libr<>[] then // macroname is the name of a defined function
       path = string(evstr(libr));
       path = path(1);
-      // convert path according to MSDOS value and expand SCI
+      // convert path according to getos() == 'Windows' value and expand SCI
       path = pathconvert(path);
       fname = path+macroname+'.sci';
       finded = %t;
index 3d38495..88b7bd6 100644 (file)
@@ -9,7 +9,7 @@
 
 
 function shell=getshell()
-  if MSDOS then 
+  if getos() == 'Windows' then 
     [path,fname,extension]=fileparts(getenv('Comspec','UNKNOW'));
     shell=fname;
   else
index d522bb2..b032a19 100644 (file)
@@ -38,7 +38,7 @@ function [resultat,status] = perl(varargin)
       if (Chainecmd == '') then
         error(msprintf(gettext("%s: No perl command specified."),"perl"));
       else
-        if MSDOS then
+        if getos() == 'Windows' then
           // For Windows
           CheminPerl= fullfile(pathconvert(SCI,%f,%f,'w'),'\tools\perl\bin\');
           
index 23e93c3..d54ee7b 100644 (file)
 #include "strdup_windows.h"
 #endif
 /*--------------------------------------------------------------------------*/ 
-char *getOSName(void)
-{
-       #ifdef __APPLE__
-               return strdup("macosx");
-       #else
-               #ifdef __linux__
-                       return strdup("linux");
-               #else
-                       #ifdef _MSC_VER
-                               return strdup("windows");
-                       #else
-                               return strdup("other");
-                       #endif
-               #endif
-       #endif
-}
-/*--------------------------------------------------------------------------*/ 
 char *getOSFullName(void)
 {
 #ifndef _MSC_VER
index b2a27ca..77f16c8 100644 (file)
@@ -189,9 +189,9 @@ c     get default global stackize from c
       gbot=isizt
       lstk(gbot)=lstk(gtop+1)+vsizg-1
 c
-c     16 is the number of predefined variables 
-c     17 - 1 blank not include
-      bot=isiz-16
+c     15 is the number of predefined variables 
+c     16 - 1 blank not include
+      bot=isiz-15
       bbot=bot
       bot0=bot
 c     memory requested for predefined variables 
@@ -200,13 +200,13 @@ c     $        -> size : sadr(10-1) + 2
 c     mxn mat  -> size : sadr(3)+m*n*(it+1)
 c     string   -> size : sadr(6+nchar)+1
 c     4 strings
-c     6 booleans
+c     5 booleans
       call getcomp(bufcomp,nbcomp)
       call getsci(bufsci,nbsci)
       call getscihome(bufscihome,nbscihome)
       call gettmpdir(buftmp,nbtmpdir)
       lpvar = (sadr(10-1) + 2) 
-     $     + 6*sadr(5) 
+     $     + 5*sadr(5) 
      $     + 4*(sadr(3)+1)
      $     + 2*(sadr(3)+2)
      $     + 1*(sadr(6+nbcomp)+1)
@@ -241,13 +241,6 @@ c     . TMPDIR
       call cvname(idloc,vname,0)
       call cresmatvar(idloc,k,buftmp,nbtmpdir)
       k=k+1
-c     . MSDOS
-      vname = ' '
-      vname(1:5) = "MSDOS"
-      call withmsdos(irep)
-      call cvname(idloc,vname,0)
-      call crebmatvar(idloc,k,1,1,irep)
-      k=k+1 
 c     . %gui
       vname = ' '
       vname(1:4) = "%gui"
index f651650..e8ebf61 100644 (file)
@@ -11,7 +11,7 @@
 //
 // <-- Short Description -->
 // Scilab 5.0.2 does not start after installation
-if MSDOS then
+if getos() == 'Windows' then
   cd(TMPDIR);
   mkdir('Lukáš Bùôl');
   path_directory = cd('Lukáš Bùôl');
index cf3a944..2db0d09 100644 (file)
@@ -13,7 +13,7 @@
 // <-- Short Description -->
 // Scilab 5.0.2 does not start after installation
 
-if MSDOS then
+if getos() == 'Windows' then
 
   cd(TMPDIR);
   mkdir('Lukáš Bùôl');
index f651650..e8ebf61 100644 (file)
@@ -11,7 +11,7 @@
 //
 // <-- Short Description -->
 // Scilab 5.0.2 does not start after installation
-if MSDOS then
+if getos() == 'Windows' then
   cd(TMPDIR);
   mkdir('Lukáš Bùôl');
   path_directory = cd('Lukáš Bùôl');
index 00003d7..60743fe 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 for i = 1:10
- if MSDOS then
+ if getos() == 'Windows' then
    [outputs,status,exitcode] = dos(SCI + '/bin/scilex.exe -nwni -e exit(' + string(i) + ')');
  else
    exitcode = unix(SCI + '/bin/scilab -nwni -e ""exit(' + string(i) + ')""');
index f2ebb45..e46520d 100644 (file)
@@ -7,7 +7,7 @@
 
 for i = 1:10
 
- if MSDOS then
+ if getos() == 'Windows' then
    [outputs,status,exitcode] = dos(SCI + '/bin/scilex.exe -nwni -e exit(' + string(i) + ')');
  else
    exitcode = unix(SCI + '/bin/scilab -nwni -e ""exit(' + string(i) + ')""');
index 831a664..4b14004 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index abecd0e..9c4db8d 100644 (file)
@@ -7,7 +7,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 5fefee1..03f1b68 100644 (file)
@@ -30,7 +30,7 @@ function maketests(myTests,job)
 endfunction
 
 function cleantests(myTests)
-       if MSDOS then
+       if getos() == 'Windows' then
                path=SCI+'\tests\basic_tests'
                file_to_clean=path+strsubst(myTests,'.tst','.dia')
                unix_s('del '+'""'+strcat(file_to_clean,'"" ""')+'""')
index fbe4e77..d81bbb6 100644 (file)
@@ -42,7 +42,7 @@ function scitest(tstfile,force,error_check,keep_prompt,postscript_graphics)
        //Reset standard globals
        rand('seed',0);rand('uniform');
        
-       if MSDOS then
+       if getos() == 'Windows' then
                tmpfiles=strsubst(TMPDIR,'/','\')+'\tmp.';
        else
                tmpfiles=TMPDIR+'/tmp.';
@@ -141,7 +141,7 @@ function scitest(tstfile,force,error_check,keep_prompt,postscript_graphics)
                ref=strsubst(ref,' ','')
                
                if or(ref<>dia) then
-               if MSDOS then
+               if getos() == 'Windows' then
                mydisp(msprintf(gettext("Test Failed. See : fc /L /N  %s"),diafile+' '+diafile+'.ref '));
                else
                mydisp(msprintf(gettext("Test Failed. See : diff -wu  %s"),diafile+' '+diafile+'.ref '));
@@ -159,7 +159,7 @@ function mydisp(str)
 endfunction
 
 function myexec()
-       if MSDOS then
+       if getos() == 'Windows' then
                if fileinfo(tmpfiles+'dia')<>[] then
                        deletefile(tmpfiles+'dia')
                end
index 31ffa09..ea098e3 100644 (file)
@@ -126,7 +126,7 @@ function test_run(varargin)
        global MACOSX;
        global LINUX;
        
-       if ~MSDOS then
+       if getos() <> 'Windows' then
                OSNAME = unix_g('uname');
                MACOSX = (strcmpi(OSNAME,"darwin") == 0);
                LINUX  = (strcmpi(OSNAME,"linux") == 0);
@@ -688,7 +688,7 @@ function st = st_set_path(st,path)
        st.path_dia_ref = basepath + ".dia.ref";
        
        // Reference file management OS by OS
-       if MSDOS then
+       if getos() == 'Windows' then
                altreffile = [ basepath+".win.dia.ref" ];
        elseif MACOSX then
                altreffile = [ basepath+".unix.dia.ref" ; basepath+".macosx.dia.ref" ];
@@ -970,13 +970,13 @@ function st = st_run(st)
        
        // The test cannot be launched on this platform
        
-       if (st.platform=="windows") & (~MSDOS) then
+       if (st.platform=="windows") & (getos() <> 'Windows') then
                st.status = status_set_id(st.status,10);
                st.status = status_set_message(st.status,"skipped : Windows only");
                return;
        end
        
-       if (st.platform=="unix") & MSDOS then
+       if (st.platform=="unix") & getos() == 'Windows' then
                st.status = status_set_id(st.status,10);
                st.status = status_set_message(st.status,"skipped : Unix only");
                return;
@@ -1075,7 +1075,7 @@ function st = st_run(st)
        // Gestion de l'emplacement de bin/scilab
        // -------------------------------------------------------------------------
        
-       if (~MSDOS) & (fileinfo(SCI+"/bin/scilab")==[]) then
+       if (getos() <> 'Windows') & (fileinfo(SCI+"/bin/scilab")==[]) then
                SCI_BIN = strsubst(SCI,'share/scilab','');
        else
                SCI_BIN = SCI;
@@ -1105,7 +1105,7 @@ function st = st_run(st)
        
        if st.language == "any" then
                language_arg = "";
-       elseif MSDOS then
+       elseif getos() == 'Windows' then
                language_arg = "-l "+ st.language;
        else
                language_arg = "LANG=" + st.language + " ; ";
@@ -1114,7 +1114,7 @@ function st = st_run(st)
        // Assembly
        // -------------------------------------------------------------------------
        
-       if MSDOS then
+       if getos() == 'Windows' then
                test_cmd = "( """+SCI_BIN+"\bin\scilex.exe"+""""+" "+mode_arg+" "+language_arg+" -nb -f """+st.tmp_tst+""" > """+st.tmp_res+""" ) 2> """+st.tmp_err+"""";
        else
                test_cmd = "( "+language_arg+" "+SCI_BIN+"/bin/scilab "+mode_arg+" -nb -f "+st.tmp_tst+" > "+st.tmp_res+" ) 2> "+st.tmp_err;
@@ -1247,7 +1247,7 @@ function st = st_run(st)
                dia = strsubst(dia,TMPDIR ,"TMPDIR");
                dia = strsubst(dia,TMPDIR1,"TMPDIR");
                
-               if MSDOS then
+               if getos() == 'Windows' then
                        dia = strsubst(dia,strsubst(TMPDIR ,"\","/"),"TMPDIR");
                        dia = strsubst(dia,strsubst(TMPDIR1,"\","/"),"TMPDIR");
                        dia = strsubst(dia,strsubst(TMPDIR ,"/","\"),"TMPDIR");
@@ -1260,7 +1260,7 @@ function st = st_run(st)
                
                dia = strsubst(dia,SCI,"SCI");
        
-               if MSDOS then
+               if getos() == 'Windows' then
                        dia = strsubst(dia,strsubst(SCI ,"\","/"),"SCI");
                        dia = strsubst(dia,strsubst(SCI ,"/","\"),"SCI");
                        dia = strsubst(dia,strsubst(getshortpathname(SCI) ,"\","/"),"SCI");
index ff4b8ed..e1bbea1 100644 (file)
@@ -12,7 +12,7 @@
 load('SCI/modules/dynamic_link/macros/lib');
 
 // Configure Environment Variables for Ms Visual C ====================
-if MSDOS then
+if getos() == 'Windows' then
        if (~isdef('WSCI')) then
         WSCI = getlongpathname( pathconvert(SCI, %f, %f, 'w') );
        end
index 0db5a54..23e4b08 100644 (file)
@@ -59,7 +59,7 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   txt = ['ex1c.dll:',
          '  @echo ------------------------------------------',
          '  @echo From Makefile.mak',
index 112ee1c..cb2d23f 100644 (file)
@@ -84,7 +84,7 @@
     <title>Examples</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   filename = SCI+'\bin\libscilab.dll';
 
   dllinfolist = dllinfo(filename,'machine');
index 2186ba5..2fdb26e 100644 (file)
@@ -23,7 +23,7 @@ function [res]=G_make(files,objects_or_dll)
 
   msg = '';
   
-  if MSDOS then // WINDOWS
+  if getos() == 'Windows' then // WINDOWS
 
     if typeof(objects_or_dll)<>'string' then 
       error(sprintf(gettext('%s: Wrong type for input argument #%d: String expected.'),'G_make',2));
index 89baade..eb643a9 100644 (file)
@@ -11,7 +11,7 @@
 function bOK = configure_lcc()
   bOK = %F;
   
-  if MSDOS then
+  if getos() == 'Windows' then
 
     try
       lccincludepath = winqueryreg('HKEY_CURRENT_USER','Software\lcc\compiler','includepath');
index 16316e4..5c12638 100644 (file)
@@ -116,7 +116,7 @@ function bOK = set_commons_msi9and10(ifpath,machinepath)
 endfunction
 //==========================================
   bOK = %F;
-  if MSDOS then
+  if getos() == 'Windows' then
     ifortcompiler = findmsifortcompiler();
     if ifortcompiler <> 'unknown' then
       if_path = getIFpath(ifortcompiler);
index d3fafae..b8bb17e 100644 (file)
@@ -576,7 +576,7 @@ function bOK = commons_msvc90_x64(MS_VS_DIRECTORY)
 endfunction
 //==========================================
 
-  if MSDOS then
+  if getos() == 'Windows' then
     msvc = findmsvccompiler();
     bOK = %F;
     
index 94bb77e..c13beab 100644 (file)
@@ -13,7 +13,7 @@
 function bOK = detectmsifort64tools()
 
  bOK = %F;
- if MSDOS & win64() then
+ if getos() == 'Windows' & win64() then
    IFORTPATH = '';
    ifortcomp = findmsifortcompiler();
    if ifortcomp <> 'unknown' then
index 256115b..cf1d42b 100644 (file)
@@ -13,7 +13,7 @@
 function bOK = detectmsvc64tools()
 
  bOK = %F;
- if MSDOS & win64() then
+ if getos() == 'Windows' & win64() then
    compiler = findmsvccompiler();
    if ( (compiler == 'msvc90pro') | ..
         (compiler == 'msvc90std') | ..
index 7d0ac54..408af98 100644 (file)
@@ -125,7 +125,7 @@ endfunction
     
   dllinfolist = list();
   
-  if MSDOS then
+  if getos() == 'Windows' then
     if findmsvccompiler() <> 'unknown' then
       if strcmpi(options,'imports')== 0 then
         dllinfolist = dllinfoimports(dllname);
index dd3928a..b27af9b 100644 (file)
@@ -12,7 +12,7 @@
 //==========================================
 function res = findlcccompiler()
   res = %F;
-  if MSDOS then
+  if getos() == 'Windows' then
     try
       lccincludepath = winqueryreg('HKEY_CURRENT_USER', ..
                                    'Software\lcc\compiler', ..
index 9002a35..b596deb 100644 (file)
@@ -13,7 +13,7 @@ function ifortCompiler = findmsifortcompiler()
 
   ifortCompiler='unknown'; // unknown
 
-  if MSDOS then
+  if getos() == 'Windows' then
     if getenv('IFORT_COMPILER11','NOK') <> 'NOK' then
       ifortCompiler='ifort11';
     else
@@ -25,7 +25,7 @@ function ifortCompiler = findmsifortcompiler()
         end
       end
     end
-  else // NOT MSDOS
+  else // NOT Windows
     ifortCompiler = 'unknown'; // unknown
   end
 endfunction
index c036a33..c5015b7 100644 (file)
@@ -184,7 +184,7 @@ endfunction
 
   MSCompiler='unknown'; // unknown
   
-  if MSDOS then
+  if getos() == 'Windows' then
 
     if is_msvc100express() then
       MSCompiler = 'msvc100express';          // Microsoft Visual 2010 Express
@@ -231,7 +231,7 @@ endfunction
       return;
     end
     
-  else // NOT MSDOS
+  else // NOT WINDOWS
     MSCompiler = 'unknown'; // unknown
   end
 endfunction
index f4db23a..bd8932f 100644 (file)
@@ -10,7 +10,7 @@
 
 function cmd = gencompilationflags_unix(ldflags, cflags, fflags, cc)
   // This function is restricted to Linux/Unix user only
-       if MSDOS then
+       if getos() == 'Windows' then
          error(msprintf(gettext("%s: Feature not available under Microsoft Windows.\n"),'gencompilationflags_unix'));
          return;
        end
index 51dcf50..422b213 100644 (file)
@@ -9,7 +9,7 @@
 
 //==========================================
 function bOK = haveacompiler()
-  if MSDOS then
+  if getos() == 'Windows' then
     bOK = %F;
     msvc = findmsvccompiler();
     if ( msvc == 'unknown' ) then
index 3823241..a180c28 100644 (file)
@@ -37,7 +37,7 @@ function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,is
     error(999,msprintf(_("%s: Wrong size for input argument #%d: A matrix of strings < 999 expected.\n"),'ilib_build',2));
   end 
   
-  if ~MSDOS & strncpy(ilib_name,3) <> "lib" then
+  if getos() <> 'Windows' & strncpy(ilib_name,3) <> "lib" then
        // We add a leading lib under Linux/Unix because it is the way
          ilib_name="lib" + ilib_name;
   end
@@ -49,7 +49,7 @@ function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,is
   if rhs <= 8 then ismex  = %f; end 
   if rhs <= 9 then cc  = ''; end 
   
-  if MSDOS then
+  if getos() == 'Windows' then
     if isdef('makename') then
       if (makename == []) | (makename == '') then
         makename = 'makelib';
@@ -83,14 +83,14 @@ function ilib_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflags,is
   
   // generate a Makefile
   if ( ilib_verbose() <> 0 ) then
-         if MSDOS
+         if getos() == 'Windows'
            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
+  if getos() <> 'Windows' then // Needs to copy the libfoo.c which contains important stuff
     files = files(:)';
     files = [files,ilib_name + '.c'];
   end
index 4c0346d..058e504 100644 (file)
@@ -57,7 +57,7 @@ function libn = ilib_compile(lib_name,makename,files, ..
   
    
   // first try to build each file step by step 
-  if MSDOS then
+  if getos() == 'Windows' then
     //** ----------- Windows section  -----------------
     msgs_make = '';
     nf = size(files,'*');
@@ -194,7 +194,7 @@ function [make_command,lib_name_make,lib_name,path,makename,files] = ilib_compil
   lib_name = lib_name+getdynlibext();
   lib_name_make = lib_name;
   
-  if MSDOS then // WINDOWS
+  if getos() == 'Windows' then // WINDOWS
     FILES = [];
     for x = files(:)' 
       [ptmp,ftmp,fext] = fileparts(x);
index 340fbae..cd916cb 100644 (file)
@@ -36,7 +36,7 @@ function libn = ilib_for_link(names, ..
   if rhs <= 9 then fflags  = ""; end 
   if rhs <= 10 then cc  = ""; end 
   
-  if MSDOS then
+  if getos() == 'Windows' then
     if isdef('makename') then
       if (makename == []) | (makename == '') then
         makename = 'makelib';
@@ -111,7 +111,7 @@ function ilib_link_gen_Make(names, ..
   if rhs <= 8 then cc  = ""; end 
   if rhs <= 9 then flag  = "c"; end 
   
-  if MSDOS then // Windows
+  if getos() == 'Windows' then // Windows
     // Visual Studio C++ 
     if ( findmsvccompiler() <> 'unknown' ) then 
       Makename = makename+'.mak';
index 766f183..4e0a49b 100644 (file)
@@ -39,7 +39,7 @@ function ilib_gen_cleaner(makename,loadername,files)
   mfprintf(fd,"end\n");
   mfprintf(fd,"// ------------------------------------------------------\n");
   
-  if MSDOS then
+  if getos() == 'Windows' then
     make_command = get_make_command(makename);  
     mfprintf(fd,"if fileinfo(''%s%s'') <> [] then\n",makename,get_makefile_ext());
     mfprintf(fd,"  unix_s(''%s'');\n",make_command);  
@@ -69,7 +69,7 @@ function ilib_gen_cleaner(makename,loadername,files)
 endfunction
 //==========================================
 function cmd = get_make_command(makename)
-  if MSDOS then // WINDOWS
+  if getos() == 'Windows' then // WINDOWS
     // Visual Studio C++ 
     if ( findmsvccompiler() <> 'unknown' ) then 
       cmd = 'nmake /Y /nologo /f ' + makename + '.mak' + ' clean';
@@ -87,7 +87,7 @@ function cmd = get_make_command(makename)
 endfunction
 //==========================================
 function ext = get_makefile_ext()
-  if MSDOS then // WINDOWS
+  if getos() == 'Windows' then // WINDOWS
     // Visual Studio C++ 
     if ( findmsvccompiler() <> 'unknown' ) then 
       ext = '.mak';
index ebdeb00..3d9317f 100644 (file)
@@ -144,7 +144,7 @@ function ilib_4_link_gen_loader(names, flag, loadername, libs, libname)
   end
   
   // we manage .f90 as .f on windows
-  if MSDOS then 
+  if getos() == 'Windows' then 
    if findmsifortcompiler()<> "unknown" then
      if flag == "f90" then
       flag = "f";
index 5370b22..c06a5e9 100644 (file)
@@ -28,7 +28,7 @@ function ilib_mex_build(ilib_name,table,files,libs,makename,ldflags,cflags,fflag
   if rhs <= 7 then fflags  = ''; end 
   if rhs <= 8 then cc  = ''; end 
   
-  if ~MSDOS then
+  if getos() <> 'Windows' then
     // These flags are important... The rename of the fly the name of the 
     // function in the C / C++ / Fortran code
     cflags=" -DmexFunction=mex_\$* " + cflags
index 20f7b7e..1e5d5d7 100644 (file)
@@ -10,7 +10,7 @@
 //==========================================
 function r = with_lcc()
 
- if MSDOS then // Windows
+ if getos() == 'Windows' then // Windows
     // Visual Studio C++ 
     if ( findmsvccompiler() <> 'unknown' ) then 
       r = %F;
index 326da9c..b2b173d 100644 (file)
@@ -14,7 +14,7 @@
 // <-- Short Description -->
 // link does not manage column vector as scilab 4.x
 ilib_verbose(0);
-if MSDOS then
+if getos() == 'Windows' then
   warning('off');
   Cfunctions = '';
   ierr = execstr("link(SCI+''/bin/scilab_windows.dll'',Cfunctions,''c'');",'errcatch');
index 56bf1dc..5701108 100644 (file)
@@ -18,7 +18,7 @@
 
 ilib_verbose(0);
 
-if MSDOS then
+if getos() == 'Windows' then
   warning('off');
   Cfunctions = '';
   ierr = execstr("link(SCI+''/bin/scilab_windows.dll'',Cfunctions,''c'');",'errcatch');
index 6dbadc6..a436482 100644 (file)
@@ -14,7 +14,7 @@
 // <-- Short Description -->
 // My DLL "C" functions returning character strings do not work with SciLab 5.0.x.
 ilib_verbose(0);
-if MSDOS then
+if getos() == 'Windows' then
 currentpath = pwd();
 cd TMPDIR;
 mkdir(TMPDIR,'bug_3561');
index c8e29b9..9e42d13 100644 (file)
@@ -18,7 +18,7 @@
 
 ilib_verbose(0);
 
-if MSDOS then
+if getos() == 'Windows' then
 
 currentpath = pwd();
 cd TMPDIR;
index 1737eb3..4e9a4a5 100644 (file)
@@ -12,7 +12,7 @@
 //
 // <-- Short Description -->
 // ilib_for_link fails with lcc-win32
-if MSDOS then
+if getos() == 'Windows' then
   if with_lcc() then
     if fileinfo(SCIHOME + '/lcclib/blaspluslcc.lib') <> [] then bugmes();quit;end
     if fileinfo(SCIHOME + '/lcclib/blasplus.lib') == [] then bugmes();quit;end
index b71d67a..491d895 100644 (file)
@@ -16,7 +16,7 @@
 // <-- Short Description -->
 // ilib_for_link fails with lcc-win32
 
-if MSDOS then
+if getos() == 'Windows' then
   if with_lcc() then
     if fileinfo(SCIHOME + '/lcclib/blaspluslcc.lib') <> [] then pause,end
     if fileinfo(SCIHOME + '/lcclib/blasplus.lib') == [] then pause,end
index 01a892d..4e4d5b3 100644 (file)
@@ -56,7 +56,7 @@ src = ['      subroutine intsifdec()'
 ''];
 mputl(src,'intsifdec.f');
 files=['intsifdec.f'];
-if MSDOS then
+if getos() == 'Windows' then
   [a,b]=getversion();
   if grep(b,'debug')<> [] then
     setenv('DEBUG_SCILAB_DYNAMIC_LINK','YES');
index 5076cac..02f91d2 100644 (file)
@@ -61,7 +61,7 @@ src = ['      subroutine intsifdec()'
 
 mputl(src,'intsifdec.f');
 files=['intsifdec.f'];
-if MSDOS then
+if getos() == 'Windows' then
   [a,b]=getversion();
   if grep(b,'debug')<> [] then
     setenv('DEBUG_SCILAB_DYNAMIC_LINK','YES');
index 9bfa7cd..e1cfa88 100644 (file)
@@ -13,7 +13,7 @@
 // <-- Short Description -->
 // dll generated by scilab have a wrong dependency on fortran runtime libs
 // test only for windows
-if MSDOS then
+if getos() == 'Windows' then
   ilib_verbose(0);
   exec SCI/modules/dynamic_link/tests/unit_tests/addinter.tst;
   r = dllinfo(TMPDIR + '/addinter/libintertest.dll','imports');
index 7c6aae2..6a252f0 100644 (file)
@@ -17,7 +17,7 @@
 
 // test only for windows
 
-if MSDOS then
+if getos() == 'Windows' then
   ilib_verbose(0);
   exec SCI/modules/dynamic_link/tests/unit_tests/addinter.tst;
   r = dllinfo(TMPDIR + '/addinter/libintertest.dll','imports');
index 9a268ce..88249ae 100644 (file)
@@ -13,7 +13,7 @@
 // <-- Short Description -->
 // If the source file was stored in TMPDIR, the dynamic link
 //  was removing the content of this file.
-if ~MSDOS then
+if getos() <> 'Windows' then
   ilib_verbose(0);
   chdir(TMPDIR);
   f1=['int ext1c(int *n, double *a, double *b, double *c)'
index 1604737..3c3c6e8 100644 (file)
@@ -16,7 +16,7 @@
 // If the source file was stored in TMPDIR, the dynamic link
 //  was removing the content of this file.
 
-if ~MSDOS then
+if getos() <> 'Windows' then
   ilib_verbose(0);
   chdir(TMPDIR);
   f1=['int ext1c(int *n, double *a, double *b, double *c)'
index 930ed4b..0e3550a 100644 (file)
@@ -11,7 +11,7 @@
 // http://bugzilla.scilab.org/show_bug.cgi?id=5138
 // <-- Short Description -->
 //  if the "makefile name" argument is an empty matrix, the generated Makefile is ".mak"
-if MSDOS then
+if getos() == 'Windows' then
   ilib_verbose(0);
   mkdir(pathconvert(TMPDIR+"/string_writing_api"));
   cd(pathconvert(TMPDIR+"/string_writing_api"));
index 2b7924d..2e62db2 100644 (file)
@@ -14,7 +14,7 @@
 // <-- Short Description -->
 //  if the "makefile name" argument is an empty matrix, the generated Makefile is ".mak"
 
-if MSDOS then
+if getos() == 'Windows' then
   ilib_verbose(0);
   mkdir(pathconvert(TMPDIR+"/string_writing_api"));
   cd(pathconvert(TMPDIR+"/string_writing_api"));
index 77866c3..52d9f3d 100644 (file)
@@ -15,7 +15,7 @@
 // <-- Short Description -->
 // LCC-Win32 does not work with scicos
 
-if MSDOS then
+if getos() == 'Windows' then
 // Install scilab
 // Install lcc-win32
 // launch modelica demos 
index 585bdce..6756365 100644 (file)
@@ -12,7 +12,7 @@
 // http://bugzilla.scilab.org/show_bug.cgi?id=5484
 // <-- Short Description -->
 // LCC-Win32 does not work with this example
-if MSDOS then
+if getos() == 'Windows' then
   ilib_verbose(0);
   if with_lcc() then
     copyfile(SCI + '/modules/dynamic_link/tests/nonreg_tests/bug_5484.c',TMPDIR + '/bug_5484.c');
index 531f488..f206702 100644 (file)
@@ -16,7 +16,7 @@
 // <-- Short Description -->
 // LCC-Win32 does not work with this example
 
-if MSDOS then
+if getos() == 'Windows' then
   ilib_verbose(0);
   if with_lcc() then
     copyfile(SCI + '/modules/dynamic_link/tests/nonreg_tests/bug_5484.c',TMPDIR + '/bug_5484.c');
index 6f77c5a..1d1394c 100644 (file)
@@ -8,7 +8,7 @@
 
 // <-- JVM NOT MANDATORY -->
 
-if MSDOS then
+if getos() == 'Windows' then
   txt = ['message:',
            '  @echo ------------------------------------------',
         '  @echo From Makefile.mak',
index 2b3ec32..83fbdb2 100644 (file)
@@ -6,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   txt = ['message:',
            '  @echo ------------------------------------------',
         '  @echo From Makefile.mak',
index 2b3ec32..83fbdb2 100644 (file)
@@ -6,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   txt = ['message:',
            '  @echo ------------------------------------------',
         '  @echo From Makefile.mak',
index 8744266..b7f2e6e 100644 (file)
@@ -8,7 +8,7 @@
 
 // <-- JVM NOT MANDATORY -->
 
-if MSDOS then
+if getos() == 'Windows' then
   info = dllinfo(SCI+'\bin\scilex.exe','machine');
   if info(2) <> 'x86' & info(2) <> 'x64' then pause,end
   
index e7c4dda..4c0ecee 100644 (file)
@@ -6,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   info = dllinfo(SCI+'\bin\scilex.exe','machine');
   if info(2) <> 'x86' & info(2) <> 'x64' then bugmes();quit;end
   info = dllinfo(SCI+'\bin\libscilab.dll','machine');
index 117da09..a9635a7 100644 (file)
@@ -4,7 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-if MSDOS then
+if getos() == 'Windows' then
   info = dllinfo(SCI+'\bin\scilex.exe','machine');
   if info(2) <> 'x86' & info(2) <> 'x64' then bugmes();quit;end
   info = dllinfo(SCI+'\bin\libscilab.dll','machine');
index 684fad9..2a0fd8a 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index 1dd362c..05a246d 100644 (file)
@@ -9,7 +9,7 @@
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
 
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then pause,end;
 else
index 46a7c84..a14c2b5 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index 7d1b9cb..3c1d55c 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index 28958f4..9d81e57 100644 (file)
@@ -13,7 +13,7 @@
 //creating the interface file
 // Checks on windows that we have a Fortran 90 compiler (Intel)
 if haveacompiler() then
-  if ( (MSDOS & findmsifortcompiler() <> 'unknown') | (~MSDOS) ) then
+  if ( (getos() == 'Windows' & findmsifortcompiler() <> 'unknown') | (~MSDOS) ) then
     ilib_verbose(0);
     sourcecode=['subroutine incrdoublef90(x,y)'
                 '  implicit none'
index a605837..2309b41 100644 (file)
@@ -17,7 +17,7 @@
 // Checks on windows that we have a Fortran 90 compiler (Intel)
 
 if haveacompiler() then
-  if ( (MSDOS & findmsifortcompiler() <> 'unknown') | (~MSDOS) ) then
+  if ( (getos() == 'Windows' & findmsifortcompiler() <> 'unknown') | (~MSDOS) ) then
     ilib_verbose(0);
     sourcecode=['subroutine incrdoublef90(x,y)'
                 '  implicit none'
index a7a00c8..b163a42 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index ee9809d..7784646 100644 (file)
@@ -9,7 +9,7 @@
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
 
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then pause,end;
 else
index fa4c092..92c16c7 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index 53aff70..08ec91f 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index b1767f1..5300e3a 100644 (file)
@@ -8,7 +8,7 @@
 // <-- ENGLISH IMPOSED -->
 // <-- JVM NOT MANDATORY -->
 ilib_verbose(0);
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then bugmes();quit;end;
 else
index 0b3ee24..86ab86d 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 ilib_verbose(0);
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index aec41f6..6190efe 100644 (file)
@@ -9,7 +9,7 @@
 ilib_verbose(0);
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 4afed22..38c84ac 100644 (file)
@@ -11,7 +11,7 @@
 
 ilib_verbose(0);
 
-if MSDOS then
+if getos() == 'Windows' then
   TMP_OS_DIR = getenv('TMP','err');
   if (TMP_OS_DIR == 'err') then pause,end;
 else
index 1c1e663..07a55d7 100644 (file)
@@ -9,7 +9,7 @@
 
 if %fftw then
 
-       if MSDOS then
+       if getos() == 'Windows' then
                librarynamefftw = SCI+"/bin/fftw/libfftw3-3"+getdynlibext();
                librarynamefftw3 = '';
        else
index adb99b8..1c8a85b 100644 (file)
@@ -72,7 +72,7 @@
     given in files.</para>
 
     <para>If <literal>flag</literal> is true the files are first converted to
-    the target type given by the <literal>MSDOS</literal> variable. Moreover,
+    the target type given by the <literal>getos() == 'Windows'</literal> variable. Moreover,
     if <literal>flagexpand</literal> is true leading strings like
     <literal>HOME</literal>, <literal>SCI</literal> or <literal>~</literal>
     are expanded using environment variables.</para>
index 733fca3..7a0792d 100644 (file)
     <para><literal>dirname</literal> return the dirname of the file entries given in files.</para>
     <para>
     If <literal>flag</literal> is true the files are first converted to the target 
-    type given by the <literal>MSDOS</literal> variable. 
+    type given by the <literal>getos() == 'Windows'</literal> variable. 
     Moreover, if <literal>flagexpand</literal> is true leading strings like
     <literal>HOME</literal>, <literal>SCI</literal> or <literal>~</literal> are expanded using environment
     variables.</para>
     <para>
     Note that <literal>dirname(files,%f)</literal> can give erroneous results if 
     pathnames given in files do not follow the convention 
-    given by the <literal>MSDOS</literal> variable.</para>
+    given by the <literal>getos() == 'Windows'</literal> variable.</para>
   </refsection>
   <refsection>
     <title>Examples</title>
index e14a148..89c5931 100644 (file)
@@ -54,7 +54,7 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   getrelativefilename('C:\program file\scilab-4.0\bin','C:\program file\scilab-4.0\modules\helptools\help.dtd')
   getrelativefilename('C:\program file\scilab-4.0\bin\','C:\program file\scilab-4.0\modules\helptools\help.dtd')
   getrelativefilename(SCI+'\bin',SCI+'\modules\helptools\help.dtd')
index c351f05..2f12df7 100644 (file)
@@ -58,7 +58,7 @@
     pattern for both unix and windows.</para>
     <para>
     if <literal>flag</literal> is true the pathnames given by <literal>paths</literal> are 
-    converted according to the MSDOS value (See <literal>pathconvert</literal>). 
+    converted according to the getos() == 'Windows' value (See <literal>pathconvert</literal>). 
     Moreover, if <literal>flagexpand</literal> is true leading strings like
     <literal>HOME</literal>, <literal>SCI</literal> or <literal>~</literal> are expanded using environment
     variables.</para>
index 87da3da..82f59e6 100644 (file)
@@ -41,7 +41,7 @@
       <varlistentry>
         <term>flagexpand</term>
         <listitem>
-          <para>boolean optional parameter. Its default value depends on the MSDOS variable.</para>
+          <para>boolean optional parameter. Its default value depends on the getos() == 'Windows' variable.</para>
         </listitem>
       </varlistentry>
       <varlistentry>
@@ -59,8 +59,8 @@
     filename to posix-style pathnames and back. The target style 
     is given by the optional string <literal>type</literal> which can be 
     <literal>'u'</literal> for Unix or <literal>'w'</literal> for Windows. The default 
-    style is set according to the value of <literal>MSDOS</literal>. 
-    If <literal>MSDOS</literal> is TRUE (resp. FALSE ) then default type is <literal>'w'</literal>
+    style is set according to the value of <literal>getos() == 'Windows'</literal>. 
+    If <literal>getos() == 'Windows'</literal> is TRUE (resp. FALSE ) then default type is <literal>'w'</literal>
     (resp.  <literal>'u'</literal>).</para>
     <para>
     Windows pathnames starting with <literal>name:</literal> are converted to 
index bb66f3f..92ab087 100644 (file)
@@ -79,7 +79,7 @@
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   getrelativefilename('C:\program file\scilab-4.0\bin','C:\program file\scilab-4.0\modules\helptools\help.dtd')
   getrelativefilename('C:\program file\scilab-4.0\bin\','C:\program file\scilab-4.0\modules\helptools\help.dtd')
   getrelativefilename(SCI+'\bin',SCI+'\modules\helptools\help.dtd')
index 618ad54..d9544f5 100644 (file)
@@ -10,7 +10,7 @@
 function [files]= dirname(files,flag,flagexpand) 
 // return the dirnames of files 
 // if flag == %t files are first converted 
-// according to MSDOS. if flagexpand is also true 
+// according to getos() == 'Windows'. if flagexpand is also true 
 // HOME SCI or ~ are also expanded. 
 // the returned directory names are not terminated by sep 
   [lhs,rhs]=argn(0) 
index bef33aa..27710dc 100644 (file)
@@ -20,7 +20,7 @@ function status = is_absolute_path(pathname)
        // Strips leading and trailing blanks and tabs of the path
        pathname = stripblanks(pathname,%T);
        
-       if MSDOS then
+       if getos() == 'Windows' then
                
                // Windows Case
                
index c19eaa7..426848c 100644 (file)
@@ -33,7 +33,7 @@ function files= listfiles(paths,flag,flagexpand)
   end
   
   // list files of the root directory
-  if ~ MSDOS then
+  if getos() <> 'Windows' then
     paths(find(paths=="")) = "/";
   end
   
@@ -51,7 +51,7 @@ function files= listfiles(paths,flag,flagexpand)
     else
       // It is a file 
       if path == '' then path='./',end;
-      if MSDOS // Don't want this case under Linux/Unix 
+      if getos() == 'Windows' // Don't want this case under Linux/Unix 
         // Windows will return the file toto even if you provided toto.*
         if extension == '' then extension='.*',end;
       end
index bc8c2d9..4f97b97 100644 (file)
@@ -31,7 +31,7 @@ function mdelete(filename)
        end
        
        // Handle file path
-       if MSDOS then
+       if getos() == 'Windows' then
                filename = strsubst(filename,filesep(),"/");
        end
        
@@ -45,7 +45,7 @@ function mdelete(filename)
                filename  = part(filename,k($)+1:length(filename));
        end
        
-       if MSDOS then
+       if getos() == 'Windows' then
                fullfilename = strsubst(file_path+filename,"/","\");
                lst_files    = listfiles(fullfilename);
        else
index 7d7c5bf..103577d 100644 (file)
@@ -15,7 +15,7 @@
 // ...
 // ================== Test 1 ==================
 cd('\');
-if MSDOS 
+if getos() == 'Windows' 
        if ~or(getdrives() == pwd()) then bugmes();quit;end
 else
        if pwd() <> '/' then bugmes();quit;end
@@ -24,7 +24,7 @@ end
 cd home;
 if pwd() <> home then bugmes();quit;end
 // ================== Test 3 ==================
-if MSDOS then
+if getos() == 'Windows' then
        cd WSCI;
        if pwd() <> WSCI then bugmes();quit;end
 end
index db03c1b..83bb6ac 100644 (file)
@@ -20,7 +20,7 @@
 
 cd('\');
 
-if MSDOS 
+if getos() == 'Windows' 
   
        if ~or(getdrives() == pwd()) then pause,end
 else
@@ -34,7 +34,7 @@ if pwd() <> home then pause,end
 
 // ================== Test 3 ==================
 
-if MSDOS then
+if getos() == 'Windows' then
        cd WSCI;
        if pwd() <> WSCI then pause,end
 end
index 7d7c5bf..103577d 100644 (file)
@@ -15,7 +15,7 @@
 // ...
 // ================== Test 1 ==================
 cd('\');
-if MSDOS 
+if getos() == 'Windows' 
        if ~or(getdrives() == pwd()) then bugmes();quit;end
 else
        if pwd() <> '/' then bugmes();quit;end
@@ -24,7 +24,7 @@ end
 cd home;
 if pwd() <> home then bugmes();quit;end
 // ================== Test 3 ==================
-if MSDOS then
+if getos() == 'Windows' then
        cd WSCI;
        if pwd() <> WSCI then bugmes();quit;end
 end
index 90f9deb..baa555f 100644 (file)
@@ -14,7 +14,7 @@
 //    different drives.
 //
 //    Francois
-if MSDOS then
+if getos() == 'Windows' then
        
        test1 = getrelativefilename("D:\","C:\Program Files\scilab\readme.txt");
        test2 = getrelativefilename("C:\","C:\Program Files\scilab\readme.txt");
index 52d58ed..3f7d172 100644 (file)
@@ -16,7 +16,7 @@
 //
 //    Francois
 
-if MSDOS then
+if getos() == 'Windows' then
        
        test1 = getrelativefilename("D:\","C:\Program Files\scilab\readme.txt");
        test2 = getrelativefilename("C:\","C:\Program Files\scilab\readme.txt");
index efca815..c904750 100644 (file)
@@ -12,7 +12,7 @@
 // UNC Path not managed 
 
 
-if MSDOS then
+if getos() == 'Windows' then
        if chdir('\\Machine\folder') == %t                       then pause,end
        if execstr("cd(''\\Machine\folder'')","errcatch") <> 998 then pause,end
 end
index 25c64cd..1dea7e0 100644 (file)
@@ -12,7 +12,7 @@
 //
 // <-- Short Description -->
 // getshortpathname & getlongpathname return '' and not a path with some special pathname
-if MSDOS then
+if getos() == 'Windows' then
   name_dir = 'L.P blabla';
   cd(TMPDIR);
   mkdir(name_dir);
index 0d203f7..b4c8d95 100644 (file)
@@ -15,7 +15,7 @@
 // <-- Short Description -->
 // getshortpathname & getlongpathname return '' and not a path with some special pathname
 
-if MSDOS then
+if getos() == 'Windows' then
 
   name_dir = 'L.P blabla';
   cd(TMPDIR);
index 4bccbfc..576098d 100644 (file)
@@ -12,7 +12,7 @@
 //
 // <-- Short Description -->
 // getshortpathname & getlongpathname return '' and not a path with some special pathname
-if MSDOS then
+if getos() == 'Windows' then
   name_dir = 'L.P blabla';
   cd(TMPDIR);
   mkdir(name_dir);
index fff1249..7d5d763 100644 (file)
@@ -12,7 +12,7 @@
 //
 // <-- Short Description -->
 // getshortpathname , getlongpathname do not manage matrix of strings
-if MSDOS then
+if getos() == 'Windows' then
 [r1,b1] = getshortpathname([TMPDIR,SCI;SCI,TMPDIR]);
 if size(r1,'*') <> 4 then bugmes();quit;end
 if ~and(b1 == %t) then bugmes();quit;end
index 7f1e170..1d51336 100644 (file)
@@ -15,7 +15,7 @@
 // <-- Short Description -->
 // getshortpathname , getlongpathname do not manage matrix of strings
 
-if MSDOS then
+if getos() == 'Windows' then
 
 [r1,b1] = getshortpathname([TMPDIR,SCI;SCI,TMPDIR]);
 if size(r1,'*') <> 4 then pause,end
index bda29e1..035f879 100644 (file)
@@ -12,7 +12,7 @@
 //
 // <-- Short Description -->
 // listfiles('/') returns an error.
-if ~MSDOS then 
+if getos() <> 'Windows' then 
     ierr = execstr("listfiles(""/"");","errcatch");
     if ierr<>0 then bugmes();quit;end
 end
index 3ed2fa2..27f7edb 100644 (file)
@@ -15,7 +15,7 @@
 // <-- Short Description -->
 // listfiles('/') returns an error.
 
-if ~MSDOS then 
+if getos() <> 'Windows' then 
     ierr = execstr("listfiles(""/"");","errcatch");
     if ierr<>0 then pause, end
 end
index ce693f8..6686e05 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 tmp = cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 529ad32..b493468 100644 (file)
@@ -9,7 +9,7 @@
 
 tmp = cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 91c84e6..271d74d 100644 (file)
@@ -7,7 +7,7 @@
 // <-- JVM MANDATORY -->
 a = chdir(TMPDIR);
 if(a <> %T) then bugmes();quit;end
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 7476359..bb8fd24 100644 (file)
@@ -10,7 +10,7 @@
 a = chdir(TMPDIR);
 if(a <> %T) then pause, end
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index f77e96c..42b605e 100644 (file)
@@ -12,7 +12,7 @@ mclose(fd);
 computed = deletefile ( filename );
 if computed <> %t then bugmes();quit;end
 // Second test-case : Wrong use then correct use
-if MSDOS then
+if getos() == 'Windows' then
        fd=mopen ( filename , "w" );
        computed = deletefile ( filename );
        if computed <> %f then bugmes();quit;end
index 7f6981d..7699174 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index a92055f..e40baa9 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index c3d38b2..2f1ee0f 100644 (file)
@@ -17,7 +17,7 @@ computed = deletefile ( filename );
 if computed <> %t then pause,end
 
 // Second test-case : Wrong use then correct use
-if MSDOS then
+if getos() == 'Windows' then
        fd=mopen ( filename , "w" );
        computed = deletefile ( filename );
        if computed <> %f then pause,end
index 2b46568..f77ff72 100644 (file)
@@ -9,14 +9,14 @@
 d=dir('SCI/modules/core/macros/*.sci');
 if d(2) == [] then bugmes();quit;end
 //===============================
-if MSDOS then
+if getos() == 'Windows' then
   d = dir('c:\');
 else
   d = dir('/');
 end
 if d(2) == [] then bugmes();quit;end
 //===============================
-if MSDOS then
+if getos() == 'Windows' then
  TMP = getenv('TMP');
 else
  if isdir('/tmp') then 
index 6fbcb43..863ce9c 100644 (file)
 d=dir('SCI/modules/core/macros/*.sci');
 if d(2) == [] then pause,end
 //===============================
-if MSDOS then
+if getos() == 'Windows' then
   d = dir('c:\');
 else
   d = dir('/');
 end
 if d(2) == [] then pause,end
 //===============================
-if MSDOS then
+if getos() == 'Windows' then
  TMP = getenv('TMP');
 else
  if isdir('/tmp') then 
index b515243..620d8cd 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index be312b2..45ce975 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index f93eaef..94b0bd5 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 37918d2..a8f69b8 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 776822c..1a15e19 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index d595489..886e379 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 479b7f4..63208f6 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 756519a..6472f3a 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index aee7ae7..addb467 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 716d752..96b129e 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 50d8517..dcb1ff2 100644 (file)
@@ -11,7 +11,7 @@
 if is_absolute_path("test_1")                then bugmes();quit;end
 if is_absolute_path("test_2       ")         then bugmes();quit;end
 if is_absolute_path("  test_3          ")       then bugmes();quit;end
-if MSDOS then
+if getos() == 'Windows' then
        
        if is_absolute_path("/")                 then bugmes();quit;end
        if is_absolute_path("3:")                then bugmes();quit;end
index cfb66b0..c5eef0f 100644 (file)
@@ -15,7 +15,7 @@ if is_absolute_path("test_1")                then pause,end
 if is_absolute_path("test_2       ")         then pause,end
 if is_absolute_path("  test_3          ")       then pause,end
 
-if MSDOS then
+if getos() == 'Windows' then
        
        if is_absolute_path("/")                 then pause,end
        if is_absolute_path("3:")                then pause,end
index e0fa5d0..7a7c552 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 1a8ac61..b529c10 100644 (file)
@@ -9,7 +9,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index bcf4bb3..bb0cab7 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 8763257..c0c93f3 100644 (file)
@@ -8,7 +8,7 @@
 // <-- JVM MANDATORY -->
 
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index e2dcd53..f84ef65 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 chdir(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 3fd5469..48e2f34 100644 (file)
@@ -9,7 +9,7 @@
 
 chdir(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 32fbada..dc89d79 100644 (file)
@@ -10,7 +10,7 @@ if r <> ref then bugmes();quit;end
 ref = 'SCI\modules\fileio\macros\foo.sci';
 r = pathconvert('SCI/modules/fileio\macros/foo.sci',%f,%f,'w');
 if r <> ref then bugmes();quit;end
-if MSDOS then
+if getos() == 'Windows' then
   ref = WSCI + '\modules\fileio\macros\cd.sci';
 else
   ref = SCI + '\modules\fileio\macros\cd.sci';
@@ -19,7 +19,7 @@ end
 r = pathconvert('SCI/modules/fileio/macros/cd.sci',%f,%t,'w');
 if r <> ref then bugmes();quit;end
 ref = home + '\modules\fileio\macros\foo.sci';
-if ~MSDOS then
+if getos() <> 'Windows' then
  ref = strsubst(ref,filesep(),'\');
 end
 r = pathconvert('HOME/modules/fileio/macros/foo.sci',%f,%t,'w');
index f196267..21916f9 100644 (file)
@@ -13,7 +13,7 @@ ref = 'SCI\modules\fileio\macros\foo.sci';
 r = pathconvert('SCI/modules/fileio\macros/foo.sci',%f,%f,'w');
 if r <> ref then pause, end
 
-if MSDOS then
+if getos() == 'Windows' then
   ref = WSCI + '\modules\fileio\macros\cd.sci';
 else
   ref = SCI + '\modules\fileio\macros\cd.sci';
@@ -23,7 +23,7 @@ r = pathconvert('SCI/modules/fileio/macros/cd.sci',%f,%t,'w');
 if r <> ref then pause, end
 
 ref = home + '\modules\fileio\macros\foo.sci';
-if ~MSDOS then
+if getos() <> 'Windows' then
  ref = strsubst(ref,filesep(),'\');
 end
 r = pathconvert('HOME/modules/fileio/macros/foo.sci',%f,%t,'w');
index c8318d9..846d8fe 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- JVM MANDATORY -->
 chdir(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 117be40..1ec43dc 100644 (file)
@@ -9,7 +9,7 @@
 
 chdir(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 20b6c4e..86aec4b 100644 (file)
@@ -13,7 +13,7 @@ warning("off");
 a = createdir("test_removedir");
 if(a <> %T) then bugmes();quit;end
 cd("test_removedir");
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index cc95a70..caf7c2e 100644 (file)
@@ -18,7 +18,7 @@ a = createdir("test_removedir");
 if(a <> %T) then pause, end
 
 cd("test_removedir");
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index aefbd00..ac94af8 100644 (file)
@@ -18,7 +18,7 @@ function ret=check_gateways(varargin)
     printf(gettext("Checking: %s.\n"),modules(i))
     if (fileinfo(file_to_check)<>[]) then
       try
-        if MSDOS then
+        if getos() == 'Windows' then
           stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);
         else
            stat = unix_w("xmllint --noout --valid "+file_to_check);
index 4ae81ba..5d47d61 100644 (file)
@@ -52,7 +52,7 @@ function [success,funcs,success_files,failed_files] = genlib(nam,path,force,verb
     updatelib = %t;
   end
   
-  // convert path according to MSDOS flag
+  // convert path according to getos() == 'Windows' flag
   // without env variable substitution
   
   path1 = pathconvert(path,%t,%f);
index 5adf575..c0d43b3 100644 (file)
@@ -39,7 +39,7 @@ function genlib_old(nam,path,force,verbose,names)
     updatelib=%t
   end
     
-  // convert path according to MSDOS flag 
+  // convert path according to getos() == 'Windows' flag 
   // without env variable substitution
   path1 = pathconvert(path,%t,%f); 
   // with env subsitution 
index c210400..7195d64 100644 (file)
@@ -18,7 +18,7 @@ function getd(path,option)
     path='./';
   end
   
-  // convert path according to MSDOS flag
+  // convert path according to getos() == 'Windows' flag
   // and with env var substitutions
   path = pathconvert(path,%t,%t);
   
index 2482597..ddb2f1d 100644 (file)
@@ -13,7 +13,7 @@ lines(0);
 CurrentDirectory=pwd();
 
 chdir ('SCI/modules');
-if MSDOS then
+if getos() == 'Windows' then
   dos('del *.bin /s 2>NUL','-echo');
   dos('del lib /s 2>NUL','-echo');
   dos('del names /s 2>NUL','-echo');
index 06ab64d..b4d77e6 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 280192a..1fb5a81 100644 (file)
@@ -7,7 +7,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 37fe68b..85bdb2b 100644 (file)
@@ -86,7 +86,7 @@ xs2emf(fig, file_name [,orientation])</synopsis>
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   scf(0);
   plot2d();
   //EMF export
index 97d5f92..b30ded9 100644 (file)
@@ -80,7 +80,7 @@
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   scf(0);
   plot2d();
   //Exportando para EMF
index 7c0be08..e93642f 100644 (file)
@@ -43,7 +43,7 @@ function xs2emf(figureNumber, fileName, orientation)
                orientation = "portrait";
        end
        
-       if ~MSDOS then
+       if getos() <> 'Windows' then
     // os is a unix one
          error(msprintf(gettext("%s: EMF format only available under Microsoft Windows OS.\n"), "xs2emf"));
          return;
index d98bc3f..c8b7cf7 100644 (file)
@@ -47,7 +47,7 @@ function xs2fig(figureNumber, fileName, orientation)
        //To export FIG file we need Ghostscript & pstoedit
        //Test if Ghostscript is installed or not
        
-       if MSDOS then
+       if getos() == 'Windows' then
          if fileinfo(SCI+'/tools/pstoedit/gsdll32.dll') == [] then
       msgErr1 = gettext("Please install Ghostscript 32 bits to export an .FIG file.");
       msgErr2 = "http://www.ghostscript.com/awki";
@@ -76,7 +76,7 @@ function xs2fig(figureNumber, fileName, orientation)
        end
        
        // compute pstoedit path
-       if MSDOS then
+       if getos() == 'Windows' then
          // pstoedit is embedded in Scilab
          pstoeditPath = SCI + "\tools\pstoedit\pstoedit";
        else
index 2328419..ee67a10 100644 (file)
@@ -17,7 +17,7 @@
 // Export to GIF ignores xlfont settings
 // 
 
-if MSDOS then
+if getos() == 'Windows' then
        my_font = "Arial";
 else
        my_font = "Monospaced";
index b427b98..31330de 100644 (file)
@@ -56,7 +56,7 @@ function colordef(varargin)
     a.font_color=a.foreground;
     a.mark_foreground=a.foreground;
   case 'black'
-    if MSDOS then c=0.2, else c=0.35,end
+    if getos() == 'Windows' then c=0.2, else c=0.35,end
     f.color_map=[jetcolormap(64);[1 1 1]*c];
     f.background=65;f.foreground=-2;
     a.background=-1;a.foreground=-2;
index ea405f3..1c2c8b3 100644 (file)
@@ -87,7 +87,7 @@ function ged(k,win)
       TCL_EvalStr('set '+bluname+" "+string(f.color_map(i,3)));
     end
     
-    TCL_SetVar("msdos",string(MSDOS)) // to know the OS
+    TCL_SetVar("msdos",string(getos() == 'Windows')) // to know the OS
     // get the number of the window associated with ged
     TCL_SetVar("sciGedIsAlive",string(ged_cur_fig_handle.figure_id)) ;
     TCL_SetVar("SCIHOME", SCIHOME) // to know the home directory to put temporary files
@@ -109,7 +109,7 @@ function ged(k,win)
       TCL_EvalStr('set '+bluname+" "+string(f.color_map(i,3)));
     end
     
-    TCL_SetVar("msdos",string(MSDOS)) // to know the OS
+    TCL_SetVar("msdos",string(getos() == 'Windows')) // to know the OS
     // get the number of the window associated with ged
     TCL_SetVar("sciGedIsAlive",string(ged_cur_fig_handle.figure_id)) ;
     TCL_SetVar("SCIHOME", SCIHOME) // to know the home directory to put temporary files
@@ -1547,7 +1547,7 @@ for i=1:size(f.color_map,1)
   TCL_EvalStr('set '+bluname+" "+string(f.color_map(i,3)));
 end
 
-TCL_SetVar("msdos",string(MSDOS)) // to know the OS
+TCL_SetVar("msdos",string(getos() == 'Windows')) // to know the OS
 // get the number of the window associated with ged
 TCL_SetVar("sciGedIsAlive",string(ged_cur_fig_handle.figure_id)) ;
 TCL_SetVar("SCIHOME", SCIHOME) // to know the home directory to put temporary files
index 0896631..0c4f69c 100644 (file)
@@ -22,7 +22,7 @@
 xset("wresize",0);
 xset('wdim',2^16+3,5000);
 
-if ~MSDOS then
+if getos() <> 'Windows' then
        resultLinux   = xget("wdim");
        resultWindows = [ 65535.    5000.];
        if or(resultLinux <> resultWindows) then pause,end
index 2d0726e..db0f5ac 100644 (file)
@@ -23,7 +23,7 @@ xlfont('reset');
 afterresetfonts = xlfont();
 if ~and(initialfonts == afterresetfonts) then bugmes();quit;end
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 835c3e9..950d0b5 100644 (file)
@@ -34,7 +34,7 @@ if ~and(initialfonts == afterresetfonts) then pause,end
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 9494474..9797b7b 100644 (file)
@@ -121,12 +121,12 @@ PathFileName=uigetfile([file_mask[,dir[,boxTitle[,multiple]]]])
 
     <para>To disable, this feature:</para>
 
-    <para>if MSDOS then unix("REGSVR32 /u %WINDIR%\System32\zipfldr.dll")
+    <para>if getos() == 'Windows' then unix("REGSVR32 /u %WINDIR%\System32\zipfldr.dll")
     ;end</para>
 
     <para>To re-enable,</para>
 
-    <para>if MSDOS then unix("REGSVR32 %WINDIR%\System32\zipfldr.dll")
+    <para>if getos() == 'Windows' then unix("REGSVR32 %WINDIR%\System32\zipfldr.dll")
     ;end</para>
   </refsection>
 
index e9cc30b..fe5831f 100644 (file)
@@ -14,7 +14,7 @@
 //
 // <-- Short Description -->
 //    clipboard function crashes scilab when called from a script
-if MSDOS then
+if getos() == 'Windows' then
        if ( ~or(sciargs()==['-nw']) & ~or(sciargs()==['-nwni']) ) then
                a="put in clipboard";
                clipboard('copy',a);
index 2eb838d..a3d2172 100644 (file)
@@ -17,7 +17,7 @@
 //    clipboard function crashes scilab when called from a script
 
 
-if MSDOS then
+if getos() == 'Windows' then
        if ( ~or(sciargs()==['-nw']) & ~or(sciargs()==['-nwni']) ) then
                a="put in clipboard";
                clipboard('copy',a);
index a1c18f7..266be8d 100644 (file)
@@ -16,7 +16,7 @@
 // <-- Short Description -->
 // uigetdir crashed Scilab when returning some "root" path
 
-if MSDOS then
+if getos() == 'Windows' then
  r = uigetdir('c:\');
  // click on ok
  if r <> 'c:\' then pause,end
index 801e8a6..c615a7f 100644 (file)
@@ -91,7 +91,7 @@ my_module_path = pathconvert(SCI+'/modules/helptools/examples/example_1',%f,%f)
 my_french_help_dir    =  my_module_path+'/help/fr_FR';
 my_french_help_title  =  'Example 1 [fr_FR]';
 res = xmltochm(my_french_help_dir,my_french_help_title,'fr_FR');
-if MSDOS then
+if getos() == 'Windows' then
  dos('start ' + res);
 end
 
@@ -100,7 +100,7 @@ end
 my_english_help_dir   =  my_module_path+'/help/en_US';
 my_english_help_title =  'Example 1 [en_US]';
 res = xmltochm(my_english_help_dir,my_english_help_title,'en_US');
-if MSDOS then
+if getos() == 'Windows' then
  dos('start ' + res);
 end
 
@@ -109,7 +109,7 @@ end
 my_chinese_help_dir   =  my_module_path+'/help/zh_TW';
 my_chinese_help_title =  'Example 1 [zh_TW]';
 res = xmltochm(my_chinese_help_dir,my_chinese_help_title,'zh_TW');
-if MSDOS then
+if getos() == 'Windows' then
  dos('start ' + res);
 end
  ]]></programlisting>
index 8d1a54c..2f6ece9 100644 (file)
@@ -97,7 +97,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
                
                chdir(path(i));
                
-               if MSDOS then
+               if getos() == 'Windows' then
                        path(i) = getlongpathname(pwd());
                else
                        path(i) = pwd();
index 868d4d5..944b63e 100644 (file)
@@ -64,7 +64,7 @@ function check_help(dirs)
        
        for k=1:size(dirs,'*');
                chdir(dirs(k));
-               if MSDOS then
+               if getos() == 'Windows' then
                        dirs(k) = getlongpathname(pwd());
                else
                        dirs(k) = pwd();
index 40ba7db..e5d19c7 100644 (file)
@@ -73,7 +73,7 @@ function clean_help(dirs)
                end
                
                chdir(dirs(k));
-               if MSDOS then
+               if getos() == 'Windows' then
                        dirs(k) = getlongpathname(pwd());
                else
                        dirs(k) = pwd();
@@ -87,7 +87,7 @@ function clean_help(dirs)
                                error(msprintf(gettext("%s: Directory %s does not exist or read access denied."),"xmltoformat",dirs_m(k)));
                        end
                        chdir(dirs_m(k));
-                       if MSDOS then
+                       if getos() == 'Windows' then
                                dirs_m(k) = getlongpathname(pwd());
                        else
                                dirs_m(k) = pwd();
@@ -100,7 +100,7 @@ function clean_help(dirs)
                                error(msprintf(gettext("%s: Directory %s does not exist or read access denied."),"xmltoformat",dirs_c(k)));
                        end
                        chdir(dirs_c(k));
-                       if MSDOS then
+                       if getos() == 'Windows' then
                                dirs_c(k) = getlongpathname(pwd());
                        else
                                dirs_c(k) = pwd();
index 49da177..b39f0e4 100644 (file)
@@ -35,7 +35,7 @@ function flag = find_links(filein,fileout)
        
        dtd_line = grep(convstr(txt,'u'),"<!DOCTYPE MAN SYSTEM");
        
-       if MSDOS then
+       if getos() == 'Windows' then
                txt(dtd_line) = "<!DOCTYPE MAN SYSTEM ""file://"+SCI+"\modules\helptools\help.dtd"">";
        else
                txt(dtd_line) = "<!DOCTYPE MAN SYSTEM """+SCI+"/modules/helptools/help.dtd"">";
@@ -108,7 +108,7 @@ function t=getlink(name,absolute_path,path)
        
        name=stripblanks(name)
        
-       if MSDOS then
+       if getos() == 'Windows' then
                sep='\';
        else
                sep='/';
index a3eaed5..a103b45 100644 (file)
@@ -26,7 +26,7 @@ function ok = xmlfiletohtml(path,xsl,directory_language,default_language)
        // path    :     XML file
        // xsl     :     abolute path of the xsl path
        
-       if MSDOS then
+       if getos() == 'Windows' then
          generate_cmd='sabcmd';
        else
          generate_cmd='@MANGENERATOR@';
@@ -73,7 +73,7 @@ function ok = xmlfiletohtml(path,xsl,directory_language,default_language)
                
                // form the html generator command line instruction
                
-               if  MSDOS then 
+               if  getos() == 'Windows' then 
                        // sabcmd does not like c:/.. path replace it by file://c:/..
                        xsl='file://'+getshortpathname(xsl);
                        generate_cmd='""'+WSCI+'\modules\helptools\bin\sablotron\sabcmd'+'""'
index 9a77d84..df4e92e 100644 (file)
@@ -26,7 +26,7 @@ function ok = xmlfiletohtml(path,xsl,directory_language,default_language)
        // path    :     XML file
        // xsl     :     abolute path of the xsl path
        
-       if MSDOS then
+       if getos() == 'Windows' then
          generate_cmd='sabcmd';
        else
          generate_cmd='xsltproc';
@@ -73,7 +73,7 @@ function ok = xmlfiletohtml(path,xsl,directory_language,default_language)
                
                // form the html generator command line instruction
                
-               if  MSDOS then 
+               if  getos() == 'Windows' then 
                        // sabcmd does not like c:/.. path replace it by file://c:/..
                        xsl='file://'+getshortpathname(xsl); 
                        generate_cmd='""'+WSCI+'\modules\helptools\bin\sablotron\sabcmd'+'""'
index 786fb22..a438c68 100644 (file)
@@ -12,7 +12,7 @@ function generated_files = xmltochm(dirs,titles,directory_language,default_langu
        
        all_scilab_help        = %F;
        
-       if ~MSDOS then
+       if getos() <> 'Windows' then
                warning(msprintf(gettext("%s: This function is only supported on Windows platforms.\n"),"xmltochm"));
                return;
        end
@@ -46,7 +46,7 @@ function generated_files = xmltochm(dirs,titles,directory_language,default_langu
                all_scilab_help = %T;
        end
 
-       if MSDOS then
+       if getos() == 'Windows' then
                if (generated_files <> []) then
                        if (getHHCpath() <> '') then
                                for i = 1:size(generated_files,'*')
index 1a4218d..5f3e3ec 100644 (file)
@@ -235,7 +235,7 @@ function generated_files = xmltoformat(output_format,dirs,titles,directory_langu
                end
                
                chdir(dirs(k));
-               if MSDOS then
+               if getos() == 'Windows' then
                        dirs(k) = getlongpathname(pwd());
                else
                        dirs(k) = pwd();
@@ -251,7 +251,7 @@ function generated_files = xmltoformat(output_format,dirs,titles,directory_langu
                                error(msprintf(gettext("%s: Directory %s does not exist or read access denied."),"xmltoformat",dirs_m(k)));
                        end
                        chdir(dirs_m(k));
-                       if MSDOS then
+                       if getos() == 'Windows' then
                                dirs_m(k) = getlongpathname(pwd());
                        else
                                dirs_m(k) = pwd();
@@ -264,7 +264,7 @@ function generated_files = xmltoformat(output_format,dirs,titles,directory_langu
                                error(msprintf(gettext("%s: Directory %s does not exist or read access denied."),"xmltoformat",dirs_c(k)));
                        end
                        chdir(dirs_c(k));
-                       if MSDOS then
+                       if getos() == 'Windows' then
                                dirs_c(k) = getlongpathname(pwd());
                        else
                                dirs_c(k) = pwd();
@@ -965,7 +965,7 @@ function tree = x2f_dir_to_tree(directory,level)
        
        // Get the default title
        
-       if MSDOS then
+       if getos() == 'Windows' then
                tmpdirectory = strsubst(directory,"/\\$/","","r");
        else
                tmpdirectory = strsubst(directory,"/\/$/","","r");
@@ -1382,7 +1382,7 @@ function master_document = x2f_tree_to_master( tree )
        tree_xmllist = x2f_cat_xmllist( tree , [] )
        
        // Process the path if under windows
-       if MSDOS then
+       if getos() == 'Windows' then
                tree_xmllist(:,2) = "file:///"+ getshortpathname(tree_xmllist(:,2));
        end
        
index 557e66d..2ae4e99 100644 (file)
@@ -8,7 +8,7 @@
 // <-- NO CHECK ERROR OUTPUT -->
 // <-- NEED JVM -->
 // xmltochm
-if MSDOS then 
+if getos() == 'Windows' then 
 // TEST 1 (french help and english help are complete)
 // =============================================================================
 my_module_path = pathconvert(SCI+"/modules/helptools/examples/example_1",%f,%f);
@@ -74,4 +74,4 @@ chm_info =  fileinfo(my_module_path+"/chm/scilab_en_US_help.chm");
 if chm_info == [] then bugmes();quit;end       // file existence
 if chm_info(1) < 5000 then bugmes();quit;end   // file size
 clean_help(my_english_help_dir);
-end // if MSDOS
+end // if getos() == 'Windows'
index e455041..6f4622b 100644 (file)
@@ -11,7 +11,7 @@
 
 // xmltochm
 
-if MSDOS then 
+if getos() == 'Windows' then 
 
 // TEST 1 (french help and english help are complete)
 // =============================================================================
@@ -112,4 +112,4 @@ if chm_info(1) < 5000 then pause, end   // file size
 
 clean_help(my_english_help_dir);
 
-end // if MSDOS
\ No newline at end of file
+end // if getos() == 'Windows'
\ No newline at end of file
index dff5de5..0a1f1de 100644 (file)
@@ -8,7 +8,7 @@
 // <-- NO CHECK ERROR OUTPUT -->
 // <-- NEED JVM -->
 // xmltochm
-if MSDOS then 
+if getos() == 'Windows' then 
 // TEST 1 (french help and english help are complete)
 // =============================================================================
 my_module_path = pathconvert(SCI+"/modules/helptools/examples/example_1",%f,%f);
@@ -158,4 +158,4 @@ clean_help(my_english_help_dir);
 
 ...
 
-end // if MSDOS
+end // if getos() == 'Windows'
index 90d41d0..66c7b36 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 cd(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 3d9313c..a43ee3c 100644 (file)
@@ -7,7 +7,7 @@
 
 cd(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index f0fca09..46e9d90 100644 (file)
@@ -51,7 +51,7 @@
     <programlisting role="example"><![CDATA[ 
 //create a getdir function based on host
 function wd=getdir()
-  if MSDOS then 
+  if getos() == 'Windows' then 
     host('cd>'+TMPDIR+'\path');
   else
     host('pwd>'+TMPDIR+'/path');
index c924bc1..c58251d 100644 (file)
@@ -95,7 +95,7 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then unix('del foo');
+if getos() == 'Windows' then unix('del foo');
 else unix('rm -f foo'); end
 A=rand(3,5); write('foo',A);
 B=read('foo',3,5)
index 5d1eb19..ad177cc 100644 (file)
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if ~MSDOS then
+if getos() <> 'Windows' then
   unix("ls $SCI/demos");
 end
 
 function wd=directory()
-  if MSDOS then
+  if getos() == 'Windows' then
     unix('cd>'+TMPDIR+'\path');
   else
     unix('pwd>'+TMPDIR+'/path');
index da5d155..0da90ac 100644 (file)
@@ -94,7 +94,7 @@
     <programlisting role="example"><![CDATA[ 
 function d=DIR(path)
   path=pathconvert(path,%t,%t)
-  if MSDOS then
+  if getos() == 'Windows' then
     d=unix_g('dir '+path)
   else
     d=unix_g('ls '+path)
index 6dafc42..bf38556 100644 (file)
@@ -45,7 +45,7 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_s("del foo");
 else 
   unix_s("rm -f foo"); 
index 29e51fa..cc14e0e 100644 (file)
@@ -45,7 +45,7 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   unix_w("dir "+'""'+WSCI+"\modules"+'""'); 
 else 
   unix_w("ls $SCI/modules");
index 5f2b2b0..42acd65 100644 (file)
@@ -44,7 +44,7 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_x("dir "+""""+WSCI+"modules\graphics\demos"+""""); 
 else 
   unix_x("ls $SCI/modules/graphics/demos");
index 64dc643..15e747f 100644 (file)
@@ -109,7 +109,7 @@ write(file-desc,a,k,format)</synopsis>
     <title>Examples</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then unix('del asave');
+if getos() == 'Windows' then unix('del asave');
 else unix('rm -f asave'); end
 A=rand(5,3); write('asave',A); A=read('asave',5,3);
 write(%io(2),A,'('' | '',3(f10.3,'' | ''))')
@@ -117,7 +117,7 @@ write(%io(2),string(1:10))
 write(%io(2),strcat(string(1:10),','))
 write(%io(2),1:10,'(10(i2,3x))')
 
-if MSDOS then unix('del foo');
+if getos() == 'Windows' then unix('del foo');
 else unix('rm -f foo'); end
 write('foo',A)
  ]]></programlisting>
index 6f3eba1..f34e8c9 100644 (file)
@@ -57,7 +57,7 @@
     <programlisting role="example"><![CDATA[ 
 //creation d'un fontion pour recuperer la path courant
 function wd=getdir()
-  if MSDOS then 
+  if getos() == 'Windows' then 
     host('cd>'+TMPDIR+'\path');
   else
     host('pwd>'+TMPDIR+'/path');
index e2b348f..69803e1 100644 (file)
   <refsection>
     <title>Exemples</title>
     <programlisting role="example"><![CDATA[ 
-if ~MSDOS then
+if getos() <> 'Windows' then
   unix("ls $SCI/demos");
 end
 
 function wd=directory()
-  if MSDOS then
+  if getos() == 'Windows' then
     unix('cd>'+TMPDIR+'\path');
   else
     unix('pwd>'+TMPDIR+'/path');
index 4fd6f09..923b749 100644 (file)
@@ -98,7 +98,7 @@
     <programlisting role="example"><![CDATA[ 
 function d=DIR(path)
  path=pathconvert(path,%t,%t)
- if MSDOS then
+ if getos() == 'Windows' then
    d=unix_g('dir '+path)
  else
    d=unix_g('ls '+path)
index 7ca6005..14f9e5a 100644 (file)
@@ -43,7 +43,7 @@
   <refsection>
     <title>Exemples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_s("del foo");
 else 
   unix_s("rm -f foo"); 
index 2b7ac23..b8acbcb 100644 (file)
@@ -47,7 +47,7 @@
   <refsection>
     <title>Exemples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_w("dir "+'""'+WSCI+"\modules"+'""');
 else
   unix_w("ls $SCI/modules");
index 7e54736..6632670 100644 (file)
@@ -48,7 +48,7 @@
   <refsection>
     <title>Exemples</title>
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_x("dir "+""""+WSCI+"modules\graphics\demos"+""""); 
 else 
   unix_x("ls $SCI/modules/graphics/demos");
index 227bf59..5a3e2ef 100644 (file)
@@ -72,7 +72,7 @@
     <programlisting role="example"><![CDATA[ 
 //criando uma função getdir baseda no host
 function wd=getdir()
-  if MSDOS then 
+  if getos() == 'Windows' then 
     host('cd>'+TMPDIR+'\path');
   else
     host('pwd>'+TMPDIR+'/path');
index ed95761..e59de82 100644 (file)
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then unix('del foo');
+if getos() == 'Windows' then unix('del foo');
 else unix('rm -f foo'); end
 A=rand(3,5); write('foo',A);
 B=read('foo',3,5)
index 29ad82e..318fa1d 100644 (file)
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if ~MSDOS then
+if getos() <> 'Windows' then
   unix("ls $SCI/demos");
 end
 
 function wd=directory()
-  if MSDOS then
+  if getos() == 'Windows' then
     unix('cd&gt;'+TMPDIR+'\path');
   else
     unix('pwd&gt;'+TMPDIR+'/path');
index 663f9e6..03a0387 100644 (file)
@@ -94,7 +94,7 @@
     <programlisting role="example"><![CDATA[ 
 function d=DIR(path)
   path=pathconvert(path,%t,%t)
-  if MSDOS then
+  if getos() == 'Windows' then
     d=unix_g('dir '+path)
   else
     d=unix_g('ls '+path)
index ef16a3c..2e52429 100644 (file)
@@ -61,7 +61,7 @@
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_s("del foo");
 else 
   unix_s("rm -f foo"); 
index 591ce52..c865952 100644 (file)
@@ -62,7 +62,7 @@
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then
+if getos() == 'Windows' then
   unix_w("dir "+'""'+WSCI+"\modules"+'""'); 
 else 
   unix_w("ls $SCI/modules");
index 011ff83..d829611 100644 (file)
@@ -62,7 +62,7 @@
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then 
+if getos() == 'Windows' then 
   unix_x("dir "+""""+WSCI+"modules\graphics\demos"+""""); 
 else 
   unix_x("ls $SCI/modules/graphics/demos");
index 86a5a3e..5669555 100644 (file)
@@ -106,7 +106,7 @@ write(file-desc,a,k,format)</synopsis>
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-if MSDOS then unix('del asave');
+if getos() == 'Windows' then unix('del asave');
 else unix('rm -f asave'); end
 A=rand(5,3); write('asave',A); A=read('asave',5,3);
 write(%io(2),A,'('' | '',3(f10.3,'' | ''))')
@@ -114,7 +114,7 @@ write(%io(2),string(1:10))
 write(%io(2),strcat(string(1:10),','))
 write(%io(2),1:10,'(10(i2,3x))')
 
-if MSDOS then unix('del foo');
+if getos() == 'Windows' then unix('del foo');
 else unix('rm -f foo'); end
 write('foo',A)
  ]]></programlisting>
index bf5a6e0..2fb37c2 100644 (file)
@@ -49,7 +49,7 @@ function varargout = unix_g(cmd)
   stat = 1;
   rep = emptystr();
 
-  if MSDOS then 
+  if getos() == 'Windows' then 
     [rep,stat] = dos(cmd);
     if (stat == %t) then
       stat = 0;
index ed06820..ae73ca7 100644 (file)
@@ -37,7 +37,7 @@ function unix_s(cmd)
                error(msprintf(gettext("%s: Wrong size for input argument #%d: A string expected.\n"),"unix_s",1));
        end
        
-  if MSDOS then 
+  if getos() == 'Windows' then 
     [rep,stat]=dos(cmd);
     if (~stat) then
       for i=1:size(rep,'*') do write(%io(2),'   '+rep(i));end
index e972057..ccd02a0 100644 (file)
@@ -38,7 +38,7 @@ function unix_w(cmd)
                error(msprintf(gettext("%s: Wrong size for input argument #%d: A string expected.\n"),"unix_w",1));
        end
        
-  if MSDOS then 
+  if getos() == 'Windows' then 
     [rep,stat]=dos(cmd,'-echo');
     if (~stat) then
       error(msprintf(gettext("%s: error during ""%s"" execution"),"unix_w",cmd));
index 8fa03d7..312da1d 100644 (file)
@@ -38,7 +38,7 @@ function unix_x(cmd)
                error(msprintf(gettext("%s: Wrong size for input argument #%d: A string expected.\n"),"unix_x",1));
        end
 
-if MSDOS then
+if getos() == 'Windows' then
    [rep,stat]=dos(cmd);
     if (stat) then
       messagebox(rep);
index 371a13e..1f3e850 100644 (file)
@@ -81,6 +81,6 @@ a=msprintf("%2.5f ",s')
       2932 -1.39543 0.43100 -0.68092 0.71227 0.77090 -0.97015 -0.80298  
       0.93324 -0.15644 1.80970 0.12123 0.02858 -1.00312 0.97391 0.99897 
        0.47892 -0.02918                                                 
-if ~MSDOS then
+if getos() <> 'Windows' then
        if unix("cat "+a+" > /dev/null 2>&1")<>256 then bugmes();quit;end
 end
index b61ac7b..7f17147 100644 (file)
@@ -16,6 +16,6 @@
 s=grand(500,1,'nor',0,1)';
 a=msprintf("%2.5f ",s')
 
-if ~MSDOS then
+if getos() <> 'Windows' then
        if unix("cat "+a+" > /dev/null 2>&1")<>256 then pause,end
 end
index a7a06f6..2c15779 100644 (file)
@@ -8,7 +8,7 @@ ilib_verbose(0);
 mydir = TMPDIR + filesep() + "loadlib";
 createdir(mydir);
 chdir(mydir);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
@@ -24,7 +24,7 @@ tab_ref = [
 "프로그램",
 "תוכנית"];
 PathOrigin = getenv("PATH");
-if MSDOS then
+if getos() == 'Windows' then
 for i = 1 : size(tab_ref,'*')
        sz = "dir_" + tab_ref(i);
        a = chdir(sz);
index da3025e..c79444a 100644 (file)
@@ -12,7 +12,7 @@ mydir = TMPDIR + filesep() + "loadlib";
 createdir(mydir);
 chdir(mydir);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
@@ -34,7 +34,7 @@ tab_ref = [
 
 PathOrigin = getenv("PATH");
 
-if MSDOS then
+if getos() == 'Windows' then
 
 for i = 1 : size(tab_ref,'*')
        sz = "dir_" + tab_ref(i);
index 7b0b3a5..328ca37 100644 (file)
@@ -9,7 +9,7 @@ function [rep,stat] = java(java_filename)
        
        my_saved_path = pwd();
        
-       if MSDOS then
+       if getos() == 'Windows' then
                setenv('PATH',SCI+'\bin;' + getenv('PATH') + pathsep());
        end
        
@@ -17,7 +17,7 @@ function [rep,stat] = java(java_filename)
        
        cd(path);
        
-       if MSDOS then
+       if getos() == 'Windows' then
                commandline = jre_path() + "\bin\java -cp " ..
                        + SCI + "\modules\javasci\jar\javasci.jar" ..
                        + pathsep() + ". " + fname;
index 7b0b3a5..328ca37 100644 (file)
@@ -9,7 +9,7 @@ function [rep,stat] = java(java_filename)
        
        my_saved_path = pwd();
        
-       if MSDOS then
+       if getos() == 'Windows' then
                setenv('PATH',SCI+'\bin;' + getenv('PATH') + pathsep());
        end
        
@@ -17,7 +17,7 @@ function [rep,stat] = java(java_filename)
        
        cd(path);
        
-       if MSDOS then
+       if getos() == 'Windows' then
                commandline = jre_path() + "\bin\java -cp " ..
                        + SCI + "\modules\javasci\jar\javasci.jar" ..
                        + pathsep() + ". " + fname;
index 6efd11c..9072fef 100644 (file)
@@ -13,7 +13,7 @@ function ret=check_classpath(varargin)
   file_to_check=SCI+'/etc/classpath.xml';
   printf('checking : '+file_to_check+'\n');
   try
-  if MSDOS then
+  if getos() == 'Windows' then
     stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);
   else
     stat = unix_w("xmllint --noout --valid "+file_to_check);
index 2ec3baf..c406411 100644 (file)
@@ -13,7 +13,7 @@ function ret=check_librarypath(varargin)
   file_to_check=SCI+'/etc/librarypath.xml';
   printf('checking : '+file_to_check+'\n');
   try
-  if MSDOS then
+  if getos() == 'Windows' then
     stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);
   else
     stat = unix_w("xmllint --noout --valid "+file_to_check);
index 1a78bf5..1978082 100644 (file)
@@ -7,7 +7,7 @@
 // Create all needed directories
 //==============================
 chdir(TMPDIR);
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index 9849d88..40585c6 100644 (file)
@@ -11,7 +11,7 @@
 
 chdir(TMPDIR);
 
-if MSDOS then
+if getos() == 'Windows' then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
index f06fd1e..e29b957 100644 (file)
@@ -8,7 +8,7 @@
 // setdefaultlanguage only on Windows
 // returns false in others case
 
-if MSDOS then 
+if getos() == 'Windows' then 
  ierr = execstr('setdefaultlanguage()','errcatch');
  if ierr <> 77 then pause,end
  
index 2eecbb8..1f23cef 100644 (file)
@@ -6,7 +6,7 @@
 // ============================================================================
 // setdefaultlanguage only on Windows
 // returns false in others case
-if MSDOS then
+if getos() == 'Windows' then
  ierr = execstr('setdefaultlanguage()','errcatch');
  if ierr <> 77 then bugmes();quit;end
  ierr = execstr('setdefaultlanguage(1)','errcatch');
index 2eecbb8..1f23cef 100644 (file)
@@ -6,7 +6,7 @@
 // ============================================================================
 // setdefaultlanguage only on Windows
 // returns false in others case
-if MSDOS then
+if getos() == 'Windows' then
  ierr = execstr('setdefaultlanguage()','errcatch');
  if ierr <> 77 then bugmes();quit;end
  ierr = execstr('setdefaultlanguage(1)','errcatch');
index 61c6800..76a04e5 100644 (file)
@@ -22,7 +22,7 @@ if rhs<4 then only_double=%F,end
 if rhs<3 then Recmode=%F,end
 if rhs<2 then res_path="./",end
 if rhs<1 then m2sci_gui();res=[];return;end
-if MSDOS then
+if getos() == 'Windows' then
   fil=strsubst(fil,filesep(),"/")
   res_path=strsubst(res_path,"\","/")
 end
@@ -93,7 +93,7 @@ end
 // Others M-files in directory
 if exists("Paths")==0 then
   Paths=file_path,
-  if MSDOS then
+  if getos() == 'Windows' then
     Paths=strsubst(Paths,"/","\")
     mfiles=listfiles(Paths+"*.m")
     sep=filesep()
index 695368e..62dcdd9 100644 (file)
@@ -36,7 +36,7 @@ if exists("m2ssci_fileslib")==0 then load("SCI/modules/m2sci/macros/sci_files/li
 // Convert paths so that they can be used according to the platform
 
 sep = filesep();
-if MSDOS then 
+if getos() == 'Windows' then 
   Paths=strsubst(Paths,'/',sep)
   res_path=strsubst(res_path,'/',sep)
 else
index 2022b28..a79dba8 100644 (file)
@@ -23,7 +23,7 @@ libs  = [];
 // table of (scilab_name,interface-name or mexfile-name, type)
 table =['square','temptst','cmex'];
 
-if ~MSDOS then 
+if getos() <> 'Windows' then 
   if part(getenv('OSTYPE','no'),1:6)=='darwin' then 
          cflags = ""
          fflags = ""; 
index 655ff14..b1e5228 100644 (file)
@@ -56,7 +56,7 @@ assert_equal ( output.iterations , 85 );
 assert_equal ( output.algorithm , "Nelder-Mead simplex direct search" );
 assert_equal ( output.funcCount , 159 );
 assert_equal ( output.message(1) , "Optimization terminated:");
-if MSDOS then
+if getos() == 'Windows' then
 assert_equal ( output.message(2) , " the current x satisfies the termination criteria using OPTIONS.TolX of 1.000000e-004");
 assert_equal ( output.message(3) , " and F(X) satisfies the convergence criteria using OPTIONS.TolFun of 1.000000e-004");
 else
index b776bfa..c3e7460 100644 (file)
@@ -61,7 +61,7 @@ assert_equal ( output.iterations , 85 );
 assert_equal ( output.algorithm , "Nelder-Mead simplex direct search" );
 assert_equal ( output.funcCount , 159 );
 assert_equal ( output.message(1) , "Optimization terminated:");
-if MSDOS then
+if getos() == 'Windows' then
 assert_equal ( output.message(2) , " the current x satisfies the termination criteria using OPTIONS.TolX of 1.000000e-004");
 assert_equal ( output.message(3) , " and F(X) satisfies the convergence criteria using OPTIONS.TolFun of 1.000000e-004");
 else
index 5771a5c..c74874d 100644 (file)
@@ -56,7 +56,7 @@ assert_equal ( output.iterations , 85 );
 assert_equal ( output.algorithm , "Nelder-Mead simplex direct search" );
 assert_equal ( output.funcCount , 159 );
 assert_equal ( output.message(1) , "Optimization terminated:");
-if MSDOS then
+if getos() == 'Windows' then
 assert_equal ( output.message(2) , " the current x satisfies the termination criteria using OPTIONS.TolX of 1.000000e-004");
 assert_equal ( output.message(3) , " and F(X) satisfies the convergence criteria using OPTIONS.TolFun of 1.000000e-004");
 else
index 4302a0b..2246d2a 100644 (file)
@@ -89,7 +89,7 @@ nm = neldermead_configure(nm,"-boundsmax",[-10.0 10.0 10.0 10.0]);
 cmd = "nm = neldermead_search(nm)";
 execstr(cmd,"errcatch");
 computed = lasterror();
-if MSDOS then
+if getos() == 'Windows' then
 expected = "neldermead_startup: The max bound -1.000000e+001 for variable #1 is lower than the min bound 1.000000e+001.";
 else
 expected = "neldermead_startup: The max bound -1.000000e+01 for variable #1 is lower than the min bound 1.000000e+01.";
index da6384e..a1d2c94 100644 (file)
@@ -97,7 +97,7 @@ nm = neldermead_configure(nm,"-boundsmax",[-10.0 10.0 10.0 10.0]);
 cmd = "nm = neldermead_search(nm)";
 execstr(cmd,"errcatch");
 computed = lasterror();
-if MSDOS then
+if getos() == 'Windows' then
 expected = "neldermead_startup: The max bound -1.000000e+001 for variable #1 is lower than the min bound 1.000000e+001.";
 else
 expected = "neldermead_startup: The max bound -1.000000e+01 for variable #1 is lower than the min bound 1.000000e+01.";
index c168649..66ef090 100644 (file)
@@ -51,7 +51,7 @@ simplex = [
 ];
 s1 = optimsimplex_setall ( s1 , simplex );
 str = optimsimplex_tostring ( s1 );
-if MSDOS then
+if getos() == 'Windows' then
 expected = [
 "Vertex #1/3 : fv=2.400000e+001, x=-2.000000e+000 1.000000e+000"
 "Vertex #2/3 : fv=9.300000e+001, x=-1.000000e+000 3.000000e+000"
@@ -76,7 +76,7 @@ simplex = [
 ];
 s1 = optimsimplex_setall ( s1 , simplex );
 str = optimsimplex_tostring ( s1 );
-if MSDOS then
+if getos() == 'Windows' then
 expected = [
 "Vertex #1/4 : fv=2.400000e+001, x=-2.000000e+000 1.000000e+000" 
 "Vertex #2/4 : fv=9.300000e+001, x=-1.000000e+000 3.000000e+000" 
index 2380771..8d01c26 100644 (file)
@@ -55,7 +55,7 @@ simplex = [
 ];
 s1 = optimsimplex_setall ( s1 , simplex );
 str = optimsimplex_tostring ( s1 );
-if MSDOS then
+if getos() == 'Windows' then
 expected = [
 "Vertex #1/3 : fv=2.400000e+001, x=-2.000000e+000 1.000000e+000"
 "Vertex #2/3 : fv=9.300000e+001, x=-1.000000e+000 3.000000e+000"
@@ -81,7 +81,7 @@ simplex = [
 ];
 s1 = optimsimplex_setall ( s1 , simplex );
 str = optimsimplex_tostring ( s1 );
-if MSDOS then
+if getos() == 'Windows' then
 expected = [
 "Vertex #1/4 : fv=2.400000e+001, x=-2.000000e+000 1.000000e+000" 
 "Vertex #2/4 : fv=9.300000e+001, x=-1.000000e+000 3.000000e+000" 
index c168649..66ef090 100644 (file)
@@ -51,7 +51,7 @@ simplex = [
 ];
 s1 = optimsimplex_setall ( s1 , simplex );
 str = optimsimplex_tostring ( s1 );
-if MSDOS then
+if getos() == 'Windows' then
 expected = [
 "Vertex #1/3 : fv=2.400000e+001, x=-2.000000e+000 1.000000e+000"
 "Vertex #2/3 : fv=9.300000e+001, x=-1.000000e+000 3.000000e+000"
@@ -76,7 +76,7 @@ simplex = [
 ];
 s1 = optimsimplex_setall ( s1 , simplex );
 str = optimsimplex_tostring ( s1 );
-if MSDOS then
+if getos() == 'Windows' then
 expected = [
 "Vertex #1/4 : fv=2.400000e+001, x=-2.000000e+000 1.000000e+000" 
 "Vertex #2/4 : fv=9.300000e+001, x=-1.000000e+000 3.000000e+000" 
index c4f3b63..18015c8 100644 (file)
@@ -11,7 +11,7 @@
 //
 // <-- Short Description -->
 //    sprintf error
-if MSDOS then
+if getos() == 'Windows' then
        if sprintf("%e", 1e-10) <> "1.000000e-010" then bugmes();quit;end
 else
        if sprintf("%e", 1e-10) <> "1.000000e-10" then bugmes();quit;end
index f22f106..79920ae 100644 (file)
@@ -15,7 +15,7 @@
 // <-- Short Description -->
 //    sprintf error
 
-if MSDOS then
+if getos() == 'Windows' then
        if sprintf("%e", 1e-10) <> "1.000000e-010" then pause; end
 else
        if sprintf("%e", 1e-10) <> "1.000000e-10" then pause; end
index cdca5d5..c399fce 100644 (file)
 // <-- Short Description -->
 // dummy =sprintf('%e', 1000) buggy
 dummy = sprintf('%e', 100);
-if MSDOS then
+if getos() == 'Windows' then
  if dummy <> "1.000000e+002" then bugmes();quit;end
 else
  if dummy <> "1.000000e+02" then bugmes();quit;end
 end
 dummy2 =sprintf('%e', 1000);
-if MSDOS then
+if getos() == 'Windows' then
   if dummy2 <> "1.000000e+003" then bugmes();quit;end
 else
   if dummy2 <> "1.000000e+03" then bugmes();quit;end
 end
 dummy3 =sprintf('%e', 10000);
-if MSDOS then
+if getos() == 'Windows' then
   if dummy3 <> "1.000000e+004" then bugmes();quit;end
 else
   if dummy3 <> "1.000000e+04" then bugmes();quit;end
index 864ab56..5e8bad1 100644 (file)
 // dummy =sprintf('%e', 1000) buggy 
 
 dummy = sprintf('%e', 100);
-if MSDOS then
+if getos() == 'Windows' then
  if dummy <> "1.000000e+002" then pause, end
 else
  if dummy <> "1.000000e+02" then pause, end
 end
   
 dummy2 =sprintf('%e', 1000);
-if MSDOS then
+if getos() == 'Windows' then
   if dummy2 <> "1.000000e+003" then pause, end
 else
   if dummy2 <> "1.000000e+03" then pause, end
 end  
 
 dummy3 =sprintf('%e', 10000);
-if MSDOS then
+if getos() == 'Windows' then
   if dummy3 <> "1.000000e+004" then pause, end
 else
   if dummy3 <> "1.000000e+04" then pause, end
index 6dc89c7..3c0fd64 100644 (file)
@@ -30,147 +30,147 @@ if msprintf("%g" ,35.55)             <> "35.55"           then bugmes();quit;end
 if msprintf("%g" ,35.551234567890)   <> "35.5512"         then bugmes();quit;end
 if msprintf("%+g",35.551234567890)   <> "+35.5512"        then bugmes();quit;end
 if msprintf("%g" ,0.00433)           <> "0.00433"         then bugmes();quit;end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%g" ,0.0000000345456)   <> "3.45456e-008"  then bugmes();quit;end
 else
   if msprintf("%g" ,0.0000000345456)   <> "3.45456e-08"   then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%g" ,11124234534545)    <> "1.11242e+013"  then bugmes();quit;end
 else
   if msprintf("%g" ,11124234534545)    <> "1.11242e+13"   then bugmes();quit;end
 end
 if msprintf("%15g",-35)              <> "            -35" then bugmes();quit;end
 if msprintf("%15g",0.00433)          <> "        0.00433" then bugmes();quit;end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15g",0.0000000345456)  <> "   3.45456e-008" then bugmes();quit;end
 else
   if msprintf("%15g",0.0000000345456)  <> "    3.45456e-08" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15g",11124234534545)   <> "   1.11242e+013" then bugmes();quit;end
 else
   if msprintf("%15g",11124234534545)   <> "    1.11242e+13" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1g",-35.1)            <> "-4e+001"         then bugmes();quit;end
 else
   if msprintf("%.1g",-35.1)            <> "-4e+01"          then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.0g",-35.1)            <> "-4e+001"         then bugmes();quit;end
 else
   if msprintf("%.0g",-35.1)            <> "-4e+01"          then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%#.0g",-35.1)           <> "-4.e+001"        then bugmes();quit;end
 else
   if msprintf("%#.0g",-35.1)           <> "-4.e+01"         then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%#.0G",-35.1)           <> "-4.E+001"        then bugmes();quit;end
 else
   if msprintf("%#.0G",-35.1)           <> "-4.E+01"         then bugmes();quit;end
 end
 if msprintf("%.1g",0.00433)            <> "0.004"           then bugmes();quit;end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.15g",0.0000000345456) <> "3.45456e-008"    then bugmes();quit;end
 else
   if msprintf("%.15g",0.0000000345456) <> "3.45456e-08"     then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1g",11124234534545)   <> "1e+013"          then bugmes();quit;end
 else
   if msprintf("%.1g",11124234534545)   <> "1e+13"           then bugmes();quit;end
 end
 // format '%e'
 // =============================================================================
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",-35)                <> "-3.500000e+001"  then bugmes();quit;end
 else
   if msprintf("%e",-35)                <> "-3.500000e+01"   then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",35.55)              <> "3.555000e+001"   then bugmes();quit;end
 else
   if msprintf("%e",35.55)              <> "3.555000e+01"    then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%+e",35.55)             <> "+3.555000e+001"  then bugmes();quit;end
 else
   if msprintf("%+e",35.55)             <> "+3.555000e+01"   then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",35.551234567890)    <> "3.555123e+001"   then bugmes();quit;end
 else
   if msprintf("%e",35.551234567890)    <> "3.555123e+01"    then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",0.00433)            <> "4.330000e-003"   then bugmes();quit;end
 else
   if msprintf("%e",0.00433)            <> "4.330000e-03"    then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",0.0000000345456)    <> "3.454560e-008"   then bugmes();quit;end
 else
   if msprintf("%e",0.0000000345456)    <> "3.454560e-08"    then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",11124234534545)     <> "1.112423e+013"   then bugmes();quit;end
 else
   if msprintf("%e",11124234534545)     <> "1.112423e+13"    then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%E",11124234534545)     <> "1.112423E+013"   then bugmes();quit;end
 else
   if msprintf("%E",11124234534545)     <> "1.112423E+13"    then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",-35)              <> " -3.500000e+001" then bugmes();quit;end
 else
   if msprintf("%15e",-35)              <> "  -3.500000e+01" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",0.00433)          <> "  4.330000e-003" then bugmes();quit;end
 else
   if msprintf("%15e",0.00433)          <> "   4.330000e-03" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",0.0000000345456)  <> "  3.454560e-008" then bugmes();quit;end
 else
   if msprintf("%15e",0.0000000345456)  <> "   3.454560e-08" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%+15e",0.0000000345456) <> " +3.454560e-008" then bugmes();quit;end
 else
   if msprintf("%+15e",0.0000000345456) <> "  +3.454560e-08" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",11124234534545)   <> "  1.112423e+013" then bugmes();quit;end
 else
   if msprintf("%15e",11124234534545)   <> "   1.112423e+13" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1e",-35)              <> "-3.5e+001"       then bugmes();quit;end
 else
   if msprintf("%.1e",-35)              <> "-3.5e+01"        then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if  msprintf("%.0e",-35.1)            <> "-4e+001"        then bugmes();quit;end
 else
   if  msprintf("%.0e",-35.1)            <> "-4e+01"         then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1e",0.00433)          <> "4.3e-003"        then bugmes();quit;end
 else
   if msprintf("%.1e",0.00433)          <> "4.3e-03"         then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.15e",0.0000000345456) <> "3.454560000000000e-008" then bugmes();quit;end
 else
   if msprintf("%.15e",0.0000000345456) <> "3.454560000000000e-08" then bugmes();quit;end
 end
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1e",11124234534545)   <> "1.1e+013"       then bugmes();quit;end
 else
   if msprintf("%.1e",11124234534545)   <> "1.1e+13"        then bugmes();quit;end
index 32bb6f0..990aaa7 100644 (file)
@@ -41,13 +41,13 @@ if msprintf("%g" ,35.551234567890)   <> "35.5512"         then pause,end
 if msprintf("%+g",35.551234567890)   <> "+35.5512"        then pause,end
 if msprintf("%g" ,0.00433)           <> "0.00433"         then pause,end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%g" ,0.0000000345456)   <> "3.45456e-008"  then pause,end
 else
   if msprintf("%g" ,0.0000000345456)   <> "3.45456e-08"   then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%g" ,11124234534545)    <> "1.11242e+013"  then pause,end
 else
   if msprintf("%g" ,11124234534545)    <> "1.11242e+13"   then pause,end
@@ -56,37 +56,37 @@ end
 if msprintf("%15g",-35)              <> "            -35" then pause,end
 if msprintf("%15g",0.00433)          <> "        0.00433" then pause,end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15g",0.0000000345456)  <> "   3.45456e-008" then pause,end
 else
   if msprintf("%15g",0.0000000345456)  <> "    3.45456e-08" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15g",11124234534545)   <> "   1.11242e+013" then pause,end
 else
   if msprintf("%15g",11124234534545)   <> "    1.11242e+13" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1g",-35.1)            <> "-4e+001"         then pause,end
 else
   if msprintf("%.1g",-35.1)            <> "-4e+01"          then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.0g",-35.1)            <> "-4e+001"         then pause,end
 else
   if msprintf("%.0g",-35.1)            <> "-4e+01"          then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%#.0g",-35.1)           <> "-4.e+001"        then pause,end
 else
   if msprintf("%#.0g",-35.1)           <> "-4.e+01"         then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%#.0G",-35.1)           <> "-4.E+001"        then pause,end
 else
   if msprintf("%#.0G",-35.1)           <> "-4.E+01"         then pause,end
@@ -94,13 +94,13 @@ end
 
 if msprintf("%.1g",0.00433)            <> "0.004"           then pause,end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.15g",0.0000000345456) <> "3.45456e-008"    then pause,end
 else
   if msprintf("%.15g",0.0000000345456) <> "3.45456e-08"     then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1g",11124234534545)   <> "1e+013"          then pause,end
 else
   if msprintf("%.1g",11124234534545)   <> "1e+13"           then pause,end
@@ -109,110 +109,110 @@ end
 // format '%e'
 // =============================================================================
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",-35)                <> "-3.500000e+001"  then pause,end
 else
   if msprintf("%e",-35)                <> "-3.500000e+01"   then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",35.55)              <> "3.555000e+001"   then pause,end
 else
   if msprintf("%e",35.55)              <> "3.555000e+01"    then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%+e",35.55)             <> "+3.555000e+001"  then pause,end
 else
   if msprintf("%+e",35.55)             <> "+3.555000e+01"   then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",35.551234567890)    <> "3.555123e+001"   then pause,end
 else
   if msprintf("%e",35.551234567890)    <> "3.555123e+01"    then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",0.00433)            <> "4.330000e-003"   then pause,end
 else
   if msprintf("%e",0.00433)            <> "4.330000e-03"    then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",0.0000000345456)    <> "3.454560e-008"   then pause,end
 else
   if msprintf("%e",0.0000000345456)    <> "3.454560e-08"    then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%e",11124234534545)     <> "1.112423e+013"   then pause,end
 else
   if msprintf("%e",11124234534545)     <> "1.112423e+13"    then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%E",11124234534545)     <> "1.112423E+013"   then pause,end
 else
   if msprintf("%E",11124234534545)     <> "1.112423E+13"    then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",-35)              <> " -3.500000e+001" then pause,end
 else
   if msprintf("%15e",-35)              <> "  -3.500000e+01" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",0.00433)          <> "  4.330000e-003" then pause,end
 else
   if msprintf("%15e",0.00433)          <> "   4.330000e-03" then pause,end
 end
 
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",0.0000000345456)  <> "  3.454560e-008" then pause,end
 else
   if msprintf("%15e",0.0000000345456)  <> "   3.454560e-08" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%+15e",0.0000000345456) <> " +3.454560e-008" then pause,end
 else
   if msprintf("%+15e",0.0000000345456) <> "  +3.454560e-08" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%15e",11124234534545)   <> "  1.112423e+013" then pause,end
 else
   if msprintf("%15e",11124234534545)   <> "   1.112423e+13" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1e",-35)              <> "-3.5e+001"       then pause,end
 else
   if msprintf("%.1e",-35)              <> "-3.5e+01"        then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if  msprintf("%.0e",-35.1)            <> "-4e+001"        then pause,end
 else
   if  msprintf("%.0e",-35.1)            <> "-4e+01"         then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1e",0.00433)          <> "4.3e-003"        then pause,end
 else
   if msprintf("%.1e",0.00433)          <> "4.3e-03"         then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.15e",0.0000000345456) <> "3.454560000000000e-008" then pause,end
 else
   if msprintf("%.15e",0.0000000345456) <> "3.454560000000000e-08" then pause,end
 end
 
-if MSDOS then
+if getos() == 'Windows' then
   if msprintf("%.1e",11124234534545)   <> "1.1e+013"       then pause,end
 else
   if msprintf("%.1e",11124234534545)   <> "1.1e+13"        then pause,end
index 84fb5ca..5537005 100644 (file)
@@ -6,7 +6,7 @@ if ~with_pvm() then
   return
 end
 
-if MSDOS then
+if getos() == 'Windows' then
 
        mes=messagebox(['This demo recquires rsh or ssh client/server on Windows.' ..
        'Click on Cancel, if you aren''t sure to have it.' ..
index a695e5e..69b5e07 100644 (file)
@@ -21,7 +21,7 @@ if with_module('pvm') then
                clear pathdemos
        end
        
-       if MSDOS then
+       if getos() == 'Windows' then
                configure_pvm()
                clear configure_pvm
        end
index ee689d0..ad63361 100644 (file)
@@ -13,7 +13,7 @@ function bOK = configure_pvm()
   bOK = %F;
   
   if %pvm then 
-    if MSDOS then
+    if getos() == 'Windows' then
       if getenv('PVM_ROOT','') == '' then 
         setenv("PVM_ROOT",pathconvert(SCI,%f,%f,'w')+"\modules\pvm\pvm3");
       end
index 54f8993..0b7606c 100644 (file)
@@ -11,7 +11,7 @@
 //
 // <-- Short Description -->
 // From time to time, when I plot a graphic, scilab displays a blank graphic windows.
-if MSDOS then
+if getos() == 'Windows' then
 if fileinfo(SCI+'\bin\jogl.dll') == [] then bugmes();quit;end
 if fileinfo(SCI+'\bin\jogl_awt.dll') == [] then bugmes();quit;end
 if fileinfo(SCI+'\bin\jogl_cg.dll') == [] then bugmes();quit;end
index af7beb3..20e920a 100644 (file)
@@ -13,7 +13,7 @@
 // <-- Short Description -->
 // From time to time, when I plot a graphic, scilab displays a blank graphic windows.
 
-if MSDOS then
+if getos() == 'Windows' then
 
 if fileinfo(SCI+'\bin\jogl.dll') == [] then pause,end
 if fileinfo(SCI+'\bin\jogl_awt.dll') == [] then pause,end
index a359dbf..e18eba1 100644 (file)
@@ -324,7 +324,7 @@ end
 endfunction
 
 function tk_mpop(ll,but,pos)
-  if MSDOS then return,end
+  if getos() == 'Windows' then return,end
   [lhs,rhs]=argn(0)
   if rhs<3 then pos=-1;end
   if length(ll)==0 then return;end
index 39ad023..dbdb502 100644 (file)
@@ -29,7 +29,7 @@ function XcosMenuSelectRegion()
 //** 18 Mar 2008 : update to "scicos_rubberbox()" for Scilab 5
 
 
-  if with_gtk()|MSDOS then  // first click under windows treated as
+  if getos() == 'Windows' then  // first click under windows treated as
                             // press move (always the case under gtk)
     Cmenu =[]; Select=[] ;
   else
index 7c062e8..e963d98 100644 (file)
@@ -26,7 +26,7 @@ function  [ok]=Link_modelica_C(Cfile)
   Cfile=pathconvert(Cfile,%f,%t)
   name=basename(Cfile)
   path=strsubst(stripblanks(Cfile),name+'.c','')
-  if MSDOS then Ofile=path+name+'.obj', else Ofile=path+name+'.o', end
+  if getos() == 'Windows' then Ofile=path+name+'.obj', else Ofile=path+name+'.o', end
 
   //below newest(Cfile,Ofile) is used instead of  updateC in case where
   //Cfile has been manually modified (debug,...)
@@ -43,7 +43,7 @@ function  [ok]=Link_modelica_C(Cfile)
     mlibs(rep)=[];
     //--------------------------------
     libs=[];
-    if MSDOS then ext='\*.lib',else ext='/*.a',end 
+    if getos() == 'Windows' then ext='\*.lib',else ext='/*.a',end 
     // removing .a or .ilib sufixs
     for k=1:size(mlibs,'*')
       aa=listfiles(mlibs(k)+ext);
@@ -55,7 +55,7 @@ function  [ok]=Link_modelica_C(Cfile)
     end
 
     // add modelica_libs to the list of directories to be searched for *.h
-    //if MSDOS then ext='\*.h',else ext='/*.h',end
+    //if getos() == 'Windows' then ext='\*.h',else ext='/*.h',end
     EIncludes=''
     for k=1:size(mlibs,'*')
       EIncludes=EIncludes+'  -I""'+ mlibs(k)+'""';
index ffc2485..86e60b0 100644 (file)
@@ -26,7 +26,7 @@ function [ok,modelicac,translator,xml2modelica] = Modelica_execs()
   TRANSLATOR_FILENAME = 'modelicat';
   XML2MODELICA_FILENAME = 'XML2Modelica';
 
-  if MSDOS then
+  if getos() == 'Windows' then
     MODELICAC_FILENAME = MODELICAC_FILENAME + '.exe';
     TRANSLATOR_FILENAME = TRANSLATOR_FILENAME + '.exe';
     XML2MODELICA_FILENAME = XML2MODELICA_FILENAME + '.exe';
index fc625b8..9017ed1 100644 (file)
@@ -24,7 +24,7 @@ function   [ok]=compile_init_modelica(xmlmodel,paremb,jaco)
 
 
   MODELICAC_FILENAME = 'modelicac';
-  if MSDOS then
+  if getos() == 'Windows' then
     MODELICAC_FILENAME = MODELICAC_FILENAME + '.exe'; 
   end
 
@@ -67,7 +67,7 @@ function   [ok]=compile_init_modelica(xmlmodel,paremb,jaco)
          FlatCi + '"" > ""' + tmpdir + 'imodelicac.err""';
 
 
- if MSDOS then
+ if getos() == 'Windows' then
    mputl(instr, tmpdir + 'igenm.bat');
    instr = tmpdir + 'igenm.bat';
  end
index 5d4fcfe..86fea82 100644 (file)
@@ -1942,7 +1942,7 @@ function Code=make_computational42()
         '#include ""scicos.h"" '
         '']
 
-  if MSDOS then
+  if getos() == 'Windows' then
    Code=[Code;
          ' '
          '#define max(a,b) ((a) >= (b) ? (a) : (b))'
@@ -3195,7 +3195,7 @@ function Code=make_standalone42()
         Protostalone
         '']
   
-  if MSDOS then
+  if getos() == 'Windows' then
    Code=[Code;
          ' '
          '#define max(a,b) ((a) >= (b) ? (a) : (b))'
index 8529d33..0348e76 100644 (file)
@@ -76,7 +76,7 @@ function scs_m = do_icon_edit(%pt,scs_m)
   end
   clearfun('xstringb3')
   ///remove unused default menus
-  if ~MSDOS then
+  if getos() <> 'Windows' then
     emen='Edit'
   else
     global LANGUAGE