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: ab0e7342afa449722cc153adb0efae368dade32ad3d67b8e875d0ac97fccf979
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: f083225ba4 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: ab0e7342af 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: a124266869 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
# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



## 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







>
>
>







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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
# 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

















# The following horrible sed thing is to replace tab by ----
# this is because I can't get sed to recognise tabs even if FS=" ".
echo "" > $1_abg.mtt
sed 's/	/---- /'<$1_abg.fig >> $1_abg.mtt

# This is the main transformation using awk
cat $1_lbl.txt $1_abg.mtt |  awk -f $MTTPATH/trans/awk/rbg_fig2m.awk $1

rm -f $1_abg.mtt

#Create the stripped abg file
cat $1_head.fig $1_bnd.fig $1_cmp.fig> $1_sabg.fig














>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>



|
|


|












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=" ".
echo "" > $1_abg.mtt3
sed 's/	/---- /'<$1_abg.mtt2 >> $1_abg.mtt3

# This is the main transformation using awk
cat $1_lbl.txt $1_abg.mtt3 |  awk -f $MTTPATH/trans/awk/rbg_fig2m.awk $1

rm -f $1_abg.mtt

#Create the stripped abg file
cat $1_head.fig $1_bnd.fig $1_cmp.fig> $1_sabg.fig








MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]