Obsolete Functions:
===================
-* 'MSDOS' obsolete see 'getos'.
+* 'MSDOS' obsolete see 'getos' (SEP #39).
Removed functions (previously declared as obsolete):
//creating the interface file
// Checks on windows that we have a Fortran 90 compiler (Intel)
if haveacompiler() then
- if ( (getos() == 'Windows' & findmsifortcompiler() <> 'unknown') | (~MSDOS) ) then
+ if ( (getos() == 'Windows' & findmsifortcompiler() <> 'unknown') | (getos() <> 'Windows') ) then
ilib_verbose(0);
sourcecode=['subroutine incrdoublef90(x,y)'
' implicit none'
// Checks on windows that we have a Fortran 90 compiler (Intel)
if haveacompiler() then
- if ( (getos() == 'Windows' & findmsifortcompiler() <> 'unknown') | (~MSDOS) ) then
+ if ( (getos() == 'Windows' & findmsifortcompiler() <> 'unknown') | (getos() <> 'Windows') ) then
ilib_verbose(0);
sourcecode=['subroutine incrdoublef90(x,y)'
' implicit none'
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
-if MSDOS then
+if getos() == 'Windows' then
ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
if ierr <> 0 then bugmes();quit;end
ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');