mathml 0.8.0

data/lib/math_ml/string.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/ruby
+#
+# Extension of String class by MathML Library
+#
+# Copyright (C) 2007, KURODA Hiraku <hiraku@hinet.mydns.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+require "math_ml"
+
+module MathML
+	module String
+		@@mathml_latex_parser = nil
+		def self.mathml_latex_parser
+			@@mathml_latex_parser = MathML::LaTeX::Parser.new unless @@mathml_latex_parser
+			@@mathml_latex_parser
+		end
+
+		def self.mathml_latex_parser=(mlp)
+			raise TypeError unless mlp.is_a?(MathML::LaTeX::Parser) || mlp==nil
+			@@mathml_latex_parser = mlp
+		end
+
+		def to_mathml(displaystyle=false)
+			MathML::String.mathml_latex_parser.parse(self, displaystyle)
+		end
+	end
+end
+
+class String
+	include MathML::String
+end

data/lib/math_ml/util.rb

@@ -0,0 +1,350 @@
+#!/usr/bin/ruby
+#
+# Utility for MathML Library
+#
+# Copyright (C) 2006, KURODA Hiraku <hiraku@hinet.mydns.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+require "math_ml"
+
+module MathML::Util
+	ESCAPES = {"<"=>"lt",
+		">"=>"gt",
+		"&"=>"amp",
+		"\""=>"quot",
+		"'"=>"apos"
+	}
+	INVALID_RE = /(?!)/
+	EQNARRAY_RE = /\\begin\s*\{eqnarray\}(#{MathML::LaTeX::MBEC}*?)\\end\s*\{eqnarray\}/
+	SINGLE_COMMAND_RE = /(\\([a-zA-Z]+))[ \t]?/
+
+	def self.escapeXML(s, br=false)
+		r = s.gsub(/[<>&"']/){|m| "&#{ESCAPES[m]};"}
+		br ? r.gsub(/\n/, "<br />\n") : r
+	end
+
+	def escapeXML(s, br=false)
+		MathML::Util.escapeXML(s, br)
+	end
+
+	def self.collect_regexp(a)
+		if a
+			a = [a].flatten
+			a.size>0 ? Regexp.new(a.inject(""){|r, i| i.is_a?(Regexp) ? "#{r}#{i.to_s}|" : r}.chop) : INVALID_RE
+		else
+			INVALID_RE
+		end
+	end
+
+	def collect_regexp(a)
+		MathML::Util.collect_regexp(a)
+	end
+
+	class MathData
+		attr_reader :math_list, :msrc_list, :dmath_list, :dsrc_list, :escape_list, :esrc_list, :user_list, :usrc_list
+		def initialize
+			@math_list = []
+			@msrc_list = []
+			@dmath_list = []
+			@dsrc_list = []
+			@escape_list = []
+			@esrc_list = []
+			@user_list = []
+			@usrc_list = []
+		end
+
+		def update(s)
+			@math_list.concat(s.math_list)
+			@msrc_list.concat(s.msrc_list)
+			@dmath_list.concat(s.dmath_list)
+			@dsrc_list.concat(s.dsrc_list)
+			@escape_list.concat(s.escape_list)
+			@esrc_list.concat(s.esrc_list)
+			@user_list.concat(s.user_list)
+			@usrc_list.concat(s.usrc_list)
+		end
+	end
+
+	class SimpleLaTeX
+		include MathML::Util
+		@@default_latex = nil
+		DEFAULT = {
+			:delimiter=>"\001",
+			:math_env_list=>[
+				/\$((?:\\.|[^\\\$])#{MathML::LaTeX::MBEC}*?)\$/m,
+				/\\\((#{MathML::LaTeX::MBEC}*?)\\\)/m
+			],
+			:dmath_env_list=>[
+				/\$\$(#{MathML::LaTeX::MBEC}*?)\$\$/m,
+				/\\\[(#{MathML::LaTeX::MBEC}*?)\\\]/m
+			],
+			:escape_list=>[
+				/\\(.)/m
+			],
+			:through_list=>[
+			],
+			:escape_any=> false,
+			:without_parse=>false
+		}
+
+		def initialize(options = {})
+			@params = DEFAULT.merge(options)
+			@params[:parser] = MathML::LaTeX::Parser.new unless @params[:parser] || @params[:without_parse]
+
+			@params[:math_envs] = collect_regexp(@params[:math_env_list])
+			@params[:dmath_envs] = collect_regexp(@params[:dmath_env_list])
+			@params[:escapes] = collect_regexp(@params[:escape_list])
+			@params[:throughs] = collect_regexp(@params[:through_list])
+			reset_encode_proc
+			reset_rescue_proc
+			reset_decode_proc
+			reset_unencode_proc
+		end
+
+		def reset_encode_proc
+			@encode_proc_re = INVALID_RE
+			@encode_proc = nil
+		end
+
+		def set_encode_proc(*re, &proc)
+			@encode_proc_re = collect_regexp(re)
+			@encode_proc = proc
+		end
+
+		def reset_rescue_proc
+			@rescue_proc = nil
+		end
+
+		def set_rescue_proc(&proc)
+			@rescue_proc = proc
+		end
+
+		def reset_decode_proc
+			@decode_proc = nil
+		end
+
+		def set_decode_proc(&proc)
+			@decode_proc = proc
+		end
+
+		def set_unencode_proc(&proc)
+			@unencode_proc = proc
+		end
+
+		def reset_unencode_proc
+			@unencode_proc = nil
+		end
+
+		def encode(src, *proc_re, &proc)
+			if proc_re.size>0 && proc_re[0].is_a?(MathData)
+				data = proc_re.shift
+			else
+				data = MathData.new
+			end
+
+			proc_re = proc_re.size==0 ? @encode_proc_re : collect_regexp(proc_re)
+			proc = @encode_proc unless proc
+
+			s = StringScanner.new(src)
+			encoded = ""
+
+			until s.eos?
+				if s.scan(/(.*?)(((((#{@params[:throughs]})|#{@params[:dmath_envs]})|#{@params[:math_envs]})|#{proc_re})|#{@params[:escapes]})/m)
+					encoded << s[1]
+					case
+					when s[6]
+						encoded << s[6]
+					when s[5], s[4]
+						env_src = s[5] || s[4]
+						if @params[:dmath_envs]=~env_src
+							encoded << "#{@params[:delimiter]}d#{data.dsrc_list.size}#{@params[:delimiter]}"
+							data.dsrc_list << env_src
+						else
+							encoded << "#{@params[:delimiter]}m#{data.msrc_list.size}#{@params[:delimiter]}"
+							data.msrc_list << env_src
+						end
+					when s[3]
+						size = s[3].size
+						s.pos = left = s.pos-size
+						if r=proc.call(s)
+							right = s.pos
+							encoded << "#{@params[:delimiter]}u#{data.user_list.size}#{@params[:delimiter]}"
+							data.user_list << r
+							data.usrc_list << s.string[left...right]
+						else
+							encoded << s.peek(size)
+							s.pos = s.pos+size
+						end
+					when s[2]
+						encoded << "#{@params[:delimiter]}e#{data.escape_list.size}#{@params[:delimiter]}"
+						@params[:escapes]=~s[2]
+						data.esrc_list << s[2]
+						data.escape_list << escapeXML($+, true)
+					end
+				else
+					encoded << s.rest
+					s.terminate
+				end
+			end
+
+			parse(data, @params[:parser]) unless @params[:without_parse]
+
+			return encoded, data
+		end
+
+		def error_to_html(e)
+			"<br />\n#{escapeXML(e.message)}<br />\n<code>#{escapeXML(e.done).gsub(/\n/, "<br />\n")}<strong>#{escapeXML(e.rest).gsub(/\n/, "<br />\n")}</strong></code><br />"
+		end
+
+		def latex_parser
+			@params[:parser] = MathML::LaTeX::Parser.new unless @params[:parser]
+			@params[:parser]
+		end
+
+		def parse(data, parser=nil)
+			parser = latex_parser unless parser
+			(data.math_list.size...data.msrc_list.size).each do |i|
+				begin
+					@params[:math_envs]=~data.msrc_list[i]
+					data.math_list[i] = parser.parse($+)
+				rescue MathML::LaTeX::ParseError => e
+					if @rescue_proc
+						data.math_list[i] = @rescue_proc.call(e)
+					else
+						data.math_list[i] = error_to_html(e)
+					end
+				end
+			end
+			(data.dmath_list.size...data.dsrc_list.size).each do |i|
+				begin
+					@params[:dmath_envs]=~data.dsrc_list[i]
+					data.dmath_list[i] = parser.parse($+, true)
+				rescue MathML::LaTeX::ParseError => e
+					if @rescue_proc
+						data.dmath_list[i] = @rescue_proc.call(e)
+					else
+						data.dmath_list[i] = error_to_html(e)
+					end
+				end
+			end
+		end
+
+		def decode(encoded, data, without_parsed = false, &proc)
+			return nil if encoded==nil
+			proc = @decode_proc unless proc
+			encoded.gsub(/#{Regexp.escape(@params[:delimiter])}([demu])(\d+)#{Regexp.escape(@params[:delimiter])}/) do
+				i = $2.to_i
+				t, d, s =
+					case $1
+					when "d"
+						[:dmath, without_parsed ? escapeXML(data.dsrc_list[i], true) : data.dmath_list[i], data.dsrc_list[i]]
+					when "e"
+						[:escape, data.escape_list[i], data.esrc_list[i]]
+					when "m"
+						[:math, without_parsed ? escapeXML(data.msrc_list[i], true) : data.math_list[i], data.msrc_list[i]]
+					when "u"
+						[:user, data.user_list[i], data.usrc_list[i]]
+					end
+				if proc
+					proc.call(d, :type=>t, :index=>i, :src=>s) || d
+				else
+					d
+				end
+			end
+		end
+
+		def decode_partial(type, encoded, data, &proc)
+			return nil if encoded==nil
+			head =
+				case type
+				when :math
+					"m"
+				when :dmath
+					"d"
+				when :escape
+					"e"
+				when :user
+					"u"
+				else
+					return
+				end
+			encoded.gsub(/#{Regexp.escape(@params[:delimiter])}#{head}(\d+)#{Regexp.escape(@params[:delimiter])}/) do
+				i = $1.to_i
+				t, d, s =
+					case head
+					when "d"
+						[:dmath, data.dmath_list[i], data.dsrc_list[i]]
+					when "e"
+						[:escape, data.escape_list[i], data.esrc_list[i]]
+					when "m"
+						[:math, data.math_list[i], data.msrc_list[i]]
+					when "u"
+						[:user, data.user_list[i], data.usrc_list[i]]
+					end
+				if proc
+					proc.call(d, :type=>t, :index=>i, :src=>s) || "#{@params[:delimiter]}#{head}#{i}#{@params[:delimiter]}"
+				else
+					d
+				end
+			end
+		end
+
+		def unencode(encoded, data, without_escape=false, &proc)
+			return nil if encoded==nil
+			proc = @unencode_proc unless proc
+			encoded.gsub(/#{Regexp.escape(@params[:delimiter])}([demu])(\d+)#{Regexp.escape(@params[:delimiter])}/) do
+				i = $2.to_i
+				t, s =
+					case $1
+					when "d"
+						[:dmath, data.dsrc_list[i]]
+					when "e"
+						[:escape, data.esrc_list[i]]
+					when "m"
+						[:math, data.msrc_list[i]]
+					when "u"
+						[:user, data.usrc_list[i]]
+					end
+				s = escapeXML(s, true) unless without_escape
+				if proc
+					proc.call(s, :type=>t, :index=>i) || s
+				else
+					s
+				end
+			end
+		end
+
+		def self.encode(src)
+			@@default_latex = self.new unless @@default_latex
+			@@default_latex.encode(src)
+		end
+
+		def self.decode(src, data)
+			@@default_latex.decode(src, data)
+		end
+
+		def parse_eqnarray(src, parser=nil)
+			src = "\\begin{array}{ccc}#{src}\\end{array}"
+			parser = latex_parser unless parser
+			begin
+				parser.parse(src, true)
+			rescue MathML::LaTeX::ParseError => e
+				e = MathML::LaTeX::ParseError.new(e.message,
+					e.rest.sub(/\\end\{array\}\z/, '\end{eqnarray}'),
+					e.done.sub(/\A\\begin\{array\}\{ccc\}/, '\begin{eqnarray}'))
+				@rescue_proc ? @rescue_proc.call(e) : error_to_html(e)
+			end
+		end
+
+		def parse_single_command(src, parser=nil)
+			s = src[SINGLE_COMMAND_RE, 1]
+			parser = latex_parser unless parser
+			begin
+				parser.parse(s)
+			rescue MathML::LaTeX::ParseError => e
+				src[SINGLE_COMMAND_RE, 2]
+			end
+		end
+	end
+end

data/symbols/fetch_symbol.rb

@@ -0,0 +1,446 @@
+#!/usr/bin/ruby
+
+$:.unshift("../")
+require "cgi"
+require "math_ml"
+
+include MathML::LaTeX
+
+BEC = /\\.|[^\\\n]/ # Back slash Escaped Character
+TEXMF_DIR = "/usr/share/texmf-tetex"
+
+def brace_nest(s)
+	nest=0
+	s.gsub(/(\{|\})/) do
+		case $1
+		when "{"
+			nest+=1
+			"{#{nest}."
+		when "}"
+			nest-=1
+			"}#{nest+1}."
+		end
+	end
+end
+
+def load_style(name)
+	r = IO.read("#{TEXMF_DIR}/tex/latex/#{name}").gsub(/^\%.*\n/, "").gsub(/^(#{BEC}*?)\%.*$/){$1}
+end
+
+def parse_DeclareMath(f, delims, robust_as_math = false)
+	r = Hash.new
+
+	f=f.gsub(/[a-zA-Z]\\Declare/, "")
+	f.scan(/\\DeclareMathSymbol|\\DeclareRobustCommand/) do
+		remain = Scanner.new($')
+		com = remain.scan_block ? remain[1] : remain.scan_command
+		next unless com=~/\A\\/ 
+		remain.scan_option
+		body = remain.scan_block ? remain[1] : remain.scan_any
+		case body
+		when /nomath/, /not@math/
+			next
+		when /\\mathord/, /\\mathalpha/, /\\mathbin/, /\\mathrel/, /\\mathpunct/
+			r[com] = :subsup
+		when /\\mathop/
+			r[com] = :underover
+		else
+			r[com] = robust_as_math ? :subsup : body
+		end
+	end
+
+	f.scan(/\\DeclareMathDelimiter\{(\\.+?)\}\s*\{(\\.+?)\}/m) do |m|
+		case m[1]
+		when "\\mathopen", "\\mathclose", "\\mathord", "\\mathrel"
+			r[m[0]] = :subsup
+		else
+			raise "#{m[0]} : #{m[1]}"
+		end
+		delims << m[0]
+	end
+
+	f.scan(/\\let(\\.+?)=?(\\.*)/) do |m|
+		r[m[0]] = m[1] unless r.include?(m[0]) # excepting "\let\com\undefined" or like it.
+	end
+
+	r
+end
+
+def trace_list(com, h, d)
+	s = h[com]
+	mmode = (s=~/\\ifmmode/ || s=~/mathinner/)
+	if s.is_a?(String)
+		sc = Scanner.new(s.dup.gsub(/[{}]/, ""))
+		until sc.eos?
+			b = sc.scan_any
+			s.slice!(0, b.size)
+			next unless h.include?(b)
+			trace_list(b, h, d)
+			h[com] = h[b] if h[com].is_a?(String)
+			unless d.include?(com)
+				d << com if d.include?(b)
+			end
+		end
+	end
+	if h[com].is_a?(String)
+		if mmode
+			h[com] = :subsup
+		else
+			h.delete(com)
+		end
+	end
+end
+
+def fetch_symbol(delims=[])
+	r = {}
+
+	f = load_style("base/latex.ltx")
+	r.merge!(parse_DeclareMath(f, delims))
+	f.scan(/^\\def(\\[a-zA-Z]+?)\{\\mathop(\W.*)$/) do |s|
+		if s[1]=~/\\nolimits/
+			r[s[0]] = :subsup
+		else
+			r[s[0]] = :underover
+		end
+	end
+	f.scan(/\\chardef(\\.)=\`\1/) do |m|
+		r[m[0]] = :subsup
+	end
+
+	f = load_style("base/latexsym.sty")
+	r.merge!(parse_DeclareMath(f, delims))
+
+	f = load_style("base/fontmath.ltx")
+	r.merge!(parse_DeclareMath(f, delims, true))
+	brace_nest(f).scan(/\\def(\\.+?)\{1\.(.*?)\}1\./m) do |m|
+		if m[0]=~/@|#/
+		elsif m[1]=~/\A\$/
+		else
+			r[m[0]] = :subsup
+		end
+	end
+	f.scan(/\\def(\\[^\{]+?)(\\.+)/) do |m|
+		raise StandardError.new("Uncaught commands")
+	end
+
+	f = load_style("amsfonts/amssymb.sty")
+	r.merge!(parse_DeclareMath(f, delims))
+
+	f = load_style("amsfonts/amsfonts.sty")
+	r.merge!(parse_DeclareMath(f, delims))
+
+	r.each_key do |k|
+		r.delete(k) if k=~/@/
+	end
+
+	r.each_key do |k|
+		trace_list(k, r, delims) if r[k].is_a?(String)
+	end
+	r
+end
+
+def sort_symbol_list_in(file, h)
+	r = Array.new
+	f = load_style(file)
+	f.scan(/\\[a-zA-Z@\#]+|\\./) do |m|
+		if h[m]
+			r << m
+			h.delete(m)
+		end
+	end
+	r
+end
+
+def sorted_symbol_list(h)
+	h = h.dup
+	r = Array.new
+	r.concat(sort_symbol_list_in("base/latex.ltx", h))
+	r.concat(sort_symbol_list_in("base/fontmath.ltx", h))
+	r.concat(sort_symbol_list_in("amsfonts/amssymb.sty", h))
+	r.concat(sort_symbol_list_in("amsfonts/amsfonts.sty", h))
+	r
+end
+
+def load_preput_list(list)
+	r = {}
+	list.each do |l|
+		next if l=~/\A\s*\#/
+		com, type, str = l.chomp.split(nil, 3)
+		r[com] = [type.to_sym, str]
+	end
+	r
+end
+
+def output_list(h, preput=nil)
+	p = preput ? load_preput_list(preput) : {}
+	sorted_symbol_list(h).each do |k|
+		data = p.include?(k) ? p[k][1] : ""
+#		puts "#{k} #{h[k]} #{data}"
+	end
+
+	$stderr.puts "### Update"
+	sorted_symbol_list(h).each do |k|
+		$stderr.puts k unless p.include?(k)
+	end
+
+	$stderr.puts "### Conflict"
+	sorted_symbol_list(h).each do |k|
+		next unless p.include?(k)
+		$stderr.puts k unless p[k][0]==h[k]
+	end
+
+	$stderr.puts "### Missing"
+	p.each_key do |k|
+		$stderr.puts k unless h.include?(k)
+	end
+end
+
+def output_latex(h)
+	puts <<'EOT'
+\documentclass{article}
+\usepackage{amssymb}
+\newcommand{\bslash}{\texttt{\symbol{92}}}
+\setlength{\oddsidemargin}{-1cm}
+\setlength{\evensidemargin}{-1cm}
+\begin{document}
+EOT
+	col = 4
+	row=18
+	l = sorted_symbol_list(h)
+	(0 ... l.size).step(col*row) do |t|
+		puts '\begin{tabular}{|'+"c|"*col+'}\hline'
+		(0 ... col*row).step(col) do |r|
+			next unless l[t+r]
+			(0 ... col).each do |c|
+				i = t+r+c
+				com = l[i].to_s.gsub(/\\/, "\\bslash ").gsub(/([\$\{\}\#\%\&_])/){"\\#$1"}.
+					gsub(/\|/, "\\texttt|")
+				tex = l[i].to_s.dup
+				if l[i]
+					case h[l[i]]
+					when :subsup
+						tex << "_{sub}^{sup}"
+					when :underover
+						tex << "_{under}^{over}"
+					else
+						raise StandardError
+					end
+				end
+				tex = "$\\displaystyle#{tex}$"
+				str = (l[i] ? <<EOT : "")
+\\begin{tabular}{c}
+#{t+r+c} #{com} \\\\
+#{tex}
+\\end{tabular}
+EOT
+				print str+(c==(col-1) ? " \\\\ \\hline\n" : " & ")
+			end
+		end
+		puts "\\end{tabular}\n\n"
+	end
+	puts '\end{document}'
+end
+
+def parse_list(list)
+	a = []
+	h = {}
+	list.each do |l|
+		next if l =~ /^\s*\#/
+			com, type, str = l.chomp.split(nil, 3)
+
+		case type
+		when "subsup"
+			type = :s
+		when "underover"
+			type = :u
+		else
+			raise l
+		end
+
+		str.slice!(/\s*\#.*$/)
+		el = nil
+		cl = nil
+		s = nil
+		case str
+		when /^([oinI])([\-\:=])(.*)$/
+			el = $1
+			cl = $2
+			s = $3
+		when "v"
+		when ""
+			cl = true
+		else
+			raise l
+		end
+		a << com
+		case cl
+		when "-"
+			h[com] = [type, el.to_sym, s ? s : ""]
+		when ":"
+			h[com] = [type, el.to_sym, s.to_s.length>0 ? s.to_sym : nil]
+		when "="
+			s = "0"+s if s=~/^x/
+			h[com] = [type, el.to_sym, s.to_i(0)]
+		when true
+			h[com] = [type, nil, nil]
+		when nil
+			h[com] = nil
+		else
+			raise l
+		end
+		h[com].pop while h[com] && h[com].last==nil
+	end
+	[a, h]
+end
+
+def to_mathml(com, data)
+	com = com[/^\\(.*)$/, 1]
+	unless data
+		""
+	else
+		data[1] = :o unless data[1]
+		p=""
+		case data[1]
+		when :i
+			p = " mathvariant='normal'" unless data[2] && data[2].is_a?(String)
+		when :I
+			data[1] = :i
+		end
+
+		case data[2]
+		when String
+			if data[2].length>0
+				s = data[2]
+			else
+				s = com
+			end
+		when Symbol
+			s = "&#{data[2].to_s};"
+		when Integer
+			s = "&\#x#{data[2].to_s(16)};"
+		when nil
+			s = "&#{com};"
+		else
+			raise data[2]
+		end
+
+		e = "m#{data[1].to_s}"
+		"<#{e}#{p}>#{s}</#{e}>"
+	end
+end
+
+def output_xhtml(list)
+	a, h = parse_list(list)
+	puts <<EOT
+<?xml version='1.0'?>
+<!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'>
+<body>
+<ul>
+EOT
+	a.each do |k|
+		raise k unless h.include?(k)
+		e = to_mathml(k, h[k])
+		e = nil unless e.length>0
+		mml = e ? "<math xmlns='http://www.w3.org/1998/Math/MathML' display='inline'>#{e}</math>" : ""
+		puts "<li>#{CGI.escapeHTML(k)} : #{mml}</li>"
+	end
+	puts <<EOT
+</ul></body></html>
+EOT
+end
+
+def output_hiki(h)
+	col = 5
+	row=20
+	l = sorted_symbol_list(h)
+	(0 ... l.size).step(col*row) do |t|
+		(0 ... col*row).step(col) do |r|
+			next unless l[t+r]
+			print "||"
+			(0 ... col).each do |c|
+				i = t+r+c
+				com = l[i].to_s.gsub(/\\/){"\\\\"}.gsub(/\$/){%[\\$]}.gsub(/([\{\}])/){"\\\\#$1"}
+				tex = l[i].to_s.dup
+				if l[i]
+					case h[l[i]]
+					when :subsup
+						tex << "_{sub}^{sup}"
+					when :underover
+						tex << "_{under}^{over}"
+					else
+						raise StandardError
+					end
+				end
+				print " #{com} $$#{tex}$$ ||"
+			end
+			puts ""
+		end
+	end
+end
+
+def gen_rb(list)
+	a, h = parse_list(list)
+	r = "SymbolCommands={\n"
+	a.each do |k|
+		d = h[k]
+		unless d
+			v = "nil"
+		else
+			v = "[:#{d[0].to_s}"
+			unless d[1]
+				v << "]"
+			else
+				v << ",:#{d[1].to_s}"
+				unless d[2]
+					v << "]"
+				else
+					case d[2]
+					when String
+						v << %[,"#{d[2].gsub(/\\/){"\\\\"}}"]
+					when Symbol
+						v << ",:#{d[2].to_s}"
+					when Fixnum
+						v << ",0x#{d[2].to_s(16)}"
+					else
+						raise [k, d]
+					end
+					v << "]"
+				end
+			end
+		end
+		r << %["#{k[/^\\(.*)/, 1].gsub(/\\/){"\\\\"}}"=>#{v},\n]
+	end
+	r << "}\n"
+end
+
+def output_delims
+	d = []
+	fetch_symbol(d)
+	puts "Delimiters=["
+	d.each do |i|
+		puts %["#{i.gsub(/\\/){""}}",]
+	end
+	puts "]"
+end
+
+def read_list
+	IO.read($*[1] || "list.txt")
+end
+if (File.expand_path(__FILE__)==File.expand_path($0)) && $*[0]
+	case $*[0]
+	when "list"
+		preput = $*[1] ? IO.read($*[1]) : nil
+		output_list(fetch_symbol, preput)
+	when "latex"
+		output_latex(fetch_symbol)
+	when "xhtml"
+		output_xhtml(read_list)
+	when "hiki"
+		output_hiki(fetch_symbol)
+	when "delims"
+		output_delims
+	when "rb"
+		puts gen_rb(read_list)
+	end
+end