summary refs log tree commit diff stats
path: root/tests/stdlib/tparsopt.nim
blob: f3a9a97982d61d181791ff0eacba05866e5c8875 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
discard """
disabled: true
"""

# this file has a type in the name, and it does not really test
# parseopt module, because tester has no support to set arguments. Test the
# new parseopt module. Therefore it is disabled.

import
  parseopt

import std/[assertions, syncio]

proc writeHelp() =
  writeLine(stdout, "Usage: tparsopt [options] filename [options]")

proc writeVersion() =
  writeLine(stdout, "Version: 1.0.0")

var
  filename = ""
for kind, key, val in getopt():
  case kind
  of cmdArgument:
    filename = key
  of cmdLongOption, cmdShortOption:
    case key
    of "help", "h": writeHelp()
    of "version", "v": writeVersion()
    else:
      writeLine(stdout, "Unknown command line option: ", key, ": ", val)
  of cmdEnd: doAssert(false) # cannot happen
if filename == "":
  # no filename has been given, so we show the help:
  writeHelp()
">a: VmArgs; v: bool) = let v = v.ord setX(rkInt, intVal) proc setResult*(a: VmArgs; v: string) = var s: seq[TFullReg] move(s, cast[seq[TFullReg]](a.slots)) if s[a.ra].kind != rkNode: myreset(s[a.ra]) s[a.ra].kind = rkNode s[a.ra].node = newNode(nkStrLit) s[a.ra].node.strVal = v proc setResult*(a: VmArgs; n: PNode) = var s: seq[TFullReg] move(s, cast[seq[TFullReg]](a.slots)) if s[a.ra].kind != rkNode: myreset(s[a.ra]) s[a.ra].kind = rkNode s[a.ra].node = n proc setResult*(a: VmArgs; v: seq[string]) = var s: seq[TFullReg] move(s, cast[seq[TFullReg]](a.slots)) if s[a.ra].kind != rkNode: myreset(s[a.ra]) s[a.ra].kind = rkNode var n = newNode(nkBracket) for x in v: n.add newStrNode(nkStrLit, x) s[a.ra].node = n template getX(k, field) {.dirty.} = doAssert i < a.rc-1 let s = cast[seq[TFullReg]](a.slots) doAssert s[i+a.rb+1].kind == k result = s[i+a.rb+1].field proc getInt*(a: VmArgs; i: Natural): BiggestInt = getX(rkInt, intVal) proc getBool*(a: VmArgs; i: Natural): bool = getInt(a, i) != 0 proc getFloat*(a: VmArgs; i: Natural): BiggestFloat = getX(rkFloat, floatVal) proc getString*(a: VmArgs; i: Natural): string = doAssert i < a.rc-1 let s = cast[seq[TFullReg]](a.slots) doAssert s[i+a.rb+1].kind == rkNode result = s[i+a.rb+1].node.strVal proc getNode*(a: VmArgs; i: Natural): PNode = doAssert i < a.rc-1 let s = cast[seq[TFullReg]](a.slots) doAssert s[i+a.rb+1].kind == rkNode result = s[i+a.rb+1].node