ramaze.ch.oddb.org 1.0.0

data/lib/oddb/util/quanty/main.rb

@@ -0,0 +1,160 @@
+# encoding: utf-8
+#
+# quanty/main.rb
+#
+#   Copyright (c) 2001 Masahiro Tanaka <masa@ir.isas.ac.jp>
+#
+#   This program is free software.
+#   You can distribute/modify this program under the terms of
+#   the GNU General Public License version 2 or later.
+
+# require 'fact.rb'
+
+def Quanty(*a)
+  Quanty.new(*a)
+end
+
+class Quanty #< Numeric
+  Self = self
+  RadianUnit = Quanty::Fact.new('radian')
+
+  def initialize(*a)
+    case a.size
+    when 1
+      if String === a[0]
+	@val,@unit,@fact = 1.0, a[0], nil
+      else
+	@val,@unit,@fact = a[0], '', nil
+      end
+    when 2..3
+        @val,@unit,@fact = a
+    else
+      raise ArgumentError, 'wrong # of arguments'
+    end
+    unless Fact === @fact
+      @fact = Fact.new(@unit)
+    end
+  end
+
+  attr_reader :val
+  attr_reader :unit
+  attr_reader :fact
+  alias value val
+
+  def adjust(other)
+    if other.kind_of?(Self)
+      unless @fact === other.fact
+	raise "not same unit: %s != %s" % [@unit,other.unit]
+      end
+      other.val * ( other.fact.factor / @fact.factor )
+    else
+      raise @unit + ": not null unit" unless @fact.null?
+      other / @fact.factor
+    end
+  end
+
+  def want(unit)
+    obj = Self.new(unit)
+    val = obj.adjust(self)
+    Self.new( val, unit, obj.fact )
+  end
+
+  def + (other)
+    val = @val + adjust(other)
+    if @unit==''
+      val
+    else
+      Self.new( val, @unit, @fact )      
+    end
+  end
+
+  def - (other)
+    val = @val - adjust(other)
+    if @unit==''
+      val
+    else
+      Self.new( val, @unit, @fact )      
+    end
+  end
+
+  def +@ ; Self.new(  @val, @unit, @fact ) end
+  def -@ ; Self.new( -@val, @unit, @fact ) end
+
+  def <=> (other); @val <=> adjust(other) end
+  def  == (other); @val  == adjust(other) end
+  def  >= (other); @val  >= adjust(other) end
+  def  <= (other); @val  <= adjust(other) end
+  def  <  (other); @val  <  adjust(other) end
+  def  >  (other); @val  >  adjust(other) end
+
+  def **(n)
+    if /^[A-Za-z_]+&/ou =~ @unit
+      unit = @unit+'^'+n.to_s
+    else
+      unit = '('+@unit+')^'+n.to_s+''
+    end
+    Self.new( @val**n, unit, @fact**n )
+  end
+
+  def * (other)
+    if other.kind_of?(Self)
+      unit = other.unit
+      unless @unit.empty?
+	if unit.empty?
+	  unit = @unit
+	else
+	  if /\A[A-Za-z_]/ou =~ unit
+	    unit = @unit+' '+unit
+	  else
+	    unit = @unit+' ('+unit+')' 
+	  end
+	end
+      end
+      Self.new( @val*other.val, unit, @fact*other.fact )
+    else
+      Self.new( @val*other, @unit, @fact )
+    end
+  end
+
+  def / (other)
+    if other.kind_of?(Self)
+      unit = other.unit
+      if unit.empty?
+	unit = @unit
+      else
+	if /\A[A-Za-z_-]+((\^|\*\*)?[0-9.]+)?$/ou =~ unit
+	  unit = '/ '+unit
+	else
+	  unit = '/ ('+unit+')' 
+	end
+	unit = @unit+' '+unit unless @unit.empty?
+      end
+      Self.new( @val/other.val, unit, @fact/other.fact )
+    else
+      Self.new( @val/other, @unit, @fact )
+    end
+  end
+
+  def coerce(other)
+    [ Self.new(other), self ]
+  end
+
+  def to_f
+    if @fact.null?
+      @val * @fact.factor
+    elsif @fact === RadianUnit
+      want('radian').value
+    else
+      raise 'cannot convert into non-dimensional Float'
+    end
+  end
+
+  def to_s
+    @val.to_s + "[" + @unit + "]"
+  end
+
+  def inspect
+    "Quanty(" + @val.to_s + ",'" + @unit + "')"
+  end
+
+end

data/lib/oddb/util/quanty/parse.rb

