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"))

Gauche用syntaxファイル

http://e.tir.jp/wiliki?vim%3Ascheme.vimからダウンロードできる。
~/.vim/syntax/に置くだけ。

Gauche用syntaxファイルの修正

ちょっと不満があって修正する。
不満とはGaucheとして正しい構文?なのにエラー表示されること。
例えば、デバッグ用の「#?=」とか。

以下を適当に追加する。
これでうざいエラーを削除できる。

"Delete Error
syn match	schemeNoError	oneline    "#?="
syn match	schemeNoError	oneline    "#`"
"以下エラーにしたくない部分を追加していく。

"以下はHiLinkしている所に追加
HiLink schemeNoError		NONE