Remove keywords to simplify merging branches.
r2859 | ffr | 2010-01-13 15:41:46 +1100 (Wed, 13 Jan 2010) | 2 lines
This commit is contained in:
committed by
Douglas Clowes
parent
695c5a8f82
commit
fd6a955d6b
@@ -1,9 +1,6 @@
|
||||
#!/usr/bin/tclsh
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2006-10-12 23:06:05 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Creates a fake motion controller based on an
|
||||
# instrument configuration file.
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.4 $
|
||||
# $Date: 2009-01-23 05:06:03 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Creates a socket server which listens for connections and accepts commands
|
||||
# from DMC2280 clients (eg SICS).
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2007-10-31 06:10:30 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Parses a subset of DMC2280 commands and returns the corresponding command
|
||||
# which is defined in dmc2280Server.tcl
|
||||
|
||||
@@ -1,10 +1,7 @@
|
||||
#!/usr/bin/env tclsh
|
||||
# TODO setup loopback devices for controllers.
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2006-10-12 23:06:05 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
# Load troubleshooting setup
|
||||
#source dmc2280_util.tcl
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
#!/usr/bin/tclsh
|
||||
|
||||
# $Revision: 1.9 $
|
||||
# $Date: 2009-01-23 05:06:03 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Creates fake DMC configuration files based on the instrument
|
||||
# configuration file.
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.9 $
|
||||
# $Date: 2009-01-23 05:06:03 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
proc sleep {mstime} {
|
||||
set x 0
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2008-05-30 00:26:54 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# @file This is a barebones SICS configuration file, it's useful for testing
|
||||
# drivers in isolation.
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.3 $
|
||||
# $Date: 2008-06-12 02:55:28 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# TODO Handle sequencing when simultaneously moving multiple axes
|
||||
# TODO Handle functional dependencies (just write your own tcl script)
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.1.2.1 $
|
||||
# $Date: 2009-12-11 02:14:03 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
namespace eval ::environment::temperature { }
|
||||
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# $Revision: 1.48 $
|
||||
# $Date: 2009-12-10 07:29:23 $
|
||||
# Author: Ferdi Franceschini
|
||||
# Based on the examples in the hs_test.tcl sample configuration by Mark Lesha.
|
||||
# http://gumtree.ansto.gov.au:9080/nbicms/bragg-systems/histogram-server/hs_test.tcl/view
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
##
|
||||
# @file Provides generic code and parameters for configuring the ANSTO histogram memory server
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2008-05-30 00:26:55 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
source $cfPath(anticollider)/anticollider_common.tcl
|
||||
::anticollider::loadscript acscript.txt
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2008-09-24 22:47:11 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
namespace eval ::environment::temperature { }
|
||||
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# Wombat troubleshooter setup
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2007-02-19 21:10:41 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
set configFileName "../../config/motors/motor_configuration.tcl"
|
||||
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.32 $
|
||||
# $Date: 2009-12-09 06:07:45 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2006-11-03 05:19:42 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Cycle motors
|
||||
clientput "drive to zero reference"
|
||||
|
||||
@@ -1,8 +1,4 @@
|
||||
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2008-05-30 00:26:56 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
source $cfPath(anticollider)/anticollider_common.tcl
|
||||
::anticollider::loadscript acscript.txt
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.37 $
|
||||
# $Date: 2009-12-10 03:57:53 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# START MOTOR CONFIGURATION
|
||||
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.38 $
|
||||
# $Date: 2009-12-10 03:57:53 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# ECHIDNA troubleshooter setup
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2007-02-16 05:39:16 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
set configFileName "../../config/motors/motor_configuration.tcl"
|
||||
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.3 $
|
||||
# $Date: 2009-11-24 22:56:47 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.5 $
|
||||
# $Date: 2008-06-12 07:21:40 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: dcl $
|
||||
|
||||
#START SERVER CONFIGURATION SECTION
|
||||
source dmc2280_util.tcl
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# Koala troubleshooter setup
|
||||
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2006-12-12 22:31:37 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: dcl $
|
||||
|
||||
set configFileName "motor_configuration.tcl"
|
||||
|
||||
|
||||
@@ -1,8 +1,4 @@
|
||||
|
||||
# $Revision: 1.3 $
|
||||
# $Date: 2008-06-12 02:55:28 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
source $cfPath(anticollider)/anticollider_common.tcl
|
||||
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.2.2.1 $
|
||||
# $Date: 2009-12-11 02:14:03 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
##
|
||||
# @file Platypus Beam Attenuator control and status.
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.24 $
|
||||
# $Date: 2009-12-09 07:16:26 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# Platypus troubleshooter setup
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2007-03-23 05:15:51 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: dcl $
|
||||
|
||||
set configFileName "motor_configuration.tcl"
|
||||
|
||||
|
||||
@@ -1,8 +1,4 @@
|
||||
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2008-05-30 00:26:56 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
source $cfPath(anticollider)/anticollider_common.tcl
|
||||
::anticollider::loadscript acscript.txt
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.17 $
|
||||
# $Date: 2009-11-24 22:56:48 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
@@ -1,8 +1,4 @@
|
||||
|
||||
# $Revision: 1.3 $
|
||||
# $Date: 2008-06-12 02:55:28 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
source $cfPath(anticollider)/anticollider_common.tcl
|
||||
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.32.2.1 $
|
||||
# $Date: 2009-12-15 04:38:27 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# START MOTOR CONFIGURATION
|
||||
::utility::mkVar FastShutter text manager FastShutter false instrument true false
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.20.2.1 $
|
||||
# $Date: 2010-01-11 05:12:40 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# Platypus troubleshooter setup
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2007-07-09 05:24:03 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: dcl $
|
||||
|
||||
set configFileName "motor_configuration.tcl"
|
||||
|
||||
|
||||
@@ -1,10 +1,6 @@
|
||||
# SICS common configuration
|
||||
|
||||
# $Revision: 1.48 $
|
||||
# $Date: 2009-11-24 22:56:45 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
# RELEASE_NUMBER: $Name: not supported by cvs2svn $
|
||||
|
||||
#set sicsroot /usr/local/sics
|
||||
VarMake opal_simulation Text internal
|
||||
@@ -144,11 +140,6 @@ set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
|
||||
sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]]
|
||||
sics_release lock
|
||||
|
||||
::utility::mkVar sics_revision_num Text internal
|
||||
set tmpstr [string map {"$" ""} {$Revision: 1.48 $}]
|
||||
sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
|
||||
sics_revision_num lock
|
||||
|
||||
::utility::mkVar SicsDataPath Text internal
|
||||
SicsDataPath $sicsroot/data/
|
||||
SicsDataPath lock
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2007-02-16 05:36:38 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
# globals controller, channel
|
||||
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
#!/usr/bin/env tclsh
|
||||
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2007-02-16 05:36:38 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
# Load troubleshooting setup
|
||||
source dmc2280_util.tcl
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# Some useful functions for SICS motor configuration.
|
||||
|
||||
# $Revision: 1.4 $
|
||||
# $Date: 2008-10-27 04:55:48 $
|
||||
# Author: Douglas Clowes (dcl@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
proc relmove {runcmd args} {
|
||||
if [ catch {
|
||||
|
||||
@@ -1,9 +1,6 @@
|
||||
# Some useful functions for SICS configuration.
|
||||
|
||||
# $Revision: 1.24.2.1 $
|
||||
# $Date: 2010-01-13 01:53:19 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by $Author: ffr $
|
||||
|
||||
source util/extra_utility.tcl
|
||||
source util/eventutil.tcl
|
||||
|
||||
@@ -1,7 +1,4 @@
|
||||
# $Revision$
|
||||
# $Date$
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author$
|
||||
|
||||
# Required by server_config.tcl
|
||||
VarMake Instrument Text Internal
|
||||
|
||||
Reference in New Issue
Block a user