← Back to branch summary

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

« back to all changes in this revision

Viewing changes to macros/m2sci/percent/%e2sci.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/m2sci/percent/%e2sci.sci
 
1
function [tree]=%e2sci(tree)
 
2
// Copyright INRIA
 
3
// M2SCI function
 
4
// Conversion function for Matlab extraction
 
5
// Input: tree = Matlab operation tree
 
6
// Output: tree = Scilab equivalent for tree
 
7
// Emulation function: mtlb_e()
 
8
// V.C.
 
9
 
 
10
// Global variable for M2SCI
 
11
global("varslist")
 
12
 
 
13
var=tree.operands(1)
 
14
 
 
15
// Special case for varargin/varargout
 
16
if or(var.name==["varargin","varargout"]) then
 
17
  ind=tree.operands(2)
 
18
  if type(ind)<>15 then
 
19
    tree=Variable(var.name,Infer())
 
20
  else
 
21
    if type(ind(1))==15 | ind(1).vtype<>String then
 
22
      tree.operands(2)(2)=null() // Del 'entries'
 
23
    elseif typeof(ind(1))=="cste" then 
 
24
      tree.operands(2)(2)=null() // Del 'entries'
 
25
    else
 
26
      tree.operands(2)(1)=null() // Del 'entries'
 
27
    end
 
28
  end
 
29
  return
 
30
end
 
31
 
 
32
// Extraction from cells
 
33
if var.vtype==Cell then
 
34
  tree=%e_ce2sci(tree)
 
35
  return
 
36
end
 
37
 
 
38
// Extraction from structs
 
39
if var.vtype==Struct then
 
40
  tree=%e_st2sci(tree)
 
41
  return
 
42
end
 
43
 
 
44
// Do not consider variable as a rhs...
 
45
rhs=rhs-1
 
46
 
 
47
// One index value
 
48
if rhs==1 then
 
49
  ind=tree.operands(2)
 
50
  
 
51
  // --- Recursive extraction ---
 
52
  if type(ind)==15 then
 
53
    for kind=1:lstsize(ind)
 
54
      if type(ind(kind))<>15 then
 
55
        if ind(kind).vtype==String then
 
56
          if ind(kind).value=="entries" then
 
57
            tree.operands(1).vtype=Cell
 
58
            rhs=rhs+1
 
59
            tree=%e_ce2sci(tree)
 
60
            return
 
61
          else
 
62
            tree.operands(1).vtype=Struct
 
63
            rhs=rhs+1
 
64
            tree=%e_st2sci(tree)
 
65
            return
 
66
          end
 
67
        end
 
68
      end
 
69
    end
 
70
    error("%e2sci: recursive extraction from a variable "+var.name+" of type "+string(var.vtype))
 
71
  elseif var.vtype==String then // Character string extraction
 
72
    tree=Funcall("part",1,Rhs(var,ind),tree.out)
 
73
    tree.lhs(1).dims=list(1,1)
 
74
    tree.lhs(1).type=var.type
 
75
  else // Extraction x(i)
 
76
    if var.vtype==Unknown then // Unknown type -> can be String
 
77
      tree=Funcall("mtlb_e",1,Rhs(var,ind),tree.out)
 
78
      tree.lhs(1).dims=list(Unknown,Unknown)
 
79
      tree.lhs(1).type=var.type
 
80
    else
 
81
      if typeof(ind)=="cste" then
 
82
        if ind.value==":" then
 
83
          if var.dims(1)<>Unknown & var.dims(2)<>Unknown then
 
84
            tree.out(1).dims=list(var.dims(1)*var.dims(2),1)
 
85
            tree.out(1).type=var.type
 
86
          else
 
87
            tree.out(1).dims=list(Unknown,1)
 
88
            tree.out(1).type=var.type
 
89
          end
 
90
          return
 
91
        end
 
92
      end
 
93
      
 
94
      if ind.dims(1)==1 & ind.dims(2)==1 then
 
95
        tree.out(1).dims=list(1,1)
 
96
        tree.out(1).type=var.type
 
97
      elseif var.dims(1)==1 then
 
98
        tree.out(1).dims=list(1,Unknown)
 
99
        tree.out(1).type=var.type
 
100
      elseif var.dims(2)==1 then
 
101
        tree.out(1).dims=list(Unknown,1)
 
102
        tree.out(1).type=var.type
 
103
      elseif ind.dims(2)==1 then
 
104
        tree.out(1).dims=list(Unknown,1)
 
105
        tree.out(1).type=var.type
 
106
      elseif ind.dims(1)==1 then
 
107
        tree.out(1).dims=list(1,Unknown)
 
108
        tree.out(1).type=var.type
 
109
      elseif var.dims(1)<>Unknown & var.dims(2)<>Unknown then
 
110
        tree=Operation(".''",list(tree),tree.out)
 
111
        tree.out(1).dims=list(Unknown,1)
 
112
        tree.out(1).type=var.type
 
113
      else // at leat one dimension unknown
 
114
        tree=Funcall("mtlb_e",1,Rhs(var,ind),tree.out)
 
115
        tree.lhs(1).dims=list(Unknown,Unknown)
 
116
        tree.lhs(1).type=var.type
 
117
      end
 
118
    end
 
119
  end
 
120
// More than one index value
 
121
else 
 
122
  dims=list()
 
123
  for k=2:rhs+1
 
124
    dimsum=0
 
125
    for l=1:size(tree.operands(k).dims)
 
126
      dimsum=dimsum+tree.operands(k).dims(l)
 
127
    end
 
128
    if dimsum==size(tree.operands(k).dims) // All dims are 1
 
129
      dims(k-1)=1
 
130
      if typeof(tree.operands(k))=="cste" then
 
131
        if tree.operands(k).value==":" then
 
132
          dims(k-1)=var.dims(k-1)
 
133
        end
 
134
      end
 
135
    else
 
136
      dims(k-1)=Unknown
 
137
    end
 
138
  end
 
139
 
 
140
  if var.vtype==String then // extraction in strings
 
141
    if rhs==2 then
 
142
      rhsarg=Operation("ext",list(var,tree.operands(2)),list())
 
143
      tree=Funcall("part",1,Rhs(rhsarg,tree.operands(3)),tree.out)
 
144
      tree.lhs(1).dims=list(dims(1:2))
 
145
      tree.lhs(1).type=var.type
 
146
    else
 
147
      error("%e2sci(): Extraction from strings with more than two indexes not implemented!")
 
148
    end
 
149
  else
 
150
    tree.out(1).dims=dims
 
151
    tree.out(1).type=var.type
 
152
  end
 
153
end
 
154
endfunction
 
155
 
 
156
  
 
 
b'\\ No newline at end of file'