as-extensions 0.1.0

data/ext/object.rb

@@ -0,0 +1,38 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+Object.class_eval do
+  
+  # Completely clone the object.
+  # No reference will be shared with the original.
+  def deepcopy
+    Marshal.load(Marshal.dump(self))
+  end
+  
+  # Return true if the object is a boolean, false otherwise.
+  def boolean?
+    is_a?(::TrueClass) || is_a?(::FalseClass)
+  end
+  
+  # Force boolean type
+  def to_b
+    self ? true : false
+  end
+  
+end

data/ext/set.rb

@@ -0,0 +1,27 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+Set.class_eval do
+  
+  # If method doesn't exist, consider as an Array.
+  def method_missing(s, *args, &blk)
+    self.to_a.send(s, *args, &blk)
+  end
+  
+end

data/ext/socket.rb

@@ -0,0 +1,40 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+Socket.class_eval do
+  
+  class << self
+    # Thanks to 'coderrr'
+    def local_ip(force_reload=false)
+      @ase_local_ip = nil if force_reload
+      @ase_local_ip ||= begin
+        # turn off reverse DNS resolution temporarily
+        orig, do_not_reverse_lookup = do_not_reverse_lookup, true
+        UDPSocket.open do |s|
+          s.connect('184.106.196.237', 1)
+          s.addr.last
+        end
+      ensure
+        do_not_reverse_lookup = orig
+      end
+    end
+    
+  end
+  
+end

data/ext/string.rb

@@ -0,0 +1,82 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+String.class_eval do
+  
+  ASE_ARRAY_METHODS = %w{first first= head head= init last last= tail}.map_m(:to_sym)
+  
+  class << self
+    
+    attr_accessor :ase_array_methods
+    
+    # Load a string from a file or a URL.
+    def from(file_or_url)
+      ASE::String::from(file_or_url)
+    end
+    
+    # Return an alphanumeric string.
+    def rand_alphanum(n=1, secure=false)
+      @ase_alphanum ||= [('a'..'z'), ('A'..'Z'), ('0'..'9')].map{ |x| x.to_a }.flatten
+      Array.new(n){ @ase_alphanum.pick(secure) }.join
+    end
+    
+    # Return an hexadecimal string.
+    def rand_hex(n=1, secure=false)
+      @ase_hex ||= "0123456789abcdef".chars
+      Array.new(n){ @ase_hex.pick(secure) }.join
+    end
+    
+  end # class << self
+  
+  alias :camelcase_noase :camelcase
+  # Same as camelcase from ActiveSupport
+  # but dashes are considered as underscores.
+  def camelcase
+    underscore.camelcase_noase
+  end
+  
+  alias :dasherize_noase :dasherize
+  # Same as underscore from ActiveSupport
+  # with dashes instead of underscores.
+  def dasherize
+    underscore.dasherize_noase
+  end
+  
+  # Consider the String as an Array of chars for a few methods
+  if (RUBY_VERSION < "1.9")
+    def method_missing(n,*a,&b)
+      if ASE_ARRAY_METHODS.include?(n) then chars.to_a.send(n,*a,&b).join else super end
+    end
+  else
+    ASE_ARRAY_METHODS.each{|n| define_method(n){|*a,&b| chars.to_a.send(n,*a,&b).join}}
+  end
+  
+  # Helper to convert a raw string to a sane identifier with dashes and ASCII letters.
+  # Interpolation is here to force String type, to_s won't always work.
+  def sanitize_dashes
+    "#{self.to_slug.approximate_ascii.to_ascii.normalize.to_s}"
+  end
+  
+  # Sometimes calling puts as a method can be useful
+  def puts
+    Kernel::puts self
+  end
+  alias :p :puts
+  
+end

data/ext/symbol.rb

@@ -0,0 +1,28 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+Symbol.class_eval do
+  
+  # When a method doesn't exist, consider the Symbol as a String
+  # Warning: this will *not* convert back to Symbol
+  def method_missing(method_sym, *arguments, &block)
+    to_s.send(method_sym, *arguments, &block)
+  end
+  
+end

