Overview
| Comment: | Changed SS field fudge. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
7bb3988518de64d18a3e99428c9c189c |
| User & Date: | gawthrop@users.sourceforge.net on 1998-03-26 13:03:23.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-03-26
| ||
| 14:47:43 | Addes subs and cr check-in: 080f1ef068 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 13:03:23 | Changed SS field fudge. check-in: 7bb3988518 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:00:26 | Initial revision check-in: bd2b23546d user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/awk/lbl2sympar.awk
from [f25eb93384]
to [e7f507c111].
| ︙ | ︙ | |||
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.8 1998/02/16 12:08:38 peterg ## Put back the matrix declaration ## # Revision 1.7 1997/03/18 17:25:24 peterg # Now just generates names - formatting removed. # # Revision 1.6 1996/12/07 20:02:43 peterg | > > > | 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.9 1998/02/16 16:09:57 peterg ## And taken it out again! ## ## Revision 1.8 1998/02/16 12:08:38 peterg ## Put back the matrix declaration ## # Revision 1.7 1997/03/18 17:25:24 peterg # Now just generates names - formatting removed. # # Revision 1.6 1996/12/07 20:02:43 peterg |
| ︙ | ︙ | |||
58 59 60 61 62 63 64 65 66 67 68 69 70 71 |
BEGIN {
sys_name = ARGV[1];
comment = "%";
arg_delimiter = ",";
not_an_arg = "effort flow state internal external zero 0 1";
numeric = "[0-9-]";
symbol_count = 0;
symbols = "";
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
# The following line is a bad attempt to use parameters in SS fields
| > | | | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
BEGIN {
sys_name = ARGV[1];
comment = "%";
arg_delimiter = ",";
not_an_arg = "effort flow state internal external zero 0 1";
SS_parameter = "internal external zero 0 1";
numeric = "[0-9-]";
symbol_count = 0;
symbols = "";
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
# The following line is a bad attempt to use parameters in SS fields
# It assumes that at least one SS field is an SS_parameter
if (matches(SS_parameter,$3)) {
args = $2
}
else {
args = $3;
}
n_args = split(args,arg,arg_delimiter);
for (i = 1; i <= n_args; i++) {
|
| ︙ | ︙ |