quanty 1.1.0 → 1.2.0

data/History.txt

@@ -1,4 +1,4 @@
-=== 1.1.0 / 25.04.2001
+=== 1.2.0 / 22.12.2005
 
 * 1 major enhancement
 

data/Manifest.txt

@@ -7,6 +7,7 @@ README.txt
 Rakefile
 extconf.rb
 lib/quanty.rb
+lib/quanty/.cvsignore
 lib/quanty/fact.rb
 lib/quanty/main.rb
 lib/quanty/parse.rb

data/README.en

@@ -1,4 +1,4 @@
-    Quanty class for Ruby ver 1.1   by Masahiro Tanaka  2001-04-25
+    Quanty class for Ruby ver 1.2   by Masahiro Tanaka  2004-02-29
 
 = Description
 
@@ -19,11 +19,13 @@
 	make
 	make install
 
-  * If you want Racc binary library (faster than included script),
+  * If you use Ruby 1.6 and want Racc binary library
+    (faster than included script but not always necessary),
     Get Racc from
 	http://www9.xdsl.ne.jp/~aamine/en/index.html
     and install it.
-    Back to quanty directory.
+
+  * Back to quanty directory.
     Run `make clean', `make' and install it.
 
 = Usage
@@ -35,8 +37,7 @@
 
 = Tested Platform
 
-  * Ruby 1.6.2 (2000-12-22) [sparc-solaris2.7]
-  * Racc 1.3.7
+  * Ruby 1.8.1 (2003-12-25) [i686-linux]
 
 = License
 

data/extconf.rb

@@ -2,7 +2,7 @@ require 'rbconfig'
 include Config
 
 target  = 'quanty'
-sitedir = File.expand_path('../../src/util', File.dirname(__FILE__))
+sitedir = CONFIG["sitedir"]+"/"+CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
 
 def install_lib(mfile, dest, dir, files)
   mfile.printf "\t@$(MKDIR) %s/%s\n", dest, dir

data/lib/quanty.rb

@@ -1,7 +1,7 @@
-require 'util/quanty/parse'
-require 'util/quanty/fact'
-require 'util/quanty/main'
+require 'quanty/parse'
+require 'quanty/fact'
+require 'quanty/main'
 
 class Quanty
-  VERSION = '1.1.0'
+    VERSION = '1.2.0'
 end

data/lib/quanty/.cvsignore

@@ -0,0 +1 @@
+units.dump

data/lib/quanty/fact.rb

@@ -15,16 +15,16 @@ class Quanty
 
     attr_reader :factor
 
-    # Basic units:	Fact.new("m",true) => {"m"=>1}
+    # SI units:	Fact.new("m",true) => {"m"=>1}
     # Derivative units:	Fact.new("km") => 1000*{"m"=>1}
-    def initialize(key=nil,base=false)
+    def initialize(key=nil,si=false)
       self.default = 0.0
       @factor = 1.0
       case key
       when Numeric
 	@factor = key
       when String
-	if base
+	if si
 	  store(key, 1.0)
 	else
 	  decomp(key)
@@ -51,9 +51,12 @@ class Quanty
       Fact.new(self)
     end
 
