9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 2002/12/03 23:26:08 geraint
## Convert _cmp.txt to _sub.sh.
## Slightly edited copy of (obsolete) abg2sub_m2sh.
##
## Revision 1.4 2002/04/28 18:41:26 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
|
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 2002/12/06 12:26:34 gawthrop
## Strips comments from cmp.txt file
##
## Revision 1.1 2002/12/03 23:26:08 geraint
## Convert _cmp.txt to _sub.sh.
## Slightly edited copy of (obsolete) abg2sub_m2sh.
##
## Revision 1.4 2002/04/28 18:41:26 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
strip_comments < $1_cmp.txt | gawk -F\: '{print $1}' |\
sort -u > mtt_tmp1
# Remove all components starting with 0 or 1
grep -v '^[01]' < mtt_tmp1 > mtt_tmp4
# Get a list of all standard simple components
echo ls $MTT_LIB/comp/simple
ls $MTT_LIB/comp/simple |\
gawk '/_cause.m/{split($1,a,"_");print(a[1])}' >mtt_tmp2
# Get a list of all standard compound components
#ls $MTTPATH/comp/compound |\
# gawk '/_abg.m/{split($1,a,"_");print(a[1])}' >> mtt_tmp2
|
|
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
strip_comments < $1_cmp.txt | gawk -F\: '{print $1}' |\
sort -u > mtt_tmp1
# Remove all components starting with 0 or 1
grep -v '^[01]' < mtt_tmp1 > mtt_tmp4
# Get a list of all standard simple components
# echo ls $MTT_LIB/comp/simple
ls $MTT_LIB/comp/simple |\
gawk '/_cause.m/{split($1,a,"_");print(a[1])}' >mtt_tmp2
# Get a list of all standard compound components
#ls $MTTPATH/comp/compound |\
# gawk '/_abg.m/{split($1,a,"_");print(a[1])}' >> mtt_tmp2
|