facets 2.9.1 → 2.9.2

data/src/supplemental/facets/nullclass.rb

@@ -0,0 +1,38 @@
+# = Nullclass
+#
+# NullClass is essentially NilClass but it differs in one
+# important way. When a method is called against it that it
+# deoesn't have, it will simply return null value rather then
+# raise an error.
+#
+# TODO: Perhaps NullClass should be called NackClass?
+
+class NullClass #< NilClass
+  class << self
+    def new
+      @null ||= NullClass.allocate
+    end
+  end
+  def inspect ; 'null' ; end
+  def nil?  ; true ; end
+  def null? ; true ; end
+  def [](key); nil; end
+  def method_missing(sym, *args)
+    return nil if sym.to_s[-1,1] == '?'
+    self
+  end
+end
+
+module Kernel
+  def null
+    NullClass.new
+  end
+end
+
+class Object
+  def null?
+    false
+  end
+end
+
+# Copyright (c) 2005 Thomas Sawyer

data/src/supplemental/facets/opesc.rb

@@ -0,0 +1,79 @@
+# = OpEsc
+#
+# NOTE: As of v3.0 of Facets these have been renamed:
+#
+#    op_plus_self   -> op_plus
+#    op_minus_self  -> op_minus
+#    op_plus        -> op_add
+#    op_minus       -> op_sub
+#    op_case_eq     -> op_case
+#
+# TODO: In the future we might also rename:
+#
+#    op_lshift      -> op_push
+#    op_rshift      -> op_pull
+#    op_store       -> op_index
+#    op_fetch       -> op_index  (b/c [] and []= in same file)
+
+module OpEsc
+
+  OPERATORS = %w{ +@ -@ + - ** * / % ~ <=> << >> < > === == =~ <= >= | & ^ []= [] }
+  OPERATORS_REGEXP = Regexp.new( '(' << OPERATORS.collect{ |k| Regexp.escape(k) }.join('|') << ')' )
+  OPERATORS_ESC_TABLE = {
+      "+@"   => "op_plus",
+      "-@"   => "op_minus",
+      "+"    => "op_add",
+      "-"    => "op_sub",
+      "**"   => "op_pow",
+      "*"    => "op_mul",
+      "/"    => "op_div",
+      "%"    => "op_mod",
+      "~"    => "op_tilde",
+      "<=>"  => "op_cmp",
+      "<<"   => "op_lshift",  #push?
+      ">>"   => "op_rshift",  #pull?
+      "<"    => "op_lt",
+      ">"    => "op_gt",
+      "==="  => "op_case",
+      "=="   => "op_equal",
+      "=~"   => "op_apply",
+      "<="   => "op_lt_eq",
+      ">="   => "op_gt_eq",
+      "|"    => "op_or",
+      "&"    => "op_and",
+      "^"    => "op_xor",
+      "[]="  => "op_store",
+      "[]"   => "op_fetch"
+  }
+
+  # Applies operator escape's according to OPERATORS_ESCAPE_TABLE.
+  #
+  #   OpEsc.escape('-') #=> "op_sub"
+  #
+  # CREDIT: Trans
+
+  def self.escape(str)
+    str.to_s.gsub(OPERATORS_REGEXP){ OPERATORS_ESC_TABLE[$1] }
+  end
+
+  #
+  def self.method_to_filename(name)
+    fname = escape(name)
+    fname = fname[0...-1] if fname =~ /[\!\=\?]$/
+    fname
+  end
+
+  ## Require a file with puncuation marks escaped.
+  ##
+  ##   require_esc '[].rb'
+  ##
+  ## in actuality requires the file 'op_fetch.rb'.
+  ##
+  ##   def require_esc( fpath )
+  ##     fdir, fname = File.split(fpath)
+  ##     fname = method_to_filename(fname)
+  ##     path = File.join(fdir, fname)
+  ##     require(path)
+  ##   end
+
+end

data/src/supplemental/facets/platform.rb