data/ext/time.rb

@@ -0,0 +1,34 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+Time.class_eval do
+  
+  alias :to_s_noase :to_s
+  # Convert to the standard ASE time string format
+  def to_s(format=nil)
+    if format.nil? then ASE::Time::to_string(self)
+    else to_s_noase(format) end
+  end
+  
+  # Get the number of seconds since Epoch
+  def to_epoch
+    ASE::Time::epoch(self)
+  end
+  
+end

data/ext/uri.rb

@@ -0,0 +1,61 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+URI.class_eval do
+  
+  ASE_UNSAFE_CHARS = /\~|\[|\]/
+  
+  class << self
+    
+    alias :parse_noase :parse
+    def parse(uri)
+      begin
+        parse_noase(uri)
+      rescue
+        safe_parse(uri)
+      end
+    end
+    
+    # Encode accented and unsafe characters in URI strings before parsing
+    def safe_parse(uri)
+      if uri.is_a?(String)
+        uri = encode(uri)
+        if uri.match(ASE_UNSAFE_CHARS) && ( (s1 = uri.split('://')).length == 2 )
+          if s1.last.chars.first == '[' # IPv6 (RFC 2732)
+            if (s2 = s1.last.split(']')).length > 1
+              s2 = [s2.head, s2.tail.join(']')]
+              if s2.last.match(ASE_UNSAFE_CHARS)
+                '~[]'.chars.each { |c| s2.last.gsub!(c, "%#{c.unpack("H2").first.upcase}") }
+                uri = "#{s1.first}://#{s2.first}]#{s2.last}"
+              end
+            end
+          else # IPv4 or DN
+            if s1.last.match(ASE_UNSAFE_CHARS)
+              '~[]'.chars.each { |c| s1.last.gsub!(c, "%#{c.unpack("H2").first.upcase}") }
+              uri = s1.join('://')
+            end
+          end
+        end
+      end
+      parse_noase(uri)
+    end
+    
+  end
+  
+end

data/lib/as-extensions/deep.rb

@@ -0,0 +1,38 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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 ASE; class << self
+  
+  # Remove nil values in a recursive data structure composed
+  # of hashes and arrays.
+  def deepcompact(x)
+    if x.is_a?(::Array)
+      x.reject{ |x| x.nil? }.map{ |x| deepcompact(x) }
+    elsif x.is_a?(::Hash)
+      ret = {}
+      x.each_pair do |k,v|
+        ret[k] = deepcompact(v) if !v.nil?
+      end
+      ret
+    else
+      x
+    end
+  end
+  
+end end # class << self

data/lib/as-extensions/enum.rb

@@ -0,0 +1,64 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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 ASE
+  
+  class Enum
+    class << self
+    
+      def const_missing(key)
+        raise NameError "#{key} not in enum" unless @hash.has_key?(key)
+        @hash[key]
+      end
+  
+      # Iterate over the key/value pairs in the Enum
+      def each_pair(&blk)
+        @hash.each_pair(&blk)
+      end
+    
+      def init(h)
+        @hash = {}
+        h.each_pair do |k,v|
+          @hash[k] = v
+        end
+        self
+      end
+      
+      # Check if a value is part of the Enum
+      def include?(x)
+        @hash.has_value?(x)
+      end
+    
+    end # class << self 
+  end # class Enum
+  
+  class << self
+    
+    # Instantiate a new Enum from a Hash.
+    # Usage example:
+    #   Numbers = enum( :ONE => 1, :TWO => 2, :THREE => 3 )
+    #   assert (1 == Numbers::ONE)
+    def enum(hash)
+      k = Class.new(Enum)
+      k.init(hash)
+    end
+    
+  end # class << self
+  
+end

data/lib/as-extensions/ext-logic/io.rb

