ulmul 0.4.1 → 0.5.0

data/lib/ulmul.rb

@@ -1,11 +1,18 @@
 #!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
 # ulmul.rb
-# Time-stamp: <2010-06-06 20:10:52 takeshi>
+# Time-stamp: <2011-04-02 19:23:18 takeshi>
 # Author: Takeshi Nishimatsu
 ##
 require "rubygems"
 require "date"
 require "math_ml/string"
+require "aasm"
+
+# For m17n of Ruby 1.9.x. Thanks, Masayoshi Takahashi-san [ruby-list:47159].
+if defined?(Encoding) && Encoding.respond_to?("default_external")
+  Encoding.default_external = "UTF-8"
+end
 
 class String
   def apply_subs_rules(rules)
@@ -13,260 +20,308 @@ class String
     rules.each do |ary|
       result.gsub!(ary[0],ary[1])
     end
-    is_mathml = false
-    while result =~ /\$(.*?)\$/
-      pre=$`
-      tex=Regexp.last_match[1]
-      post=$'
-      result = "#{pre}#{tex.to_mathml}#{post}"
-      is_mathml = true
+    if $0 == __FILE__ || /ulmul2(html5|xhtml)$/ =~ $0
+      while result =~ /\$(.*?)\$/
+        pre=$`
+        tex=Regexp.last_match[1]
+        post=$'
+        result = "#{pre}#{tex.to_mathml}#{post}"
+      end
     end
-    return result, is_mathml
+    return result
   end
 end
 
 module Itemize
-  def itemize_begin(e)
+  def cb_itemize_begin(filename=nil, lnumber=nil, line=nil)
     @level_of_state = 0
   end
 
-  def itemize_add_primitive(new_level,str)
+  def cb_itemize_add_item(filename=nil, lnumber=nil, line=nil)
+    new_level = case line
+                when         /^ \* (.*)/ then 1
+                when       /^   \* (.*)/ then 2
+                when     /^     \* (.*)/ then 3
+                when   /^       \* (.*)/ then 4
+                when /^         \* (.*)/ then 5
+                else raise 'Illegal astarisk line for itemize'
+                end
+    str = Regexp.last_match[1].apply_subs_rules(@subs_rules)
     if new_level>@level_of_state+1
-      raise 'Illegal jump of itemize level'
+      STDERR << filename << ":#{lnumber}: Illegal jump of itemize level from #{@level_of_state} to #{new_level}: #{line}"
+      exit 1
+      raise 
     elsif new_level==@level_of_state+1
-      @body << "\n" << "    "*@level_of_state << "<ul>\n"
-      @body <<              "    "*(new_level-1) << "  " << "<li>#{str}"
+      @body << "\n" << "    "*@level_of_state << ITEMIZE_INITIATOR << "\n"
+      @body <<              "    "*(new_level-1) << "  " << ITEM_INITIATOR << str
       @level_of_state = new_level
     elsif new_level==@level_of_state
-      @body << "</li>\n" << "    "*(new_level-1) << "  " << "<li>#{str}"
+      @body << ITEM_TERMINATOR << "\n" << "    "*(new_level-1) << "  " << ITEM_INITIATOR << str
     else
-      @body << "</li>\n"
-      (@level_of_state-1).downto(new_level){|i| @body << "    "*i << "</ul></li>\n"}
-      @body              << "    "*(new_level-1) << "  " << "<li>#{str}"
+      @body << ITEM_TERMINATOR<< "\n"
+      (@level_of_state-1).downto(new_level){|i| @body << "    "*i << ITEMIZE_TERMINATOR << ITEM_TERMINATOR << "\n"}
+      @body              << "    "*(new_level-1) << "  " << ITEM_INITIATOR << str
       @level_of_state = new_level
     end
   end
 
-  def itemize_continue_primitive(new_level,str)
-    (@level_of_state-1).downto(new_level){|i| @body << "</li>\n" << "    "*i << "</ul>"}
+  def cb_itemize_continue_item(filename=nil, lnumber=nil, line=nil)
+    new_level = case line
+                when         /^   (\S.*)/ then 1
+                when       /^     (\S.*)/ then 2
+                when     /^       (\S.*)/ then 3
+                when   /^         (\S.*)/ then 4
+                when /^           (\S.*)/ then 5
+                else raise 'Illegal astarisk line for itemize'
+                end
+    str = Regexp.last_match[1].apply_subs_rules(@subs_rules)
+    (@level_of_state-1).downto(new_level){|i| @body << ITEM_TERMINATOR << "\n" << "    "*i << ITEMIZE_TERMINATOR}
     @body << "\n  " << "    "*(new_level-1) << "  " << str
     @level_of_state = new_level
   end
 
-  def itemize_end(e)
-    @body << "</li>\n"
-    (@level_of_state-1).downto(1){|i| @body << "    "*i << "</ul></li>\n"}
-    @body << "</ul>\n"
+  def cb_itemize_end(filename=nil, lnumber=nil, line=nil)
+    @body << ITEM_TERMINATOR << "\n"
+    (@level_of_state-1).downto(1){|i| @body << "    "*i << ITEMIZE_TERMINATOR << ITEM_TERMINATOR << "\n"}
+    @body << ITEMIZE_TERMINATOR << "\n"
     @level_of_state = 0
   end
 end
 
