summary refs log blame commit diff stats
path: root/tests/stdlib/tparsopt.nim
blob: 948bc8d5f35be2a47fd0a395a35784695379d4df (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11






                                                                           



          




                                                                   
 



                               
                 




                                     

                                                                        



                                                    
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

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: assert(false) # cannot happen
if filename == "":
  # no filename has been given, so we show the help:
  writeHelp()