87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
-
+
|
return [reverse_sort \$list]
}
}
EOF
## create states and outputs lists
awk '
gawk '
($1 == "state") {
printf "lappend xl state:%s\n", $4
}
($1 == "output") {
printf "lappend yl output:%s\n", $4
}' ${struc} >> ${out}
|
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
-
+
|
pack .quit -expand false -fill x -side right
pack .print -expand false -fill x -side right
## map names to column numbers
EOF
awk '
gawk '
BEGIN {
print "proc \"plot\" \"title\" {";
}
($1 == "state") {
printf "if (\"%s\"==\"state:%s\") { plot_var \"%s\" %d }\n", Title, $4, $4, $2+2+Ny;
}
($1 == "output") {
|