path: root/examples/tclex.nim

# 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(getApplicationFilename())
var interp = CreateInterp()
if interp == nil: quit("cannot create TCL interpreter")
if Init(interp) != TCL_OK: 
  quit("cannot init interpreter")
if Eval(interp, myScript) != TCL_OK: 
  quit("cannot execute script.tcl")