Overview
Comment: | Now handles white space at the end of component names Converts ports lables [1:5] into [1,2,3,4,5] |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
d23e8145fd17810b24937635c26f6462 |
User & Date: | gawthrop@users.sourceforge.net on 2001-10-15 14:25:44 |
Other Links: | branch diff | manifest | tags |
Context
2001-10-15
| ||
14:27:34 | Now handles [1:N] style port labels check-in: 343c949759 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
14:25:44 |
Now handles white space at the end of component names Converts ports lables [1:5] into [1,2,3,4,5] check-in: d23e8145fd user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
14:20:27 | Now handles the cases where ny or nx or nu are zero check-in: 5a6198ec7f user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/rbg_fig2m from [8e10459648] to [c007c041f3].
︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | + + + | # 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 ## Now puts space after header fields + write _port.fig ## ## Revision 1.4 2000/09/14 08:41:51 peterg |
︙ | |||
58 59 60 61 62 63 64 65 66 67 | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | + + + + + + + + + + + + + + + + - - + + - + | # Create blank files touch $1_fig.fig 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"; for (i=2;i<=a[2];i++) str = sprintf("%s,%i", str, i); sub(/1:[0-9]*/, str, $14); } print $0 }' < $1_abg.mtt1 > $1_abg.mtt2 # The following horrible sed thing is to replace tab by ---- # this is because I can't get sed to recognise tabs even if FS=" ". |