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
78
79
80
81
82
83
84
85
86
87
88
89
90
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2004 - Jaime Urzua
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
function outvar=editvar_get(winId)
// Simple variable editor - import data
// This file is part of sciGUI toolbox
// rev. 0.1
//
// This program is free software; you can redistribute it and/or modify
//it under the terms of the GNU General Public License as published by
//the Free Software Foundation; either version 2 of the License, or
//(at your option) any later version.
base="sciGUITable(win,"+string(winId)+",data";
varType=TCL_GetVar(base+',type)');
varni=evstr(TCL_GetVar(base+',ni)'));
varnj=evstr(TCL_GetVar(base+',nj)'));
outvar=[];
count=0; winId=progressionbar(gettext("Updating, please wait"));
select varType
case "constant" then
outvar=zeros(varni,varnj)
for j=1:varnj,
for i=1:varni,
count=modulo(count+1,100)
if count==0 then progressionbar(winId);end
outvar(i,j)=evstr(TCL_GetVar(base+','+string(i)+','+string(j)+')'))
end
end
case "boolean" then
outvar(varni,varnj)=%f;
for j=1:varnj,
for i=1:varni,
count=modulo(count+1,100)
if count==0 then progressionbar(winId);end
outvar(i,j)=convstr(TCL_GetVar(base+','+string(i)+','+string(j)+')')=='t')
end
end
case "string" then
for j=1:varnj,
for i=1:varni,
count=modulo(count+1,100)
if count==0 then progressionbar(winId);end
outvar(i,j)=TCL_GetVar(base+','+string(i)+','+string(j)+')')
end
end
case "xlssheet" then
T=emptystr(varni,varnj)
V=%nan*ones(varni,varnj)
for j=1:varnj,
for i=1:varni,
count=modulo(count+1,100)
if count==0 then progressionbar(winId);end
q=TCL_GetVar(base+','+string(i)+','+string(j)+')');
if execstr('v='+q,'errcatch')==0 then
V(i,j)=v;
else
T(i,j)=q;
end
end
end
sheetname=TCL_GetVar(base+',sheetname)')
outvar=mlist(["xlssheet","name","text","value"],sheetname,T,V)
else
if or(varType==["int8","int16","int32","uint8","uint16","uint32"]) then
execstr('outvar='+varType+'(zeros(varni,varnj))')
for j=1:varnj,
for i=1:varni,
count=modulo(count+1,100)
if count==0 then progressionbar(winId);end
q=evstr(TCL_GetVar(base+','+string(i)+','+string(j)+')'))
execstr('outvar(i,j)='+varType+'(q)')
end
end
end
end
winclose(winId);
endfunction
|