+    attr_writer :factor
+    protected :factor=
+
     def find_prefix(a,n)
       Prefix.each{ |key,factor|
-	if /^#{key}-?/u =~ a && (unit = List[b=$']) && b.size>n
+	if /^#{key}-?/ =~ a && (unit = List[b=$']) && b.size>n
 	  #p [a,b,factor]
 	  return Fact.new(b).fac!(factor)
 	end
@@ -62,13 +65,13 @@ class Quanty
     end
 
     def decomp(a)
-      if /^([µA-Za-z_]+([A-Za-z_0-9-]+[A-Za-z_])?)$|^[$%'"]'?$/ou =~ a
+      if /^([A-Za-z_]+([A-Za-z_0-9-]+[A-Za-z_])?)$|^[$%'"]'?$/o =~ a
       #if /^[A-Za-z_0-9$%-]+$/o =~ a
 	unit = List[a] || find_prefix(a,0) ||
-	  if a.size>3 && /chs$/ou !~ a && /(.*[a-rt-y])s$/ou =~ a
+	  if a.size>3 && /chs$/o !~ a && /(.*[a-rt-y])s$/o =~ a
 	    b = $1
 	    List[b] || find_prefix(b,2) ||
-	      if a.size>4 && /(.*s|.*z|.*ch)es$/ou =~ a
+	      if a.size>4 && /(.*s|.*z|.*ch)es$/o =~ a
 		b = $1
 		List[b] || find_prefix(b,2)
 	      end
@@ -128,16 +131,29 @@ class Quanty
       @factor.to_s+"*"+super
     end
 
-    def to_s
+    def unit
       a = []
-      each{|k,v|
-	if v != 1
-	  v  = v.to_i if v%1 == 0
-	  k += v.to_s
+      SI.each do |k|
+        v = self[k]
+        if v && v!=0
+          if v != 1
+            v  = v.to_i if v%1 == 0
+            k += v.to_s
+          end
+          a.push(k)
 	end
-	a.push k
-      }
-      @factor.to_s+" "+a.join(" ")
+      end
+      a.join(" ")
+    end
+
+    def to_s
+      @factor.to_s+" "+unit()
+    end
+
+    def to_quanty
+      f = dup
+      f.factor = 1.0
+      Quanty(@factor, unit(), f)
     end
 
     def null?
@@ -170,25 +186,27 @@ class Quanty
     end
 
     class << self
-      def mkdump filename
+      def mkdump(filename)
 	Prefix.clear
 	List.clear
+        SI.clear
 	#s = open("units.succ","w")
 	#f = open("units.fail","w")
 	open("units.dat","r").readlines.each do |str|
-	  if /^([µA-Za-z_0-9%$"'-]+)\s+([^#]+)/u =~ str
+	  if /^([A-Za-z_0-9%$"'-]+)\s+([^#]+)/ =~ str #"
 	    name,repr = $1,$2.strip
 	    # conversion due to the different rule from GNU units:
 	    #   A / B C => A / (B C)
-	    if /\//u =~ repr #/
-	      pre,suf = $`,$'.strip
-	      if /\s/u =~ suf
+	    if /\// =~ repr #/
+	      pre,suf = $`,$'.strip #`
+	      if /\s/ =~ suf
 		repr = pre + ' / (' + suf + ')'
 	      end
 	    end
-	    if repr=="!"
+	    if repr=="!" # SI
 	      List[name] = Fact.new(name,true).freeze
-	    elsif /-$/u  =~ name
+              SI << name
+	    elsif /-$/  =~ name
 	      Prefix[name[0..-2]] = Prefix[repr] || (List[repr] || repr).to_f
 	    else
 	      #p [name,repr]
@@ -201,7 +219,7 @@ class Quanty
 	end
 	#Prefix.each{|key,val| p [key,val]}
 	#List.each{|key,val| p [key,val]}
-	Marshal.dump( [Prefix, List], open(filename,"w") )
+	Marshal.dump( [Prefix, List, SI], open(filename,"w") )
       end
     end
 
@@ -209,20 +227,16 @@ class Quanty
 
 
   ### Loading unit data ###
-=begin
   fn = nil
   $:.each{ |dir|
     fn = dir + "/quanty/units.dump"
     break if FileTest.exist?( fn )
     fn = nil
   }
-=end
-	fn = File.expand_path('units.dump', File.dirname(__FILE__))
-	fn = nil unless FileTest.exist?( fn )
   if fn
-    Prefix, List = Marshal.load(open(fn,"r"))
+    Prefix, List, SI = Marshal.load(open(fn,"r"))
   else
-    Prefix, List = {},{}
+    Prefix, List, SI = {},{},[]
   end
 
 end # class Quanty

data/lib/quanty/main.rb

@@ -87,7 +87,7 @@ class Quanty #< Numeric
   def  >  (other); @val  >  adjust(other) end
 
   def **(n)
-    if /^[A-Za-z_]+&/ou =~ @unit
+    if /^[A-Za-z_]+&/o =~ @unit
       unit = @unit+'^'+n.to_s
     else
       unit = '('+@unit+')^'+n.to_s+''
@@ -102,7 +102,7 @@ class Quanty #< Numeric
 	if unit.empty?
 	  unit = @unit
 	else
-	  if /\A[A-Za-z_]/ou =~ unit
+	  if /\A[A-Za-z_]/o =~ unit
 	    unit = @unit+' '+unit
 	  else
 	    unit = @unit+' ('+unit+')' 
@@ -121,7 +121,7 @@ class Quanty #< Numeric
       if unit.empty?
 	unit = @unit
       else
-	if /\A[A-Za-z_-]+((\^|\*\*)?[0-9.]+)?$/ou =~ unit
+	if /\A[A-Za-z_-]+((\^|\*\*)?[0-9.]+)?$/o =~ unit
 	  unit = '/ '+unit
 	else
 	  unit = '/ ('+unit+')' 
@@ -138,6 +138,11 @@ class Quanty #< Numeric
     [ Self.new(other), self ]
   end
 
+  def to_si
+    @fact.to_quanty * @val
+  end
+  alias to_SI :to_si
+
   def to_f
     if @fact.null?
       @val * @fact.factor

data/lib/quanty/parse.rb

@@ -1,17 +1,22 @@
 #
 # DO NOT MODIFY!!!!
-# This file is automatically generated by Racc 1.4.6
-# from Racc grammer file "".
+# This file is automatically generated by racc 1.4.4
+# from racc grammer file "parse.y".
+#
+#
+# lib/quanty/parse.rb: generated by racc (runtime embedded)
 #
 
-###### racc/parser.rb begin
+###### racc/parser.rb
+
 unless $".index 'racc/parser.rb'
 $".push 'racc/parser.rb'
-self.class.module_eval(<<'...end racc/parser.rb/module_eval...', 'racc/parser.rb', 1)
-  #
-# $Id$
+
+self.class.module_eval <<'..end /usr/local/lib/ruby/site_ruby/1.8/racc/parser.rb modeval..idb0d4489999', '/usr/local/lib/ruby/site_ruby/1.8/racc/parser.rb', 1
 #
-# Copyright (c) 1999-2006 Minero Aoki
+# parser.rb
+#
+# Copyright (c) 1999-2003 Minero Aoki <aamine@loveruby.net>
 #
 # This program is free software.
 # You can distribute/modify this program under the same terms of ruby.
@@ -20,11 +25,14 @@ self.class.module_eval(<<'...end racc/parser.rb/module_eval...', 'racc/parser.rb
 # into a Racc output file, you may use that output file
 # without restriction.
 #
+# $Id: parse.rb,v 1.4 2004/02/29 07:38:29 masa Exp $
+#
 
 unless defined?(NotImplementedError)
   NotImplementedError = NotImplementError
 end
 
+
 module Racc
   class ParseError < StandardError; end
 end
@@ -32,6 +40,7 @@ unless defined?(::ParseError)
   ParseError = Racc::ParseError
 end
 
+
 module Racc
 
   unless defined?(Racc_No_Extentions)
@@ -40,15 +49,15 @@ module Racc
 
   class Parser
 
-    Racc_Runtime_Version = '1.4.6'
-    Racc_Runtime_Revision = '$Id$'
+    Racc_Runtime_Version = '1.4.3'
+    Racc_Runtime_Revision = '$Revision: 1.4 $'.split(/\s+/)[1]
 
-    Racc_Runtime_Core_Version_R = '1.4.6'
-    Racc_Runtime_Core_Revision_R = '$Id$'.split[1]
+    Racc_Runtime_Core_Version_R = '1.4.3'
+    Racc_Runtime_Core_Revision_R = '$Revision: 1.4 $'.split(/\s+/)[1]
     begin
       require 'racc/cparse'
     # Racc_Runtime_Core_Version_C  = (defined in extention)
-      Racc_Runtime_Core_Revision_C = Racc_Runtime_Core_Id_C.split[2]
+      Racc_Runtime_Core_Revision_C = Racc_Runtime_Core_Id_C.split(/\s+/)[2]
       unless new.respond_to?(:_racc_do_parse_c, true)
         raise LoadError, 'old cparse.so'
       end
@@ -77,9 +86,9 @@ module Racc
 
     def _racc_setup
       @yydebug = false unless self.class::Racc_debug_parser
-      @yydebug = false unless defined?(@yydebug)
+      @yydebug = false unless defined? @yydebug
       if @yydebug
-        @racc_debug_out = $stderr unless defined?(@racc_debug_out)
+        @racc_debug_out = $stderr unless defined? @racc_debug_out
         @racc_debug_out ||= $stderr
       end
       arg = self.class::Racc_arg
@@ -101,19 +110,20 @@ module Racc
       @racc_error_status = 0
     end
 
+
     ###
     ### do_parse
     ###
 
     def do_parse
-      __send__(Racc_Main_Parsing_Routine, _racc_setup(), false)
+      __send__ Racc_Main_Parsing_Routine, _racc_setup(), false
     end
 
     def next_token
       raise NotImplementedError, "#{self.class}\#next_token is not defined"
     end
 
-    def _racc_do_parse_rb(arg, in_debug)
+    def _racc_do_parse_rb( arg, in_debug )
       action_table, action_check, action_default, action_pointer,
       goto_table,   goto_check,   goto_default,   goto_pointer,
       nt_base,      reduce_table, token_table,    shift_n,
@@ -124,33 +134,34 @@ module Racc
       nerr = 0
 
       catch(:racc_end_parse) {
-        while true
-          if i = action_pointer[@racc_state[-1]]
-            if @racc_read_next
-              if @racc_t != 0   # not EOF
-                tok, @racc_val = next_token()
-                unless tok      # EOF
-                  @racc_t = 0
-                else
-                  @racc_t = (token_table[tok] or 1)   # error token
+          while true
+            if i = action_pointer[@racc_state[-1]]
+              if @racc_read_next
+                if @racc_t != 0   # not EOF
+                  tok, @racc_val = next_token()
+                  unless tok      # EOF
+                    @racc_t = 0
+                  else
+                    @racc_t = (token_table[tok] or 1)   # error token
+                  end
+                  racc_read_token(@racc_t, tok, @racc_val) if @yydebug
+                  @racc_read_next = false
                 end
-                racc_read_token(@racc_t, tok, @racc_val) if @yydebug
-                @racc_read_next = false
               end
-            end
-            i += @racc_t
-            unless i >= 0 and
-                   act = action_table[i] and
-                   action_check[i] == @racc_state[-1]
+              i += @racc_t
+              if  i >= 0 and
+                  act = action_table[i] and
+                  action_check[i] == @racc_state[-1]
+                ;
+              else
+                act = action_default[@racc_state[-1]]
+              end
+            else
               act = action_default[@racc_state[-1]]
             end
-          else
-            act = action_default[@racc_state[-1]]
-          end
-          while act = _racc_evalact(act, arg)
-            ;
+            while act = _racc_evalact(act, arg)
+            end
           end
-        end
       }
     end
 
@@ -158,26 +169,31 @@ module Racc
     ### yyparse
     ###
 
-    def yyparse(recv, mid)
-      __send__(Racc_YY_Parse_Method, recv, mid, _racc_setup(), true)
+    def yyparse( recv, mid )
+      __send__ Racc_YY_Parse_Method, recv, mid, _racc_setup(), true
     end
 
-    def _racc_yyparse_rb(recv, mid, arg, c_debug)
+    def _racc_yyparse_rb( recv, mid, arg, c_debug )
       action_table, action_check, action_default, action_pointer,
       goto_table,   goto_check,   goto_default,   goto_pointer,
       nt_base,      reduce_table, token_table,    shift_n,
       reduce_n,     use_result,   * = arg
 
       _racc_init_sysvars
+      tok = nil
+      act = nil
+      i = nil
       nerr = 0
 
+
       catch(:racc_end_parse) {
         until i = action_pointer[@racc_state[-1]]
           while act = _racc_evalact(action_default[@racc_state[-1]], arg)
-            ;
           end
         end
+
         recv.__send__(mid) do |tok, val|
+# $stderr.puts "rd: tok=#{tok}, val=#{val}"
           unless tok
             @racc_t = 0
           else
@@ -187,26 +203,35 @@ module Racc
           @racc_read_next = false
 
           i += @racc_t
-          unless i >= 0 and
-                 act = action_table[i] and
-                 action_check[i] == @racc_state[-1]
+          if  i >= 0 and
+              act = action_table[i] and
+              action_check[i] == @racc_state[-1]
+            ;
+# $stderr.puts "01: act=#{act}"
+          else
             act = action_default[@racc_state[-1]]
+# $stderr.puts "02: act=#{act}"
+# $stderr.puts "curstate=#{@racc_state[-1]}"
           end
+
           while act = _racc_evalact(act, arg)
-            ;
           end
 
-          while !(i = action_pointer[@racc_state[-1]]) ||
-                ! @racc_read_next ||
-                @racc_t == 0  # $
-            unless i and i += @racc_t and
-                   i >= 0 and
-                   act = action_table[i] and
-                   action_check[i] == @racc_state[-1]
+          while not (i = action_pointer[@racc_state[-1]]) or
+                not @racc_read_next or
+                @racc_t == 0   # $
+            if i and i += @racc_t and
+               i >= 0 and
+               act = action_table[i] and
+               action_check[i] == @racc_state[-1]
+              ;
+# $stderr.puts "03: act=#{act}"
+            else
+# $stderr.puts "04: act=#{act}"
               act = action_default[@racc_state[-1]]
             end
+
             while act = _racc_evalact(act, arg)
-              ;
             end
           end
         end
@@ -217,23 +242,27 @@ module Racc
     ### common
     ###
 
-    def _racc_evalact(act, arg)
+    def _racc_evalact( act, arg )
+# $stderr.puts "ea: act=#{act}"
       action_table, action_check, action_default, action_pointer,
       goto_table,   goto_check,   goto_default,   goto_pointer,
       nt_base,      reduce_table, token_table,    shift_n,
       reduce_n,     use_result,   * = arg
-      nerr = 0   # tmp
+nerr = 0   # tmp
 
       if act > 0 and act < shift_n
         #
         # shift
         #
+
         if @racc_error_status > 0
           @racc_error_status -= 1 unless @racc_t == 1   # error token
         end
+
         @racc_vstack.push @racc_val
         @racc_state.push act
         @racc_read_next = true
+
         if @yydebug
           @racc_tstack.push @racc_t
           racc_shift @racc_t, @racc_tstack, @racc_vstack
@@ -243,9 +272,10 @@ module Racc
         #
         # reduce
         #
+
         code = catch(:racc_jump) {
-          @racc_state.push _racc_do_reduce(arg, act)
-          false
+            @racc_state.push _racc_do_reduce(arg, act)
+            false
         }
         if code
           case code
@@ -255,7 +285,7 @@ module Racc
           when 2 # yyaccept
             return shift_n
           else
-            raise '[Racc Bug] unknown jump code'
+            raise RuntimeError, '[Racc Bug] unknown jump code'
           end
         end
 
@@ -263,6 +293,7 @@ module Racc
         #
         # accept
         #
+
         racc_accept if @yydebug
         throw :racc_end_parse, @racc_vstack[0]
 
@@ -270,6 +301,7 @@ module Racc
         #
         # error
         #
+
         case @racc_error_status
         when 0
           unless arg[21]    # user_yyerror
@@ -284,6 +316,7 @@ module Racc
         end
         @racc_user_yyerror = false
         @racc_error_status = 3
+
         while true
           if i = action_pointer[@racc_state[-1]]
             i += 1   # error token
@@ -293,7 +326,8 @@ module Racc
               break
             end
           end
-          throw :racc_end_parse, nil if @racc_state.size <= 1
+
+          throw :racc_end_parse, nil if @racc_state.size < 2
           @racc_state.pop
           @racc_vstack.pop
           if @yydebug
@@ -301,10 +335,11 @@ module Racc
             racc_e_pop @racc_state, @racc_tstack, @racc_vstack
           end
         end
+
         return act
 
       else
-        raise "[Racc Bug] unknown action #{act.inspect}"
+        raise RuntimeError, "[Racc Bug] unknown action #{act.inspect}"
       end
 
       racc_next_state(@racc_state[-1], @racc_state) if @yydebug
@@ -312,7 +347,7 @@ module Racc
       nil
     end
 
-    def _racc_do_reduce(arg, act)
+    def _racc_do_reduce( arg, act )
       action_table, action_check, action_default, action_pointer,
       goto_table,   goto_check,   goto_default,   goto_pointer,
       nt_base,      reduce_table, token_table,    shift_n,
@@ -353,7 +388,7 @@ module Racc
       goto_default[k1]
     end
 
-    def on_error(t, val, vstack)
+    def on_error( t, val, vstack )
       raise ParseError, sprintf("\nparse error on value %s (%s)",
                                 val.inspect, token_to_str(t) || '?')
     end
@@ -370,24 +405,23 @@ module Racc
       @racc_error_status = 0
     end
 
-    #
+
     # for debugging output
-    #
 
-    def racc_read_token(t, tok, val)
+    def racc_read_token( t, tok, val )
       @racc_debug_out.print 'read    '
       @racc_debug_out.print tok.inspect, '(', racc_token2str(t), ') '
       @racc_debug_out.puts val.inspect
       @racc_debug_out.puts
     end
 
-    def racc_shift(tok, tstack, vstack)
+    def racc_shift( tok, tstack, vstack )
       @racc_debug_out.puts "shift   #{racc_token2str tok}"
       racc_print_stacks tstack, vstack
       @racc_debug_out.puts
     end
 
-    def racc_reduce(toks, sim, tstack, vstack)
+    def racc_reduce( toks, sim, tstack, vstack )
       out = @racc_debug_out
       out.print 'reduce '
       if toks.empty?
@@ -406,20 +440,20 @@ module Racc
       @racc_debug_out.puts
     end
 
-    def racc_e_pop(state, tstack, vstack)
+    def racc_e_pop( state, tstack, vstack )
       @racc_debug_out.puts 'error recovering mode: pop token'
       racc_print_states state
       racc_print_stacks tstack, vstack
       @racc_debug_out.puts
     end
 
-    def racc_next_state(curstate, state)
+    def racc_next_state( curstate, state )
       @racc_debug_out.puts  "goto    #{curstate}"
       racc_print_states state
       @racc_debug_out.puts
     end
 
-    def racc_print_stacks(t, v)
+    def racc_print_stacks( t, v )
       out = @racc_debug_out
       out.print '        ['
       t.each_index do |i|
@@ -428,29 +462,28 @@ module Racc
       out.puts ' ]'
     end
 
-    def racc_print_states(s)
+    def racc_print_states( s )
       out = @racc_debug_out
       out.print '        ['
       s.each {|st| out.print ' ', st }
       out.puts ' ]'
     end
 
-    def racc_token2str(tok)
+    def racc_token2str( tok )
       self.class::Racc_token_to_s_table[tok] or
-          raise "[Racc Bug] can't convert token #{tok} to string"
+          raise RuntimeError, "[Racc Bug] can't convert token #{tok} to string"
     end
 
-    def token_to_str(t)
+    def token_to_str( t )
       self.class::Racc_token_to_s_table[t]
     end
 
   end
 
 end
+..end /usr/local/lib/ruby/site_ruby/1.8/racc/parser.rb modeval..idb0d4489999
+end   # end of racc/parser.rb
 
-...end racc/parser.rb/module_eval...
-end
-###### racc/parser.rb end
 
 
 # parse.y, quanty/parse.rb
@@ -459,9 +492,10 @@ end
 #
 class Quanty
 
+
 class Parse < Racc::Parser
 
-module_eval(<<'...end parse.y/module_eval...', 'parse.y', 72)
+module_eval <<'..end parse.y modeval..id8dd3e186dd', 'parse.y', 73
   
   def parse( str )
     @q = []
@@ -469,18 +503,16 @@ module_eval(<<'...end parse.y/module_eval...', 'parse.y', 72)
     while str.size > 0 do
       #p str
       case str
-      when /\A[\s\n]+/ou
-      when /\A\d+\.?\d*([eE][+-]?\d+)?/ou
+      when /\A[\s\n]+/o
+      when /\A\d+\.?\d*([eE][+-]?\d+)?/o
         @q.push [:NUMBER, $&.to_f]
-			when /\A([A-Z]\.){2}/u
-			when /\A[A-Za-z_]+ -/u
-      when /\A[A-Za-z_µ]+([A-Za-z_µ0-9-]+[A-Za-z_µ])?/ou
+      when /\A[A-Za-z_]+([A-Za-z_0-9-]+[A-Za-z_])?/o
         @q.push [:WORD, $&]
-      when /\A[$%'"]'?/ou
+      when /\A[$%'"]'?/o
         @q.push [:WORD, $&]
-      when /\A\^|\A\*\*/ou
+      when /\A\^|\A\*\*/o
         @q.push [:POW, $&]
-      when /\A./ou
+      when /\A./o
         @q.push [$&,$&]
       end
         str = $'
@@ -494,357 +526,372 @@ module_eval(<<'...end parse.y/module_eval...', 'parse.y', 72)
     @q.shift
   end
 
-...end parse.y/module_eval...
-##### State transition tables begin ###
+..end parse.y modeval..id8dd3e186dd
+
+##### racc 1.4.4 generates ###
+
+racc_reduce_table = [
+ 0, 0, :racc_error,
+ 1, 18, :_reduce_none,
+ 0, 18, :_reduce_2,
+ 1, 18, :_reduce_3,
+ 1, 20, :_reduce_none,
+ 2, 20, :_reduce_5,
+ 3, 20, :_reduce_6,
+ 3, 20, :_reduce_7,
+ 3, 20, :_reduce_8,
+ 3, 20, :_reduce_9,
+ 3, 20, :_reduce_10,
+ 3, 20, :_reduce_11,
+ 3, 20, :_reduce_12,
+ 1, 19, :_reduce_none,
+ 2, 19, :_reduce_14,
+ 2, 19, :_reduce_15,
+ 3, 19, :_reduce_16,
+ 1, 21, :_reduce_none,
+ 2, 21, :_reduce_18,
+ 3, 21, :_reduce_19,
+ 3, 21, :_reduce_20,
+ 3, 21, :_reduce_21,
+ 3, 21, :_reduce_22,
+ 3, 21, :_reduce_23,
+ 1, 22, :_reduce_none,
+ 2, 22, :_reduce_25,
+ 3, 22, :_reduce_26,
+ 1, 23, :_reduce_27,
+ 3, 23, :_reduce_28,
+ 3, 23, :_reduce_29 ]
+
+racc_reduce_n = 30
+
+racc_shift_n = 54
 
 racc_action_table = [
-    23,    22,    24,    25,    26,    27,    29,    23,    20,    38,
-     3,     4,    23,    23,    24,    25,    26,    27,    29,    23,
-    20,    23,     3,     4,    23,    33,    24,    25,    26,    27,
-    29,    40,    20,    37,     3,     4,    23,    39,    24,    36,
-    26,    27,    29,    30,    31,    38,   nil,    30,    31,    20,
-   nil,     3,     4,    20,     5,     3,     4,    10,    12,     2,
-     5,     3,     4,    10,    12,     2,     5,     3,     4,    10,
-    12,     2,     5,     3,     4,    10,    12,     2,    14,     3,
-     4,   nil,   nil,    23,    10,    12,    13,    26,    27,    29,
-    23,   nil,   nil,    23,    26,    27,    29,    26,    27,    29,
-    23,    10,    12,    13,    26,    27,    29,    10,    12,     2,
-   nil,     3,     4,    10,    12,     2,   nil,     3,     4,    10,
-    12,     2,   nil,     3,     4,    23,   nil,    24,    36,    26,
-    23,   nil,    24,    36,    26,    20,   nil,     3,     4,    10,
-    12,    13,    10,    12,    13,    10,    12,    13,    10,    12,
-    13,    10,    12,    13,    10,    12,    13,    10,    12,    13 ]
+    23,    22,    23,    24,    25,    26,    27,    29,    23,    21,
+    39,     5,     6,    23,    23,    23,    24,    25,    26,    27,
+    29,    34,    21,    23,     5,     6,    24,    25,    26,    27,
+    29,    41,    21,    23,     5,     6,    24,    37,    26,    27,
+    29,    38,    40,    39,    31,    32,    33,   nil,    31,    32,
+    33,    21,    14,     5,     6,    21,   nil,     5,     6,    12,
+     2,    13,     7,   nil,   nil,    12,     2,     4,     7,     5,
+     6,    12,     2,     4,     7,     5,     6,    12,     2,     4,
+     7,     5,     6,    12,     2,     4,    23,     5,     6,    23,
+   nil,    26,    27,    29,    26,    27,    29,    23,   nil,   nil,
+    23,   nil,    26,    27,    29,    26,    27,    29,    12,     2,
+     4,   nil,     5,     6,    12,     2,     4,    23,     5,     6,
+    24,    37,    26,    12,     2,     4,    23,     5,     6,    24,
+    37,    26,    21,   nil,     5,     6,    21,   nil,     5,     6,
+    12,     2,    13,    12,     2,    13,    12,     2,    13,    12,
+     2,    13,    12,     2,    13,    12,     2,    13,    12,     2,
+    13,    12,     2,    13 ]
 
 racc_action_check = [
-    17,     6,    17,    17,    17,    17,    17,    41,    17,    17,
-    17,    17,    19,    42,    19,    19,    19,    19,    19,    43,
-    19,    45,    19,    19,     8,    10,     8,     8,     8,     8,
-     8,    22,     8,    16,     8,     8,    34,    18,    34,    34,
-    34,    34,    34,    28,    28,    34,   nil,     9,     9,    28,
-   nil,    28,    28,     9,     0,     9,     9,     0,     0,     0,
-    20,     0,     0,    20,    20,    20,     4,    20,    20,     4,
-     4,     4,     2,     4,     4,     2,     2,     2,     1,     2,
-     2,   nil,   nil,    15,     1,     1,     1,    15,    15,    15,
-    48,   nil,   nil,    35,    48,    48,    48,    35,    35,    35,
-    50,    29,    29,    29,    50,    50,    50,    31,    31,    31,
-   nil,    31,    31,    30,    30,    30,   nil,    30,    30,    25,
-    25,    25,   nil,    25,    25,    47,   nil,    47,    47,    47,
-    46,   nil,    46,    46,    46,     5,   nil,     5,     5,    27,
-    27,    27,    13,    13,    13,    23,    23,    23,    14,    14,
-    14,    36,    36,    36,    26,    26,    26,    24,    24,    24 ]
+    17,     8,    42,    17,    17,    17,    17,    17,    43,    17,
+    17,    17,    17,    19,    45,    46,    19,    19,    19,    19,
+    19,    12,    19,    10,    19,    19,    10,    10,    10,    10,
+    10,    22,    10,    35,    10,    10,    35,    35,    35,    35,
+    35,    16,    18,    35,    28,    28,    28,   nil,    11,    11,
+    11,    28,     3,    28,    28,    11,   nil,    11,    11,     3,
+     3,     3,    21,   nil,   nil,    21,    21,    21,     6,    21,
+    21,     6,     6,     6,     4,     6,     6,     4,     4,     4,
+     0,     4,     4,     0,     0,     0,    15,     0,     0,    51,
+   nil,    15,    15,    15,    51,    51,    51,    36,   nil,   nil,
+    53,   nil,    36,    36,    36,    53,    53,    53,    33,    33,
+    33,   nil,    33,    33,    32,    32,    32,    48,    32,    32,
+    48,    48,    48,    25,    25,    25,    47,    25,    25,    47,
+    47,    47,    31,   nil,    31,    31,     7,   nil,     7,     7,
+    29,    29,    29,    13,    13,    13,    23,    23,    23,    14,
+    14,    14,    26,    26,    26,    37,    37,    37,    27,    27,
+    27,    24,    24,    24 ]
 
 racc_action_pointer = [
-    48,    75,    66,   nil,    60,   124,     1,   nil,    21,    42,
-    15,   nil,   nil,   133,   139,    80,    21,    -3,    22,     9,
-    54,   nil,    31,   136,   148,   110,   145,   130,    38,    92,
-   104,    98,   nil,   nil,    33,    90,   142,   nil,   nil,   nil,
-   nil,     4,    10,    16,   nil,    18,   127,   122,    87,   nil,
-    97,   nil ]
+    73,   nil,   nil,    49,    67,   nil,    61,   124,     1,   nil,
+    20,    43,    10,   133,   139,    83,    28,    -3,    26,    10,
+   nil,    55,    31,   136,   151,   113,   142,   148,    39,   130,
+   nil,   120,   104,    98,   nil,    30,    94,   145,   nil,   nil,
+   nil,   nil,    -1,     5,   nil,    11,    12,   123,   114,   nil,
+   nil,    86,   nil,    97 ]
 
 racc_action_default = [
-    -2,   -23,   -29,   -26,   -29,   -29,   -29,    -1,    -3,   -13,
-   -29,   -17,    -4,   -29,   -29,   -24,   -29,   -29,   -29,   -29,
-   -29,   -15,   -29,   -29,   -29,   -29,   -29,   -29,   -14,   -29,
-   -29,   -29,   -18,    -5,   -29,   -25,   -29,   -27,   -12,   -28,
-    52,   -11,   -10,    -9,   -16,    -8,    -6,    -7,   -21,   -19,
-   -22,   -20 ]
+    -2,   -17,    -4,   -24,   -30,   -27,   -30,   -30,   -30,    -1,
+    -3,   -13,   -30,   -30,   -30,   -25,   -30,   -30,   -30,   -30,
+   -15,   -30,   -30,   -30,   -30,   -30,   -30,   -30,   -14,   -30,
+   -18,   -30,   -30,   -30,    -5,   -30,   -26,   -30,   -28,   -12,
+   -29,    54,   -11,   -10,   -16,    -9,    -8,    -6,    -7,   -19,
+   -20,   -22,   -21,   -23 ]
 
 racc_goto_table = [
-     8,    15,    17,     7,     6,   nil,    28,    18,   nil,   nil,
-   nil,   nil,    21,    34,    35,    28,    32,    28,   nil,   nil,
-   nil,   nil,   nil,    41,    42,    43,    45,    46,   nil,    47,
-    48,    50,    44,   nil,   nil,    32,    43,    49,    51 ]
+    10,    28,     8,    15,    17,     9,   nil,   nil,    28,   nil,
+    28,    18,   nil,    35,    36,   nil,   nil,    20,   nil,   nil,
+   nil,    30,   nil,    42,    43,    45,    46,    47,   nil,    48,
+   nil,   nil,    51,    53,   nil,    44,   nil,    45,    30,   nil,
+   nil,    49,    50,    52 ]
 
 racc_goto_check = [
-     3,     3,     3,     2,     1,   nil,     4,     2,   nil,   nil,
-   nil,   nil,     5,     3,     3,     4,     5,     4,   nil,   nil,
-   nil,   nil,   nil,     3,     3,     3,     3,     3,   nil,     3,
-     3,     3,     5,   nil,   nil,     5,     3,     5,     5 ]
+     3,     4,     1,     3,     3,     2,   nil,   nil,     4,   nil,
+     4,     2,   nil,     3,     3,   nil,   nil,     5,   nil,   nil,
+   nil,     5,   nil,     3,     3,     3,     3,     3,   nil,     3,
+   nil,   nil,     3,     3,   nil,     5,   nil,     3,     5,   nil,
+   nil,     5,     5,     5 ]
 
 racc_goto_pointer = [
-   nil,     4,     3,     0,    -2,     7,   nil ]
+   nil,     2,     5,     0,    -9,    10,   nil ]
 
 racc_goto_default = [
-   nil,   nil,    16,    19,     9,    11,     1 ]
-
-racc_reduce_table = [
-  0, 0, :racc_error,
-  1, 17, :_reduce_none,
-  0, 17, :_reduce_2,
-  1, 17, :_reduce_3,
-  1, 19, :_reduce_none,
-  2, 19, :_reduce_5,
-  3, 19, :_reduce_6,
-  3, 19, :_reduce_7,
-  3, 19, :_reduce_8,
-  3, 19, :_reduce_9,
-  3, 19, :_reduce_10,
-  3, 19, :_reduce_11,
-  3, 19, :_reduce_12,
-  1, 18, :_reduce_none,
-  2, 18, :_reduce_14,
-  2, 18, :_reduce_15,
-  3, 18, :_reduce_16,
-  1, 20, :_reduce_none,
-  2, 20, :_reduce_18,
-  3, 20, :_reduce_19,
-  3, 20, :_reduce_20,
-  3, 20, :_reduce_21,
-  3, 20, :_reduce_22,
-  1, 21, :_reduce_none,
-  2, 21, :_reduce_24,
-  3, 21, :_reduce_25,
-  1, 22, :_reduce_26,
-  3, 22, :_reduce_27,
-  3, 22, :_reduce_28 ]
-
-racc_reduce_n = 29
-
-racc_shift_n = 52
+   nil,   nil,    16,    19,    11,     1,     3 ]
 
 racc_token_table = {
-  false => 0,
-  :error => 1,
-  :UMINUS => 2,
-  :POW => 3,
-  :UPOW => 4,
-  "*" => 5,
-  "/" => 6,
-  "|" => 7,
-  "+" => 8,
-  "-" => 9,
-  :NUMBER => 10,
-  "(" => 11,
-  ")" => 12,
-  :WORD => 13,
-  "[" => 14,
-  "]" => 15 }
-
-racc_nt_base = 16
+ false => 0,
+ Object.new => 1,
+ :UMINUS => 2,
+ :POW => 3,
+ :UPOW => 4,
+ "." => 5,
+ "*" => 6,
+ "/" => 7,
+ "|" => 8,
+ "+" => 9,
+ "-" => 10,
+ :NUMBER => 11,
+ "(" => 12,
+ ")" => 13,
+ :WORD => 14,
+ "[" => 15,
+ "]" => 16 }
 
 racc_use_result_var = true
 
+racc_nt_base = 17
+
 Racc_arg = [
-  racc_action_table,
-  racc_action_check,
-  racc_action_default,
-  racc_action_pointer,
-  racc_goto_table,
-  racc_goto_check,
-  racc_goto_default,
-  racc_goto_pointer,
-  racc_nt_base,
-  racc_reduce_table,
-  racc_token_table,
-  racc_shift_n,
-  racc_reduce_n,
-  racc_use_result_var ]
+ racc_action_table,
+ racc_action_check,
+ racc_action_default,
+ racc_action_pointer,
+ racc_goto_table,
+ racc_goto_check,
+ racc_goto_default,
+ racc_goto_pointer,
+ racc_nt_base,
+ racc_reduce_table,
+ racc_token_table,
+ racc_shift_n,
+ racc_reduce_n,
+ racc_use_result_var ]
 
 Racc_token_to_s_table = [
-  "$end",
-  "error",
-  "UMINUS",
-  "POW",
-  "UPOW",
-  "\"*\"",
-  "\"/\"",
-  "\"|\"",
-  "\"+\"",
-  "\"-\"",
-  "NUMBER",
-  "\"(\"",
-  "\")\"",
-  "WORD",
-  "\"[\"",
-  "\"]\"",
-  "$start",
-  "target",
-  "val",
-  "num",
-  "seq",
-  "exp",
-  "unit" ]
+'$end',
+'error',
+'UMINUS',
+'POW',
+'UPOW',
+'"."',
+'"*"',
+'"/"',
+'"|"',
+'"+"',
+'"-"',
+'NUMBER',
+'"("',
+'")"',
+'WORD',
+'"["',
+'"]"',
+'$start',
+'target',
+'val',
+'num',
+'seq',
+'exp',
+'unit']
 
 Racc_debug_parser = false
 
