mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-31 02:12:11 +00:00
26 lines
591 B
Nim
Executable File
26 lines
591 B
Nim
Executable File
# 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 Eval(interp, myScript) != TCL_OK:
|
|
quit("cannot execute script.tcl")
|
|
|
|
|