@@ -0,0 +1,853 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by Racc 1.4.6
+# from Racc grammer file "".
+#
+
+###### racc/parser.rb begin
+unless $".index 'racc/parser.rb'
+$".push 'racc/parser.rb'
+self.class.module_eval(<<'...end racc/parser.rb/module_eval...', 'racc/parser.rb', 1)
+  #
+# $Id$
+#
+# Copyright (c) 1999-2006 Minero Aoki
+#
+# This program is free software.
+# You can distribute/modify this program under the same terms of ruby.
+#
+# As a special exception, when this code is copied by Racc
+# into a Racc output file, you may use that output file
+# without restriction.
+#
+
+unless defined?(NotImplementedError)
+  NotImplementedError = NotImplementError
+end
+
+module Racc
+  class ParseError < StandardError; end
+end
+unless defined?(::ParseError)
+  ParseError = Racc::ParseError
+end
+
+module Racc
+
+  unless defined?(Racc_No_Extentions)
+    Racc_No_Extentions = false
+  end
+
+  class Parser
+
+    Racc_Runtime_Version = '1.4.6'
+    Racc_Runtime_Revision = '$Id$'
+
+    Racc_Runtime_Core_Version_R = '1.4.6'
+    Racc_Runtime_Core_Revision_R = '$Id$'.split[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]
+      unless new.respond_to?(:_racc_do_parse_c, true)
+        raise LoadError, 'old cparse.so'
+      end
+      if Racc_No_Extentions
+        raise LoadError, 'selecting ruby version of racc runtime core'
+      end
+
+      Racc_Main_Parsing_Routine    = :_racc_do_parse_c
+      Racc_YY_Parse_Method         = :_racc_yyparse_c
+      Racc_Runtime_Core_Version    = Racc_Runtime_Core_Version_C
+      Racc_Runtime_Core_Revision   = Racc_Runtime_Core_Revision_C
+      Racc_Runtime_Type            = 'c'
+    rescue LoadError
+      Racc_Main_Parsing_Routine    = :_racc_do_parse_rb
+      Racc_YY_Parse_Method         = :_racc_yyparse_rb
+      Racc_Runtime_Core_Version    = Racc_Runtime_Core_Version_R
+      Racc_Runtime_Core_Revision   = Racc_Runtime_Core_Revision_R
+      Racc_Runtime_Type            = 'ruby'
+    end
+
+    def Parser.racc_runtime_type
+      Racc_Runtime_Type
+    end
+
+    private
+
+    def _racc_setup
+      @yydebug = false unless self.class::Racc_debug_parser
+      @yydebug = false unless defined?(@yydebug)
+      if @yydebug
+        @racc_debug_out = $stderr unless defined?(@racc_debug_out)
+        @racc_debug_out ||= $stderr
+      end
+      arg = self.class::Racc_arg
+      arg[13] = true if arg.size < 14
+      arg
+    end
+
+    def _racc_init_sysvars
+      @racc_state  = [0]
+      @racc_tstack = []
+      @racc_vstack = []
+
+      @racc_t = nil
+      @racc_val = nil
+
+      @racc_read_next = true
+
+      @racc_user_yyerror = false
+      @racc_error_status = 0
+    end
+
+    ###
+    ### do_parse
+    ###
+
+    def do_parse
+      __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)
+      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 = act = i = nil
+      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
+                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]
+              act = action_default[@racc_state[-1]]
+            end
+          else
+            act = action_default[@racc_state[-1]]
+          end
+          while act = _racc_evalact(act, arg)
+            ;
+          end
+        end
+      }
+    end
+
+    ###
+    ### yyparse
+    ###
+
+    def yyparse(recv, mid)
+      __send__(Racc_YY_Parse_Method, recv, mid, _racc_setup(), true)
+    end
+
+    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
+      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|
+          unless tok
+            @racc_t = 0
+          else
+            @racc_t = (token_table[tok] or 1)   # error token
+          end
+          @racc_val = val
+          @racc_read_next = false
+
+          i += @racc_t
+          unless i >= 0 and
+                 act = action_table[i] and
+                 action_check[i] == @racc_state[-1]
+            act = action_default[@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]
+              act = action_default[@racc_state[-1]]
+            end
+            while act = _racc_evalact(act, arg)
+              ;
+            end
+          end
+        end
+      }
+    end
+
+    ###
+    ### common
+    ###
+
+    def _racc_evalact(act, arg)
+      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
+
+      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
+        end
+
+      elsif act < 0 and act > -reduce_n
+        #
+        # reduce
+        #
+        code = catch(:racc_jump) {
+          @racc_state.push _racc_do_reduce(arg, act)
+          false
+        }
+        if code
+          case code
+          when 1 # yyerror
+            @racc_user_yyerror = true   # user_yyerror
+            return -reduce_n
+          when 2 # yyaccept
+            return shift_n
+          else
+            raise '[Racc Bug] unknown jump code'
+          end
+        end
+
+      elsif act == shift_n
+        #
+        # accept
+        #
+        racc_accept if @yydebug
+        throw :racc_end_parse, @racc_vstack[0]
+
+      elsif act == -reduce_n
+        #
+        # error
+        #
+        case @racc_error_status
+        when 0
+          unless arg[21]    # user_yyerror
+            nerr += 1
+            on_error @racc_t, @racc_val, @racc_vstack
+          end
+        when 3
+          if @racc_t == 0   # is $
+            throw :racc_end_parse, nil
+          end
+          @racc_read_next = true
+        end
+        @racc_user_yyerror = false
+        @racc_error_status = 3
+        while true
+          if i = action_pointer[@racc_state[-1]]
+            i += 1   # error token
+            if  i >= 0 and
+                (act = action_table[i]) and
+                action_check[i] == @racc_state[-1]
+              break
+            end
+          end
+          throw :racc_end_parse, nil if @racc_state.size <= 1
+          @racc_state.pop
+          @racc_vstack.pop
+          if @yydebug
+            @racc_tstack.pop
+            racc_e_pop @racc_state, @racc_tstack, @racc_vstack
+          end
+        end
+        return act
+
+      else
+        raise "[Racc Bug] unknown action #{act.inspect}"
+      end
+
+      racc_next_state(@racc_state[-1], @racc_state) if @yydebug
+
+      nil
+    end
+
+    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,
+      reduce_n,     use_result,   * = arg
+      state = @racc_state
+      vstack = @racc_vstack
+      tstack = @racc_tstack
+
+      i = act * -3
+      len       = reduce_table[i]
+      reduce_to = reduce_table[i+1]
+      method_id = reduce_table[i+2]
+      void_array = []
+
+      tmp_t = tstack[-len, len] if @yydebug
+      tmp_v = vstack[-len, len]
+      tstack[-len, len] = void_array if @yydebug
+      vstack[-len, len] = void_array
+      state[-len, len]  = void_array
+
+      # tstack must be updated AFTER method call
+      if use_result
+        vstack.push __send__(method_id, tmp_v, vstack, tmp_v[0])
+      else
+        vstack.push __send__(method_id, tmp_v, vstack)
+      end
+      tstack.push reduce_to
+
+      racc_reduce(tmp_t, reduce_to, tstack, vstack) if @yydebug
+
+      k1 = reduce_to - nt_base
+      if i = goto_pointer[k1]
+        i += state[-1]
+        if i >= 0 and (curstate = goto_table[i]) and goto_check[i] == k1
+          return curstate
+        end
+      end
+      goto_default[k1]
+    end
+
+    def on_error(t, val, vstack)
+      raise ParseError, sprintf("\nparse error on value %s (%s)",
+                                val.inspect, token_to_str(t) || '?')
+    end
+
+    def yyerror
+      throw :racc_jump, 1
+    end
+
+    def yyaccept
+      throw :racc_jump, 2
+    end
+
+    def yyerrok
+      @racc_error_status = 0
+    end
+
+    #
+    # for debugging output
+    #
+
+    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)
+      @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)
+      out = @racc_debug_out
+      out.print 'reduce '
+      if toks.empty?
+        out.print ' <none>'
+      else
+        toks.each {|t| out.print ' ', racc_token2str(t) }
+      end
+      out.puts " --> #{racc_token2str(sim)}"
+          
+      racc_print_stacks tstack, vstack
+      @racc_debug_out.puts
+    end
+
+    def racc_accept
+      @racc_debug_out.puts 'accept'
+      @racc_debug_out.puts
+    end
+
+    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)
+      @racc_debug_out.puts  "goto    #{curstate}"
+      racc_print_states state
+      @racc_debug_out.puts
+    end
+
+    def racc_print_stacks(t, v)
+      out = @racc_debug_out
+      out.print '        ['
+      t.each_index do |i|
+        out.print ' (', racc_token2str(t[i]), ' ', v[i].inspect, ')'
+      end
+      out.puts ' ]'
+    end
+
+    def racc_print_states(s)
+      out = @racc_debug_out
+      out.print '        ['
+      s.each {|st| out.print ' ', st }
+      out.puts ' ]'
+    end
+
+    def racc_token2str(tok)
+      self.class::Racc_token_to_s_table[tok] or
+          raise "[Racc Bug] can't convert token #{tok} to string"
+    end
+
+    def token_to_str(t)
+      self.class::Racc_token_to_s_table[t]
+    end
+
+  end
+
+end
+
+...end racc/parser.rb/module_eval...
+end
+###### racc/parser.rb end
+
+# encoding: utf-8
+# parse.y, quanty/parse.rb
+#
+#   by Masahiro Tanaka <masa@ir.isas.ac.jp>
+#
+class Quanty
+
+class Parse < Racc::Parser
+
+module_eval(<<'...end parse.y/module_eval...', 'parse.y', 73)
+# encoding: utf-8
+  
+  def parse( str )
+    @q = []
+
+    while str.size > 0 do
+      #p str
+      case str
+      when /\A[\s\n]+/ou
+      when /\A\d+\.?\d*([eE][+-]?\d+)?/ou
+        @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
+        @q.push [:WORD, $&]
+      when /\A[$%'"]'?/ou
+        @q.push [:WORD, $&]
+      when /\A\^|\A\*\*/ou
+        @q.push [:POW, $&]
+      when /\A./ou
+        @q.push [$&,$&]
+      end
+        str = $'
+    end
+    @q.push [false, '$end']
+
+    do_parse
+  end
+
+  def next_token
+    @q.shift
+  end
+
+...end parse.y/module_eval...
+##### State transition tables begin ###
+
+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 ]
+
+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 ]
+
+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 ]
+
+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 ]
+
+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 ]
+
+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 ]
+
+racc_goto_pointer = [
+   nil,     4,     3,     0,    -2,     7,   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
+
+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
+
+racc_use_result_var = true
+
+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_token_to_s_table = [
+  "$end",
+  "error",
+  "UMINUS",
+  "POW",
+  "UPOW",
+  "\"*\"",
+  "\"/\"",
+  "\"|\"",
+  "\"+\"",
+  "\"-\"",
+  "NUMBER",
+  "\"(\"",
+  "\")\"",
+  "WORD",
+  "\"[\"",
+  "\"]\"",
+  "$start",
+  "target",
+  "val",
+  "num",
+  "seq",
+  "exp",
+  "unit" ]
+
+Racc_debug_parser = false
+
+##### State transition tables end #####
+
+# reduce 0 omitted
+
+# reduce 1 omitted
+
+module_eval(<<'.,.,', 'parse.y', 22)
+  def _reduce_2(val, _values, result)
+     result = Quanty::Fact.new 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 23)
+  def _reduce_3(val, _values, result)
+     result = Quanty::Fact.new(val[0]) 
+    result
+  end
+.,.,
+
+# reduce 4 omitted
+
+module_eval(<<'.,.,', 'parse.y', 27)
+  def _reduce_5(val, _values, result)
+     result = -val[1] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 28)
+  def _reduce_6(val, _values, result)
+     result += val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 29)
+  def _reduce_7(val, _values, result)
+     result -= val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 30)
+  def _reduce_8(val, _values, result)
+     result /= val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 31)
+  def _reduce_9(val, _values, result)
+     result /= val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 32)
+  def _reduce_10(val, _values, result)
+     result *= val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 33)
+  def _reduce_11(val, _values, result)
+     result **= val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 34)
+  def _reduce_12(val, _values, result)
+     result = val[1] 
+    result
+  end
+.,.,
+
+# reduce 13 omitted
+
+module_eval(<<'.,.,', 'parse.y', 38)
+  def _reduce_14(val, _values, result)
+     result = val[1].fac!(val[0]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 39)
+  def _reduce_15(val, _values, result)
+     result = val[1].pow!(-1) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 40)
+  def _reduce_16(val, _values, result)
+     result = val[2].pow!(-1).fac!(val[0]) 
+    result
+  end
+.,.,
+
+# reduce 17 omitted
+
+module_eval(<<'.,.,', 'parse.y', 44)
+  def _reduce_18(val, _values, result)
+     result.mul!(val[1]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 45)
+  def _reduce_19(val, _values, result)
+     result.mul!(val[2]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 46)
+  def _reduce_20(val, _values, result)
+     result.div!(val[2]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 47)
+  def _reduce_21(val, _values, result)
+     result.fac!(val[2]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 48)
+  def _reduce_22(val, _values, result)
+     result.fac!(val[2]**-1) 
+    result
+  end
+.,.,
+
+# reduce 23 omitted
+
+module_eval(<<'.,.,', 'parse.y', 52)
+  def _reduce_24(val, _values, result)
+     result.pow!(val[1]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 53)
+  def _reduce_25(val, _values, result)
+     result.pow!(val[2]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 56)
+  def _reduce_26(val, _values, result)
+     result = Quanty::Fact.new(val[0]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 57)
+  def _reduce_27(val, _values, result)
+     result = val[1] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parse.y', 58)
+  def _reduce_28(val, _values, result)
+     result = val[1] 
+    result
+  end
+.,.,
+
+def _reduce_none(val, _values, result)
+  val[0]
+end
+
+end   # class Parse
+
+
+end # class Quanty