-class Contents
+class Table_of_Contents
   include Itemize
   def initialize()
-    @state                 = 'itemize'
-    @level_of_state        = 0
-    @body                  = ''
+    @body = ''
+    @subs_rules = []
+    cb_itemize_begin()
   end
   attr_reader :body
 end
 
 class Ulmul
-  VERSION = '0.4.1'
-  CONTENTS_HERE="<!-- Contents -->"
-  CONTENTS_RANGE_DEFAULT=2..3
-  TABLE={
-    'ignore'   => {'ground'    => [],
-                   'itemize'   => [],
-                   'verbatim'  => [],
-                   'paragraph' => [],
-                   'equation'  => [],
-                   'figure'    => []},
-
-    'end'      => {'ground'    => [                :heading_add],
-                   'itemize'   => [  :itemize_end, :heading_add, 'ground'],
-                   'verbatim'  => [ :verbatim_end, :heading_add, 'ground'],
-                   'paragraph' => [:paragraph_end, :heading_add, 'ground'],
-                   'equation'  => [:equation_error],
-                   'figure'    => [:figure_error]},
-
-    'heading'  => {'ground'    => [                :heading_add],
-                   'itemize'   => [  :itemize_end, :heading_add, 'ground'],
-                   'verbatim'  => [ :verbatim_end, :heading_add, 'ground'],
-                   'paragraph' => [:paragraph_end, :heading_add, 'ground'],
-                   'equation'  => [:equation_continue],
-                   'figure'    => [:figure_continue]},
-
-    'asterisk' => {'ground'    => [:itemize_begin, 'itemize', :itemize_add],
-                   'itemize'   => [                           :itemize_add],
-                   'verbatim'  => [                          :verbatim_add],
-                   'paragraph' => [:paragraph_end,
-                                   :itemize_begin, 'itemize', :itemize_add],
-                   'equation'  => [:equation_continue],
-                   'figure'    => [:figure_continue]},
-
-    'offset'   => {'ground'    => [:verbatim_begin, 'verbatim', :verbatim_add],
-                   'itemize'   => [:itemize_continue],
-                   'verbatim'  => [                             :verbatim_add],
-                   'paragraph' => [:paragraph_end,
-                                   :verbatim_begin, 'verbatim', :verbatim_add],
-                   'equation'  => [:equation_continue],
-                   'figure'    => [:figure_continue]},
-
-    'empty'    => {'ground'    => [],
-                   'itemize'   => [:itemize_end, 'ground'],
-                   'verbatim'  => [:verbatim_add],
-                   'paragraph' => [:paragraph_end, 'ground'],
-                   'equation'  => [:equation_error],
-                   'figure'    => [:figure_error]},
-
-    'normal'   => {'ground'    => [:paragraph_begin, 'paragraph', :paragraph_add],
-                   'itemize'   => [:itemize_end,
-                                   :paragraph_begin, 'paragraph', :paragraph_add],
-                   'verbatim'  => [:verbatim_end,
-                                   :paragraph_begin, 'paragraph', :paragraph_add],
-                   'paragraph' => [:paragraph_add],
-                   'equation'  => [:equation_continue],
-                   'figure'    => [:figure_continue]},
-
-    'eq_begin' => {'ground'    => [:paragraph_begin, :equation_begin, 'equation'],
-                   'itemize'   => [:itemize_end,
-                                   :paragraph_begin, :equation_begin, 'equation'],
-                   'verbatim'  => [:verbatim_end,
-                                   :paragraph_begin, :equation_begin, 'equation'],
-                   'paragraph' => [                  :equation_begin, 'equation'],
-                   'equation'  => [:equation_error],
-                   'figure'    => [:figure_error]},
-
-    'eq_end'   => {'ground'    => [:equation_error],
-                   'itemize'   => [:equation_error],
-                   'verbatim'  => [:equation_error],
-                   'paragraph' => [:equation_error],
-                   'equation'  => [:equation_end, 'paragraph'],
-                   'figure'    => [:figure_error]},
-
-    'fig_begin'=> {'ground'    => [                :figure_begin, 'figure'],
-                   'itemize'   => [:itemize_end,   :figure_begin, 'figure'],
-                   'verbatim'  => [:verbatim_end,  :figure_begin, 'figure'],
-                   'paragraph' => [:paragraph_end, :figure_begin, 'figure'],
-                   'equation'  => [:equation_error],
-                   'figure'    => [:figure_error]},
-
-    'fig_end'  => {'ground'    => [:figure_error],
-                   'itemize'   => [:figure_error],
-                   'verbatim'  => [:figure_error],
-                   'paragraph' => [:figure_error],
-                   'equation'  => [:figure_error],
-                   'figure'    => [:figure_end, 'ground']}
-  }
-
-  def initialize(contents_range=CONTENTS_RANGE_DEFAULT,mode='ulmul2html5')
-    @contents_range        = contents_range
-    @contents              = Contents.new()
-    @state                 = 'ground'
-    @level_of_state        = 0
-    @level_of_heading      = 0
-    @i_th_heading          = 0
-    @equation              = ''
-    @figure_caption        = ''
-    @body                  = ''
-    @subs_rules            = [[/(http:\S*)(\s|$)/,  '<a href="\1">\1</a>\2'],
-                              [/(https:\S*)(\s|$)/, '<a href="\1">\1</a>\2']]
-    @contents.itemize_begin(nil)
-    @is_mathml = false
-
-    @mode=mode
-    if @mode=='ulmul2html5'
-      @figure_open  =  '<figure>'
-      @figure_close = '</figure>'
-      @caption_open  =  '<figcaption>'
-      @caption_close = '</figcaption>'
-    else
-      @figure_open  =  '<div class="figure">'
-      @figure_close = '</div>'
-      @caption_open  =  '<div class="figcaption">'
-      @caption_close = '</div>'
-    end
+  include AASM
+  include Itemize
+  VERSION = '0.5.0'
+ 
+  aasm_initial_state :st_ground
+ 
+  aasm_state :st_ground
+  aasm_state :st_itemize
+  aasm_state :st_verbatim
+  aasm_state :st_paragraph
+  aasm_state :st_env
+  aasm_state :st_equation
+ 
+  aasm_event :ev_ignore do
+    transitions :from => :st_ground,    :to => :st_ground    
+    transitions :from => :st_itemize,   :to => :st_itemize   
+    transitions :from => :st_verbatim,  :to => :st_verbatim
+    transitions :from => :st_paragraph, :to => :st_paragraph 
+    transitions :from => :st_env,       :to => :st_env    
+    transitions :from => :st_equation,  :to => :st_equation
   end
