9
10
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
|
9
10
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
|
-
+
-
+
-
+
|
# Symbolic parameters parameter conversion
# Used in lang_header
# Copyright (C) 2000 by Peter J. Gawthrop
case $2 in
zero)
strip_comments <$1_sympar.txt |\
awk '{
gawk '{
i++; printf(" %s %s = 0.0;\n", tolower($1));
}'
;;
set)
strip_comments <$1_sympar.txt |\
awk '{
gawk '{
i++; printf(" %s mttpar(%i) \t= %s;\n", i, tolower($1));
}'
;;
*)
strip_comments <$1_sympar.txt |\
awk '{
gawk '{
i++; printf(" %s %s \t= mttpar(%i%s);\n", decl, tolower($1), i, minusone);
}' decl="$3" minusone="$4"
;;
esac
|