-##### State transition tables end #####
+##### racc system variables end #####
 
-# reduce 0 omitted
+ # reduce 0 omitted
 
-# reduce 1 omitted
+ # reduce 1 omitted
 
-module_eval(<<'.,.,', 'parse.y', 21)
-  def _reduce_2(val, _values, result)
-     result = Quanty::Fact.new 
-    result
+module_eval <<'.,.,', 'parse.y', 21
+  def _reduce_2( val, _values, result )
+ result = Quanty::Fact.new
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 22)
-  def _reduce_3(val, _values, result)
-     result = Quanty::Fact.new(val[0]) 
-    result
+module_eval <<'.,.,', 'parse.y', 22
+  def _reduce_3( val, _values, result )
+ result = Quanty::Fact.new(val[0])
+   result
   end
 .,.,
 
-# reduce 4 omitted
+ # reduce 4 omitted
 
-module_eval(<<'.,.,', 'parse.y', 26)
-  def _reduce_5(val, _values, result)
-     result = -val[1] 
-    result
+module_eval <<'.,.,', 'parse.y', 26
+  def _reduce_5( val, _values, result )
+ result = -val[1]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 27)
-  def _reduce_6(val, _values, result)
-     result += val[2] 
-    result
+module_eval <<'.,.,', 'parse.y', 27
+  def _reduce_6( val, _values, result )
+ result += val[2]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 28)
-  def _reduce_7(val, _values, result)
-     result -= val[2] 
-    result
+module_eval <<'.,.,', 'parse.y', 28
+  def _reduce_7( val, _values, result )
+ result -= val[2]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 29)
-  def _reduce_8(val, _values, result)
-     result /= val[2] 
-    result
+module_eval <<'.,.,', 'parse.y', 29
+  def _reduce_8( val, _values, result )
+ result /= val[2]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 30)
-  def _reduce_9(val, _values, result)
-     result /= val[2] 
-    result
+module_eval <<'.,.,', 'parse.y', 30
+  def _reduce_9( val, _values, result )
+ result /= val[2]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 31)
-  def _reduce_10(val, _values, result)
-     result *= val[2] 
-    result
+module_eval <<'.,.,', 'parse.y', 31
+  def _reduce_10( val, _values, result )
+ result *= val[2]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 32)
-  def _reduce_11(val, _values, result)
-     result **= val[2] 
-    result
+module_eval <<'.,.,', 'parse.y', 32
+  def _reduce_11( val, _values, result )
+ result **= val[2]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 33)
-  def _reduce_12(val, _values, result)
-     result = val[1] 
-    result
+module_eval <<'.,.,', 'parse.y', 33
+  def _reduce_12( val, _values, result )
+ result = val[1]
+   result
   end
 .,.,
 
