Channel Access and Tcl

[John Dobbins <jad@lepp.cornell.edu>]

Dear All,

(Preface: new to using Tcl so please don't assume I know what I'm doing)

I have built et_wish from the distribution

http://www.aps.anl.gov/epics/download/extensions/caTCL_20020802.tar.gz

I can start et_wish and the various Channel Access commands work fine 
from the et_wish command line, but when I try to use them from inside a 
proc they stop working. If inside a proc I use

  pv link variable_name record_name
  pv put variable_name

then the value of the record remains unchanged. See example code below.


1) Does anyone have any ideas about this?
   (Tcl8.3.5 on Scientific Linux 3)

2) I see that oagwish from APS appears more actively maintained. Should 
I be using this instead?

Thanks

John Dobbins



This et_wish command line code works:

% pv link cur bl_mag_crv1_cmd
0
% set cur 0.001
0.001
% pv put cur
0


This script does not:

  proc my_test {} {

    pv linkw cur bl_mag_crv1_cmd
    set x  [pv info cur state]
    puts $x

    set cur 0.001
    puts "cur = $cur"
    pv put cur

    after 50

    set x  [pv info cur state]
    puts $x

    puts "executed test"

  }

  my_test

and has output:

{cur OK}
cur = 0.001
{cur OK}
executed test