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
|
function bad_connection(path_out,prt_out,nout,path_in,prt_in,nin)
// alert for badly connected blocks
// path_out : Path of the "from block" in scs_m
// path_in : Path of the "to block" in scs_m
//!
// Copyright INRIA
[lhs,rhs]=argn(0)
if rhs==6 then //two connected blocks
lp=mini(size(path_out,'*'),size(path_in,'*'))
k=find(path_out(1:lp)<>path_in(1:lp))
path=path_out(1:k(1)-1) // common superbloc path
path_out=path_out(k(1)) // "from" block number
path_in=path_in(k(1)) // "to" block number
if path==[] then
hilite_obj(scs_m(path_out))
if or(path_in<>path_out) then hilite_obj(scs_m(path_in)),end
message(['Hilited block(s) have connected ports ';
'with incompatible sizes';
' output port '+string(prt_out)+' size is :'+string(nout);
' input port '+string(prt_in)+' size is :'+string(nin)]);
hilite_obj(scs_m(path_out))
if or(path_in<>path_out) then hilite_obj(scs_m(path_in)),end
else
mxwin=maxi(winsid())
for k=1:size(path,'*')
hilite_obj(scs_m(path(k)))
scs_m=scs_m(path(k))(3)(8);
scs_show(scs_m,mxwin+k)
end
hilite_obj(scs_m(path_out))
if or(path_in<>path_out) then hilite_obj(scs_m(path_in)),end
message(['Hilited block(s) have connected ports ';
'with incompatible sizes';
string(prt_out)+' output port size is :'+string(nout);
string(prt_in)+' input port size is :'+string(nin)]);
for k=size(path,'*'):-1:1,xdel(mxwin+k),end
scs_m=null()
unhilite_obj(scs_m(path(1)))
end
else // connected links do not verify block contraints
if rhs==2 then
mess=prt_out;
else
mess=['Hilited block has connected ports ';
'with incompatible sizes']
end
path=path_out(1:$-1) // superbloc path
path_out=path_out($) // block number
if path==[] then
hilite_obj(scs_m(path_out))
message(mess)
hilite_obj(scs_m(path_out))
else
mxwin=maxi(winsid())
for k=1:size(path,'*')
hilite_obj(scs_m(path(k)))
scs_m=scs_m(path(k))(3)(8);
scs_show(scs_m,mxwin+k)
end
hilite_obj(scs_m(path_out))
message(mess)
for k=size(path,'*'):-1:1,xdel(mxwin+k),end
scs_m=null()
unhilite_obj(scs_m(path(1)))
end
end
function scs_show(scs_m,win)
oldwin=xget('window')
xset('window',win);xbasc()
wpar=scs_m(1)
wsiz=wpar(1)
xset('wdim',wsiz(1),wsiz(2))
[frect1,frect]=xgetech()
wdm=xget('wdim')
xsetech([-1 -1 8 8]/6,[0 0 wdm(1) wdm(2)])
drawobjs(scs_m)
|
