// ============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - DIGITEO - Allan CORNET
//
//  This file is distributed under the same license as the Scilab package.
// ============================================================================
// setdefaultlanguage only on Windows
// returns false in others case
if getos() == 'Windows' then
 ierr = execstr('setdefaultlanguage()','errcatch');
 if ierr <> 77 then bugmes();quit;end
 ierr = execstr('setdefaultlanguage(1)','errcatch');
 if ierr <> 999 then bugmes();quit;end
 warning('off');
 if setdefaultlanguage('toto') <> %f then bugmes();quit;end
 if setdefaultlanguage('en') <> %t then bugmes();quit;end
 if getlanguage() <> 'en_US' then bugmes();quit;end
 if setdefaultlanguage('fr') <> %t then bugmes();quit;end
 if getlanguage() <> 'fr_FR' then bugmes();quit;end
 if setdefaultlanguage('en_US') <> %t then bugmes();quit;end
 if getlanguage() <> 'en_US' then bugmes();quit;end
 if setdefaultlanguage('fr_FR') <> %t then bugmes();quit;end
 if getlanguage() <> 'fr_FR' then bugmes();quit;end
 if setdefaultlanguage('ru_RU') <> %t then bugmes();quit;end
 if getlanguage() <> 'ru_RU' then bugmes();quit;end
 if setdefaultlanguage('zh_CN') <> %t then bugmes();quit;end
 if getlanguage() <> 'zh_CN' then bugmes();quit;end
 if setdefaultlanguage('zh_TW') <> %t then bugmes();quit;end
 if getlanguage() <> 'zh_TW' then bugmes();quit;end
 if setdefaultlanguage('C') <> %t then bugmes();quit;end
 if getlanguage() <> getdefaultlanguage() then bugmes();quit;end
 if setdefaultlanguage('') <> %t then bugmes();quit;end
 warning('on');
end