Moved to hipadaba directory.
r1242 | ffr | 2006-11-07 12:20:07 +1100 (Tue, 07 Nov 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
committed by
Douglas Clowes
Douglas Clowes
parent
a8ba8b89cb
commit
899aaa90d5
@@ -1,9 +0,0 @@
|
|||||||
server_config.tcl
|
|
||||||
utility.tcl
|
|
||||||
troubleShoot.tcl
|
|
||||||
dmc2280_util.tcl
|
|
||||||
hipadaba_support.tcl
|
|
||||||
motorinfo.tcl
|
|
||||||
ParList.tcl
|
|
||||||
getDMCprog.tcl
|
|
||||||
putDMCprog.tcl
|
|
||||||
@@ -1,41 +0,0 @@
|
|||||||
set countParList [list \
|
|
||||||
setpreset \
|
|
||||||
getpreset \
|
|
||||||
setexponent \
|
|
||||||
getexponent \
|
|
||||||
setmode \
|
|
||||||
getmode \
|
|
||||||
setexponent \
|
|
||||||
getcounts \
|
|
||||||
getmonitor \
|
|
||||||
count \
|
|
||||||
status \
|
|
||||||
gettime \
|
|
||||||
getthreshold \
|
|
||||||
setthreshold \
|
|
||||||
send \
|
|
||||||
]
|
|
||||||
|
|
||||||
set motParList [list \
|
|
||||||
accesscode \
|
|
||||||
failafter \
|
|
||||||
fixed \
|
|
||||||
hardlowerlim \
|
|
||||||
hardupperlim \
|
|
||||||
ignorefault \
|
|
||||||
interruptmode \
|
|
||||||
maxretry \
|
|
||||||
movecount \
|
|
||||||
precision \
|
|
||||||
sign \
|
|
||||||
softlowerlim \
|
|
||||||
softupperlim \
|
|
||||||
softzero \
|
|
||||||
accel \
|
|
||||||
decel \
|
|
||||||
home \
|
|
||||||
maxaccel \
|
|
||||||
maxdecel \
|
|
||||||
maxspeed \
|
|
||||||
speed \
|
|
||||||
]
|
|
||||||
Binary file not shown.
@@ -1,105 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
# $Revision: 1.6 $
|
|
||||||
# $Date: 2006-10-31 03:55:24 $
|
|
||||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
||||||
# Last revision by $Author: ffr $
|
|
||||||
|
|
||||||
# Deploys SICServer and configuration files to
|
|
||||||
# an instrument control computer.
|
|
||||||
# It requires a MANIFEST.TXT file for each instrument
|
|
||||||
|
|
||||||
usage()
|
|
||||||
{
|
|
||||||
echo deploySICS.sh copies SICS and the files listed
|
|
||||||
echo in the MANIFEST.TXT files to the IC host.
|
|
||||||
echo -e "Usage:\t./deploySICS.sh INSTRUMENT [TARGET_HOST TARGET_DIR]";
|
|
||||||
echo -e "\t./deploySICS.sh test/INSTRUMENT [TARGET_HOST TARGET_DIR]";
|
|
||||||
echo -e "\twhere INSTRUMENT can be hrpd, echidna, hipd, wombat ...";
|
|
||||||
echo -e "\tTARGET_HOST can be a remote host or 'localhost'";
|
|
||||||
echo -e "\twill create last directory in TARGET_DIR if necessary";
|
|
||||||
}
|
|
||||||
|
|
||||||
if [ $# -eq 0 -o $# -eq 2 -o $# -gt 3 ]
|
|
||||||
then
|
|
||||||
usage
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
|
|
||||||
|
|
||||||
INSTRUMENT=$1
|
|
||||||
|
|
||||||
SRCDIR=./
|
|
||||||
DESTDIR=${3:-/usr/local/}
|
|
||||||
mkdir -p ~/tmp/$DESTDIR
|
|
||||||
rm -fr ~/tmp/$DESTDIR/*
|
|
||||||
|
|
||||||
# Set the destination host and the
|
|
||||||
# instrument src directory
|
|
||||||
case $INSTRUMENT in
|
|
||||||
hrpd|echidna)
|
|
||||||
DESTHOST=${2:-ics1-echidna.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=hrpd;;
|
|
||||||
hipd|wombat)
|
|
||||||
DESTHOST=${2:-ics1-wombat.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=hipd;;
|
|
||||||
qld|koala)
|
|
||||||
DESTHOST=${2:-ics1-koala.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=qld;;
|
|
||||||
reflectometer|platypus)
|
|
||||||
DESTHOST=${2:-ics1-platypus.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=reflectometer;;
|
|
||||||
rsd|kowari)
|
|
||||||
DESTHOST=${2:-ics1-kowari.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=qld;;
|
|
||||||
sans|quokka)
|
|
||||||
DESTHOST=${2:-ics1-quokka.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=sans;;
|
|
||||||
tas|taipan)
|
|
||||||
DESTHOST=${2:-ics1-taipan.nbi.ansto.gov.au}
|
|
||||||
INSTSRC=tas;;
|
|
||||||
test/*)
|
|
||||||
#copy TEST_SICS/fakeDMC
|
|
||||||
#TESTSRC=TEST_SICS
|
|
||||||
cp -a TEST_SICS/* ~/tmp/$DESTDIR
|
|
||||||
rm -fr $(find ~/tmp/$DESTDIR -name CVS)
|
|
||||||
DESTHOST=$2
|
|
||||||
INSTSRC=$(basename $INSTRUMENT);;
|
|
||||||
esac
|
|
||||||
|
|
||||||
echo $DESTHOST
|
|
||||||
if [ $DESTHOST = "localhost" ]
|
|
||||||
then
|
|
||||||
EXTRACT="tar vxz -C /"
|
|
||||||
else
|
|
||||||
EXTRACT="ssh $DESTHOST tar vxz -C /"
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ ! -e $SRCDIR/MANIFEST.TXT ]
|
|
||||||
then
|
|
||||||
echo "$SRCDIR/MANIFEST.TXT not found"
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
if [ ! -e $INSTSRC/MANIFEST.TXT ]
|
|
||||||
then
|
|
||||||
echo "$INSTSRC/MANIFEST.TXT not found"
|
|
||||||
echo "You must list the files required for $INSTRUMENT in the manifest"
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
|
|
||||||
# Get list of files to copy
|
|
||||||
COMMON=$(for f in $(cat $SRCDIR/MANIFEST.TXT); do echo -n "$SRCDIR/$f "; done)
|
|
||||||
INSTSPEC=$(for f in $(cat $INSTSRC/MANIFEST.TXT); do echo -n "$INSTSRC/$f "; done)
|
|
||||||
|
|
||||||
mkdir -p ~/tmp/$DESTDIR/sics/{server,data,log,tmp}
|
|
||||||
cp $COMMON $INSTSPEC ~/tmp/$DESTDIR/sics/server
|
|
||||||
cp ../SICServer ~/tmp/$DESTDIR/sics/server
|
|
||||||
|
|
||||||
# Create a manifest of the files installed on the IC host
|
|
||||||
echo "Date: $(date -Iminutes)" > ~/tmp/$DESTDIR/sics/server/MANIFEST.TXT
|
|
||||||
echo -e "The following files were installed by $USER\n" >> ~/tmp/$DESTDIR/sics/server/MANIFEST.TXT
|
|
||||||
cat $SRCDIR/MANIFEST.TXT $INSTSRC/MANIFEST.TXT >> ~/tmp/$DESTDIR/sics/server/MANIFEST.TXT
|
|
||||||
|
|
||||||
cd ~/tmp/
|
|
||||||
|
|
||||||
# Strip leading / from DESTDIR and extract to destination
|
|
||||||
tar -cz ${DESTDIR:1} | $EXTRACT
|
|
||||||
@@ -1,71 +0,0 @@
|
|||||||
# $Revision: 1.4 $
|
|
||||||
# $Date: 2006-10-09 03:12:08 $
|
|
||||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
||||||
# Last revision by $Author: ffr $
|
|
||||||
|
|
||||||
# globals controller, channel
|
|
||||||
|
|
||||||
# Open a communications channel to a dmc2280 motor controller
|
|
||||||
# contName: controller name, eg dmc2280_controller1
|
|
||||||
# The host and port in the SICS configuration file will be used by default
|
|
||||||
proc dmc_connect {contName {host ""} {port ""}} {
|
|
||||||
upvar #0 $contName controller;
|
|
||||||
global channel;
|
|
||||||
|
|
||||||
if {$host == ""} {set host $controller(host)}
|
|
||||||
if {$port == ""} {set port $controller(port)}
|
|
||||||
|
|
||||||
if [catch {socket $host $port} con] {
|
|
||||||
error "Failed to connect to $contName IP($host) port($port)\n\
|
|
||||||
$con\n
|
|
||||||
Is the motor controller switched on? Are the network cables plugged in?\n
|
|
||||||
NOTE: You can only have a maximum of eight connections per motor controller.\n
|
|
||||||
If there are other programs (eg SICS) connected to the controller then all\n
|
|
||||||
of the available connections may have been used up."
|
|
||||||
}
|
|
||||||
set controller(socket) $con
|
|
||||||
set channel($contName) $con
|
|
||||||
set channel($con) $contName
|
|
||||||
set channel($controller(host)) $con
|
|
||||||
fconfigure $con -buffering line -translation crlf -blocking true
|
|
||||||
}
|
|
||||||
|
|
||||||
proc dmc_close {dmc_socket} {
|
|
||||||
close $dmc_socket;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Send a dmc2280 command
|
|
||||||
proc dmc_sendCmd {dmc_socket cmd} {
|
|
||||||
global channel
|
|
||||||
set contName $channel($dmc_socket);
|
|
||||||
upvar #0 $contName controller
|
|
||||||
puts $dmc_socket $cmd
|
|
||||||
set status [read $dmc_socket 1]
|
|
||||||
if {$status == "?"} {
|
|
||||||
puts $dmc_socket "TC 1"
|
|
||||||
set status [read $dmc_socket 1]
|
|
||||||
if {$status == "?"} {
|
|
||||||
error "error: dmc command $cmd failed"
|
|
||||||
} else {
|
|
||||||
set dmcError [dmc_receive $dmc_socket]
|
|
||||||
set errInfo "DM2280 controller $contName
|
|
||||||
host $controller(host)
|
|
||||||
port $controller(port)"
|
|
||||||
error "DMC2280 ERROR $dmcError: when running command $cmd\n$errInfo"
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
return $status
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Receive a dmc2280 command
|
|
||||||
proc dmc_receive {dmc_socket} {
|
|
||||||
global channel
|
|
||||||
set contName $channel($dmc_socket);
|
|
||||||
upvar #0 $contName controller
|
|
||||||
gets $dmc_socket line
|
|
||||||
# Consume the following colon
|
|
||||||
read $dmc_socket 1
|
|
||||||
return $line
|
|
||||||
}
|
|
||||||
|
|
||||||
@@ -1,83 +0,0 @@
|
|||||||
#TODO Version stamp this code and write the version number to the generated code
|
|
||||||
# axis = A B C D E F
|
|
||||||
# encodercounts = number of encoder counts per revolution
|
|
||||||
# quadcounts = number of quadrature counts per revolution
|
|
||||||
# tolquadcounts = tolerance in quadrature counts
|
|
||||||
proc genMOVE {axis encodercounts quadcounts tolquadcounts} {
|
|
||||||
puts "NO CLOSE MOTION LOOP FOR ${axis} AXIS
|
|
||||||
NO If the motor is within ${axis}TOLQC quadrature counts of the target
|
|
||||||
NO position then adjust it.
|
|
||||||
${axis}DIFF=${axis}QTARGET - _TP${axis}
|
|
||||||
IF ( ((100*${axis}TOLQC) > @ABS\[${axis}DIFF\]) & (@ABS\[${axis}DIFF\] > ${axis}TOLQC) )
|
|
||||||
${axis}SHLDFIX=1
|
|
||||||
ELSE
|
|
||||||
${axis}SHLDFIX=0
|
|
||||||
ENDIF
|
|
||||||
IF (${axis}FIXPOS=1)
|
|
||||||
${axis}OLDQT=${axis}QTARGET
|
|
||||||
${axis}count=10
|
|
||||||
SH${axis}
|
|
||||||
#${axis}LOOP
|
|
||||||
NO Abort if target position changes
|
|
||||||
IF (${axis}OLDQT <> ${axis}QTARGET)
|
|
||||||
JP#${axis}ENDCLP
|
|
||||||
ENDIF
|
|
||||||
${axis}count=${axis}count-1
|
|
||||||
PR${axis}=${encodercounts}*(${axis}DIFF/${quadcounts})
|
|
||||||
IF (_SP${axis}>${axis}MINSP)
|
|
||||||
SP${axis}=@ABS\[_PR${axis}\]/2.0
|
|
||||||
IF (_SP${axis} < ${axis}MINSP)
|
|
||||||
SP${axis}=${axis}MINSP
|
|
||||||
ENDIF
|
|
||||||
IF (_SP${axis} > ${axis}MAXSP)
|
|
||||||
SP${axis}=${axis}MAXSP
|
|
||||||
ENDIF
|
|
||||||
ENDIF
|
|
||||||
BG${axis}
|
|
||||||
MC${axis}
|
|
||||||
${axis}DIFF=${axis}QTARGET - _TP${axis}
|
|
||||||
IF ( ((100*${axis}TOLQC) > @ABS\[${axis}DIFF\]) & (@ABS\[${axis}DIFF\] > ${axis}TOLQC) )
|
|
||||||
JP#${axis}LOOP,${axis}count>0
|
|
||||||
ENDIF
|
|
||||||
#${axis}ENDCLP
|
|
||||||
NO Restore speed to maximum
|
|
||||||
${axis}FIXPOS=0
|
|
||||||
${axis}SHLDFIX=0
|
|
||||||
SP${axis}=${axis}MAXSP
|
|
||||||
ENDIF"
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
# Generate subroutine to start the servo loop thread
|
|
||||||
puts "#CLSLOOP"
|
|
||||||
set tolquadcounts 1
|
|
||||||
set encodercounts 25000
|
|
||||||
set quadcounts 8192
|
|
||||||
puts "NO Initilise tolerance, max and min speeds
|
|
||||||
ATOLQC=100
|
|
||||||
AMAXSP=${encodercounts}
|
|
||||||
AMINSP=100*(${encodercounts}/93207)
|
|
||||||
AFIXPOS=0"
|
|
||||||
foreach {axis} {B C D E F} {
|
|
||||||
puts "${axis}TOLQC=${tolquadcounts}
|
|
||||||
${axis}MAXSP=${encodercounts}
|
|
||||||
${axis}MINSP=100*(${encodercounts}/$quadcounts)
|
|
||||||
${axis}FIXPOS=0"
|
|
||||||
}
|
|
||||||
foreach {axis} {A B C D E F} {
|
|
||||||
puts "${axis}DIFF=${axis}QTARGET - _TP${axis}
|
|
||||||
IF ( ((100*${axis}TOLQC) > @ABS\[${axis}DIFF\]) & (@ABS\[${axis}DIFF\] > ${axis}TOLQC) )
|
|
||||||
${axis}SHLDFIX=1
|
|
||||||
ELSE
|
|
||||||
${axis}SHLDFIX=0
|
|
||||||
ENDIF"
|
|
||||||
}
|
|
||||||
puts "XQ#SERVOLP,1
|
|
||||||
EN"
|
|
||||||
# Generate servo loop
|
|
||||||
puts "#SERVOLP"
|
|
||||||
genMOVE A $encodercounts -93165 $tolquadcounts
|
|
||||||
foreach {axis} {B C D E F} {
|
|
||||||
genMOVE $axis $encodercounts $quadcounts $tolquadcounts
|
|
||||||
}
|
|
||||||
puts "JP#SERVOLP"
|
|
||||||
@@ -1,30 +0,0 @@
|
|||||||
proc move_away_from_switch {axis} {
|
|
||||||
puts "NOTE Move slit forward 10mm if it is against the reverse limit switch
|
|
||||||
IF ((_TS${axis} & 4) = 0)
|
|
||||||
SH${axis}
|
|
||||||
PR${axis}=200000
|
|
||||||
BG${axis}
|
|
||||||
ENDIF"
|
|
||||||
}
|
|
||||||
|
|
||||||
puts "#HOME"
|
|
||||||
foreach {axis} {E F G H} {
|
|
||||||
move_away_from_switch $axis
|
|
||||||
}
|
|
||||||
puts "AM"
|
|
||||||
puts "NOTE Drive all slits into reverse limit switch"
|
|
||||||
puts "SH
|
|
||||||
JG ,,,,-25000,-25000,-25000,-25000
|
|
||||||
BGEFGH
|
|
||||||
AM"
|
|
||||||
puts "NOTE Move away from switches by 2mm and drive back slowly"
|
|
||||||
puts "PR ,,,,40000,40000,40000,40000
|
|
||||||
JG ,,,,-5000,-5000,-5000,-5000
|
|
||||||
BGEFGH
|
|
||||||
AM"
|
|
||||||
puts "NOTE Move forward from switch by 2mm and set zero"
|
|
||||||
puts "PR ,,,,40000,40000,40000,40000
|
|
||||||
BGEFGH
|
|
||||||
AM
|
|
||||||
DP ,,,,0,0,0,0"
|
|
||||||
puts "EN"
|
|
||||||
@@ -1,36 +0,0 @@
|
|||||||
#!/usr/bin/tclsh
|
|
||||||
# DMC2280 uses cont-Z (hex 1a) as the EOF char
|
|
||||||
# Usage:
|
|
||||||
# ./getDMCprog.tcl -host dmcIP -port dmcPort > dmcprog.txt
|
|
||||||
# To fetch the code from the dmc2280 controller at dmcIP and
|
|
||||||
# write it to dmcprog.txt, dmcPort should be 1034.
|
|
||||||
# Note: Your computer must be on the same NBI vlan as the dmc
|
|
||||||
# controller for this to work. However you can use ssh port
|
|
||||||
# forwarding to work remotely.
|
|
||||||
|
|
||||||
# On your computer run the following ssh command,
|
|
||||||
# ssh -L 1034:dmcIP:1034 sicsHostIP -lroot
|
|
||||||
# Then send the code with
|
|
||||||
# ./getDMCprog.tcl -host localhost -port 1034 > dmcprog.txt
|
|
||||||
|
|
||||||
array set args $argv
|
|
||||||
|
|
||||||
set con4 [socket $args(-host) $args(-port)]
|
|
||||||
fconfigure $con4 -buffering line -translation crlf -eofchar \x1a
|
|
||||||
|
|
||||||
proc Echo {chan } {
|
|
||||||
global forever
|
|
||||||
|
|
||||||
if {[eof $chan]} {
|
|
||||||
# A rude exit works best. Closing the socket and terminating the forever loop is unreliable
|
|
||||||
exit
|
|
||||||
#close $chan
|
|
||||||
#set forever done
|
|
||||||
} else {
|
|
||||||
puts [gets $chan]
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
fileevent $con4 readable [list Echo $con4]
|
|
||||||
puts $con4 UL
|
|
||||||
vwait forever
|
|
||||||
@@ -1,30 +0,0 @@
|
|||||||
source ParList.tcl
|
|
||||||
|
|
||||||
proc makeHdbCounter {root treename sicsname} {
|
|
||||||
global countParList;
|
|
||||||
append Name $root "/" $treename
|
|
||||||
eval hmake $Name spy none
|
|
||||||
foreach par $countParList {
|
|
||||||
set parName [format "%s/%s" $Name $par]
|
|
||||||
eval hmakescript $parName \"$sicsname $par\" \"$sicsname $par\" float
|
|
||||||
}
|
|
||||||
}
|
|
||||||
proc makeHdbMotor {root treename sicsname} {
|
|
||||||
global motParList;
|
|
||||||
append motName $root "/" $treename
|
|
||||||
eval hmake $motName spy none
|
|
||||||
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
||||||
foreach par $motParList {
|
|
||||||
set parName [format "%s/%s" $motName $par]
|
|
||||||
eval hmakescript $parName \"$sicsname $par\" \"$sicsname $par\" float
|
|
||||||
}
|
|
||||||
}
|
|
||||||
proc makeHdbVirtMotor {root treename sicsname} {
|
|
||||||
append motName $root "/" $treename
|
|
||||||
eval hmake $motName spy none
|
|
||||||
eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float
|
|
||||||
}
|
|
||||||
#------------------------------------------------------------------------
|
|
||||||
proc hdbReadOnly {} {
|
|
||||||
error "Parameter is READ ONLY"
|
|
||||||
}
|
|
||||||
@@ -1,19 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
# Creates a tarball containing a SICS server distribution for a given instrument.
|
|
||||||
serverHome=Server
|
|
||||||
mkdir -p INST_TMP/SICS
|
|
||||||
rm -fr INST_TMP/SICS/*
|
|
||||||
mkdir INST_TMP/SICS/log
|
|
||||||
mkdir INST_TMP/SICS/tmp
|
|
||||||
mkdir INST_TMP/SICS/$serverHome
|
|
||||||
mkdir INST_TMP/SICS/data
|
|
||||||
touch INST_TMP/SICS/data/DataNumber
|
|
||||||
cp $serverHome/${serverHome}Configuration.tcl INST_TMP/SICS/$serverHome
|
|
||||||
cp $serverHome/${serverHome}.hdd INST_TMP/SICS/$serverHome
|
|
||||||
cp ../SICServer INST_TMP/SICS/$serverHome
|
|
||||||
cp dmc2280.tcl INST_TMP/SICS/$serverHome
|
|
||||||
cp ../../sycFormat.tcl INST_TMP/SICS/$serverHome
|
|
||||||
cd INST_TMP
|
|
||||||
tar -czf ../$serverHome.tgz SICS
|
|
||||||
cd -
|
|
||||||
rm -fr INST_TMP
|
|
||||||
@@ -1,82 +0,0 @@
|
|||||||
package require Tk
|
|
||||||
|
|
||||||
proc unknown {args} {}
|
|
||||||
|
|
||||||
# Check that the current position matches the configured home position
|
|
||||||
proc checkHome {motor} {
|
|
||||||
global channel
|
|
||||||
upvar #0 $motor motName
|
|
||||||
upvar #0 ${motor}_status motStatus
|
|
||||||
set chan $channel($motName(host))
|
|
||||||
if {[info exists motName(absenc)] && $motName(absenc) == 1} {
|
|
||||||
dmc_sendCmd $chan "TP$motName(axis)"
|
|
||||||
set homeIndex absenchome
|
|
||||||
} else {
|
|
||||||
dmc_sendCmd $chan "TD$motName(axis)"
|
|
||||||
set homeIndex motorhome
|
|
||||||
}
|
|
||||||
set home [dmc_receive $chan]
|
|
||||||
set motStatus(position) $home
|
|
||||||
set motStatus(home) $motName($homeIndex)
|
|
||||||
if {$home == $motName($homeIndex)} {
|
|
||||||
set motStatus(homeTest) TEST_PASSED
|
|
||||||
} else {
|
|
||||||
set motStatus(homeTest) TEST_FAILED
|
|
||||||
}
|
|
||||||
return $motStatus(homeTest)
|
|
||||||
}
|
|
||||||
|
|
||||||
# This implementation of the "Motor" command stores the
|
|
||||||
# configured motor parameters in an array named
|
|
||||||
# after the motor.
|
|
||||||
proc Motor {name type par} {
|
|
||||||
global motors
|
|
||||||
upvar #0 $par arr
|
|
||||||
upvar #0 $name param_arr
|
|
||||||
upvar #0 ${name}_status status
|
|
||||||
array set param_arr [array get arr]
|
|
||||||
array set status [list position "" home "" upperLim "" lowerLim "" homeTest NOTDONE limitTest NOTDONE]
|
|
||||||
lappend motors $name
|
|
||||||
}
|
|
||||||
|
|
||||||
# Returns the test result status colour for the gui
|
|
||||||
proc color {status} {
|
|
||||||
switch $status {
|
|
||||||
TEST_PASSED {return green}
|
|
||||||
TEST_FAILED {return red}
|
|
||||||
default {return lightgrey}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# You can easily test the home position of individual motors
|
|
||||||
# with this gui
|
|
||||||
# Click on the button to run the checkHome command, the position
|
|
||||||
# (in encoder counts or motor steps) will be displayed with
|
|
||||||
# green if the configured home matches the reported position,
|
|
||||||
# red otherwise.
|
|
||||||
proc testgui {} {
|
|
||||||
package require Tk
|
|
||||||
global motors
|
|
||||||
toplevel .w
|
|
||||||
frame .w.top
|
|
||||||
|
|
||||||
foreach m $motors {
|
|
||||||
global ${m}_status
|
|
||||||
set info($m) [frame .w.top.f$m]
|
|
||||||
|
|
||||||
set testResult $info($m).e$m
|
|
||||||
button $info($m).$m -text $m -command "$testResult configure -background \[color \[checkHome $m\]\]"
|
|
||||||
entry $testResult -textvariable ${m}_status(position)
|
|
||||||
pack $info($m).$m -side left
|
|
||||||
pack $info($m).e$m -side left
|
|
||||||
}
|
|
||||||
|
|
||||||
set n 0
|
|
||||||
foreach m $motors {
|
|
||||||
set r [expr $n % 20]
|
|
||||||
set c [expr $n / 20]
|
|
||||||
grid $info($m) -row $r -column $c
|
|
||||||
incr n
|
|
||||||
}
|
|
||||||
pack .w.top
|
|
||||||
}
|
|
||||||
@@ -1,60 +0,0 @@
|
|||||||
#!/usr/bin/tclsh
|
|
||||||
# NOTE: If any threads are running this will fail, kill all threads
|
|
||||||
# by sending an HX command to the controller.
|
|
||||||
# DMC2280 uses cont-Z (hex 1a) as the EOF char
|
|
||||||
# Usage:
|
|
||||||
# ./putDMCprog.tcl -host dmcIP -port dmcPort -file dmcprog.txt
|
|
||||||
# To send the code in dmcprog.txt to the dmc2280 controller at
|
|
||||||
# dmCIP:dmcPort, dmcPort should be 1034.
|
|
||||||
# Note: Your computer must be on the same NBI vlan as the dmc
|
|
||||||
# controller for this to work. However you can use ssh port
|
|
||||||
# forwarding to work remotely.
|
|
||||||
|
|
||||||
# On your computer run the following ssh command,
|
|
||||||
# ssh -L 1034:dmcIP:1034 sicsHostIP -lroot
|
|
||||||
# Then send the code with
|
|
||||||
# ./putDMCprog.tcl -host localhost -port 1034 -file dmcprog.txt
|
|
||||||
|
|
||||||
# NOTE:
|
|
||||||
# It takes the controller about 0.5msec to process a command
|
|
||||||
# so we sleep 1msec between sends to guarantee the DMC2280 FIFO doesn't overflow.
|
|
||||||
|
|
||||||
array set cmdln_opts $argv
|
|
||||||
|
|
||||||
set dmcIP $cmdln_opts(-host)
|
|
||||||
set dmcPORT $cmdln_opts(-port)
|
|
||||||
set controller [socket $dmcIP $dmcPORT]
|
|
||||||
fconfigure $controller -buffering line -translation crlf -eofchar \x1a
|
|
||||||
|
|
||||||
# sleep time msec
|
|
||||||
proc sleep {time} {
|
|
||||||
global end
|
|
||||||
after $time set end 1
|
|
||||||
vwait end
|
|
||||||
}
|
|
||||||
sleep 500
|
|
||||||
puts "Opening $cmdln_opts(-file)"
|
|
||||||
set fh [open $cmdln_opts(-file)]
|
|
||||||
|
|
||||||
puts -nonewline $controller "DL;"
|
|
||||||
sleep 500
|
|
||||||
while {[gets $fh line] >=0} {
|
|
||||||
puts "Sending $line"
|
|
||||||
sleep 50
|
|
||||||
puts $controller $line
|
|
||||||
}
|
|
||||||
|
|
||||||
sleep 500
|
|
||||||
puts $controller "\x1a"
|
|
||||||
sleep 500
|
|
||||||
|
|
||||||
puts "\nBIG IMPORTANT NOTE"
|
|
||||||
puts "If the transfer succeeded you must burn the program manually."
|
|
||||||
puts "eg, Using telnet do,"
|
|
||||||
puts "telnet $dmcIP $dmcPORT"
|
|
||||||
puts "After connecting press enter and you should see a ':' prompt."
|
|
||||||
puts "Enter LS to list the program, if it's OK you can burn it as follows."
|
|
||||||
puts "Enter BP at the prompt, after a while the ':' prompt returns"
|
|
||||||
puts "You must then restart the #AUTO routine by entering,"
|
|
||||||
puts "XQ#AUTO"
|
|
||||||
puts "then you can exit with ^], end enter quit"
|
|
||||||
@@ -1,49 +0,0 @@
|
|||||||
# SICS common configuration
|
|
||||||
|
|
||||||
# $Revision: 1.7 $
|
|
||||||
# $Date: 2006-10-26 00:29:48 $
|
|
||||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
||||||
# Last revision by $Author: ffr $
|
|
||||||
|
|
||||||
#set sicsroot /usr/local/sics
|
|
||||||
set sicsroot ../
|
|
||||||
ServerOption LogFileBaseName $sicsroot/log/serverlog
|
|
||||||
|
|
||||||
installprotocolhandler
|
|
||||||
|
|
||||||
source utility.tcl
|
|
||||||
|
|
||||||
ServerOption statusfile $sicsroot/log/status.tcl
|
|
||||||
ServerOption RedirectFile $sicsroot/log/stdout
|
|
||||||
ServerOption LogFileDir $sicsroot/log
|
|
||||||
ServerOption QuieckPort [portnum $quieckport ]
|
|
||||||
ServerOption ServerPort [portnum $serverport ]
|
|
||||||
ServerOption InterruptPort [portnum $interruptport ]
|
|
||||||
ServerOption TelWord sicslogin
|
|
||||||
ServerOption TelnetPort [portnum $telnetport ]
|
|
||||||
ServerOption ReadUserPasswdTimeout 600000
|
|
||||||
ServerOption AcceptTimeOut 10
|
|
||||||
ServerOption ReadTimeOut 10
|
|
||||||
SicsUser manager ansto 1
|
|
||||||
SicsUser user sydney 2
|
|
||||||
SicsUser spy 007 3
|
|
||||||
MakeDataNumber SicsDataNumber $sicsroot/data/DataNumber
|
|
||||||
VarMake SicsDataPath Text Internal
|
|
||||||
SicsDataPath $sicsroot/data/
|
|
||||||
SicsDataPath lock
|
|
||||||
VarMake SicsDataPrefix Text Internal
|
|
||||||
SicsDataPrefix ansto
|
|
||||||
SicsDataPrefix lock
|
|
||||||
VarMake SicsDataPostFix Text Internal
|
|
||||||
SicsDataPostFix .hdf
|
|
||||||
SicsDataPostFix lock
|
|
||||||
VarMake Title Text User
|
|
||||||
VarMake Sample Text User
|
|
||||||
VarMake User Text User
|
|
||||||
VarMake starttime Text User
|
|
||||||
VarMake currentfile Text User
|
|
||||||
VarMake batchroot Text User
|
|
||||||
MakeDrive
|
|
||||||
|
|
||||||
# Useful for making configurable batch files.
|
|
||||||
publish set user
|
|
||||||
@@ -1,128 +0,0 @@
|
|||||||
#!/usr/bin/env tclsh
|
|
||||||
|
|
||||||
# $Revision: 1.6 $
|
|
||||||
# $Date: 2006-10-09 03:12:08 $
|
|
||||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
||||||
# Last revision by $Author: ffr $
|
|
||||||
|
|
||||||
# Load troubleshooting setup
|
|
||||||
source dmc2280_util.tcl
|
|
||||||
source troubleshoot_setup.tcl
|
|
||||||
source motorinfo.tcl
|
|
||||||
|
|
||||||
if { $argc > 0 } {
|
|
||||||
set configFileName [lindex $argv 0]
|
|
||||||
}
|
|
||||||
|
|
||||||
namespace eval sics_config {
|
|
||||||
proc loadConfig {fName} {
|
|
||||||
variable ContList
|
|
||||||
if [info exists ContList] {unset ContList}
|
|
||||||
# Temporarily define unknown proc to skip undefined procs
|
|
||||||
rename ::unknown _unknown
|
|
||||||
proc ::unknown {args} {}
|
|
||||||
if [catch {uplevel #0 source $fName} errMsg] {
|
|
||||||
rename ::unknown ""
|
|
||||||
rename _unknown ::unknown
|
|
||||||
error $errMsg
|
|
||||||
} else {
|
|
||||||
rename ::unknown ""
|
|
||||||
rename _unknown ::unknown
|
|
||||||
}
|
|
||||||
if [catch {set ContList [uplevel #0 info vars dmc2280_controller*]} result] {error $result}
|
|
||||||
if {[llength $ContList] == 0} {error "Error: There are no dmc2280_controllerN(host/port) arrays in the $fName configuration file"}
|
|
||||||
#Add the controller to the sics_config namespace
|
|
||||||
foreach c $ContList {upvar #0 $c cont; puts "$c IP:port = $cont(host):$cont(port)"}
|
|
||||||
}
|
|
||||||
|
|
||||||
proc subExists {contName sub} {
|
|
||||||
upvar #0 $contName controller
|
|
||||||
if [catch {::dmc_sendCmd $controller(socket) "LS $sub,0"} errMsg] {
|
|
||||||
error "Subroutine $sub does not exist on controller $contName"
|
|
||||||
}
|
|
||||||
::dmc_receive $controller(socket)
|
|
||||||
}
|
|
||||||
|
|
||||||
# Returns -1 if thread is not running, line number if it is
|
|
||||||
proc checkThread {contName thnum} {
|
|
||||||
upvar #0 $contName controller
|
|
||||||
::dmc_sendCmd $controller(socket) "MG _XQ$thnum"
|
|
||||||
set reply [::dmc_receive $controller(socket) ]
|
|
||||||
if {$reply == -1} {
|
|
||||||
error "Thread $thnum not running on controller $contName"
|
|
||||||
}
|
|
||||||
return $reply
|
|
||||||
}
|
|
||||||
|
|
||||||
# GUI STUFF
|
|
||||||
package require Tk
|
|
||||||
variable ContList
|
|
||||||
global ldFrame
|
|
||||||
set ldFrameName ".loadFile"
|
|
||||||
set ldFrame(button) $ldFrameName.ldConf
|
|
||||||
set ldFrame(entry) $ldFrameName.ldEntry
|
|
||||||
|
|
||||||
|
|
||||||
proc ::guiLoadC {} {
|
|
||||||
::sics_config::loadConfig [eval $::sics_config::ldFrame(entry) get]
|
|
||||||
}
|
|
||||||
|
|
||||||
proc ::guiConnect {w cont} {
|
|
||||||
::dmc_connect $cont
|
|
||||||
$w configure -activebackground green
|
|
||||||
$w configure -background green
|
|
||||||
}
|
|
||||||
|
|
||||||
proc ::guiCheckSubs {w cont} {
|
|
||||||
global contSubs
|
|
||||||
foreach sub $contSubs($cont) {
|
|
||||||
::sics_config::subExists $cont $sub
|
|
||||||
}
|
|
||||||
$w configure -activebackground green
|
|
||||||
$w configure -background green
|
|
||||||
}
|
|
||||||
|
|
||||||
proc ::guiCheckThreads {w cont} {
|
|
||||||
global contThreads
|
|
||||||
foreach thr $contThreads($cont) {
|
|
||||||
::sics_config::checkThread $cont $thr
|
|
||||||
}
|
|
||||||
$w configure -activebackground green
|
|
||||||
$w configure -background green
|
|
||||||
}
|
|
||||||
|
|
||||||
frame $ldFrameName
|
|
||||||
pack $ldFrameName
|
|
||||||
button $ldFrame(button) -text "Load config" -command {guiLoadC; ::sics_config::mkGui}
|
|
||||||
entry $ldFrame(entry) -textvariable configFileName -width -1
|
|
||||||
pack $ldFrame(button) -side left
|
|
||||||
pack $ldFrame(entry) -side left
|
|
||||||
|
|
||||||
|
|
||||||
proc mkGui {} {
|
|
||||||
variable ContList
|
|
||||||
lappend Headings $ContList
|
|
||||||
frame .t -bg black
|
|
||||||
table .t $ContList
|
|
||||||
pack .t
|
|
||||||
testgui
|
|
||||||
}
|
|
||||||
proc table {w headings args} {
|
|
||||||
set r 0
|
|
||||||
|
|
||||||
foreach name $headings {
|
|
||||||
lappend Header [label $w.$name -text $name]
|
|
||||||
}
|
|
||||||
foreach name $headings {
|
|
||||||
lappend Connect [button $w.connect$name -text connect -command "guiConnect $w.connect$name $name"]
|
|
||||||
lappend CheckSubs [button $w.chkSubs$name -text "Check subs" -command "guiCheckSubs $w.chkSubs$name $name"]
|
|
||||||
lappend CheckThreads [button $w.chkThrs$name -text "Check threads" -command "guiCheckThreads $w.chkThrs$name $name"]
|
|
||||||
}
|
|
||||||
eval grid $Header -sticky news -padx 1 -pady 1
|
|
||||||
eval grid $Connect -sticky news -padx 1 -pady 1
|
|
||||||
eval grid $CheckSubs -sticky news -padx 1 -pady 1
|
|
||||||
eval grid $CheckThreads -sticky news -padx 1 -pady 1
|
|
||||||
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
@@ -1,53 +0,0 @@
|
|||||||
# Some useful functions for SICS configuration.
|
|
||||||
|
|
||||||
# $Revision: 1.3 $
|
|
||||||
# $Date: 2006-10-15 23:36:36 $
|
|
||||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
||||||
# Last revision by $Author: ffr $
|
|
||||||
|
|
||||||
# Utility fucntion for setting the home and upper and lower
|
|
||||||
# limits for a motor
|
|
||||||
proc setHomeandRange {args} {
|
|
||||||
set usage "
|
|
||||||
Usage: setHomeandRange -motor motName -home homeVal -lowrange low -uprange high
|
|
||||||
eg
|
|
||||||
setHomeandRange -motor mchi -home 90 -lowrange 5 -uprange 7
|
|
||||||
this sets the home position to 90 degreess for motor mchi
|
|
||||||
with the lower limit at 85 and the upper limit at 97
|
|
||||||
"
|
|
||||||
if {$args == ""} {clientput $usage; return}
|
|
||||||
array set params $args
|
|
||||||
set motor $params(-motor)
|
|
||||||
set home $params(-home)
|
|
||||||
set lowlim [expr $home - $params(-lowrange)]
|
|
||||||
set uplim [expr $home + $params(-uprange)]
|
|
||||||
|
|
||||||
uplevel 1 "$motor hardlowerlim $lowlim"
|
|
||||||
uplevel 1 "$motor hardupperlim $uplim"
|
|
||||||
uplevel 1 "$motor softlowerlim $lowlim"
|
|
||||||
uplevel 1 "$motor softupperlim $uplim"
|
|
||||||
uplevel 1 "$motor home $home"
|
|
||||||
}
|
|
||||||
|
|
||||||
# Use this to create an array of named parameters to initialise motors.
|
|
||||||
proc params {args} {
|
|
||||||
upvar 1 "" x;
|
|
||||||
if [info exists x] {unset x}
|
|
||||||
foreach {k v} $args {set x([string tolower $k]) $v}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Parse motor readings for virtual motor scripts.
|
|
||||||
proc SplitReply { text } {
|
|
||||||
set l [split $text =]
|
|
||||||
return [lindex $l 1]
|
|
||||||
}
|
|
||||||
|
|
||||||
# Sets motor position reading to pos by adjusting the softzero
|
|
||||||
proc setpos {motor pos} {
|
|
||||||
set currPos [SplitReply [$motor]]
|
|
||||||
set oldZero [SplitReply [$motor softzero]]
|
|
||||||
set newZero [expr $currPos - $pos + $oldZero]
|
|
||||||
uplevel #0 "$motor softzero $newZero"
|
|
||||||
}
|
|
||||||
publish setpos user
|
|
||||||
publish SplitReply user
|
|
||||||
Reference in New Issue
Block a user