diff options
Diffstat (limited to 'examples/tclex.nim')
-rw-r--r-- | examples/tclex.nim | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/examples/tclex.nim b/examples/tclex.nim deleted file mode 100644 index daf2d52e2..000000000 --- a/examples/tclex.nim +++ /dev/null @@ -1,25 +0,0 @@ -# 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") - - |