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.33 2004/08/29 03:17:02 geraint
## Vectorise sesx and sesy.
##
## Revision 1.32 2003/04/17 20:07:33 geraint
## Added rule to create _sese.m
##
## Revision 1.31 2002/09/16 08:08:00 geraint
## Merged changes from global-optimisation branch.
##
## Revision 1.30.4.1 2002/09/03 23:44:43 geraint
|
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
-
+
-
+
+
|
echo Creating $out
# Remove the old log file
rm -f mtt_r2m.log
#Header
case $rep in
ae|csex|cseo|ode|odeo|sese|sesx|sesy)
ae|csex|cseo|ode|odeo|sae|sese|sesx|sesy)
vectorise=yes
;;
*)
esac
mtt_header $1 $rep $ext > mtt_junk
#Convert from the (optimised) r file
echo >> mtt_junk
echo '## Code' >> mtt_junk
strip_comments<$1_$2.r | tr [A-Z] [a-z] |\
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/" \
|