← Back to branch summary

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

« back to all changes in this revision

Viewing changes to macros/scicos/systexport.sci

  • 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:
macros/scicos/systexport.sci
1
1
function systexport(scs_m,exp_dir)
2
 
//xbasc()
3
2
// Copyright INRIA
4
 
if getenv('WIN32','NO')=='OK' then
5
 
  do_export(scs_m,exp_dir+'\'+scs_m(1)(2)(1))
6
 
else
7
 
  do_export(scs_m,exp_dir+'/'+scs_m(1)(2)(1))
8
 
end
9
 
nx=size(scs_m)
10
 
for k=2:nx
11
 
  o=scs_m(k)
12
 
  if o(1)=='Block' then
13
 
    model=o(3)
14
 
    if model(1)=='super' then
15
 
//      win=win+1
16
 
      systexport(model(8),exp_dir)
 
3
  if getenv('WIN32','NO')=='OK' then
 
4
    do_export(scs_m,exp_dir+'\'+scs_m.props.title(1))
 
5
  else
 
6
    do_export(scs_m,exp_dir+'/'+scs_m.props.title(1))
 
7
  end
 
8
 
 
9
  for k=1:lstsize(scs_m.objs)
 
10
    o=scs_m.objs(k)
 
11
    if typeof(o)=='Block' then
 
12
      model=o.model
 
13
      if model.sim=='super' then
 
14
        systexport(model.rpar,exp_dir) 
 
15
      end
17
16
    end
18
17
  end
19
 
end
20
 
 
21
 
 
 
18
endfunction