-  attr_accessor :subs_rules
 
-  def equation_begin(e)
-    @is_mathml = true
+  aasm_event :ev_asterisk do
+    transitions :from => :st_ground,    :to => :st_itemize,   :on_transition =>                    [:cb_itemize_begin, :cb_itemize_add_item]
+    transitions :from => :st_itemize,   :to => :st_itemize,   :on_transition =>                                       [:cb_itemize_add_item]
+    transitions :from => :st_verbatim,  :to => :st_verbatim,  :on_transition => [:cb_verbatim_add]
+    transitions :from => :st_paragraph, :to => :st_itemize,   :on_transition => [:cb_paragraph_end, :cb_itemize_begin, :cb_itemize_add_item]
+    transitions :from => :st_env,       :to => :st_env,       :on_transition => [:cb_env_continues]
+    transitions :from => :st_equation,  :to => :st_equation,  :on_transition => [:cb_equation_continues]
+  end
+ 
+  aasm_event :ev_offset do
+    transitions :from => :st_ground,    :to => :st_verbatim,  :on_transition =>                    [:cb_verbatim_begin, :cb_verbatim_add]
+    transitions :from => :st_itemize,   :to => :st_itemize,   :on_transition => [:cb_itemize_continue_item]
+    transitions :from => :st_verbatim,  :to => :st_verbatim,  :on_transition =>                                        [:cb_verbatim_add]
+    transitions :from => :st_paragraph, :to => :st_verbatim,  :on_transition => [:cb_paragraph_end, :cb_verbatim_begin, :cb_verbatim_add]
+    transitions :from => :st_env,       :to => :st_env,       :on_transition => [:cb_env_continues]
+    transitions :from => :st_equation,  :to => :st_equation,  :on_transition => [:cb_equation_continues]
+  end
+ 
+  aasm_event :ev_heading do
+    transitions :from => :st_ground,    :to => :st_ground,    :on_transition =>                    [:cb_heading]
+    transitions :from => :st_itemize,   :to => :st_ground,    :on_transition =>   [:cb_itemize_end, :cb_heading]
+    transitions :from => :st_verbatim,  :to => :st_ground,    :on_transition =>  [:cb_verbatim_end, :cb_heading]
+    transitions :from => :st_paragraph, :to => :st_ground,    :on_transition => [:cb_paragraph_end, :cb_heading]
+    transitions :from => :st_env,       :to => :st_ground,    :on_transition => [:cb_env_in_env_error]
+    transitions :from => :st_equation,  :to => :st_equation,  :on_transition => [:cb_equation_in_equation_error]
+  end
+ 
+  aasm_event :ev_empty do
+    transitions :from => :st_ground,    :to => :st_ground
+    transitions :from => :st_itemize,   :to => :st_ground,    :on_transition =>   [:cb_itemize_end]
+    transitions :from => :st_verbatim,  :to => :st_ground,    :on_transition =>  [:cb_verbatim_end]
+    transitions :from => :st_paragraph, :to => :st_ground,    :on_transition => [:cb_paragraph_end]
+    transitions :from => :st_env,       :to => :st_env
+    transitions :from => :st_equation,  :to => :st_equation
   end
 
