Parsec の実例： HTMangl | tnomuraのブログ
Parsec の使い方の実例がないかと検索していたら、つぎのページを見つけた。 Simple Parsec Example: HTMangL Parsec を使って Haskell の Birs-style の文書のうち、コード部分に HTML のタグをつけ、更に特殊文字もエスケープ表現に置き換えるというプログラムだ。Parsec の基本的な使い方がわかる上に、いろいろなテクニックが洒落ていて面白い。 実は、前回までの数回分の記事は、このプログラムを読みこなすための準備だった。 コード部分だけを抜き出したものを次に示す。 module Main where import Text.ParserCombinators.Parsec eol = newline <|> (eof >> return '\n') tilEOL = manyTill (noneOf "\n") eol codeLi
ParsecでByteStringを使ってUTF-8の文字列をパースする - #3(2011-01-04)
■ [Haskell] ParsecでByteStringを使ってUTF-8の文字列をパースする ParsecでByteStringを使う場合、Text.Parsec.ByteStringやText.Parsec.ByteString.Lazyを使いますが、これらのパッケージは、Data.ByteString.Char8やData.ByteString.Lazy.Char8を中で使っているので、非ASCIIな文字列を正しくパースできません。 UTF-8のバイト列がByteStringに格納されている場合には、utf8-stringパッケージのData.ByteString.UTF8やData.ByteString.Lazy.UTF8を使うとパースできるようになります。まずは、Streamとして扱えるように、以下のようにインスタンスを宣言します。 import qualified Data.
Parsecで範囲指定 - あどけない話
Parsec には以下のようなコンビネーターが存在する。 many p -- p を 0 回以上 many1 p -- p を 1 回以上 count n p -- p を n 回 しかし、正規表現の"{min,max}"のような範囲指定はない。そこで実装してみた。 import ApplicativeParsec range :: Int -> Int -> GenParser tok st a -> GenParser tok st [a] range n m p = (++) <$> count n p <*> upto (m - n) p upto :: Int -> GenParser tok st a -> GenParser tok st [a] upto 0 _ = return [] upto n p = (:) <$> p <*> upto (n - 1) p <|>
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
