Overview
| Comment: | Ignores symbolic ($i) crs. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
86bbc7c15d4ec3960ab21ebfdfe4d546 |
| User & Date: | gawthrop@users.sourceforge.net on 1997-03-22 15:15:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
1997-03-22
| ||
| 15:50:59 | Changed %1.0f to %d format. check-in: 9449b621f0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 15:15:44 | Ignores symbolic ($i) crs. check-in: 86bbc7c15d user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
1997-03-20
| ||
| 17:48:50 | Better _input.c file default. check-in: 28e47527b8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/awk/lbl2cr.awk from [ba5795ecc8] to [2522d5714b].
| ︙ | ︙ | |||
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.4 1996/11/09 20:38:45 peterg # Put in new lib pat # ## Revision 1.3 1996/11/04 14:51:14 peterg ## Added none to no cr list ## # Revision 1.2 1996/11/02 10:22:22 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.5 1997/03/20 12:05:31 peterg # Now just writes out the cr name. # # Revision 1.4 1996/11/09 20:38:45 peterg # Put in new lib pat # ## Revision 1.3 1996/11/04 14:51:14 peterg ## Added none to no cr list ## # Revision 1.2 1996/11/02 10:22:22 peterg |
| ︙ | ︙ | |||
42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero none";
numeric = "[0-9]";
symbol_count = 0;
symbols = "";
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
cr = $2;
first_char = substr(cr,1,1);
if ( (matches(not_a_cr,cr )==0) \
&& (match(not_a_cr,$3)==0) \
&& (match(first_char,numeric)==0) \
&& (length(cr )>0) \
&& (matches(symbols,cr ) ==0) ) {
symbol_count++;
symbols = sprintf("%s %s", symbols, cr );
}
}
| > > | 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 |
BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero none";
numeric = "[0-9]";
symbolic = "\044"; # Ascii $
symbol_count = 0;
symbols = "";
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
cr = $2;
first_char = substr(cr,1,1);
if ( (matches(not_a_cr,cr )==0) \
&& (match(not_a_cr,$3)==0) \
&& (match($3,"\\$")==0) \
&& (match(first_char,numeric)==0) \
&& (length(cr )>0) \
&& (matches(symbols,cr ) ==0) ) {
symbol_count++;
symbols = sprintf("%s %s", symbols, cr );
}
}
|
| ︙ | ︙ |