metal 0.0.2 → 0.0.3

data/lib/metal/runtime.rb

@@ -1,386 +1 @@
-#
-# Metal Runtime
-#
-# Copyright (C) 2008 FURUHASHI Sadayuki
-#
-#    Licensed under the Apache License, Version 2.0 (the "License");
-#    you may not use this file except in compliance with the License.
-#    You may obtain a copy of the License at
-#
-#        http://www.apache.org/licenses/LICENSE-2.0
-#
-#    Unless required by applicable law or agreed to in writing, software
-#    distributed under the License is distributed on an "AS IS" BASIS,
-#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#    See the License for the specific language governing permissions and
-#    limitations under the License.
-#
-
-module Metal
-	class ParserBase
-		def initialize(root = :main)
-			@root = root
-		end
-
-		def parse(source, *args)
-			parser = self.dup
-			parser.initialize_parser(source, *args)
-			parser.apply(@root)
-		end
-
-		def initialize_parser(source, *args)
-			@input = case source
-				when IO
-					source.read.scan(/./m)
-				when String
-					source.scan(/./m)
-				when Array
-					source
-				else
-					source
-				end
-			@cache = Hash.new {|hash, key| hash[key] = {} }
-			@index = 0
-			@error_history = []
-			@call_stack  = []
-			@label_stack = []
-			@current_rule = nil
-			input = @input
-			error_history = @error_history
-			@error_class = Class.new(ParseError) {
-				const_set(:INPUT, input)
-				const_set(:ERROR_HISTORY, error_history)
-			}
-		end
-
-		class ParseError < RuntimeError
-			def initialize(msg, index, call_stack)
-				super(msg)
-				@index = index
-				@call_stack = call_stack
-			end
-			attr_reader :index
-			def to_s
-				super.gsub("\n", "\n    ")
-			end
-			def message(rec = false)
-				if rec
-					input = self.class::INPUT
-					parsed = input[0, @index].to_s.split("\n")
-					line = parsed.length
-					column = (line == 0 ? 0 : parsed.last.length)
-					help = input[@index, 10]
-					help = help.join if help.is_a?(Array)
-					help << '...' if help.length == 10
-					help.gsub!("\r", '\r')
-					help.gsub!("\n", '\n')
-					help.gsub!("\t", '\t')
-					help = "'#{help}'"
-					msg = "  #{@call_stack.join('> ')}\n      at line #{line}, column #{column}  #{help.ljust(18)} #{super()}"
-				else
-					msg = "parse error:\n"
-					s = 0
-					self.class::ERROR_HISTORY.dup.push(self).sort_by{|e| [-e.index, s+=1] }.each_with_index {|(err,s), i|
-					#self.class::ERROR_HISTORY.dup.push(self).reverse.each_with_index {|err, i|
-						msg << "\n" << err.message(true)
-						if i > 5
-							msg << "\n  ...\n"
-							break
-						end
-					}
-				end
-				msg
-			end
-		end
-
-		class LeftRecursion
-			def initialize
-				@call_stack = nil
-			end
-			attr_accessor :call_stack
-		end
-
-		class Memo
-			def initialize(ret, pos)
-				@ret = ret
-				@pos = pos
-			end
-			attr_accessor :ret, :pos
-		end
-
-		def apply(rule, *args)
-			@current_rule = rule
-			@call_stack.push rule
-
-			#p @label_stack.map {|l| l.join(':')  }.join(',')
-			#cache_name = "#{rule}@#{@label_stack.map{|l|l.join(':')}.join(',')}"
-			cache_name = "#{rule}"  # FIXME left recursion
-		#	cache_name = "#{rule}@#{@label_stack.inspect}"
-
-			method_name = "rule_#{rule}"
-
-			unless args.empty?
-				return __send__(method_name, *args)
-			end
-
-			#labeled = nil
-			#if @label_stack.last
-			#	labeled = true
-			#end
-		#	if @label_stack.last && !@label_stack.last.shift
-		#		@label_stack.pop
-		#		#labeled = false
-		#	end
-
-			#puts "#{rule}@#{@label_stack.inspect}:  cache: #{@cache["#{rule}@#{@label_stack.inspect}"].inspect}"
-
-			if memo = @cache[cache_name][@index]
-				if memo.ret.class == LeftRecursion
-					memo.ret.call_stack = @call_stack[0..-1]
-					parse_error "left recursion"
-				end
-				#puts "#{cache_name}: cached #{@index} to #{memo.pos}  (#{memo.ret.inspect})"
-				@index = memo.pos
-				return memo.ret
-			else
-				#begin  XXX
-					start_pos = @index
-					lr = LeftRecursion.new
-					memo = @cache[cache_name][start_pos] = Memo.new(lr, start_pos)
-					memo.ret = __send__(method_name)
-					memo.pos = @index
-					#puts "#{cache_name}: uncached #{start_pos} to #{@index}  (#{memo.ret.inspect})"
-					#if labeled != nil
-					#	cache_name = "#{rule}@#{@label_stack.inspect}"
-					#	puts "ncn: #{cache_name} #{start_pos} -> #{memo.inspect}"
-					#	memo = @cache[cache_name][start_pos] = Memo.new(memo.ret, memo.pos)
-					#end
-					if lr.call_stack
-						$stderr.puts "#{@call_stack.inspect}: left recursion" # FIXME left recursion
-						parse_error "left recursion"  # FIXME left recursion
-		#				#puts "#{cache_name}: lr start"
-		#				finish_pos = @index
-		#				#puts "#{cache_name}: detected on #{@index} from #{memo.pos}"
-		#				#puts "#{cache_name}: rewind stack: #{lr.call_stack[@call_stack.length..-1].inspect}"
-		#				@label_stack.push(lr.call_stack[@call_stack.length..-1])
-		#				while true
-		#					@index = start_pos
-		#					memo.ret = __send__(method_name)
-		#					#puts "#{cache_name}: recalled, moved to #{@index}"
-		#					memo.pos = @index
-		#					break if finish_pos <= @index
-		#					#if finish_pos <= @index
-		#					#	p "lr growed #{cache_name} #{start_pos} to #{@index}  #{memo.ret.inspect}"
-		#					#	#p memo
-		#					#	#p @cache[cache_name][start_pos]
-		#					#	#nmemo = @cache[cache_name][start_pos]
-		#					#	#if nmemo && memo.pos <= nmemo.pos
-		#					#	#	@index = nmemo.pos
-		#					#	#	memo = nmemo
-		#					#	#end
-		#					#	#break
-		#					#	nmemo = @cache[cache_name][start_pos]
-		#					#	if nmemo && memo.pos <= nmemo.pos
-		#					#		memo = nmemo
-		#					#		@index = memo.pos
-		#					#	end
-		#					#	#begin
-		#					#	#	@index = start_pos
-		#					#	#	p "JKJK"
-		#					#	#	ret = __send__(method_name)
-		#					#	#	if memo.pos <= @index
-		#					#	#		memo.ret = ret
-		#					#	#		memo.pos = @index
-		#					#	#	end
-		#					#	#rescue
-		#					#	#	break
-		#					#	#	p $!
-		#					#	#end
-		#					#	break
-		#					#end
-		#				end
-		#				#puts "#{cache_name}: lr end #{start_pos} -> #{@index}"
-					end
-					memo.ret
-				#rescue ParseError  # XXX
-				#	@cache[cache_name][@index] = nil
-				#	raise
-				#end
-			end
-
-		#rescue
-		#	if $!.to_s == '"k" is expected'
-		#		require 'pp'
-		#		pp caller
-		#	end
-		#	raise
-		ensure
-			@call_stack.pop
-		end
-
-		def act_or_message(err)
-			msg = "One of following expressions expected:"
-			err.each {|e| msg << "\n          " << e.to_s }
-			msg
-		end
-		private :act_or_message
-
-		def act_or(blocks)
-			err = []
-			pos = @index
-			blocks.each {|block|
-				begin
-					ret = block.call
-					@error_history.concat err
-					return ret
-				rescue ParseError
-					@index = pos
-					err.push $!
-				end
-			}
-			parse_error act_or_message(err)
-		end
-
-		def act_many(block)
-			ret = []
-			while true
-				pos = @index
-				begin
-					ret.push block.call
-					return ret if pos == @index   # XXX many in many avoidance
-				rescue ParseError
-					@index = pos
-					@error_history.push $!
-					return ret
-				end
-			end
-		end
-
-		def act_many1(block)
-			ret = []
-			while true
-				pos = @index
-				begin
-					ret.push block.call
-					return ret if pos == @index   # XXX many in many avoidance
-				rescue ParseError
-					@index = pos
-					raise if ret.empty?
-					@error_history.push $!
-					return ret
-				end
-			end
-		end
-
-		def act_may(block)
-			pos = @index
-			begin
-				block.call
-			rescue ParseError
-				@index = pos
-				@error_history.push $!
-				nil
-			end
-		end
-
-
-		def act_not(block)
-			pos = @index
-			unless begin
-						block.call
-						nil
-					rescue ParseError
-						true
-					ensure
-						@index = pos
-					end
-				parse_error "not prediction failed"
-			end
-		end
-
-		def act_lookahead(block)
-			pos = @index
-			begin
-				block.call
-			ensure
-				@index = pos
-			end
-		end
-
-		def act_where(block)
-			unless block.call
-				parse_error "where prediction failed"
-			end
-		end
-
-		def act_any
-			next_char
-		end
-
-		def act_char(c)
-			pos = @index
-			n = next_char
-			unless c == n
-				@index = pos
-				parse_error "#{c.inspect} is expected"
-			end
-			n
-		end
-
-		def act_charset(set)
-			pos = @index
-			n = next_char
-			if n.count(set) == 0
-				@index = pos
-				parse_error "character set [#{set.inspect[1..-2]}] is expected"
-			end
-			n
-		end
-
-		def act_token(str)
-			pos = @index
-			begin
-				str.scan(/./m) {|c|
-					act_char(c)
-				}
-				str
-			rescue ParseError
-				@index = pos
-				parse_error "#{str.inspect} is expected"
-			end
-		end
-
-		def rule_end
-			if begin
-						c = next_char
-						@index -= 1
-						true
-					rescue
-						nil
-					end
-				parse_error "unexpected character '#{c}', EOF expected"
-			end
-		end
-
-		protected
-		def error(msg)
-			parse_error(msg)
-		end
-
-		private
-		def next_char
-			unless c = @input[@index]
-				parse_error "Unexpected end of input"
-			end
-			@index += 1
-			c
-		end
-
-		def parse_error(msg)
-			raise @error_class.new(msg, @index, @call_stack.dup)
-		end
-
-	end
-end
-
-
+require 'metal_runtime'