@@ -0,0 +1,34 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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 ASE module IO
+  class << self
+    
+    # Read from an IO stream that can be compressed
+    def to_string(io, gzipped=false)
+      if gzipped
+        ASE::need 'zlib'
+        Zlib::GzipReader.new(io).read
+      else
+        io.read
+      end
+    end
+    
+  end # class << self
+end end

data/lib/as-extensions/ext-logic/string.rb

@@ -0,0 +1,42 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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 ASE module String
+  class << self
+    
+    # Load a string from a file or a URL.
+    def from(where)
+      where.strip!
+      uri = URI.parse(where)
+      is_gz = (where.split('.').last == 'gz')
+      case uri.scheme
+        when nil
+          unless File.file?( where = File.expand_path(where) )
+            return ASE::log("#{where} is not a file.", :error)
+          end
+          open(where) do |f| return IO::to_string(f, is_gz) end
+        else
+          ASE::need 'open-uri'
+          args = uri.userinfo ? { :http_basic_authentication => uri.userinfo.split(':') } : {}
+          uri.open(args) do |f| return IO::to_string(f, is_gz) end
+      end # case
+    end
+    
+  end # class << self
+end end

data/lib/as-extensions/ext-logic.rb

@@ -0,0 +1,20 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+ASE::require_part %w{ io string }

data/lib/as-extensions/extra-ext/libxml.rb

@@ -0,0 +1,60 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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.
+#++
+
+# Patch the LibXML::XML::Reader class to add useful methods.
+
+::LibXML::XML::Reader.class_eval do
+  
+  # Test if the Reader is at the beginning of a tag.
+  # If a string argument is passed, it has to be the name of the tag.
+  def at_start?(tag  = nil)
+    ( (self.node_type == self.class::TYPE_ELEMENT) &&
+      [self.name, nil].include?(tag) )
+  end
+  
+  # Test if the Reader is at the end of a tag.
+  # If a string argument is passed, it has to be the name of the tag.
+  def at_end?(tag = nil)
+    ( (self.node_type == self.class::TYPE_END_ELEMENT) &&
+      [self.name, nil].include?(tag) )
+  end
+  
+  # Test if the Reader is at a whitespace text element.
+  def at_whitespace?()
+    [ self.class::TYPE_WHITESPACE,
+      self.class::TYPE_SIGNIFICANT_WHITESPACE ].include?(self.node_type)
+  end
+  
+  # Test if the Reader is at a non-whitespace text element.
+  def at_text?()
+    [ self.class::TYPE_TEXT,
+      self.class::TYPE_CDATA ].include?(self.node_type)
+  end
+  
+  # Move the Reader to the next text element and return its value.
+  def get_text!(tag_only = false, mover_symbol = :read)
+    mover = self.method(mover_symbol)
+    loop do
+      if tag_only && self.at_end? then return nil
+      elsif self.at_text? then return self.value.strip
+      elsif mover.call == 0 then return nil end
+    end
+  end
+  
+end

data/lib/as-extensions/extra-ext.rb

@@ -0,0 +1,32 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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 ASE
+  
+  EXTRA_EXT = %w{ libxml }
+  
+  class << self
+    
+    def load_extra_ext(ext)
+      require_part(ext) if EXTRA_EXT.include?(ext)
+    end  
+    
+  end # class << self
+  
+end

data/lib/as-extensions/fs.rb

@@ -0,0 +1,42 @@
+#--
+# Copyright (c) 2010-2011 Moodstocks SAS
+#
+# 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
+#
+# or in the LICENSE file which you should have received as part of
+# this distribution.
+#
+# 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 ASE
+  
+  class << self
+  
+    # Make sure a directory exists;
+    # create it if it is not the case.
+    def ensure_dir_exists(dir, *a)
+      dir = File.join(File.expand_path(dir), *a)
+      FileUtils.mkdir_p dir unless File.exist?(dir)
+      dir
+    end
+    
+    # Return the first file that exists in a list of files
+    def select_file(*files)
+      files.each do |file|
+        if File.exists?(file) then return file end
+      end
+      return nil
+    end
+  
+  end # class << self 
+  
+end