Overview
| Comment: | Reduced length of parameter names: stripped leading top-level name. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
5973f7f48355e89c67110dd395c0c520 |
| User & Date: | geraint@users.sourceforge.net on 2004-01-26 10:43:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-01-26
| ||
| 10:51:27 | Add name of system to plot window. check-in: bf46e47d8e user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 10:43:35 | Reduced length of parameter names: stripped leading top-level name. check-in: 5973f7f483 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 09:50:10 | In correct row dimension for D fixed check-in: cb4d93f4e6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/struc2gnuplot_txt2wish from [b464ba8f0b] to [1d1598cc62].
| ︙ | ︙ | |||
14 15 16 17 18 19 20 |
## write header
cat <<EOF > ${out}
#!/bin/sh
# -*-tcl-*- Next line replaces shell with wish\\
exec wish "\$0" "\$@"
## main window
| | | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
## write header
cat <<EOF > ${out}
#!/bin/sh
# -*-tcl-*- Next line replaces shell with wish\\
exec wish "\$0" "\$@"
## main window
wm title . "MTT: ${sys}"
# menu bar
canvas .menubar
menubutton .menubar.file -text "File" -underline 0 -menu .menubar.file.menu
menu .menubar.file.menu
.menubar.file.menu add command -label "Open (Gnuplot template)" -underline 0 -command open_plotfile
|
| ︙ | ︙ | |||
231 232 233 234 235 236 237 |
}
EOF
## create states and outputs lists
gawk '
($1 == "state") {
| > > > | > > > | | | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 |
}
EOF
## create states and outputs lists
gawk '
($1 == "state") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "lappend xl %s\n", label
}
($1 == "output") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "lappend yl %s\n", label
}' sys=${sys} ${struc} >> ${out}
cat <<EOF >> ${out}
lappend xl Time
lappend yl Time
.parameters.list configure -listvar yl
pack .menubar -expand false -fill x -side top
|
| ︙ | ︙ | |||
257 258 259 260 261 262 263 |
## map names to column numbers
proc "get_state_column" "title" {
switch -- \$title {
EOF
gawk '($1 == "state") {
| > > > | | > > > | | | 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 |
## map names to column numbers
proc "get_state_column" "title" {
switch -- \$title {
EOF
gawk '($1 == "state") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "\t\t%s\t{ return %d }\n", label, $2+2+Ny;
}
' Ny=${Ny} sys=${sys} ${struc} >> ${out}
cat <<EOF >> ${out}
}
}
proc "get_output_column" "title" {
switch -- \$title {
EOF
gawk '($1 == "output") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "\t\t%s\t{ return %d }\n", label, $2+1;
}
' Ny=${Ny} sys=${sys} ${struc} >> ${out}
cat <<EOF >> ${out}
}
}
proc "plot" "title" {
global dimension
|
| ︙ | ︙ |