# $Id: color_code_ruby.rb,v 1.1 2003-07-02 21:59:20+09 waka Exp waka $
# http://www.double-red.net/
=begin
color_code_ruby.rb

スタイルシートでプログラムソースを色分けする

アイデアは、ちはやさん(http://sein.pobox.ne.jp/nowhere/diary/200306a.html#d06_t1)
です。
原形をとどめておりません…。
空行ありでも動作するはずです。
=end

class Filter
  def color_code_ruby(str, type)
	#予約語 色分け時はsyntaxクラスになる。
	syntax = %w{
		BEGIN END alias and begin break case def defined? do else elsif end ensure for if in module next not or redo rescue retry return super then undef unless until when while yield
	}
	#擬似変数 色分け時はvarクラスになる
	variable = %w{
		self true false nil __FILE__ __LINE__
	}
	#強調語 色分け時はemphasisクラスになる
	emphasis = %w{
		require private public include attr_reader attr_writer attr_accessor initialize protected each times
	}

	case type
	when :ONEDAY
	  str.gsub!(/^RubyCode:(.*?)\nCodeRuby:/mi){
		code = $1

		code.gsub!(/&/, "&")
		code.gsub!(/</, "&lt;")
		code.gsub!(/>/, "&gt;")

		code.gsub!(/(?!\\)(.)(".*?[^\\]")/){
		  z = $1
		  key = $2
		  "#{z}<em class=\"value\">#{key}</em>"
		}
		code.gsub!(/(?!\\)('.*?(?!\\)')/, %q{<em class="value">\1</em>})
		code.gsub!(/(%[qw]{.*?})/mi, %q{<em class="value">\1</em>})
		code.gsub!(/(%[qw]\[.*?\])/mi, %q{<em class="value">\1</em>})
		code.gsub!(/(%[qw]\(.*?\))/mi, %q{<em class="value">\1</em>})
		code.gsub!(/(%[r]\|.*?\|)/i, %q{<em class="value">\1</em>})

		# value class 内の '#' をコメントとして認識させないための小細工
		comment_sharp = "s_h_a_r_p"
		code.gsub!(/<em class="value">(.*)<\/em>/){
		  key = $1.gsub(/#/,"#{comment_sharp}")
		  "<em class=\"value\">#{key}</em>"
		}

		code.gsub!(/(def +)([\w\d_=]+)(\(.*\))?$/){ #メソッド
		  head = $1
		  key = $2
		  arg = $3
		  "#{head}<em class=\"function\">#{key}</em>#{arg}"
		}

		code.gsub!(/(@@?[\w\d_]+)([=,. )[]?$?)/){  #インスタンス変数
		  key = $1
		  tail = $2
		  "<em class=\"var\">#{key}</em>#{tail}"
		}

		code.gsub!(/(class[ \t]+)([A-Z][\w\d_]+)$/,'\1<em class="constant">\2</em>') #クラス名
		code.gsub!(/(?!class)([ \t]+[A-Z][\w\d_]+)([. =]?$?)/){  #定数
		  key = $1
		  tail = $2
		  unless key =~ /__$/ then
			tail = tail unless tail.empty?
			"<em class=\"constant\">#{key}</em>#{tail}"
		  else
			"#{key} "
		  end
		}
		code.gsub!(/^([ \t]*[A-Z][\w\d_]+)([. =]?$?)/){  #定数
		  key = $1
		  tail = $2
		  unless key =~ /__$/ then
			tail = tail unless tail.empty?
			"<em class=\"constant\">#{key}</em>#{tail}"
		  else
			"#{key} "
		  end
		}

		code.gsub!(/(\$[\w\d]+)[ =]?$?/){  #グローバル変数
		  key = $1
		  "<em class=\"var\">#{key}</em>"
		}

		#classはhtml中で使われるため別扱いで
		code.gsub!(/((\b)class(\s))/i, %q{<em class="syntax">\1</em>})
		variable.each do |word|
		  code.gsub!(/((\b)#{word}(\b))/i, %q{<em class="var">\1</em>})
		end
		emphasis.each do |word|
		  code.gsub!(/((\b)#{word}(\b))/i, %q{<em class="emphasis">\1</em>})
		end

		syntax.each do |word|
		  code.gsub!(/(.)?((\b)#{word}(\b))/i){
			z = $1
			key = $2
			unless key =~ /(begin)|(end)/ and z =~ /=/ then
			  "#{z}<em class=\"syntax\">#{key}</em>"
			else
			  "#{z}#{key}"
			end
		  }
		end

		code.gsub!(/(^=begin.*?=end$)/mi){ # =begin 〜 =end 用
		  key = $1.gsub(/^=begin/,"=b_egin").gsub(/=end$/,"=e_nd")
		  key = key.gsub(/<em.*?>/,"").gsub(/<\/em>/,"")
		  "<em class=\"comment\">#{key}</em>"
		}

		code.gsub!(/((#)$|(#[^[{].+))/){
		  key = $1.gsub(/<em.*?>/,"").gsub(/<\/em>/,"")
		  "<em class=\"comment\">#{key}</em>"
		}

		# 後始末
		code.gsub!(/<em class=\"syntax\"><em class=\"syntax\">end<\/em><\/em>/, "<em class=\"syntax\">end</em>")
		code.gsub!(/=b_egin$/,"=begin")
		code.gsub!(/=e_nd<\/em>$/,"=end<\/em>")
		code.gsub!("(?!\")#{comment_sharp}(?!\")",'#')
		code.gsub!(/^$/,"&nbsp;")
		"<<\n<div class=\"code\"><pre><code>\n#{code}</code></pre></div>"
	  }
	  when :AFTER_ONEDAY
	  str.gsub!(/<code>(.*)<\/code>/mi){
		code = $1
		code.gsub!(/^\t/,"")
		"<code>#{code}</code>"
	  }
	end
  end
end