14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
+
+
+
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.26 2000/11/27 11:52:10 peterg
## Changed some greps to be case insensitive
##
## Revision 1.25 2000/10/14 08:50:07 peterg
## Use new mtt_header
##
## Revision 1.24 2000/10/11 09:07:53 peterg
## Vectorisation
## csex rep.
##
|
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
+
|
#Convert from the (optimised) r file
echo >> mtt_junk
echo '## Code' >> mtt_junk
strip_comments<$1_$2.r | tr [A-Z] [a-z] |\
grep -vi 'MATRIX ' |\
grep -vi 'END;' |\
grep -vi 'clear mtt' |\
grep -v '^off' |\
grep -v '^in' |\
sed \
-e "s/^mtt/ mtt/" \
-e "s/:=/=/" \
-e "s/\\$/;/" \
>> mtt_junk
|