mojavy.com

LTSV for Common Lisp 作りました

February 18, 2013 at 08:30 PM | categories: ltsv, common lisp |

lisp

ブームは過ぎ去ってしまいましたが、意外とまだなかったのでCommon LispのLTSVパーサつくりました。

https://github.com/taksatou/cl-ltsv

http://ltsv.org/

インストール

現在(2013-02-18) quicklisp登録申請中です。登録されれば以下でインストールできます。

(ql:quickload 'cl-ltsv)

使い方

以下のように使います。

CL-USER> (cl-ltsv:parse-line "host:127.0.0.1    ident:- user:frank")
(("host" . "127.0.0.1") ("ident" . "-") ("user" . "frank"))

CL-USER> (with-input-from-string (ss "host:127.0.0.1    ident:- user:frank
host:127.0.0.1  ident:- user:jane
host:127.0.0.1  ident:- user:john")
           (cl-ltsv:with-ltsv-from-stream (entry ss)
             (print entry)))

(("host" . "127.0.0.1") ("ident" . "-") ("user" . "frank")) 
(("host" . "127.0.0.1") ("ident" . "-") ("user" . "jane")) 
(("host" . "127.0.0.1") ("ident" . "-") ("user" . "john")) 
NIL

CL-USER> (cl-ltsv:alist-ltsv '(("host" . "127.0.0.1") ("ident" . "-") ("user" . "frank")))
"host:127.0.0.1 ident:- user:frank"
  • cl-ltsv:parse-lineするとalistを返します
  • cl-ltsv:with-ltsv-from-stream を使えば1行ずつパースしてループします
  • cl-ltsv:alist-ltsv でalistからltsv形式の文字列に変換できます

まとめ

ライブラリにするほどでもなかった気はしますが、Common Lispには文字列のsplitが標準でついてなくてちょっと面倒に感じることもあったのでないよりはましかな、ということで作りました。

フィードバック等ありましたらコメント頂けるとうれしいです。

About Me

pic
mojavy

Recent posts



Categories

Badges