48 lines
2.0 KiB
Tcl
48 lines
2.0 KiB
Tcl
#---------------------------------------------------------------------------
|
|
# The triple axis people love to have the command set emulate the command
|
|
# set of TASMAD as closely as possible. This is implemented through
|
|
# some scripting. This version is for the new syntax to be used with the
|
|
# new UB matrix calculaus for triple axis.
|
|
#
|
|
# Mark Koennecke, May 2005
|
|
#--------------------------------------------------------------------------
|
|
|
|
proc SplitReply { text } {
|
|
set l [split $text =]
|
|
return [string trim [lindex $l 1]]
|
|
}
|
|
|
|
source $scripthome/nxtas.tcl
|
|
source $scripthome/nxsupport.tcl
|
|
source $scripthome/tasscript.tcl
|
|
|
|
initxmlscan
|
|
|
|
#------------------------------------------------------------------------
|
|
proc wwwsics {} {
|
|
append result "<table BORDER=2>\n"
|
|
append result "<tr><th>User</th> <td>" [tasSplit [user]] "</td></tr>\n"
|
|
append result "<tr><th>Title</th> <td>"
|
|
append result [tasSplit [title]] "</td></tr>\n"
|
|
append result "<tr><th>Status</th> <td>"
|
|
append result [tasSplit [status]] "</td></tr>\n"
|
|
append result "<tr><th>Last Scan Command</th> <td>"
|
|
append result [tasSplit [lastcommand]] "</td></tr>\n"
|
|
append result "<tr><th>A1</td><td>"
|
|
append result [tasSplit [a1]] "</td><th>A2</th><td>"
|
|
append result [tasSplit [a2]] "</td></tr>\n"
|
|
append result "<tr><th>A3</td><td>"
|
|
append result [tasSplit [a3]] "</td><th>A4</th><td>"
|
|
append result [tasSplit [a4]] "</td></tr>\n"
|
|
append result "<tr><th>A5</td><td>"
|
|
append result [tasSplit [a5]] "</td><th>A6</th><td>"
|
|
append result [tasSplit [a6]] "</td></tr>\n"
|
|
append result "<tr><th>Ki</th><td>" [tasSplit [ki]] "</td>"
|
|
append result "<th>Kf</th><td>" [tasSplit [kf]] "</td>"
|
|
append result "<th>En</th><td>" [tasSplit [en]] "</td></tr>\n"
|
|
append result "<tr><th>Qh</th><td>" [tasSplit [qh]] "</td>"
|
|
append result "<th>Qk</th><td>" [tasSplit [qk]] "</td>"
|
|
append result "<th>Ql</th><td>" [tasSplit [ql]] "</td></tr>\n"
|
|
append result "</table>\n"
|
|
}
|