SNOBOL4STCL(3) | CSNOBOL4B 2.1.1 | June 20, 2020

NAME

SYNOPSIS

   -INCLUDE 'stcl.sno'

DESCRIPTION

This page describes a facility for invoking Tcl and Tk from SNOBOL4 programs, inspired by Arjen Markus' "ftcl" FORTRAN/Tcl interface

tclhandle = STCL_CREATEINTERP()

creates a Tcl interpreter and returns a handle which can be passed to the remaining functions.

STCL_EVALFILE(tclhandle,filename)

reads a Tcl script file into the referenced Tcl interpreter.

STCL_GETVAR(tclhandle,varname)

retrieves the string value of named variable from a Tcl interpreter.

STCL_SETVAR(tclhandle,varname,value)

sets the string value of named variable in a Tcl interpreter.

STCL_EVAL(tclhandle,tclstmt)

evaluates a string containing Tcl code in a Tcl interpreter.

STCL_DELETEINTERP(tclhandle)

destroys a Tcl interpreter.

STCL_NEWSTRINGOBJ(string)

Creates a tcl string object, and returns a handle for it.

STCL_GETSTRINGFROMOBJ(objhandle)

Get string from an Object (given object handle).

STCL_APPENDTOOBJ(objhandle, string)

Append string to an Object returns null string, or failure

STCL_EVALOBJEX(tclhandle, objhandle, flags)

Evaluate (execute) an object -- saves compiled byte code. Returns integer.

objhandle = STCL_GETOBJRESULT(tclhandle)

return a result object from an interpreter (after TCL_EVALOBJEX)

STCL_OBJSETVAR2(tclhandle, oh_name1, oh_name2, oh_value, flags)

STCL_OBJGETVAR2(tclhandle, oh_name1, oh_name2, flags)

STCL_RELEASEOBJ(objhandle)

release a Tcl Object

EXAMPLE

-INCLUDE 'stcl.sno'
        INTERP = STCL_CREATEINTERP()
        TCL_VERSION = STCL_GETVAR(INTERP, "tcl_version")
        OUTPUT = IDENT(TCL_VERSION) "Could not get tcl_version" :S(END)
        OUTPUT = "Tcl Version: " TCL_VERSION
 
# check Tcl version
        NUM = SPAN('0123456789')
        VPAT = NUM '.' NUM
        TCL_VERSION VPAT . VER                          :S(CHECKV)
        OUTPUT = "could not parse tcl_version"          :(END)
 
CHECKV  LT(VER, 8.4)                                    :S(CHECKTK)
 
# Tcl 8.4 and later can dynamicly load Tk!
        STCL_EVAL(INTERP, "package require Tk")         :F(END)
 
# Check for Tk
CHECKTK TK_VERSION = STCL_GETVAR(INTERP, "tk_version")  :F(NO_TK)
        DIFFER(TK_VERSION)                              :S(HAVETK)
NO_TK   OUTPUT = "Could not find tk_version"            :(END)

HAVETK  OUTPUT = "Tk version: " TK_VERSION

LOOP    OUTPUT = STCL_EVAL(INTERP,
+                   'tk_messageBox -message "Alert!"'
+                   ' -type ok -icon info')
        VAL = STCL_EVAL(INTERP,
+                   'tk_messageBox -message "Really quit?"'
+                   ' -type yesno -icon question')
        OUTPUT = VAL
        DIFFER(VAL, "yes")                              :S(LOOP)
END

SEE ALSO

AUTHOR