mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-29 09:24:36 +00:00
28 lines
666 B
Nim
28 lines
666 B
Nim
discard """
|
|
cmd: "nimrod cc --debuginfo --hints:on --define:useNimRtl --app:lib $# $#"
|
|
"""
|
|
|
|
type
|
|
TNodeKind = enum nkLit, nkSub, nkAdd, nkDiv, nkMul
|
|
TNode = object
|
|
case k: TNodeKind
|
|
of nkLit: x: int
|
|
else: a, b: ref TNode
|
|
|
|
PNode = ref TNode
|
|
|
|
proc newLit(x: int): PNode {.exportc: "newLit", dynlib.} =
|
|
new(result)
|
|
result.x = x
|
|
|
|
proc newOp(k: TNodeKind, a, b: PNode): PNode {.exportc: "newOp", dynlib.} =
|
|
assert a != nil
|
|
assert b != nil
|
|
new(result)
|
|
result.k = k
|
|
result.a = a
|
|
result.b = b
|
|
|
|
proc buildTree(x: int): PNode {.exportc: "buildTree", dynlib.} =
|
|
result = newOp(nkMul, newOp(nkAdd, newLit(x), newLit(x)), newLit(x))
|