Files
Nim/tests/macros/tmemit.nim
2018-11-23 11:58:28 +01:00

42 lines
695 B
Nim

discard """
output: '''
HELLO WORLD
c_func
12
'''
"""
import macros, strutils
emit("echo " & '"' & "hello world".toUpperAscii & '"')
# bug #1025
macro foo(icname): untyped =
let ic = newStrLitNode($icname)
result = quote do:
proc x* =
proc private {.exportc: `ic`.} = discard
echo `ic`
private()
foo(c_func)
x()
template volatileLoad[T](x: ptr T): T =
var res: T
{.emit: [res, " = (*(", type(x[]), " volatile*)", x, ");"].}
res
template volatileStore[T](x: ptr T; y: T) =
{.emit: ["*((", type(x[]), " volatile*)(", x, ")) = ", y, ";"].}
proc main =
var st: int
var foo: ptr int = addr st
volatileStore(foo, 12)
echo volatileLoad(foo)
main()