http://haskell.g.hatena.ne.jp/eagletmt/ eagletmtの日記 eagletmt http://haskell.g.hatena.ne.jp/eagletmt/20100823/1282554848 例として libxml を利用して html をパースしたり XPath を使ってみたりするコードを書いてみる． ちなみに Haskell で XML を扱うライブラリとしては [http://hackage.haskell.org/package/HaXml:title=HaXml] や [http://hackage.haskell.org/package/hxt:title=hxt] がある． 主に [http://book.realworldhaskell.org/read/interfacing ... eagletmt 2010-08-23T18:14:08+09:00 Haskell http://haskell.g.hatena.ne.jp/eagletmt/20100823/1282554849 FFI とは直接関係は無いが，もう少し Haskell から使いやすい関数にしてみる． 定数オプション まず htmlReadMemory に渡す定数オプションをそのまま数値として渡すのは使いにくい． そこで hsc2hs を利用してもうちょっとわかりやすい形で指定できるようにする． こんなかんじに LibXml.hsc に書いて とすると LibXml.hs が生成されて，recover, noError といった定数が適切に定義されている． NULL と Maybe ドキュメントによると ... eagletmt 2010-08-23T18:14:09+09:00 Haskell http://haskell.g.hatena.ne.jp/eagletmt/20100823/1282554850 Node だけとれてもしょうがないので，例えばそのノードの textContent を得る関数を定義してみる． libxml の API では [http://www.xmlsoft.org/html/libxml-tree.html#xmlNodeGetContent:title=xmlNodeGetContent] にあたる． これでうまくいってくれればよかったのだけど，なぜか c_xmlFree で落ちる． libxml/globals.h を見るとなんか #define とかされているようだけど ... eagletmt 2010-08-23T18:14:10+09:00 Haskell http://haskell.g.hatena.ne.jp/eagletmt/20100823/1282554851 最終的なコードと利用サンプル，そしてそれらをビルドする cabal ファイルを最後に載せておく． libxml.cabal src/LibXml.hsc include/wrapper.h cbits/wrapper.c src/Main.hs eagletmt 2010-08-23T18:14:11+09:00 Haskell http://haskell.g.hatena.ne.jp/eagletmt/20091026/1256569429 [http://www.fh-wedel.de/~si/HXmlToolbox/hdoc/index.html:title] とか [http://www.haskell.org/haskellwiki/HXT:title] を見ながらがんばる． コンセプトは HaXml と同様にフィルタの組み合わせなんだけど，読み込みや書き込みも含めてすべて Arrow で繋げる． IO を伴わない場合は [State]ListArrow ([S]LA)，伴う場合は IO[State]ListArrow (IO[S]L ... eagletmt 2009-10-27T00:03:49+09:00 http://haskell.g.hatena.ne.jp/eagletmt/20091012/1255349481 GHC API 全般的には，[http://www.haskell.org/ghc/docs/latest/html/libraries/ghc/GHC.html#t%3AGhcMonad:title=GhcMonad] の中でごにょごにょやって [http://www.haskell.org/ghc/docs/latest/html/libraries/ghc/GHC.html#v%3ArunGhc:title=runGhc] で実行するかんじ． デフォルトの GhcMonad のインスタンスは [ht ... eagletmt 2009-10-12T21:11:21+09:00 GHC http://haskell.g.hatena.ne.jp/eagletmt/20090930/1254273514 元ネタ: http://d.hatena.ne.jp/bleis-tift/20090929/1254185496 長い… Add, Mult は直接は関係無いが，fifteen や thirty を定義するのに便利だから入れてある． toFizzBuzz を定義してあるので，まずはそれで確認してみる． で，FizzBuzz なリストを出力してみる． 実行結果: http://tinypaste.com/431bbd3 さらに30まで． こんなエラー初めて見た… というわけで指示通りに． ... eagletmt 2009-09-30T10:18:34+09:00