-# reduce 13 omitted
+ # reduce 13 omitted
 
-module_eval(<<'.,.,', 'parse.y', 37)
-  def _reduce_14(val, _values, result)
-     result = val[1].fac!(val[0]) 
-    result
+module_eval <<'.,.,', 'parse.y', 37
+  def _reduce_14( val, _values, result )
+ result = val[1].fac!(val[0])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 38)
-  def _reduce_15(val, _values, result)
-     result = val[1].pow!(-1) 
-    result
+module_eval <<'.,.,', 'parse.y', 38
+  def _reduce_15( val, _values, result )
+ result = val[1].pow!(-1)
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 39)
-  def _reduce_16(val, _values, result)
-     result = val[2].pow!(-1).fac!(val[0]) 
-    result
+module_eval <<'.,.,', 'parse.y', 39
+  def _reduce_16( val, _values, result )
+ result = val[2].pow!(-1).fac!(val[0])
+   result
   end
 .,.,
 
-# reduce 17 omitted
+ # reduce 17 omitted
+
+module_eval <<'.,.,', 'parse.y', 43
+  def _reduce_18( val, _values, result )
+ result.mul!(val[1])
+   result
+  end
+.,.,
 
-module_eval(<<'.,.,', 'parse.y', 43)
-  def _reduce_18(val, _values, result)
-     result.mul!(val[1]) 
-    result
+module_eval <<'.,.,', 'parse.y', 44
+  def _reduce_19( val, _values, result )
+ result.mul!(val[2])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 44)
-  def _reduce_19(val, _values, result)
-     result.mul!(val[2]) 
-    result
+module_eval <<'.,.,', 'parse.y', 45
+  def _reduce_20( val, _values, result )
+ result.mul!(val[2])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 45)
-  def _reduce_20(val, _values, result)
-     result.div!(val[2]) 
-    result
+module_eval <<'.,.,', 'parse.y', 46
+  def _reduce_21( val, _values, result )
+ result.div!(val[2])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 46)
-  def _reduce_21(val, _values, result)
-     result.fac!(val[2]) 
-    result
+module_eval <<'.,.,', 'parse.y', 47
+  def _reduce_22( val, _values, result )
+ result.fac!(val[2])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 47)
-  def _reduce_22(val, _values, result)
-     result.fac!(val[2]**-1) 
-    result
+module_eval <<'.,.,', 'parse.y', 48
+  def _reduce_23( val, _values, result )
+ result.fac!(val[2]**-1)
+   result
   end
 .,.,
 