-  def equation_continue(e)
-    @equation << e.line
+  aasm_event :ev_env_begin do
+    transitions :from => :st_ground,    :to => :st_env,       :on_transition =>                    [:cb_env_begin]
+    transitions :from => :st_itemize,   :to => :st_env,       :on_transition =>   [:cb_itemize_end, :cb_env_begin]
+    transitions :from => :st_verbatim,  :to => :st_env,       :on_transition =>  [:cb_verbatim_end, :cb_env_begin]
+    transitions :from => :st_paragraph, :to => :st_env,       :on_transition => [:cb_paragraph_end, :cb_env_begin]
+    transitions :from => :st_env,       :to => :st_env,       :on_transition => [:cb_env_in_env_error]
+    transitions :from => :st_equation,  :to => :st_equation,  :on_transition => [:cb_equation_in_equation_error]
+  end
+ 
+  aasm_event :ev_env_end do
+    transitions :from => [:st_ground, :st_itemize, :st_verbatim, :st_paragraph, :st_equation],
+                                        :to => :st_ground,    :on_transition => [:cb_env_not_in_env_error]
+    transitions :from => :st_env,       :to => :st_ground,    :on_transition => [:cb_env_end]
+  end
+ 
+  aasm_event :ev_equation_begin do
+    transitions :from => :st_ground,    :to => :st_equation,  :on_transition =>                    [:cb_paragraph_begin, :cb_equation_begin]
+    transitions :from => :st_itemize,   :to => :st_equation,  :on_transition =>   [:cb_itemize_end, :cb_paragraph_begin, :cb_equation_begin]
+    transitions :from => :st_verbatim,  :to => :st_equation,  :on_transition =>  [:cb_verbatim_end, :cb_paragraph_begin, :cb_equation_begin]
+    transitions :from => :st_paragraph, :to => :st_equation,  :on_transition =>                                         [:cb_equation_begin]
+    transitions :from => :st_equation,  :to => :st_equation,  :on_transition => [:cb_equation_in_equation_error]
+  end
+ 
+  aasm_event :ev_equation_end do
+    transitions :from => [:st_ground, :st_itemize, :st_verbatim, :st_paragraph, :st_env],
+                                        :to => :st_ground,    :on_transition => [:cb_equation_not_in_equation_error]
+    transitions :from => :st_equation,  :to => :st_paragraph, :on_transition => [:cb_equation_end]
+  end
+ 
+  aasm_event :ev_normal do
+    transitions :from => :st_ground,    :to => :st_paragraph, :on_transition =>                   [:cb_paragraph_begin, :cb_paragraph_add]
+    transitions :from => :st_itemize,   :to => :st_paragraph, :on_transition =>  [:cb_itemize_end, :cb_paragraph_begin, :cb_paragraph_add]
+    transitions :from => :st_verbatim,  :to => :st_paragraph, :on_transition => [:cb_verbatim_end, :cb_paragraph_begin, :cb_paragraph_add]
+    transitions :from => :st_paragraph, :to => :st_paragraph, :on_transition =>                                        [:cb_paragraph_add]
+    transitions :from => :st_env,       :to => :st_env,       :on_transition => [:cb_env_continues]
+    transitions :from => :st_equation,  :to => :st_equation,  :on_transition => [:cb_equation_continues]
   end
 
-  def equation_end(e)
-    @body << @equation.to_mathml('block').to_s << "\n"
-    @equation =''
+  def cb_paragraph_begin(filename=nil, lnumber=nil, line=nil)
+    @body << PARAGRAPH_INITIATOR << "\n"
   end
 
-  def figure_begin(e)
-    dummy, @figure_label, @figure_file = e.line.split
-    @body << "#{@figure_open}
-  <img src=\"#{@figure_file}\" alt=\"#{@figure_file}\" />
-  #{@caption_open}\n"
+  def cb_paragraph_add(filename=nil, lnumber=nil, line=nil)
+    @body << line.apply_subs_rules(@subs_rules)
   end
 
-  def figure_continue(e)
-    result, is_mathml = e.line.apply_subs_rules(@subs_rules)
-    @figure_caption << result
-    @is_mathml = @is_mathml || is_mathml
+  def cb_paragraph_end(filename=nil, lnumber=nil, line=nil)
+    @body << PARAGRAPH_TERMINATOR << "\n"
   end
 
-  def figure_end(e)
-    @body << @figure_caption << "  #{@caption_close}\n" <<  "#{@figure_close}\n"
-    @figure_caption =''
+  def cb_verbatim_begin(filename=nil, lnumber=nil, line=nil)
+    @body << VERBATIM_INITIATOR << "\n"
   end
 
-  def figure_error(e)
-    p e
-    exit 1
+  def cb_verbatim_add(filename=nil, lnumber=nil, line=nil)
+      @body << line[1..-1] #.gsub(/</,'&lt;').gsub(/>/,'&gt;')
   end
 
-  def verbatim_begin(e)
-    @level_of_state = 0
-    @body << "<pre>"
+  def cb_verbatim_end(filename=nil, lnumber=nil, line=nil)
+    @body << VERBATIM_TERMINATOR << "\n"
   end
 
-  def verbatim_add(e)
-    if e.event=='empty'
-      @level_of_state += 1
-    else
-      @body << "\n"*@level_of_state << e.line[1..-1].gsub(/</,'&lt;').gsub(/>/,'&gt;')
-      @level_of_state=0
+  def cb_env_begin(filename=nil, lnumber=nil, line=nil)
+    @env_label, @env_file = line.split
+    @env_label.sub!(/^\\/,'')
+    @env_caption =''
+    case @env_label
+    when /^Fig:/
+      @figures << @env_label
+    when /^Table:/
+      @tables << @env_label
+    when /^Code:/
+      @codes << @env_label
     end
   end
 
-  def verbatim_end(e)
-    @body << "</pre>\n"
+  def cb_env_continues(filename=nil, lnumber=nil, line=nil)
+    @env_caption << line
   end
 
