I have been working on some expect stuff so that I can automate remote x
connections and have run into a snag..... the code is below as well as
the response from the interpreter...... and when I run the code at the
expect prompt (at least the regexp line) it works perfectly..... any
idea what gives? no matter what I do expect tells me theres no
such variable as env(DISPLAY) from inside the script....... It must be
that I haven't declared something somewhere or I have failed to put the
right quotes/brackets/etc but it must be so obvious that I just can't
see it....

***************************************************
here's the code..... simple proc to pull the DISPLAY.. I no there's more
elegant ways to do the regexp but here was a chance to try one and I
mucked it up at that
***************************************************
proc getlocalxdisplay { } {
# get the current DISPLAY and parse it
 regexp (.*):(.*) $env(DISPLAY) ignore localhost displaynum
 if { [string compare $localhost ""] == 1} {
# that is to say, if the local DISPLAY returns :0
# localhost will come up null
# which means that the user is on a 250
#
# domainname is essentially the proc by the same name from THE BOOK
#
        set nodename [ exec hostname ]
        set xdisplay "$nodename.[domainname]:$displaynum"
 } else {
        set xdisplay $env(DISPLAY)
 }
 return $xdisplay

*********************************************************
and here's what it spits out.....
*********************************************************
can't read "env(DISPLAY)": no such variable
    while executing
"regexp (.*):(.*) $env(DISPLAY)..."
    (procedure "getlocalxdisplay" line 3)
    invoked from within
"getlocalxdisplay"
*********************************************************
and here's the same thing from the command line.....
**********************************************************
expect1.1> regexp (.*):(.*) $env(DISPLAY) ignore localhost displaynum
1
expect1.2> set localhost
expect1.3> set displaynum
0
expect1.4>

scooooooope....  gloooobal....

--
    Jeffrey Hobbs               "I'm really just a Tcl-bot"
    jeff.hobbs at acm.org | Jeffrey.Hobbs at oen.siemens.de

You need to have env in global scope.  It might also help to
put your regular expression inside {}.  

        proc getlocalxdisplay { } {
             global env
             regexp {(.*):(.*)} $env(DISPLAY) ignore localhost displaynum
             ...

Hope this helps.

Will

--
# Copyright 1997 Will Morse.  Internet repost/archive freely permitted.
# Hardcopy newspaper, magazine, etc. quoting requires permission.
#
#      Gravity,                    #    Will Morse
#      not just a good idea,       #    Houston, Texas

#
#   These are my views and do not necessarly reflect anyone else/
 =========================================================================
      By US Code Title 47, Sec.227(a)(2)(B), a computer/modem/printer
      meets the definition of a telephone fax machine. By Sec.227(b)
      (1)(C), it is unlawful to send any unsolicited adverti{*filter*}t to
      such equipment, punishable by action to recover actual monetary
      loss, or $500, whichever is greater, for EACH violation.
 =========================================================================