Hi,

STAF does not support Tcl 8.1.1.  According to this site
(http://wiki.tcl.tk/450), Tcl 8.1.1 was released on May 25, 1999, so I
think it's time to upgrade to a newer version :-).

If you look at the STAF Tcl User's Guide
(http://staf.sourceforge.net/current/STAFTcl.htm), in section "2.0
Supported Platforms and Tcl Versions", you will see that STAF V3.4.4 for
Windows 32-bit supports Tcl versions 8.3, 8.4, 8.5, and 8.6.  If you did a
recommended install of STAF, you will have all 4 libraries installed (i.e
C:/STAF/bin/tcl83/TCLSTAF.dll, C:/STAF/bin/tcl84/TCLSTAF.dll,
C:/STAF/bin/tcl85/TCLSTAF.dll, and C:/STAF/bin/tcl86/TCLSTAF.dll.  The
C:/STAF/bin/TCLSTAF.dll file by default is the 8.3 library, but you can
override the default version during the install (see the STAF Installation
Guide for more information:
http://staf.sourceforge.net/current/STAFInstall.pdf).

So, for example, if you installed STAF and specified Tcl 8.4 as the default
version, you should be able to run the sample script via:

C:\temp>set TCLLIBPATH=C:/STAF/bin

C:\temp>c:\Tcl84\bin\tclsh test.tcl
Using handle 29
Testing basic functionality
Machine Nickname: testmachine1
All tests successful

You can run the sample script via a PROCESS START request:

C:\temp>STAF local PROCESS START SHELL COMMAND "C:/Tcl84/bin/tclsh
c:/temp/test.tcl" ENV TCLLIBPATH=C:/STAF/bin  RETURNSTDOUT STDERRTOSTDOUT
WAIT
Response
--------
{
  Return Code: 0
  Key        : <None>
  Files      : [
    {
      Return Code: 0
      Data       : Using handle 34
Testing basic functionality
Machine Nickname: testmachine1
All tests successful

    }
  ]
}

Thanks,
David


                                                                       
 David Bender          11501 Burnet Rd.   Phone (T/L): 1-512-286-5315  
 STAF/STAX Development Bldg. 903-5B002    (363-5315)                   
                       Austin, TX         ITN: 23635315                
 IBM Software Group,   78758-3400         Email: bda...@us.ibm.com     
 WPLC                                                                  
                                                                       
                                                                       






                                                                       
  From:       ras...@copperheadsystems.com                             
                                                                       
  To:         "staf-users@lists.sourceforge.net" 
<staf-users@lists.sourceforge.net>
                                                                       
  Date:       03/05/2011 05:04 AM                                      
                                                                       
  Subject:    [staf-users] STAF usage                                  
                                                                       






Hi team,

I installed STAF  STAF344-setup-win32.exe on my windows xp. Priorly tcl/tk
8.1.1 is installed.please clear the following doubts.

1.Does the above mentioned tcl 8.1.1 is compatible with STAF installed.

2.If it is ok....then how to execute a tcl program on STAF. could u
briefly describe the execution steps of tcl file on STAF.

3.As reference to posted message we can use START PROCESS service's START
request to run a TCL script. where to write or give this START command.

4.If i open the following code with wish or tcl application it shows error
like"cant find package STAF while executing "package require STAF"


package require STAF

# First, must register with STAF

if {[STAF::Register "Tcl Test"] != $STAF::kOk} {
    puts "Error registering with STAF, RC: $STAF::RC"
    exit $STAF::RC
}

puts "Using handle $STAF::Handle"

# Submit some STAF requests

puts "Testing basic functionality"

STAF::Submit local PING PING

if {$STAF::Result != "PONG"} {
    puts "Wrong output for ping request"
    exit 1
}

if {[STAF::Submit local VAR "RESOLVE STRING
{STAF/Config/MachineNickname}"] != $STAF::kOk} {
    puts "Error resolving machine nickname, RC: $STAF::RC, Result:
$STAF::Result"
    exit $STAF::RC
}

puts "Machine Nickname: $STAF::Result"

# Unregister with STAF to remove the handle

if {[STAF::UnRegister] != $STAF::kOk} {
    puts "Error unregistering with STAF, RC: $STAF::RC"
    exit $STAF::RC
}

puts "All tests successful"




Regards,
Rashmi Chetty

exit 0



------------------------------------------------------------------------------

What You Don't Know About Data Connectivity CAN Hurt You
This paper provides an overview of data connectivity, details
its effect on application quality, and explores various alternative
solutions. http://p.sf.net/sfu/progress-d2d
_______________________________________________
staf-users mailing list
staf-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/staf-users

<<inline: graycol.gif>>

<<inline: ecblank.gif>>

------------------------------------------------------------------------------
What You Don't Know About Data Connectivity CAN Hurt You
This paper provides an overview of data connectivity, details
its effect on application quality, and explores various alternative
solutions. http://p.sf.net/sfu/progress-d2d
_______________________________________________
staf-users mailing list
staf-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/staf-users

Reply via email to