-  def paragraph_begin(e)
-    @level_of_state = 0
-    @body << "<p>\n"
+  def cb_env_end(filename=nil, lnumber=nil, line=nil)
+    if line.chomp.sub(/^\//,'') != @env_label
+      STDERR << filename << ":#{lnumber}: Current environment is #{@env_label}, but it is terminated with: #{line}"
+      exit 1
+    end
+    cb_env_end2()
+    @env_caption =''
+    @env_label =''
+  end
+
+  def cb_env_in_env_error(filename=nil, lnumber=nil, line=nil)
+    STDERR << filename << ":#{lnumber}: It is already/still in the environment of #{@env_label}, but you tried: #{line}"
+    exit 1
   end
 
-  def paragraph_add(e)
-    result, is_mathml = e.line.apply_subs_rules(@subs_rules)
-    @body << result
-    @is_mathml = @is_mathml || is_mathml
+  def cb_env_not_in_env_error(filename=nil, lnumber=nil, line=nil)
+    STDERR << filename << ":#{lnumber}: It is not in any environment, but you tried: #{line}"
+    exit 1
+  end
+
+  def cb_equation_begin(filename=nil, lnumber=nil, line=nil)
+    @equation_label = line.strip.sub!(/^\\/,'')
+    @equations << @equation_label
+    @equation_contents = ''
   end
 
-  def paragraph_end(e)
-    @body << "</p>\n"
+  def cb_equation_continues(filename=nil, lnumber=nil, line=nil)
+    @equation_contents << line
   end
 
-  def heading_add(e)
-    if /^(=+) (.*)$/ =~ e.line
+  def cb_equation_end(filename=nil, lnumber=nil, line=nil)
+    cb_equation_end2()
+    @equation_contents =''
+    @equation_label =''
+  end
+
+  def parse(fd)
+    while true
+      if line = fd.gets
+        lnumber = ARGF.file.lineno
+      else
+        line = "=end\n"
+      end
+      case line
+      when /^=begin/,/^#/ then    ev_ignore(nil, $FILENAME, lnumber, line)
+      when /^=end/        then   ev_heading(nil, $FILENAME, lnumber, line); break
+      when /^=+ /         then   ev_heading(nil, $FILENAME, lnumber, line)
+      when /^ +\*/        then  ev_asterisk(nil, $FILENAME, lnumber, line)
+      when /^$/           then     ev_empty(nil, $FILENAME, lnumber, line)
+      when /^\s+/         then    ev_offset(nil, $FILENAME, lnumber, line)
+      when /^\\(Fig|Table|Code):/
+                          then ev_env_begin(nil, $FILENAME, lnumber, line)
+      when /^\/(Fig|Table|Code):/
+                          then   ev_env_end(nil, $FILENAME, lnumber, line)
+      when /^\\Eq:/  then ev_equation_begin(nil, $FILENAME, lnumber, line)
+      when /^\/Eq:/  then   ev_equation_end(nil, $FILENAME, lnumber, line)
+      else                        ev_normal(nil, $FILENAME, lnumber, line)
+      end
+    end
+  end
+
+  def initialize()
+    @toc = Table_of_Contents.new()
+    @body = ''
+    @level_of_heading = 0
+    @i_th_heading     = 0
+    @equations       = []
+    @figures         = []
+    @tables          = []
+    @codes           = []
+    @subs_rules = []
+  end
+  attr_accessor :subs_rules
+end
+
+module HTML
+  CONTENTS_HERE="<!-- Contents -->"
+  def cb_heading(filename=nil, lnumber=nil, line=nil)
+    if /^(=+) (.*)$/ =~ line
       new_level=Regexp.last_match[1].length
       str=Regexp.last_match[2]
-    elsif /^=end/ =~ e.line
+    elsif /^=end/ =~ line
       @level_of_heading=0
       @body << '</div>'
-      @contents.itemize_end(nil)
+      @toc.cb_itemize_end()
       return
     end
     raise 'Illegal jump of heading level' if new_level>@level_of_heading+1
@@ -274,121 +329,267 @@ class Ulmul
     @body << CONTENTS_HERE << "\n" if @i_th_heading==2
     @body << "</div>\n\n\n"        if @i_th_heading!=1 and new_level<=2
     @title=str                     if @i_th_heading==1
-    cls = case new_level
-          when 1 then "slide cover"
-          else        "slide"
-          end
+    cls = if new_level==1 then "slide cover" else "slide" end
     @body << "<div class=\"#{cls}\">\n" if new_level<=2
     @body << "<h#{new_level} id=\"LABEL-#{@i_th_heading}\">" << str << "</h#{new_level}>\n"
-    if @contents_range === new_level
-      @contents.itemize_add_primitive(1+new_level-@contents_range.first,
-                                      "<a href=\"#LABEL-#{@i_th_heading}\">" + str + "</a>")
+    if 2 <= new_level && new_level <= $MAX_TABLE_OF_CONTENTS
+      @toc.cb_itemize_add_item('HTML Table of Contents', @i_th_heading, "  "*(new_level-2) + " * <a href=\"#LABEL-#{@i_th_heading}\">" + str + "</a>")
     end
     @level_of_heading=new_level
   end
 
-  include Itemize
-  def itemize_add(e)
-    new_level = case e.line
-                when         /^ \* (.*)/ then 1
-                when       /^   \* (.*)/ then 2
-                when     /^     \* (.*)/ then 3
-                when   /^       \* (.*)/ then 4
-                when /^         \* (.*)/ then 5
-                else raise 'Illegal astarisk line for itemize'
-                end
-    str, is_mathml = Regexp.last_match[1].apply_subs_rules(@subs_rules)
-    itemize_add_primitive(new_level,str)
-    @is_mathml = @is_mathml || is_mathml
+  def body
+    b = @body.dup
+    @equations.each_with_index{|r,i| b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),  "\\1<a href=\"##{r}\">Eq. (#{i+1})</a>\\2")}
+    @figures.each_with_index{|r,i|   b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),   "\\1<a href=\"##{r}\">Fig. #{i+1}</a>\\2")}
+    @tables.each_with_index{|r,i|    b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),  "\\1<a href=\"##{r}\">Table #{i+1}</a>\\2")}
+    @codes.each_with_index{|r,i|     b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),   "\\1<a href=\"##{r}\">Code #{i+1}</a>\\2")}
+    if $MAX_TABLE_OF_CONTENTS>=2
+      b.sub(CONTENTS_HERE, "<br />\n<div class=\"table of contents\">\nTable of Contents:" +
+                @toc.body + "</div>\n")
+    else
+      b
+    end
   end
