linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move folder tasmad

Browse Source 
r3086 | jgn | 2011-03-29 15:32:07 +1100 (Tue, 29 Mar 2011) | 1 line
This commit is contained in:
Jing Chen
2011-03-29 15:32:07 +11:00
committed by Douglas Clowes
parent e92dce3948
commit 66e3096b24
33 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
site_ansto/instrument/tas/config/tasmad/taspub_sics/taspubcom.tcl Normal file
View File

@@ -0,0 +1,47 @@
#---------------------------------------------------------------------------
# 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"
}