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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
function cmplxt(istk,ni)
c!but
c etant donne le code (ou une portion de code correspondant
c a un ensemble d'"operations") d'une macro compilee de scilab
c cette fonction en retourne le nombre d'"operations" au
c niveau 1.
c!
c Copyright INRIA
integer istk(ni),cmplxt
c
parameter (nsiz=6)
integer op
c
if(ni.eq.0) then
cmplxt=0
return
endif
c
icount=0
lc=1
10 continue
if(lc.le.ni) then
op=istk(lc)
icount=icount+1
c
if(op.eq.1) then
c stackp
lc=lc+1+nsiz
goto 10
elseif(op.eq.2) then
c stackg
lc=lc+nsiz+3
goto 10
elseif(op.eq.3) then
c string
lc=lc+2+istk(lc+1)
goto 10
elseif(op.eq.4) then
c defmat
lc=lc+1
goto 10
elseif(op.eq.5) then
c allops
lc=lc+4
goto 10
elseif(op.eq.6) then
c num
lc=lc+3
goto 10
elseif(op.eq.7) then
c for
nc=istk(lc+1)
lc=lc+nc+2
nc=istk(lc)
lc=lc+1+nsiz+nc
goto 10
elseif(op.eq.8.or.op.eq.9) then
c if - while
if(istk(lc+1).gt.0) then
c ancienne version
lc=lc+2
nc=istk(lc)+istk(lc+1)+istk(lc+2)
lc=lc+3+nc
else
c nouvelle version
nc=-istk(lc+1)
lc=lc+nc
endif
goto 10
elseif(op.eq.10) then
c select
nc=istk(lc+1)
lc=lc+nc
goto 10
elseif(op.ge.12.and.op.le.15) then
c pause,break,abort,eol
lc=lc+1
goto 10
elseif(op.eq.16) then
lc=lc+2
icount=icount-1
goto 10
elseif(op.eq.18) then
lc=lc+1+nsiz
c icount=icount-1
goto 10
elseif(op.eq.19) then
lc=lc+3
c icount=icount-1
goto 10
elseif(op.ge.100) then
c matfns
lc=lc+4
goto 10
elseif(op.ge.99) then
c matfns
lc=lc+1
goto 10
else
c code errone
cmplxt=-1
write(6,'(''cmplxt : code erronne :'',i10)') op
return
endif
endif
cmplxt=icount
end
|