-  def itemize_continue(e)
-    /^(\s+)(\S.*)$/.match(e.line)
-    new_level = Regexp.last_match[1].length/2
-    new_level=@level_of_state if new_level>@level_of_state
-    raise "Illegal indent in itemize" if new_level<=0
-    str, is_mathml = Regexp.last_match[2].apply_subs_rules(@subs_rules)
-    itemize_continue_primitive(new_level,str)
-    @is_mathml = @is_mathml || is_mathml
+
+  def cb_env_end2table()
+      @body << "<table  id=\"#{@env_label}\">\n"
+      @body << "  <caption>\n"
+      @body << "  Table #{@tables.length}: " << @env_caption.apply_subs_rules(@subs_rules)
+      @body << "  </caption>\n"
+      @body << "  <thead><tr><th>       TABLE           </th></tr></thead>\n"
+      @body << "  <tbody><tr><td>Not yet implemented</td></tr></tbody>\n"
+      @body << '</table>' << "\n"
   end
 
+  def cb_env_end2code()
+    @body << "<p id=\"#{@env_label}\" class=\"code caption\">\n"
+    @body << "  Code #{@codes.length}: " << @env_caption.apply_subs_rules(@subs_rules) << "(download: <a href=\"#{@env_file}\">#{File.basename(@env_file)}</a>)" << "</p>\n"
+    @body << "<pre class=\"prettyprint\">\n"
+    f = open(@env_file)
+    @body << f.read.gsub(/&/,'&amp;').gsub(/</,'&lt;').gsub(/>/,'&gt;')
+    f.close
+    @body << "</pre>\n"
+  end
 
-  def parse(fd)
-    while line=fd.gets || line="=end\n"
-      e = Event.new(line)
-      #STDERR.printf("%s\n", @state)
-      #STDERR.printf("%-10s:%s", e.event, line)
-      procs = TABLE[e.event][@state]
-      procs.each do |i|
-        send(i,e) if i.instance_of?(Symbol)
-        @state=i  if i.instance_of?(String)
-      end
-      break if e.event=='end'
-    end
+  def cb_equation_end2()
+    @body << @equation_contents.to_mathml('block').to_s.sub(/<math /,"<math id=\"#{@equation_label}\" ") << "\n"
   end
+end
 
-  def body
-    if @contents_range.first<=@contents_range.last
-      @body.sub(CONTENTS_HERE,"<br />Contents:"+@contents.body)
-    else
-      @body
+module HTML5
+  def cb_env_end2()
+    case @env_label
+    when /^Fig:/
+      @body << "<figure id=\"#{@env_label}\">\n" << "  <img src=\"#{@env_file}\" alt=\"#{@env_file}\" />\n"
+      @body << "  <figcaption>\n"
+      @body << "  Figure #{@figures.length}: " << @env_caption.apply_subs_rules(@subs_rules)
+      @body << "  </figcaption>\n" << '</figure>' << "\n"
+    when /^Table:/
+      cb_env_end2table()
+    when /^Code:/
+      cb_env_end2code()
     end
   end
 
-  def html(stylesheets=["style.css"],javascripts=[],name="",language="en")
+  def file(stylesheets=["ulmul2html5.css"],javascripts=[],name="",language="en")
     style_lines=""
-    stylesheets.each{|s| style_lines << "<link rel=\"stylesheet\" href=\"#{s}\" type=\"text/css\" />\n"}
+    stylesheets.each{|s| style_lines << "  <link rel=\"stylesheet\" href=\"#{s}\" type=\"text/css\" />\n"}
     javascript_lines=""
