← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to demos/loop_demo/Save

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/loop_demo/Save
 
1
function demo_scicos()
 
2
  funcprot(0)
 
3
  S=remove_builtins()
 
4
  load SCI/macros/scicos/lib
 
5
  load SCI/macros/scicos_blocks/lib
 
6
  deff('mode(x)','x=x')
 
7
  deff('halt()',' ')
 
8
  deff('x=lines(x)','x=0')
 
9
  getf('SCI/tests/demos/dialogs.sci')
 
10
  message=x_message
 
11
  dialog=x_dialog
 
12
 
 
13
  //recompile some Scilab function not to use builtins
 
14
  tobe_recompiled=['x_matrix';'getvalue';'scicos';'choosefile';
 
15
                   'do_addnew';'do_block';'do_color';'do_copy';
 
16
                   'do_copy_region';'do_delete';'do_delete_region';
 
17
                   'do_help';'do_move';'do_palettes';'do_replace';
 
18
                   'do_run';'do_tild';'do_view';'do_exit';'getlink';
 
19
                   'cosclick';'prt_align';'scifunc_block'];
 
20
 
 
21
  for f=tobe_recompiled'
 
22
    w=whereis(f)
 
23
    w=string(evstr(w));w=w(1)
 
24
    getf(w+f+'.sci')
 
25
  end
 
26
 
 
27
 
 
28
  sel=26 
 
29
  dialogs='demo'+string(sel)+'.dialogs'
 
30
  
 
31
  O=file('open',pathconvert(TMPDIR+'/sciout',%f,%f),'unknown')
 
32
  for dia=dialogs
 
33
    I=file('open','dialogs/'+dia,'old');
 
34
    %IO=[I,O];
 
35
    exec('SCI/demos/alldems.dem')
 
36
    file('close',I)
 
37
  end
 
38
  file('close',O)
 
39
 
 
40
  reload_builtins(S)
 
41
  
 
42
endfunction
 
43
function S=remove_builtins()
 
44
  builtins=['lines','x_message','x_dialog','x_mdialog','x_choose', ...
 
45
            'mode','xclick','xgetmouse']
 
46
  ptr=list();N=[];
 
47
  for b=builtins
 
48
    N=[N funptr(b)]
 
49
    execstr('ptr($+1)='+b)
 
50
    clearfun(b)
 
51
  end
 
52
  S=tlist(['builtins','names','number','ptr'],builtins,N,ptr)
 
53
endfunction
 
54
function reload_builtins(S)
 
55
  for k=1:size(S.names,'*')
 
56
    newfun(S.names(k),S.number(k))
 
57
  end
 
58
endfunction
 
59