source: asp3_wo_tecs/trunk/cfg/common/StrVal.rb@ 304

#!ruby -Ku
#
#  TOPPERS Configurator by Ruby
#
#  Copyright (C) 2015,2016 by Embedded and Real-Time Systems Laboratory
#              Graduate School of Information Science, Nagoya Univ., JAPAN
#  Copyright (C) 2015 by FUJI SOFT INCORPORATED, JAPAN
#
#  上記著作権者
は，以下の(1)〜(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
#  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
#  変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
#  (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
#      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
#      スコード中に含まれていること．
#  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
#      用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
#      者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
#      の無保証規定を掲載すること．
#  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
#      用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
#      と．
#    (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
#        作権表示，この利用条件および下記の無保証規定を掲載すること．
#    (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
#        å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
#  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
#      害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
#      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
#      由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
#      å…
è²¬ã™ã‚‹ã“と．
#
#  本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
#  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
#  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
#  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
#  ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
#
#  $Id: StrVal.rb 25 2016-01-29 16:48:00Z ertl-hiro $
#

######################################################################
# 文字列＋数値クラス定義
######################################################################
class StrVal < String
  def initialize(sStr, nVal = (sStr =~ /^[0-9]+$/) ? sStr.to_i() : nil)
    @nVal = nVal
    super(sStr)
  end

  # 数値情
å ±ã‚’è¿”ã™
  def val()
    return @nVal
  end

  # イレギュラーな使用時のエラー
  def unexpected_use(other, sExp)
    if (!@nVal.nil?)
      if (other.is_a?(StrVal) && other.val.nil?)
        error_exit("`#{other}' don't have value", caller[1])
      else
        error_exit("`#{sExp}' can't use with `#{other.class}'", caller[1])
      end
    else
      error_exit("`#{self}' don't have value", caller[1])
    end
  end

  # 演算子オーバーライド(tfと同等の機能を実現)
  alias_method :plus, :+
  alias_method :asterisk, :*
  alias_method :gt, :>
  alias_method :lt, :<
  alias_method :ge, :>=
  alias_method :le, :<=
  alias_method :eq, :==
  alias_method :ne, :!=
  alias_method :ls, :<<
  def +(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal + other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal + other.val
    else
      plus(other)
    end
  end
  def -(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal - other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal - other.val
    else
      unexpected_use(other, "-")
    end
  end
  def *(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal * other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal * other.val
    else
      asterisk(other)
    end
  end
  def /(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal / other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal / other.val
    else
      unexpected_use(other, "/")
    end
  end
  def &(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal & other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal & other.val
    else
      unexpected_use(other, "&")
    end
  end
  def |(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal | other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal | other.val
    else
      unexpected_use(other, "|")
    end
  end
  def >(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal > other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal > other.val
    else
      gt(other)
    end
  end
  def <(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal < other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal < other.val
    else
      lt(other)
    end
  end
  def >=(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal >= other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal >= other.val
    else
      ge(other)
    end
  end
  def <=(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal <= other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal <= other.val
    else
      le(other)
    end
  end
  def ==(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal == other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal == other.val
    else
      eq(other)
    end
  end
  def !=(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal != other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal != other.val
    else
      ne(other)
    end
  end
  def >>(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal >> other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal >> other.val
    else
      unexpected_use(other, ">>")
    end
  end
  def <<(other)
    if (!@nVal.nil? && other.is_a?(Integer))
      @nVal << other
    elsif (!@nVal.nil? && other.is_a?(StrVal) && !other.val.nil?)
      @nVal << other.val
    else
      ls(other)
    end
  end
  def ~@
    if (!@nVal.nil?)
      ~@nVal
    else
      unexpected_use(nil, "~")
    end
  end

  # ppデバッグ時の表示改善
  def pretty_print(q)
    if (!@nVal.nil?)
      q.text("#{self}{#{@nVal}(#{sprintf("0x%x",@nVal)})}")
    else
      q.text("#{self}{-}")
    end
  end
end

######################################################################
# 整数クラスの演算子オーバーライド(tfと同等の機能を実現)
######################################################################
class Fixnum
  alias_method :plus, :+
  alias_method :minus, :-
  alias_method :asterisk, :*
  alias_method :slash, :/
  alias_method :ampersand, :&
  alias_method :pipe, :|
  alias_method :gt, :>
  alias_method :lt, :<
  alias_method :ge, :>=
  alias_method :le, :<=
  alias_method :eq, :==
  alias_method :ne, :!=
  alias_method :rs, :>>
  alias_method :ls, :<<
  def +(other)
    other.is_a?(StrVal) ? plus(other.val) : plus(other)
  end
  def -(other)
    other.is_a?(StrVal) ? minus(other.val) : minus(other)
  end
  def *(other)
    other.is_a?(StrVal) ? asterisk(other.val) : asterisk(other)
  end
  def /(other)
    other.is_a?(StrVal) ? slash(other.val) : slash(other)
  end
  def &(other)
    other.is_a?(StrVal) ? ampersand(other.val) : ampersand(other)
  end
  def |(other)
    other.is_a?(StrVal) ? pipe(other.val) : pipe(other)
  end
  def >(other)
    other.is_a?(StrVal) ? gt(other.val) : gt(other)
  end
  def <(other)
    other.is_a?(StrVal) ? lt(other.val) : lt(other)
  end
  def >=(other)
    other.is_a?(StrVal) ? ge(other.val) : ge(other)
  end
  def <=(other)
    other.is_a?(StrVal) ? le(other.val) : le(other)
  end
  def ==(other)
    other.is_a?(StrVal) ? eq(other.val) : eq(other)
  end
  def !=(other)
    other.is_a?(StrVal) ? ne(other.val) : ne(other)
  end
  def >>(other)
    other.is_a?(StrVal) ? rs(other.val) : rs(other)
  end
  def <<(other)
    other.is_a?(StrVal) ? ls(other.val) : ls(other)
  end
end

class Bignum
  alias_method :plus, :+
  alias_method :minus, :-
  alias_method :asterisk, :*
  alias_method :slash, :/
  alias_method :ampersand, :&
  alias_method :pipe, :|
  alias_method :gt, :>
  alias_method :lt, :<
  alias_method :ge, :>=
  alias_method :le, :<=
  alias_method :eq, :==
  alias_method :ne, :!=
  alias_method :rs, :>>
  alias_method :ls, :<<
  def +(other)
    other.is_a?(StrVal) ? plus(other.val) : plus(other)
  end
  def -(other)
    other.is_a?(StrVal) ? minus(other.val) : minus(other)
  end
  def *(other)
    other.is_a?(StrVal) ? asterisk(other.val) : asterisk(other)
  end
  def /(other)
    other.is_a?(StrVal) ? slash(other.val) : slash(other)
  end
  def &(other)
    other.is_a?(StrVal) ? ampersand(other.val) : ampersand(other)
  end
  def |(other)
    other.is_a?(StrVal) ? pipe(other.val) : pipe(other)
  end
  def >(other)
    other.is_a?(StrVal) ? gt(other.val) : gt(other)
  end
  def <(other)
    other.is_a?(StrVal) ? lt(other.val) : lt(other)
  end
  def >=(other)
    other.is_a?(StrVal) ? ge(other.val) : ge(other)
  end
  def <=(other)
    other.is_a?(StrVal) ? le(other.val) : le(other)
  end
  def ==(other)
    other.is_a?(StrVal) ? eq(other.val) : eq(other)
  end
  def !=(other)
    other.is_a?(StrVal) ? ne(other.val) : ne(other)
  end
  def >>(other)
    other.is_a?(StrVal) ? rs(other.val) : rs(other)
  end
  def <<(other)
    other.is_a?(StrVal) ? ls(other.val) : ls(other)
  end
end