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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
//-----------------------------------------------------------------------------------------
// Tests Interface TCL
//-----------------------------------------------------------------------------------------
test=TCL_SetVar("ScalarA",1.1112)
if (test==%F) then pause,end
test=TCL_GetVar("ScalarA")
if (test<>"1.1112000000") then pause,end
//-----------------------------------------------------------------------------------------
test=TCL_SetVar("StringB","Test")
if (test==%F) then pause,end
test=TCL_GetVar("StringB")
if (test<>"Test") then pause,end
//-----------------------------------------------------------------------------------------
b=[6.1,4.1,1.1;2.1,3.1,5.1];
stringb=["6.1000000000","4.1000000000","1.1000000000";"2.1000000000","3.1000000000","5.1000000000"];
test=TCL_SetVar("B",b)
if (test==%F) then pause,end
test=TCL_GetVar('B(1,1)')
if (test<>stringb(1,1)) then pause,end
test=TCL_GetVar('B(1,2)')
if (test<>stringb(1,2)) then pause,end
test=TCL_GetVar('B(1,3)')
if (test<>stringb(1,3)) then pause,end
test=TCL_GetVar('B(2,1)')
if (test<>stringb(2,1)) then pause,end
test=TCL_GetVar('B(2,2)')
if (test<>stringb(2,2)) then pause,end
test=TCL_GetVar('B(2,3)')
if (test<>stringb(2,3)) then pause,end
test=TCL_GetVar("B")
if (test<>stringb) then pause,end
//-----------------------------------------------------------------------------------------
a=['A','B','C';'D','E','F']
test=TCL_SetVar("A",a)
if (test==%F) then pause,end
test=TCL_GetVar('A(1,1)')
if (test<>a(1,1)) then pause,end
test=TCL_GetVar('A(1,2)')
if (test<>a(1,2)) then pause,end
test=TCL_GetVar('A(1,3)')
if (test<>a(1,3)) then pause,end
test=TCL_GetVar('A(2,1)')
if (test<>a(2,1)) then pause,end
test=TCL_GetVar('A(2,2)')
if (test<>a(2,2)) then pause,end
test=TCL_GetVar('A(2,3)')
if (test<>a(2,3)) then pause,end
test=TCL_GetVar("A")
if (test<>a) then pause,end
//-----------------------------------------------------------------------------------------
|
