mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-28 17:04:41 +00:00
4647c7b596
* fixes #14409; fixes#10674 VM callbacks switch to table-index seqs * fixes package name * reduce runtime cost
72 lines
2.2 KiB
Nim
72 lines
2.2 KiB
Nim
discard """
|
|
output: '''top level statements are executed!
|
|
(ival: 10, fval: 2.0)
|
|
2.0
|
|
my secret
|
|
11
|
|
12
|
|
raising VMQuit
|
|
'''
|
|
joinable: "false"
|
|
"""
|
|
|
|
## Example program that demonstrates how to use the
|
|
## compiler as an API to embed into your own projects.
|
|
|
|
import "../../compiler" / [ast, vmdef, vm, nimeval, llstream, lineinfos, options]
|
|
import std / [os]
|
|
|
|
proc initInterpreter(script: string): Interpreter =
|
|
let std = findNimStdLibCompileTime()
|
|
result = createInterpreter(script, [std, parentDir(currentSourcePath),
|
|
std / "pure", std / "core"])
|
|
|
|
proc main() =
|
|
let i = initInterpreter("myscript.nim")
|
|
i.implementRoutine("nim", "exposed", "addFloats", proc (a: VmArgs) =
|
|
setResult(a, getFloat(a, 0) + getFloat(a, 1) + getFloat(a, 2))
|
|
)
|
|
i.evalScript()
|
|
let foreignProc = i.selectRoutine("hostProgramRunsThis")
|
|
if foreignProc == nil:
|
|
quit "script does not export a proc of the name: 'hostProgramRunsThis'"
|
|
let res = i.callRoutine(foreignProc, [newFloatNode(nkFloatLit, 0.9),
|
|
newFloatNode(nkFloatLit, 0.1)])
|
|
doAssert res.kind == nkFloatLit
|
|
echo res.floatVal
|
|
|
|
let foreignValue = i.selectUniqueSymbol("hostProgramWantsThis")
|
|
if foreignValue == nil:
|
|
quit "script does not export a global of the name: hostProgramWantsThis"
|
|
let val = i.getGlobalValue(foreignValue)
|
|
doAssert val.kind in {nkStrLit..nkTripleStrLit}
|
|
echo val.strVal
|
|
i.destroyInterpreter()
|
|
|
|
main()
|
|
|
|
block issue9180:
|
|
proc evalString(code: string, moduleName = "script.nim") =
|
|
let stream = llStreamOpen(code)
|
|
let std = findNimStdLibCompileTime()
|
|
var intr = createInterpreter(moduleName, [std, std / "pure", std / "core"])
|
|
intr.evalScript(stream)
|
|
destroyInterpreter(intr)
|
|
llStreamClose(stream)
|
|
|
|
evalString("echo 10+1")
|
|
evalString("echo 10+2")
|
|
|
|
block error_hook:
|
|
type VMQuit = object of CatchableError
|
|
|
|
let i = initInterpreter("invalid.nim")
|
|
i.registerErrorHook proc(config: ConfigRef; info: TLineInfo; msg: string;
|
|
severity: Severity) {.gcsafe.} =
|
|
if severity == Error and config.errorCounter >= config.errorMax:
|
|
echo "raising VMQuit"
|
|
raise newException(VMQuit, "Script error")
|
|
|
|
doAssertRaises(VMQuit):
|
|
i.evalScript()
|