apidocs/python


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

# Example to embed TCL in Nimrod

import tcl, os

const
  myScript = """puts "Hello, World - In quotes" """
  myScript2 = """
package require Tk
pack [entry .e -textvar e -width 50]
bind .e <Return> {
  set e  [regsub { *=.*} $e ""] ;# remove evaluation (Chris)
  catch {expr [string map {/ *1./} $e]} res
  append e " = $res"
}  
"""

FindExecutable(getAppFilename())
var interp = CreateInterp()
if interp == nil: quit("cannot create TCL interpreter")
if Init(interp) != TCL_OK: 
  quit("cannot init interpreter")
if tcl.Eval(interp, myScript) != TCL_OK: 
  quit("cannot execute script.tcl")