From 0338f9973bc4edf63e5e2e0e183d8d46aa76e873 Mon Sep 17 00:00:00 2001
From: Jing Chen <jgn@ansto.gov.au>
Date: Tue, 28 Aug 2012 12:38:32 +1000
Subject: [PATCH] make all command names lowercase r3709 | jgn | 2012-08-28
 12:38:32 +1000 (Tue, 28 Aug 2012) | 1 line

---
 .../pelican/config/beamline/sct_power.tcl     | 32 +++++++++----------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/site_ansto/instrument/pelican/config/beamline/sct_power.tcl b/site_ansto/instrument/pelican/config/beamline/sct_power.tcl
index 1b69bc02..57f16035 100644
--- a/site_ansto/instrument/pelican/config/beamline/sct_power.tcl
+++ b/site_ansto/instrument/pelican/config/beamline/sct_power.tcl
@@ -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