-    javascripts.each{|j| javascript_lines << "<script src=\"#{j}\" type=\"text/javascript\"></script>\n"}
-    if @mode=='ulmul2html5'
-      xml_line=''
-      meta_charset_line="<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n  "
-      doctype_lines="<!DOCTYPE html>"
-      html_line="<html lang=\"#{language}\">"
-    else
-      xml_line="<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
-      meta_charset_line="<meta http-equiv=\"content-type\" content=\"application/xhtml+xml; charset=utf-8\" />\n  "
-      if @is_mathml
-        doctype_lines='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0//EN"
-                     "http://www.w3.org/Math/DTD/mathml2/xhtml-math11-f.dtd">'
-        html_line="<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"#{language}\" dir=\"ltr\">"
-      else
-        doctype_lines='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
-                     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
-        html_line="<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"#{language}\" lang=\"#{language}\" dir=\"ltr\">"
-      end
+    javascripts.each{|j| javascript_lines << "  <script src=\"#{j}\" type=\"text/javascript\"></script>\n"}
+    return "<!DOCTYPE html>
+<html lang=\"#{language}\">
+<head>
+  <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
+  <title>#{@title}</title>
+  <meta name=\"author\" content=\"#{name}\" />
+  <meta name=\"copyright\" content=\"Copyright &#169; #{Date.today.year} #{name}\" />
+#{style_lines}#{javascript_lines}  <link rel=\"shortcut icon\" href=\"favicon.ico\" />
+</head>
+<body onload=\"prettyPrint()\">
+#{body()}
+</body>
+</html>
+"
+  end
+end
+
+module XHTML
+  def cb_env_end2()
+    case @env_label
+    when /^Fig:/
+      @body << "<div class=\"figure\" id=\"#{@env_label}\">\n" << "  <img src=\"#{@env_file}\" alt=\"#{@env_file}\" />\n"
+      @body << "  <div class=\"figcaption\">\n"
+      @body << "  Figure #{@figures.length}. " << @env_caption.apply_subs_rules(@subs_rules)
+      @body << "  </div>\n"
+      @body << '</div>' << "\n"
+    when /^Table:/
+      cb_env_end2table()
+    when /^Code:/
+      cb_env_end2code()
     end
-    return "#{xml_line}#{doctype_lines}
-#{html_line}
+  end
+  
+  def file(stylesheets=["ulmul2xhtml.css"],javascripts=[],name="",language="en")
+    style_lines=""
+    stylesheets.each{|s| style_lines << "  <link rel=\"stylesheet\" href=\"#{s}\" type=\"text/css\" />\n"}
+    javascript_lines=""
+    javascripts.each{|j| javascript_lines << "<script src=\"#{j}\" type=\"text/javascript\"></script>\n"}
+    return "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<!DOCTYPE html
+  PUBLIC \"-//W3C//DTD XHTML 1.1 plus MathML 2.0//EN\"
+         \"http://www.w3.org/Math/DTD/mathml2/xhtml-math11-f.dtd\">
+<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">
+
 <head>
-  #{meta_charset_line}<title>#{@title}</title>
+  <meta name=\"language\" content=\"#{language}\" />
+  <title>#{@title}</title>
   <meta name=\"author\" content=\"#{name}\" />
   <meta name=\"copyright\" content=\"Copyright &#169; #{Date.today.year} #{name}\" />
   #{style_lines}#{javascript_lines}  <link rel=\"shortcut icon\" href=\"favicon.ico\" />
 </head>
-<body>
+<body onload=\"prettyPrint()\">
 #{body()}
 </body>
 </html>
