Gaucheでgetopt_longみたいな引数処理

メモ。
アプリを作るとなると当然必要な処理。

Gaucheのヘルプからコピペ。
http://practical-scheme.net/gauche/man/gauche-refj_87.html

#!/usr/bin/gosh

(use gauche.parseopt)

(define (main args)
	(let-args (cdr args)
		((verbose "v|verbose")
		 (help    "h|help" => (cut show-help (car args)))
		 . restargs
		 )
		(print verbose) ;=>#fか#t
		)
	 0)

(define (show-help progname)
	  (print "help test"))