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.10 2000/10/13 10:56:07 peterg
## Now uses the full name from the struc file - no need to recreate.
##
## Revision 1.9 2000/10/13 09:55:09 peterg
## Changed state/input name to $4_$3
##
## Revision 1.8 2000/10/13 09:28:16 peterg
|
>
>
>
|
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.11 2000/10/13 11:07:00 peterg
## Added initialisation for state and input
##
## Revision 1.10 2000/10/13 10:56:07 peterg
## Now uses the full name from the struc file - no need to recreate.
##
## Revision 1.9 2000/10/13 09:55:09 peterg
## Changed state/input name to $4_$3
##
## Revision 1.8 2000/10/13 09:28:16 peterg
|
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
exit
fi
# Remove tmp files
rm -f mtt_in_text mtt_in_info
# Strip files
strip_comments <$textfile >mtt_text
strip_comments <$infofile >mtt_info
strip_comments <$moreinfofile >mtt_moreinfo
# Use awk to check file
awk '{
if (FILENAME=="mtt_text") {
gsub("[\t ]" ,""); # Remove whitespace
split($0,a,"=");
text[a[1]] = a[2];
|
|
|
|
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
exit
fi
# Remove tmp files
rm -f mtt_in_text mtt_in_info
# Strip files
strip_comments <$textfile | tr 'A-Z' 'a-z' >mtt_text
strip_comments <$infofile | tr 'A-Z' 'a-z' >mtt_info
strip_comments <$moreinfofile | tr 'A-Z' 'a-z' >mtt_moreinfo
# Use awk to check file
awk '{
if (FILENAME=="mtt_text") {
gsub("[\t ]" ,""); # Remove whitespace
split($0,a,"=");
text[a[1]] = a[2];
|