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
|
a_comma = "";
else
a_comma = ",";
endif
## Set up first line of RHS
RHS1 = sprintf("%s%s%s%s%s%s%s%s\n", ...
cr, lp, args, a_comma, cause_name, c_comma, port_name, c_comma);
## Set up rest of RHS - the input variables, causality and ports.
RHS2 = "";
for i=1:nports
RHS2 = sprintf("%s\t%s", ...
RHS2, varname(name, inbonds(i), incauses(i)));
if strcmp(cr,"")==0 # add the causality & port info
RHS2 = sprintf("%s,%s,%i", ...
RHS2, cause2name(incauses(i)), inports(i));
endif
if (i<nports) # Add a comma
RHS2 = sprintf("%s,\n",RHS2);
else
RHS2 = sprintf("%s\n",RHS2);
endif
endfor
## Set up equation
eqn = sprintf("%s := %s%s\t%s;\n", LHS, RHS1, RHS2, rp);
endfunction
|
|
|
|
|
|
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
|
a_comma = "";
else
a_comma = ",";
endif
## Set up first line of RHS
RHS1 = sprintf("%s%s%s%s%s%s%s%s", ...
cr, lp, args, a_comma, cause_name, c_comma, port_name, c_comma);
## Set up rest of RHS - the input variables, causality and ports.
RHS2 = "";
for i=1:nports
RHS2 = sprintf("%s\t%s", ...
RHS2, varname(name, inbonds(i), incauses(i)));
if strcmp(cr,"")==0 # add the causality & port info
RHS2 = sprintf("%s,%s,%i", ...
RHS2, cause2name(incauses(i)), inports(i));
endif
if (i<nports) # Add a comma
RHS2 = sprintf("%s,",RHS2);
else
RHS2 = sprintf("%s",RHS2);
endif
endfor
## Set up equation
eqn = sprintf("%s := %s%s%s;\n", LHS, RHS1, RHS2, rp);
endfunction
|