@@ -0,0 +1,377 @@
+require 'facets/rbconfig'
+
+unless defined?(RUBY_ENGINE)
+  RUBY_ENGINE = 'ruby'
+end
+
+# Platform class
+#
+# Original version from RubyGems, Copyright (c) 2007 Eric Hodel
+class Platform
+
+  # A pure-ruby gem that may use Gem::Specification#extensions to build
+  # binary files.
+  RUBY = 'ruby'
+
+  # A platform-specific gem that is built for the packaging ruby's platform.
+  # This will be replaced with Gem::Platform::local.
+  CURRENT = 'current'
+
+  @local      = nil
+  @supported  = nil
+
+  #
+  attr_accessor :cpu
+
+  #
+  attr_accessor :os
+
+  #
+  attr_accessor :version
+
+  ##RbConfig = Config unless defined? ::RbConfig
+
+  ##DEPRECATED_CONSTS = [
+  ##  :DARWIN,
+  ##  :LINUX_586,
+  ##  :MSWIN32,
+  ##  :PPC_DARWIN,
+  ##  :WIN32,
+  ##  :X86_LINUX
+  ##]
+
+  # Array of supported platforms (ie. pure-Ruby and local platform).
+
+  def self.supported
+    @suported ||= [Platform::RUBY, Platform.local]
+  end
+
+  ##def self.const_missing(name) # TODO remove six months from 2007/12
+  ##  if DEPRECATED_CONSTS.include? name then
+  ##    raise NameError, "#{name} has been removed, use CURRENT instead"
+  ##  else
+  ##    super
+  ##  end
+  ##end
+
+  #
+  def self.local
+    arch = Config::CONFIG['arch']
+    arch = "#{arch}_60" if arch =~ /mswin32$/
+    @local ||= new(arch)
+  end
+
+  #
+  def self.match(platform)
+    supported.any? do |local_platform|
+      platform.nil? or local_platform == platform or
+        (local_platform != Platform::RUBY and local_platform =~ platform)
+    end
+  end
+
+  #
+  def self.new(arch) # :nodoc:
+    case arch
+    when Platform::CURRENT then
+      Platform.local
+    when Platform::RUBY, nil, '' then
+      Platform::RUBY
+    else
+      super
+    end
+  end
+
+  #
+  def initialize(arch)
+    case arch
+    when Array then
+      @cpu, @os, @version = arch
+    when String then
+      arch = arch.split '-'
+
+      if arch.length > 2 and arch.last !~ /\d/ then # reassemble x86-linux-gnu
+        extra = arch.pop
+        arch.last << "-#{extra}"
+      end
+
+      cpu = arch.shift
+
+      @cpu = case cpu
+             when /i\d86/ then 'x86'
+             else cpu
+             end
+
+      if arch.length == 2 and arch.last =~ /^\d+$/ then # for command-line
+        @os, @version = arch
+        return
+      end
+
+      os, = arch
+      @cpu, os = nil, cpu if os.nil? # legacy jruby
+
+      @os, @version = case os
+        when /aix(\d+)/ then             [ 'aix',       $1  ]
+        when /cygwin/ then               [ 'cygwin',    nil ]
+        when /darwin(\d+)?/ then         [ 'darwin',    $1  ]
+        when /freebsd(\d+)/ then         [ 'freebsd',   $1  ]
+        when /hpux(\d+)/ then            [ 'hpux',      $1  ]
+        when /^java$/, /^jruby$/ then    [ 'java',      nil ]
+        when /^java([\d.]*)/ then        [ 'java',      $1  ]
+        when /linux/ then                [ 'linux',     $1  ]
+        when /mingw32/ then              [ 'mingw32',   nil ]
+        when /(mswin\d+)(\_(\d+))?/ then
+          os, version = $1, $3
+          @cpu = 'x86' if @cpu.nil? and os =~ /32$/
+          [os, version]
+        when /netbsdelf/ then            [ 'netbsdelf', nil ]
+        when /openbsd(\d+\.\d+)/ then    [ 'openbsd',   $1  ]
+        when /solaris(\d+\.\d+)/ then    [ 'solaris',   $1  ]
+        # test
+        when /^(\w+_platform)(\d+)/ then [ $1,          $2  ]
+        else                             [ 'unknown',   nil ]
+      end
+    when Platform then
+      @cpu = arch.cpu
+      @os = arch.os
+      @version = arch.version
+    else
+      raise ArgumentError, "invalid argument #{arch.inspect}"
+    end
+  end
+
+  #
+  def inspect
+    "#<%s:0x%x @cpu=%p, @os=%p, @version=%p>" % [self.class, object_id, *to_a]
+  end
+
+  #
+  def to_a
+    [@cpu, @os, @version]
+  end
+
+  #
+  def to_s
+    to_a.compact.join '-'
+  end
+
+  #
+  def ==(other)
+    self.class === other and
+      @cpu == other.cpu and @os == other.os and @version == other.version
+  end
+
+  #
+  def ===(other)
+    return nil unless Platform === other
+
+    # cpu
+    (@cpu == 'universal' or other.cpu == 'universal' or @cpu == other.cpu) and
+
+    # os
+    @os == other.os and
+
+    # version
+    (@version.nil? or other.version.nil? or @version == other.version)
+  end
+
+  #
+  def =~(other)
+    case other
+    when Platform then # nop
+    when String then
+      # This data is from http://gems.rubyforge.org/gems/yaml on 19 Aug 2007
+      other = case other
+        when /^i686-darwin(\d)/ then     ['x86',       'darwin',  $1]
+        when /^i\d86-linux/ then         ['x86',       'linux',   nil]
+        when 'java', 'jruby' then        [nil,         'java',    nil]
+        when /mswin32(\_(\d+))?/ then    ['x86',       'mswin32', $2]
+        when 'powerpc-darwin' then       ['powerpc',   'darwin',  nil]
+        when /powerpc-darwin(\d)/ then   ['powerpc',   'darwin',  $1]
+        when /sparc-solaris2.8/ then     ['sparc',     'solaris', '2.8']
+        when /universal-darwin(\d)/ then ['universal', 'darwin',  $1]
+        else                             other
+      end
+
+      other = Platform.new other
+    else
+      return nil
+    end
+
+    self === other
+  end
+
+  # B Y T E  O R D E R
+
+  # Byte order of CPU. Determine byte order of underlying machine.
+  #
+  # Examines the byte order of the underlying machine. Returns <code>:big</code>
+  # if Big Endian and <code>:little</code> if Little Endian.
+  #
+  # TODO: This doesn't work well apearently. We need to use a chart for possible
+  # cpus instead, maybe.
+  def byte_order
+    if [0x12345678].pack("L") == "\x12\x34\x56\x78"
+      :big
+    else
+      :little
+    end
+  end
+
+  #
+  alias_method :byteorder, :byte_order
+
+  #
+  def little_endian?
+    byte_order == :little
+  end
+
+  #
+  def big_endian?
+    byte_order == :big
+  end
+
+  # R U B Y  E N G I N E
+
+  # Return the name of the ruby interpreter.
+  def interpreter
+    @interpreter ||= (
+      if RUBY_PLATFORM == 'parrot'
+        'cardinal'
+      elsif RUBY_ENGINE == 'ruby'
+        if RUBY_DESCRIPTION =~ /Enterprise/i
+          'ree'
+        else
+          'mri'
+        end
+      else
+        RUBY_ENGINE.to_s # jruby, rbx, ironruby, macruby, etc.
+      end
+    )
+  end
+
+  def mri?
+    'mri' === interpreter
+  end
+  alias official_ruby? mri?
+  alias ruby? mri?
+
+  def jruby?
+    'jruby' === interpreter
+  end
+  alias java? jruby?
+
+  def rubinius?
+    'rbx' === interpreter
+  end
+  alias rbx? rubinius?
+
+  def ree?
+    'ree' === interpreter
+  end
+  alias enterprise? ree?
+
+  def ironruby?
+    'ironruby' === interpreter
+  end
+  alias iron_ruby? ironruby?
+
+  def cardinal?
+    'cardinal' === interpreter
+  end
+  alias parrot? cardinal?
+  alias perl? cardinal?
+
+
+  # O P E R A T I N G  S Y S T E M
+
+  def host_os
+    RbConfig::CONFIG['host_os']
+  end
+
+  def linux?
+    host_os =~ /linux|cygwin/
+  end
+
+  def mac?
+    host_os =~ /mac|darwin/
+  end
+
+  def bsd?
+    host_os =~ /bsd/
+  end
+
+  def windows?
+    host_os =~ /mswin|mingw/
+  end
+
+  def solaris?
+    host_os =~ /solaris|sunos/
+  end
+
+  # TODO: who knows what symbian returns?
+  def symbian?
+    host_os =~ /symbian/
+  end
+
+  #
+  def posix?
+    linux? or mac? or bsd? or solaris? or begin 
+      fork do end
+      true
+    rescue NotImplementedError, NoMethodError
+      false
+    end
+  end
+
+end
+
+
+# Current CPU's Byte Order
+#BYTE_ORDER = RbConfig.byte_order
+
+# Current CPU
+#CPU = RbConfig.platform.cpu
+
+# Current Operating System
+#OS  = RbConfig.platform.os
+
+# Current Operating System Version
+#OS_VERSION = RbConfig.platform.version
+
+
+=begin
+  # platform
+  def current_platform
+    arch = Config::CONFIG['arch']
+    #cpu, os = arch.split '-', 2
+    return match_platform(arch)
+  end
+
+  #
+  def match_platform(arch)
+    cpu, os = arch.split '-', 2
+    cpu, os = nil, cpu if os.nil? # java
+
+    cpu = case cpu
+          when /i\d86/ then 'x86'
+          else cpu
+          end
+
+    os  = case os
+          when /cygwin/ then            [ 'cygwin',  nil ]
+          when /darwin(\d+)?/ then      [ 'darwin',  $1  ]
+          when /freebsd(\d+)/ then      [ 'freebsd', $1  ]
+          when /^java$/ then            [ 'java',    nil ]
+          when /^java([\d.]*)/ then     [ 'java',    $1  ]
+          when /linux/ then             [ 'linux',   $1  ]
+          when /mingw32/ then           [ 'mingw32', nil ]
+          when /mswin32/ then           [ 'mswin32', nil ]
+          when /openbsd(\d+\.\d+)/ then [ 'openbsd', $1  ]
+          when /solaris(\d+\.\d+)/ then [ 'solaris', $1  ]
+          else                          [ 'unknown', nil ]
+          end
+
+    [cpu, os].flatten.compact.join("-")
+  end
+=end
+