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.7 2001/07/24 22:42:59 geraint
## Fixes problem when lbl.txt does not end with newline.
##
## Revision 1.6 2001/05/24 07:48:17 gawthrop
## Include artwork in the cbg.fig file
##
## Revision 1.5 2001/03/23 14:56:21 gawthrop
|
>
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8 2001/10/15 14:25:44 gawthrop
## Now handles white space at the end of component names
## Converts ports lables [1:5] into [1,2,3,4,5]
##
## Revision 1.7 2001/07/24 22:42:59 geraint
## Fixes problem when lbl.txt does not end with newline.
##
## Revision 1.6 2001/05/24 07:48:17 gawthrop
## Include artwork in the cbg.fig file
##
## Revision 1.5 2001/03/23 14:56:21 gawthrop
|
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
touch $1_head.fig
touch $1_cmp.fig
touch $1_port.fig
touch $1_bnd.fig
touch $1_art.fig
# Deletes trailing white space in component names
sed 's/[ ]*\\001/\\001/' < $1_abg.fig >$1_abg.mtt1
# Replace [1:5] with [1,2,3,4,5]
awk '{
if (match($14, /\[1:[0-9]*\]/)){
range = substr($14,2,length($14)-6);
split(range,a,":");
str = "1";
|
>
|
>
|
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
touch $1_head.fig
touch $1_cmp.fig
touch $1_port.fig
touch $1_bnd.fig
touch $1_art.fig
# Deletes trailing white space in component names
# and break compound objects
sed 's/[ ]*\\001/\\001/' < $1_abg.fig |\
grep -v "^6 [0-9 ]*" | grep -v "^-6$" >$1_abg.mtt1
# Replace [1:5] with [1,2,3,4,5]
awk '{
if (match($14, /\[1:[0-9]*\]/)){
range = substr($14,2,length($14)-6);
split(range,a,":");
str = "1";
|