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
|
function path=save_csuper(scs_m,fpath)
// given a super block definition x save_super creates a file which contains
// this super block handling macro definition
// Copyright INRIA
path=[]
scs_m=do_purge(scs_m)
x1=scs_m(1);nam=x1(2)(1);
nam=strsubst(nam,' ','_')
in=[];out=[];clkin=[];clkout=[];
bl=' '
com='/'+'/'
for k=2:size(scs_m)
o=scs_m(k)
if o(1)=='Block' then
model=o(3)
select o(5)
case 'IN_f' then
in=[in;model(3)]
case 'OUT_f' then
out=[out;model(2)]
case 'CLKIN_f' then
clkin=[clkin;model(5)]
case 'CLKOUT_f' then
clkout=[clkout;model(4)];
case 'CLKINV_f' then
clkin=[clkin;model(5)]
case 'CLKOUTV_f' then
clkout=[clkout;model(4)];
end
end
end
model=list('csuper',in,out,clkin,clkout,[],[],..
scs_m,[],'h',%f,[%f %f])
ppath=getparpath(scs_m,[])
// form text of the macro
txt=[
'function [x,y,typ]='+nam+'(job,arg1,arg2)';
'x=[];y=[],typ=[]';
'select job';
'case ''plot'' then';
' standard_draw(arg1)';
'case ''getinputs'' then';
' [x,y,typ]=standard_inputs(arg1)';
'case ''getoutputs'' then';
' [x,y,typ]=standard_outputs(arg1)';
'case ''getorigin'' then';
' [x,y]=standard_origin(arg1)';
'case ''set'' then']
if size(ppath)>0 then
t1=sci2exp(ppath,'ppath')
txt=[txt;
' '+com+' paths to updatable parameters or states'
bl(ones(size(t1,1),1))+t1;
' newpar=list();';
' for path=ppath do'
' np=size(path,''*'')'
' spath=[matrix([3*ones(1,np);8*ones(1,np);path],1,3*np)]'
' xx=get_tree_elt(arg1,spath)'+com+' get the block';
' execstr(''xxn=''+xx(5)+''(''''set'''',xx)'')'
' if ~and(xxn==xx) then '
' '+com+' parameter or states changed'
' arg1(vec2list(spath,ones(size(spath,''*''),2)))=xxn'+com+' Update'
' newpar(size(newpar)+1)=path'+com+' Notify modification'
' end'
' end';
' x=arg1'
' y=0';
' typ=newpar']
end
model(1)='csuper'
t1=sci2exp(model,'model');
txt=[
txt;
'case ''define'' then'
bl(ones(size(t1,1),1))+t1;
' gr_i=''xstringb(orig(1),orig(2),'''''+nam+''''',sz(1),sz(2),''''fill'''')'';'
' x=standard_define([2 2],model,[],gr_i)';
'end']
path=stripblanks(fpath)+'/'+nam+'.sci'
[u,err]=file('open',path,'unknown')
if err<>0 then
message(path+': Directory or file write access denied')
return
end
write(u,txt,'(a)')
file('close',u)
|