+"
+  end
+end
+
+module LaTeX
+  require 'exifr'
+  def cb_heading(filename=nil, lnumber=nil, line=nil)
+    if /^(=+) (.*)$/ =~ line
+      new_level=Regexp.last_match[1].length
+      str=Regexp.last_match[2]
+    elsif /^=end/ =~ line
+      @level_of_heading=0
+      @toc.cb_itemize_end()
+      return
+    end
+    raise 'Illegal jump of heading level' if new_level>@level_of_heading+1
+    @title=str                                 if new_level==1
+    @body <<       '\section{' << str << "}\n" if new_level==2
+    @body <<    '\subsection{' << str << "}\n" if new_level==3
+    @body << '\subsubsection{' << str << "}\n" if new_level==4
+    @body <<            '\bf{' << str << "}\n" if new_level==5
+    if 2 <= new_level && new_level <= $MAX_TABLE_OF_CONTENTS
+      @toc.cb_itemize_add_item('LaTeX Table of Contents', @i_th_heading, "  "*(new_level-2) + " * " + str)
+    end
+    @level_of_heading=new_level
+  end
+
+  def cb_env_end2()
+    case @env_label
+    when /^Fig:/
+      width  = EXIFR::JPEG.new(@env_file).width
+      height = EXIFR::JPEG.new(@env_file).height
+      @body << "\\begin{figure}\n" << "  \\center\n  \\includegraphics[width=5cm,bb=0 0 #{width} #{height}]{#{@env_file}}\n"
+      @body << '  \caption{' << @env_caption.apply_subs_rules(@subs_rules).strip << "}\n"
+      @body << "  \\label{#{@env_label}}\n" << "\\end{figure}\n"
+    when /^Table:/
+      @body << "\\begin{table}\n"
+      @body << '  \caption{' << @env_caption.apply_subs_rules(@subs_rules).strip << "}\n"
+      @body << "  \\label{#{@env_label}}\n"
+      @body << "  \\center\n"
+      @body << "  {TABLE is not yet implemented.}\n"
+      @body << "\\end{table}\n"
+    when /^Code:/
+      @body << "\\begin{lstlisting}[caption={#{@env_caption.apply_subs_rules(@subs_rules).strip}},label=#{@env_label}]\n"
+      f = open(@env_file)
+      @body << f.read
+      f.close
+      @body << "\\end{lstlisting}\n"
+    end
+  end
+
+  def cb_equation_end2()
+    @body << "\\begin{equation}\n" << "  \\label{#{@equation_label}}\n"
+    @body << @equation_contents
+    @body << "\\end{equation}\n"
+  end
+
+  def file(packages,name)
+    return "\\documentclass{article}
+\\usepackage{graphicx}
+\\usepackage{bm}
+\\usepackage{listings}
+\\renewcommand{\\lstlistingname}{Code}
+\\lstset{language=c,
+%  basicstyle=\\ttfamily\\scriptsize,
+%  commentstyle=\\textit,
+%  classoffset=1,
+%  keywordstyle=\\bfseries,
+   frame=shadowbox,
+%  framesep=5pt,
+%  showstringspaces=false,
+%  numbers=left,
+%  stepnumber=1,
+%  numberstyle=\\tiny,
+%  tabsize=2
+}
+\\title{#{@title}}
+\\author{#{name}}
+\\begin{document}
+\\maketitle
+#{body}
+\\end{document}
 "
   end
 
-  class Event
-    attr_reader :line, :event
-    def initialize(line)
-      @line  = line
-      @event = case line
-               when /^=begin/,/^#/ then 'ignore'
-               when /^=end/        then 'end'
-               when /^=+ /         then 'heading'
-               when /^ +\*/        then 'asterisk'
-               when /^\s*$/        then 'empty'
-               when /^\s+/         then 'offset'
-               when /^Eq\./        then 'eq_begin'
-               when /^\/Eq/        then 'eq_end'
-               when /^Fig\./       then 'fig_begin'
-               when /^\/Fig/       then 'fig_end'
-               else 'normal'
-               end
+  def body
+    b = @body.dup
+    @equations.each{|r| b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),  "\\1Eq.~(\\ref{#{r}})\\2")}
+    @figures.each{|r|   b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),   "\\1Fig.~\\ref{#{r}}\\2")}
+    @tables.each{|r|    b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),  "\\1Table~\\ref{#{r}}\\2")}
+    @codes.each{|r|     b.gsub!(Regexp.new('(^|\s+)'+r+'(\s+|\.|\,|\!|\?|$)'),   "\\1Code~\\ref{#{r}}\\2")}
+    return b
+  end
+end
+
+if $0 == __FILE__ || /ulmul2(html5|xhtml)$/ =~ $0
+  require "optparse"
+  name = ENV['USER'] || ENV['LOGNAME'] || Etc.getlogin || Etc.getpwuid.name
+  language = "en"
+  stylesheets = []
+  javascripts = []
+  $MAX_TABLE_OF_CONTENTS = 3
+  opts = OptionParser.new
+  opts.program_name = $0
+  opts.on("-s STYLESHEET_FILENAME","--style STYLESHEET_FILENAME",
+          "Specify stylesheet filename."){|v| stylesheets<<v}
+  opts.on("-n YOUR_NAME","--name YOUR_NAME","Specify your name."){|v| name=v}
+  opts.on("-j JAVASCRIPT_FILENAME","--javascript JAVASCRIPT_FILENAME",
+          "Specify JavaScript filename."){|v| javascripts<<v}
+  opts.on("-l LANGUAGE","--language LANGUAGE",String,
+          "Specify natural language. Its defalt is 'en'."){|v| language=v[0..1].downcase}
+  opts.on("-m MAX_TABLE_OF_CONTENTS","--max-table-of-contents MAX_TABLE_OF_CONTENTS",Integer,
+          "Specify the maximum level for table of contents."){|v| $MAX_TABLE_OF_CONTENTS=v}
+  opts.on_tail("-h", "--help", "Show this message."){puts opts.to_s.sub(/options/,'options] [filename'); exit}
+  opts.parse!(ARGV)
+
+  Itemize::ITEMIZE_INITIATOR  =   '<ul>'
+  Itemize::ITEMIZE_TERMINATOR =  '</ul>'
+  Itemize::ITEM_INITIATOR     =   '<li>'
+  Itemize::ITEM_TERMINATOR    =  '</li>'
+  Ulmul::PARAGRAPH_INITIATOR  =    '<p>'
+  Ulmul::PARAGRAPH_TERMINATOR =   '</p>'
+  Ulmul::VERBATIM_INITIATOR   =  '<pre>'
+  Ulmul::VERBATIM_TERMINATOR  = '</pre>'
+  class Ulmul
+    include HTML
+    if /ulmul2xhtml$/ =~ $0
+      include XHTML
+    else
+      include HTML5
     end
   end
+  u=Ulmul.new()
+  u.subs_rules = [[/(http:\S*)(\s|$)/, '<a href="\1">\1</a>\2'],
+                 [/(https:\S*)(\s|$)/, '<a href="\1">\1</a>\2']]
+  u.parse(ARGF)
+  puts u.file(stylesheets,javascripts,name,language)
 end
+# Local variables:
+#   compile-command: "./ulmul.rb -s ../ulmul2html5.css -s ../google-code-prettify/src/prettify.css -j ../google-code-prettify/src/prettify.js test.ulmul | tee test.html"
+# End: