parserSetence.rb

#encoding = utf-8

class TreeNode
	attr_reader :name, :parent, :son, :deep

	def initialize1 name, parent, deep 
		@name = name
		@parent = parent
		@son ||= []
		@deep = deep
	end
	
	def addson son
		@son << son
	end
end

def parserSetence org_setence
	current_node = nil
	head_node = nil
	setence = org_setence
	regex_left = /\A[\n|\r|\t| ]*\(([^ ]*)/m
	regex_right = /\A[\n|\r|\t| ]*([^(]*?)\)/m
	special_left = /\A[\n|\r|\t| ]*\(\)/m
	special_right = /\A[\n|\r|\t| ]*\)\)/m
	while setence =~ /\)[\t|\n| |\r]*$/ do
		# "(NN ()"
		if special_left =~ setence then
			temp_node = TreeNode.new
			temp_node.initialize1 "(", current_node, current_node.deep + 1
			current_node.addson temp_node
			current_node = current_node.parent
			puts "---" + "(" + "\t #{current_node.deep.to_s}"
			setence = $~.post_match
		elsif regex_left =~ setence then
			if current_node == nil then
				current_node = TreeNode.new
				current_node.initialize1 "ROOT", nil, 0
				head_node = current_node
			else
				temp_node = TreeNode.new
				temp_node.initialize1 $1, current_node, current_node.deep + 1
				current_node.addson temp_node
				current_node = temp_node
			end 
			puts "+++" + $1 + "\t #{current_node.deep.to_s}"
			setence = $~.post_match 
			if special_right =~ setence then
				temp_node = TreeNode.new
				temp_node.initialize1 ")", current_node, current_node.deep + 1
				current_node.addson temp_node
				#exception
				current_node = current_node.parent
				setence = $~.post_match
			end
		elsif regex_right =~ setence then
			if $1 != "" then
				temp_node = TreeNode.new
				temp_node.initialize1 $1, current_node, current_node.deep + 1
				current_node.addson temp_node
				#exception
				current_node = current_node.parent
			else
				current_node = current_node.parent
			end
			setence = $~.post_match
			puts "---" + $1 + "\t #{current_node.deep.to_s}" if current_node != nil
		else
			raise RuntimeError, "Error Format: \"#{setence}\"" 
		end
	end
	
	raise RuntimeError, "#{current_node.name} Less "")"" at the end of setence" if current_node != nil
	raise RuntimeError, "Setence is not completed" if setence == org_setence
	
	text_area = showTree_text head_node
	graph_area = showTree_graph head_node
	return text_area, graph_area
end

def showTree_text head_node
	if head_node.son.size == 0 then
		"#{head_node.name}"
	else
		return_text = "(#{head_node.name} "
		head_node.son.each_with_index do |son_node, index|
			if index == 0 then
				return_text += showTree_text son_node
			else
				return_text += "\n"
				son_node.deep.times { return_text += "\t"}
				return_text += showTree_text son_node
			end
		end
		return_text += ")"
	end
end

def oneLine orgin_string
	orgin_string.gsub(/\n[\t| |\r]*/, ' ').gsub(/^\(ROOT/, '(').gsub(/\)$/, " )") + "\n"
end

def showTree_graph head_node
	"nil"
	if head_node.son.size == 0 then
		<<-eos
			<li>
				<a href="#">#{head_node.name}</a>
			</li>
		eos
	else
		return_graph = <<-eos
			<li>
			<a href="#">#{head_node.name}</a>
			<ul>
		eos
		head_node.son.each do |son_node|
			return_graph += showTree_graph son_node
		end
		return_graph += "\n</ul></li>"
	end
end