← Back to branch summary

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

« back to all changes in this revision

Viewing changes to macros/scicos/getparpath.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/getparpath.sci
10
10
//           with non empty rpar or ipar or states
11
11
//!
12
12
// Copyright INRIA
13
 
excluded=['IN_f','OUT_f','CLKIN_f','CLKOUT_f','CLKINV_f','CLKOUTV_f']
14
 
[lhs,rhs]=argn(0)
15
 
if rhs<2 then bpath=[],end
16
 
if rhs<3 then ppath=list(),end
17
 
for k=2:size(scs_m)
18
 
  o=scs_m(k)
19
 
  if o(1)=='Block' then
20
 
    if and(o(5)<>excluded) then
21
 
      model=o(3)
22
 
      if model(1)=='super'|model(1)=='csuper' then
23
 
        o=get_tree_elt(scs_m,[k,3,8])
24
 
        ppath=getparpath(o,[bpath k],ppath)
25
 
      else
26
 
        if model(6)<>[]|model(7)<>[]|model(8)<>[]|model(9)<>[] then
27
 
          ppath(size(ppath)+1)=[bpath k],
 
13
  excluded=['IN_f','OUT_f','CLKIN_f','CLKOUT_f','CLKINV_f','CLKOUTV_f']
 
14
  [lhs,rhs]=argn(0)
 
15
  if rhs<2 then bpath=[],end
 
16
  if rhs<3 then ppath=list(),end
 
17
  for k=1:lstsize(scs_m.objs)
 
18
    o=scs_m.objs(k)
 
19
    if typeof(o)=='Block' then
 
20
      if and(o.gui<>excluded) then
 
21
        model=o.model
 
22
        if model.sim=='super'| model.sim=='csuper' then
 
23
          o=scs_m.objs(k).model.rpar
 
24
          ppath=getparpath(o,[bpath k],ppath)
 
25
        else
 
26
          if model.state<>[] | model.dstate<>[] | ..
 
27
                model.rpar<>[] | model.ipar<>[] | model.firing<>[]  then
 
28
            ppath(size(ppath)+1)=[bpath k],
 
29
          end
28
30
        end
29
31
      end
30
32
    end
31
33
  end
32
 
end
33
 
 
34
 
 
 
34
endfunction