data/lib/metal/version.rb

@@ -2,7 +2,7 @@ module Metal
   module VERSION #:nodoc:
     MAJOR = 0
     MINOR = 0
-    TINY  = 2
+    TINY  = 3
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: metal
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors: 
 - FURUHASHI Sadayuki
@@ -9,18 +9,28 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-07-24 00:00:00 +09:00
+date: 2008-08-06 00:00:00 +09:00
 default_executable: 
-dependencies: []
-
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.7.0
+    version: 
 description: An object-oriented parser generator based on Parser Expression Grammar
 email: 
 - fr _at_ syuki.skr.jp
 executables: 
 - metal
 - metal-run
-extensions: []
-
+extensions: 
+- ext/metal/runtime/extconf.rb
+- ext/metal/boot/metal_boot_extconf.rb
 extra_rdoc_files: 
 - License.txt
 - Manifest.txt
@@ -34,8 +44,21 @@ files:
 - bin/metal-run
 - config/hoe.rb
 - config/requirements.rb
+- ext/metal/boot/metal_boot.h
+- ext/metal/boot/metal_boot.metal
+- ext/metal/boot/metal_boot.mm
+- ext/metal/boot/metal_boot_extconf.rb
+- ext/metal/boot/metal_boot_rb.mm
+- ext/metal/runtime/extconf.rb
+- ext/metal/runtime/input.mm
+- ext/metal/runtime/rbinit.mm
+- ext/metal/runtime/runtime.mm
+- include/metal.h
+- include/metal/exception.h
+- include/metal/input.h
+- include/metal/rbcode.h
+- include/metal/runtime.h
 - lib/metal.rb
-- lib/metal/boot.metal
 - lib/metal/boot.rb
 - lib/metal/generator.rb
 - lib/metal/runtime.rb
@@ -56,6 +79,7 @@ rdoc_options:
 - README.txt
 require_paths: 
 - lib
+- ext
 required_ruby_version: !ruby/object:Gem::Requirement 
   requirements: 
   - - ">="
@@ -71,7 +95,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: metal
-rubygems_version: 1.1.1
+rubygems_version: 1.2.0
 signing_key: 
 specification_version: 2
 summary: An object-oriented parser generator based on Parser Expression Grammar