Megatest

Artifact a75ac5197d1324fcd9485870c2871ce45ce6b193:

• File eggs/ducttape-lib/examples/useargs-example.scm — part of check-in [023e88f071] at 2016-12-23 18:08:18 on branch v1.63-ducttape-lib — added initial ducttape-lib code (user: bjbarcla, size: 397) [annotate] [blame] [check-ins using]
• File eggs/ducttape-lib/ref/useargs-example.scm — part of check-in [023e88f071] at 2016-12-23 18:08:18 on branch v1.63-ducttape-lib — added initial ducttape-lib code (user: bjbarcla, size: 397) [annotate] [blame] [check-ins using]

(use general-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")