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

make all command names lowercase

Browse Source 
r3709 | jgn | 2012-08-28 12:38:32 +1000 (Tue, 28 Aug 2012) | 1 line
This commit is contained in:
Jing Chen
2012-08-28 12:38:32 +10:00
committed by Douglas Clowes
parent 1d8b0f0b47
commit 0338f9973b
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
site_ansto/instrument/pelican/config/beamline/sct_power.tcl
View File

@@ -801,7 +801,7 @@ proc ::scobj::ag1010::mkAG {argList} {
namespace import ::scobj::ag1010::par
proc LFPAGC {{para ""} args} {
proc lf_pagc {{para ""} args} {
if {$para == ""} {
broadcast "[hget /sics/ag1010/AGC/PAGC] dW"
@@ -822,7 +822,7 @@ proc LFPAGC {{para ""} args} {
}
}
proc LFPMGC {{para ""} args} {
proc lf_pmgc {{para ""} args} {
if {$para == ""} {
broadcast "[hget /sics/ag1010/MGC/PMGC] dW"
@@ -843,7 +843,7 @@ proc LFPMGC {{para ""} args} {
}
}
proc LFFREQ {{para ""} args} {
proc lf_freq {{para ""} args} {
if {$para == ""} {
broadcast "[hget /sics/ag1010/FRE/FREQ] Hz"
@@ -870,7 +870,7 @@ proc LFFREQ {{para ""} args} {
}
}
proc LFSweepRun {startF stepF scyc {mode 2} args} {
proc lf_sweep_run {startF stepF scyc {mode 2} args} {
if {$mode<0 || $mode>2} {
return -code error "Error in setValue: only allowed input values for SweepMode are {0,1,2}"
@@ -895,7 +895,7 @@ proc LFSweepRun {startF stepF scyc {mode 2} args} {
sct_ag1010 send "$cmd"
}
proc LFLimits {args} {
proc lf_limits {args} {
if {$args == ""} {
broadcast "[hget /sics/ag1010/limits/ForwardPower] dW"
@@ -938,7 +938,7 @@ proc LFLimits {args} {
}
}
proc LFBurst {args} {
proc lf_burst {args} {
if {$args == ""} {
broadcast "[hget /sics/ag1010/BurstPar/BurstMode]"
@@ -991,7 +991,7 @@ proc LFBurst {args} {
}
}
proc LFSweep {args} {
proc lf_sweep {args} {
if {$args == ""} {
broadcast "[hget /sics/ag1010/SweepPar/SweepMode]"
@@ -1055,21 +1055,21 @@ proc LFSweep {args} {
}
}
proc LFMEAS {} {
proc lf_meas {} {
broadcast "[hget /sics/ag1010/MEAS/ForwardPower] dW"
broadcast "[hget /sics/ag1010/MEAS/ReversePower] dW"
broadcast "[hget /sics/ag1010/MEAS/Temperature] Degree"
}
publish LFLimits user
publish LFPAGC user
publish LFPMGC user
publish LFFREQ user
publish LFMEAS user
publish LFBurst user
publish LFSweepRun user
publish LFSweep user
publish lf_limits user
publish lf_pagc user
publish lf_pmgc user
publish lf_freq user
publish lf_meas user
publish lf_burst user
publish lf_sweep_run user
publish lf_sweep user
# Main process call
# @param name short name for the AG1010 Amplifier/Generator