11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
+
|
# Copyright (c) P.J.Gawthrop, 1997.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 1998/07/26 10:44:08 peterg
## Now strips comment lines first
##
## Revision 1.3 1998/07/25 18:27:45 peterg
## now uses the (extended with switch) sympars.txt file
##
## Revision 1.2 1998/03/22 11:13:27 peterg
## Back under RCS
##
# Revision 1.1 1997/04/16 11:37:22 peterg
# Initial revision
#
###############################################################
#Write out the variables in matlab global format
strip_comments <$1_sympars.txt |\
awk '
BEGIN{
var = "foobar";
print "global ..."
}
{i++; print tolower($1), "..."; var = $1}
{i++;
if ((i==1)&&(NF>0)) {
printf ("global");
globals_exist=1
}
if (NF>0)
printf (" ...\n %s", tolower($1));
}
END{
if (globals_exist)
print var ";" # Repeat the last variable to avoid the trailing ...
print ";"
}'
# Now invoke the standard error handling.
# mtt_error mtt_error.txt
|