Megatest

Artifact c73af521bf58369d5d692b0ee69e68c6fa6e154f:

• File ducttape/useargs-example.scm — part of check-in [b4dc6cb51b] at 2017-01-23 12:14:40 on branch v1.63-xor-report — captured ducttape-lib files (does not yet install... wip) (user: bjbarcla, size: 398) [annotate] [blame] [check-ins using] [more...]

(use ducttape-lib)

(let (
      (customers (skim-cmdline-opts-withargs-by-regex "--cust(omer)?"))
      (magicmode (skim-cmdline-opts-noarg-by-regex "--magic"))
      )
  (print "your customers are " customers)
  (if (null? magicmode)
      (print "no unicorns for you")
      (print "magic!")
  )
  )

(idbg "hello")
(idbg "hello2" 2)
(idbg "hello2" 3)
(inote "note")
(iwarn "warn")
(ierr "err")