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
|
function demo_scicos()
funcprot(0)
S=remove_builtins()
load SCI/macros/scicos/lib
load SCI/macros/scicos_blocks/lib
deff('mode(x)','x=x')
deff('halt()',' ')
deff('x=lines(x)','x=0')
getf('SCI/tests/demos/dialogs.sci')
message=x_message
dialog=x_dialog
//recompile some Scilab function not to use builtins
tobe_recompiled=['x_matrix';'getvalue';'scicos';'choosefile';
'do_addnew';'do_block';'do_color';'do_copy';
'do_copy_region';'do_delete';'do_delete_region';
'do_help';'do_move';'do_palettes';'do_replace';
'do_run';'do_tild';'do_view';'do_exit';'getlink';
'cosclick';'prt_align';'scifunc_block'];
for f=tobe_recompiled'
w=whereis(f)
w=string(evstr(w));w=w(1)
getf(w+f+'.sci')
end
sel=26
dialogs='demo'+string(sel)+'.dialogs'
O=file('open',pathconvert(TMPDIR+'/sciout',%f,%f),'unknown')
for dia=dialogs
I=file('open','dialogs/'+dia,'old');
%IO=[I,O];
exec('SCI/demos/alldems.dem')
file('close',I)
end
file('close',O)
reload_builtins(S)
endfunction
function S=remove_builtins()
builtins=['lines','x_message','x_dialog','x_mdialog','x_choose', ...
'mode','xclick','xgetmouse']
ptr=list();N=[];
for b=builtins
N=[N funptr(b)]
execstr('ptr($+1)='+b)
clearfun(b)
end
S=tlist(['builtins','names','number','ptr'],builtins,N,ptr)
endfunction
function reload_builtins(S)
for k=1:size(S.names,'*')
newfun(S.names(k),S.number(k))
end
endfunction
|