-# reduce 23 omitted
+ # reduce 24 omitted
 
-module_eval(<<'.,.,', 'parse.y', 51)
-  def _reduce_24(val, _values, result)
-     result.pow!(val[1]) 
-    result
+module_eval <<'.,.,', 'parse.y', 52
+  def _reduce_25( val, _values, result )
+ result.pow!(val[1])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 52)
-  def _reduce_25(val, _values, result)
-     result.pow!(val[2]) 
-    result
+module_eval <<'.,.,', 'parse.y', 53
+  def _reduce_26( val, _values, result )
+ result.pow!(val[2])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 55)
-  def _reduce_26(val, _values, result)
-     result = Quanty::Fact.new(val[0]) 
-    result
+module_eval <<'.,.,', 'parse.y', 56
+  def _reduce_27( val, _values, result )
+ result = Quanty::Fact.new(val[0])
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 56)
-  def _reduce_27(val, _values, result)
-     result = val[1] 
-    result
+module_eval <<'.,.,', 'parse.y', 57
+  def _reduce_28( val, _values, result )
+ result = val[1]
+   result
   end
 .,.,
 
-module_eval(<<'.,.,', 'parse.y', 57)
-  def _reduce_28(val, _values, result)
-     result = val[1] 
-    result
+module_eval <<'.,.,', 'parse.y', 58
+  def _reduce_29( val, _values, result )
+ result = val[1]
+   result
   end
 .,.,
 
-def _reduce_none(val, _values, result)
-  val[0]
-end
+ def _reduce_none( val, _values, result )
+  result
+ end
 
 end   # class Parse