Overview
| Comment: | Now writes out a _cbg file without ----- symbol. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ee2547fd0c4cba6dcf7b07ef764bfa9f |
| User & Date: | gawthrop@users.sourceforge.net on 1996-08-05 18:44:56.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1996-08-05
| ||
| 18:53:21 | Fixed bug passing causality from subsystems. check-in: 51c0f242ff user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 18:44:56 | Now writes out a _cbg file without ----- symbol. check-in: ee2547fd0c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 18:12:25 | Initial revision check-in: 8024abf9e9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
from [eea5ed3677]
to [10a89cce80].
| ︙ | ︙ | |||
8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.5 1996/08/05 12:01:28 peter ## The _cmp function now returns the number of ports. ## ## Revision 1.4 1996/08/05 10:14:46 peter ## Made ports appear, in order, at top of component lists ## ## Revision 1.3 1996/08/04 20:32:28 peter | > > > | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.6 1996/08/05 12:17:37 peter ## n_ports now appear in the _abg file instead. ## ## Revision 1.5 1996/08/05 12:01:28 peter ## The _cmp function now returns the number of ports. ## ## Revision 1.4 1996/08/05 10:14:46 peter ## Made ports appear, in order, at top of component lists ## ## Revision 1.3 1996/08/04 20:32:28 peter |
| ︙ | ︙ | |||
248 249 250 251 252 253 254 |
}
}
}
function write_cbg() {
# Create _cbg.fig file from _abg file - not components
if ( (fig_file)&&((object!=text)||(isa_component==0))) {
| > > > > > > > | | 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 |
}
}
}
function write_cbg() {
# Create _cbg.fig file from _abg file - not components
if ( (fig_file)&&((object!=text)||(isa_component==0))) {
if (exact_match($1,data_symbol)) {
field_1 = out_data_symbol
}
else {
field_1 = $1
}
printf field_1 >> cbg_file
for (i=2; i<=NF; i++)
printf(" %s", $i) >> cbg_file;
printf("\n") >> cbg_file
}
}
function process_fig() {
|
| ︙ | ︙ | |||
295 296 297 298 299 300 301 |
}
BEGIN {
sys_name = ARGV[1];
delete ARGV[1];
b_file = sprintf("%s_rbg.m", sys_name);
c_file = sprintf("%s_cmp.m", sys_name);
| | > | 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 |
}
BEGIN {
sys_name = ARGV[1];
delete ARGV[1];
b_file = sprintf("%s_rbg.m", sys_name);
c_file = sprintf("%s_cmp.m", sys_name);
cbg_file = sprintf("%s_cbg.fig", sys_name);
warning_f = "WARNING %s \t in fig file but not lbl file - using\n";
warning_l = "WARNING %s \t in lbl file but not fig file - ignoring\n";
warning_p = "WARNING system ports are not consecutively numbered\n";
data_symbol = "----";
out_data_symbol = "\t";
default_cr = "";
default_args = "";
delimiter = ":";
q = "\047";
terminator = "\\001";
component_regexp = "[^0-9a-zA-Z_:]";
port_regexp = "\[[0-9]*\]";
|
| ︙ | ︙ |