8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
##### Model Transformation Tools #####
######################################
###############################################################
## Version control history
###############################################################
## $Log$
## Revision 1.2 2002/12/06 11:47:49 gawthrop
## Checks levels in fig file to extract genuine components
## Puts comments at top of cmp.txt file
##
## Revision 1.1 2002/12/01 14:54:39 gawthrop
## Replaces defunct abg2lbl_fig2txt
##
|
>
>
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
##### Model Transformation Tools #####
######################################
###############################################################
## Version control history
###############################################################
## $Log$
## Revision 1.3 2002/12/06 22:12:28 geraint
## Removed unique option from sort
## - prevents multiple anonymous components from existing
## - duplicate named components are caught by rbg_fig2m.awk anyway
##
## Revision 1.2 2002/12/06 11:47:49 gawthrop
## Checks levels in fig file to extract genuine components
## Puts comments at top of cmp.txt file
##
## Revision 1.1 2002/12/01 14:54:39 gawthrop
## Replaces defunct abg2lbl_fig2txt
##
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
}
remove_port_labels() {
grep -v '^\[.*\]$'
}
remove_junctions() {
grep -v '^[01]$'
}
## Create header
header > ${outfile}
## Make list of components
get_valid_components < ${infile} |\
remove_port_labels |\
remove_junctions |\
sort >> ${outfile}
|
<
<
<
<
<
|
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
}
remove_port_labels() {
grep -v '^\[.*\]$'
}
## Create header
header > ${outfile}
## Make list of components
get_valid_components < ${infile} |\
remove_port_labels |\
sort >> ${outfile}
|