summary refs log tree commit diff stats
path: root/tinyc/texi2pod.pl
Commit message (Expand)AuthorAgeFilesLines
* fixes constant array indexing bugAraq2014-06-301-0/+0
* tiny C support; cosmetic improvements for the docsAraq2010-08-281-0/+427
href='#n27'>27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
discard """
  output: '''Got: 'nnkCall' hi
{a}
{b}
{a, b}'''
"""

import macros

macro outterMacro*(n, blck: untyped): untyped =
  let n = callsite()
  var j : string = "hi"
  proc innerProc(i: int): string =
    echo "Using arg ! " & n.repr
    result = "Got: '" & $n.kind & "' " & $j
  var callNode = n[0]
  expectKind(n, NimNodeKind.nnkCall)
  if n.len != 3 or n[1].kind != NimNodeKind.nnkIdent:
    error("Macro " & callNode.repr &
      " requires the ident passed as parameter (eg: " & callNode.repr &
      "(the_name_you_want)): statements.")
  result = newNimNode(NimNodeKind.nnkStmtList)
  var ass : NimNode = newNimNode(nnkAsgn)
  ass.add(newIdentNode(n[1].ident))
  ass.add(newStrLitNode(innerProc(4)))
  result.add(ass)

var str: string
outterMacro(str):
  "hellow"
echo str

type E = enum a b
macro enumerators1(): set[E] = newLit({a})

macro enumerators2(): set[E] =
  return newLit({b})

macro enumerators3(): set[E] =
  result = newLit({E.low .. E.high})

var myEnums: set[E]


myEnums = enumerators1()
echo myEnums
myEnums = enumerators2()
echo myEnums
myEnums = enumerators3()
echo myEnums

#10751

type Tuple = tuple
  a: string
  b: int

macro foo(t: static Tuple): untyped =
  doAssert t.a == "foo"
  doAssert t.b == 12345

foo((a: "foo", b: 12345))


# bug #16307

macro bug(x: untyped): string =
  newLit repr(x)

let res = bug:
  block:
    ## one
    ## two
    ## three

doAssert res == """

block:
  ## one
  ## two
  ## three"""