densho_sample/ # 任意のディレクトリ
  00_maegaki.txt  # 本文原稿
  01_genkou.txt
  02_genkou.txt
  03_atogaki.txt
  04_writers.txt
  cover.txt       # 表紙原稿
  cover.jpg       # 画像ファイル
  capture.jpg
  okuduke.txt     # 書籍情報
  toc.txt         # 目次情報

<title>電書の作り方</title>
<short_name>densho_sample</short_name>
<persons>電子書籍部</persons>
<staff>
構成・テキスト：XXX
グラフィックス：XXX
写真：XXX
</staff>
<date>2010/04/30</date>
<publisher>電子書籍部(米光一成)</publisher>

00_maegaki.txt
01_genkou.txt
02_genkou.txt
03_atogaki.txt
04_writers.txt

00_maegaki.txt, 前書き
01_genkou.txt, この本に書かれていること
04_writers.txt, 執筆者プロフィール

<bold>【世界初!?の電子書籍フリマ】</bold>
<center><img="01.jpg"></center>
<center>米光・小沢</center>

<bold>小沢　</bold>電子書籍フリマってのをやるんでしょ？
<bold>米光　</bold>今年(2010年)の夏と秋に。5/23に文学フリ
マで電子書籍の販売をやるので、その成果を発展させるつもり。「デジタルで
バーチャルな電書をアナログでリアルな対面販売で」ってお祭りをやろうと思
ってる。
<bold>小沢　</bold>「電子書籍フリマをやろう」というアイデ
アは、そもそもどこから？
<bold>米光　</bold>去年の10月にキンドルを手に入れてから、
これでいったいどんなことができるんだろう、何が変わるんだろう、っていう
のをずっと考えていて。

      line.gsub!('<left>', '<div class="left">')
      line.gsub!('<center>', '<div class="center">')
      line.gsub!('<right>', '<div class="right">')
      line.gsub!(/(<\/left>)|(<\/center>)|(<\/right>)/, '</div>')
      line.gsub!('<large>','<span class="large">')
      line.gsub!('<small>','<span class="small">')
      line.gsub!('<bold>','<span class="bold">')
      line.gsub!(/(<\/large>)|(<\/small>)|(<\/bold>)/, '</span>')
      if (@ruby_enable)
        line.gsub!(/<ruby>(.+?)\/(.+?)<\/ruby>/, '<ruby>\1<rp>(</rp><rt>\2</rt><rp>)</rp></ruby>')        
      else
        line.gsub!(/<ruby>(.+?)\/(.+?)<\/ruby>/, '\1(\2)')        
      end

Noratext::Lexer.define :ydml do
  symbols :center, :left, :right, :large, :small, :bold, :bouten, :quote, :image, :ruby, :sonomama, :hasen

  # 名前とマッチパターンが異なるタグ
  match_pattern :image, 'img=".+?"'

  # 閉じタグのないタグ
  without_close :image, :hasen

  # 属性のあるタグ
  add_parser :image do
    |s|
    /<img="(.*?)"/ =~ s
    imgpath = $1
    /size="(.*?)"/ =~s
    size = $1
    { :imgpath => imgpath, :size => size }
  end
  # 閉じタグまで全部プレーンテキストとして読み取るタグ
  rawtext_till_close :sonomama
end

text = 'テストのテキスト。<quote>引用された文字列。</quote><img src="gazou.jpg" size="50%">'
lexer = Noratext::Lexer.generate(:ydml)
result = lexer.process(StringIO.new(text))
result[0][:type] # =>  :text
result[0][:data] # => 'テストのテキスト。'
result[1][:type] # => :quote
result[1][:tag][:kind] # => :opentag
result[2][:type] # => :text
result[2][:data] # => '引用された文字列'
result[3][:type] # => :quote
result[3][:tag][:kind] # => :closetag
result[4][:type] # => :image
result[4][:tag][:imgpath] # => "gazou.jpg"
result[4][:tag][:size] # => "50%"

Noratext::Parser.define :ydml do
  element :document do
    contains :block
  end

  element :block do
    is_oneof :paragraph, :center, :left, :right, :quote, :hasen
  end

  element :paragraph do
    contains :text, :large, :small, :bold, :image, :sonomama, :ruby 
  end
  
  element :center do
    open_close 
    contains :paragraph
  end

  element :text do
    accepts :text
    parse_sequence do
      |sequence|
      data = ""
      while (sequence.size > 0 &&
             sequence[0][:type] == :text)
        data << sequence.shift[:data]
      end
      { :data => data }
    end
  end
end

# まずlexerを利用
text = "テストの<bold>太字テキスト</bold>。<quote>引用された文字列</quote>"
lexer = Noratext::Lexer.generate(:ydml)
sequence = lexer.process(StringIO.new(text))

# lexer結果をパース
parser = Noratext::Parser.generate(:ydml)
parsed = parser.parse(sequence)

parsed.type # => :document
parsed.is_leaf? # => false
parsed.children[0].type # => :paragraph
parsed.children[0].children[0].type # => :text
parsed.children[0].children[0].data # => "テストの"
parsed.children[0].children[1].type # => :bold
parsed.children[0].children[1].children[0].type # => :text
parsed.children[0].children[1].children[0].data # => "太字テキスト"
parsed.children[1].type #=> :quote
...

module YDML
  class ToHTML < Noratext::Processor
    def initialize(io)
      if !io.nil?
	    # YDML::Parser::parseでは内部でNoratextのLexerとParserを続けて呼ぶ。
        @parsed = YDML::Parser.parse(StringIO.new(Kconv.toutf8(io.read).gsub(/\r\n?/, "\n")))
        @parsed.log.each {
          | x |
          warn "line #{x[:lineno]} :  #{x[:log]}\n"
        }
      end

      openclose_element :document do
        open  <<EOF
<?xml version="1.0" encoding="UTF-8"?>
<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
  <head>
    <title>#{@title}</title>
    <link rel="stylesheet" type="text/css" href="#{@csspath}"></link>
  </head>
<body>
EOF
        close  "</body></html>"
      end

      openclose_element :paragraph do
        open  "<p>"
        close "</p>"
      end

      openclose_element :center do
        open   '<div class="center">'
        close '</div>'
      end

      element :text do
        proc do
          |elem|
          elem.data.gsub("\n", "<br />")
        end
      end
  end
  def tohtml
    process(@parsed)
  end
end