1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
// ============================================================================
// 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 pause,end
ierr = execstr('setdefaultlanguage(1)','errcatch');
if ierr <> 999 then pause,end
warning('off');
if setdefaultlanguage('toto') <> %f then pause,end
if setdefaultlanguage('en') <> %t then pause,end
if getlanguage() <> 'en_US' then pause,end
if setdefaultlanguage('fr') <> %t then pause,end
if getlanguage() <> 'fr_FR' then pause,end
if setdefaultlanguage('en_US') <> %t then pause,end
if getlanguage() <> 'en_US' then pause,end
if setdefaultlanguage('fr_FR') <> %t then pause,end
if getlanguage() <> 'fr_FR' then pause,end
if setdefaultlanguage('ru_RU') <> %t then pause,end
if getlanguage() <> 'ru_RU' then pause,end
if setdefaultlanguage('zh_CN') <> %t then pause,end
if getlanguage() <> 'zh_CN' then pause,end
if setdefaultlanguage('zh_TW') <> %t then pause,end
if getlanguage() <> 'zh_TW' then pause,end
if setdefaultlanguage('C') <> %t then pause,end
if getlanguage() <> getdefaultlanguage() then pause,end
if setdefaultlanguage('') <> %t then pause,end
warning('on');
end
|
