robust_excel_ole 1.25 → 1.30

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: ec2281789116629bceb9d28bb49ea8c75f10306084d5d81348cd3d05f521e2ac
-  data.tar.gz: 1adb8026858ed313c16dae70914448ce4c77a8cfc047fdf5fba15cdb41a9e448
+  metadata.gz: 468109a0884d48ed77c70d9681d0067453aadfbd7294c6b152fb6457141bb98d
+  data.tar.gz: 2527cdd343eefb7325c077204203e1893d8e32f00830a8a6591669aba7ad43ec
 SHA512:
-  metadata.gz: f0daec2c817688fe78593042eefc2bd34c3d8e8d9eaed6cbcf1653892fc3d4e16e146832f7d9e8ddeac70d4d66bbaf22e7c72cb4e1aa27cfdf2ca2f04f29146b
-  data.tar.gz: be997a68bd9b9c543b65c780779607210bd005db79bb448fec1c5f49cd05760213b01860555d8439ed7f91264e833e889034db7bc75e85681a77c0e224c0956a
+  metadata.gz: 5637d87926eef9515335fb075add5cf4810cf97229c762f2b182fbdad42cae99f128c6a2ee253acbf29362c49005d579944e283e875aff4785df5220a6f0bff6
+  data.tar.gz: 59f015190d12c0a0b3c7e8016e6dd81da74ae5b760e166d0044a5b04dab5d0fb0b8fa295d13f66a30861a71867c921c2352119957b0543caeb467ecd881b3223

data/Changelog

@@ -1,6 +1,29 @@
 # Change Log
 All notable changes to this project will be documented in this file.
 
+## [1.30] 2020-18-11
+
+## [1.29] 2020-05-11
+
+### Added
+  - Workbook.open can also take a Pathname object
+  - General#init_reo_for_win32ole
+
+## [1.28] 2020-23-10
+
+## [1.27] 2020-16-10
+
+## [1.26] 2020-09-10
+
+### Added
+  - General#change_current_binding
+
+## [1.25] 2020-10-09]
+
+## [1.24] 2020-25-09
+
+## [1.23] 2020-02-09
+
 ## [1.22] 2020-10-08
 
 ### Added

data/README.rdoc

@@ -64,15 +64,7 @@ If you want to start the console under jruby, and if you don't want to use a ver
  
  jreo
 
-The call of the console will include RobustExcelOle for you. The consoles require the ruby gem 'pry' and 'pry-bond' to enable the ruby shell 'pry' with filename and string completion. The ruby shell 'pry' allows, among other useful things, to change the value of 'self' in the console: Let 'object' be an (almost) arbitrary object, e.g. a workbook, then you can put
-
-  object.pry
-
-or
-
-  cd object
-
-to assign self to this object. The original pry console is adapted to preserve local variables.
+The call of the console will include RobustExcelOle for you. The consoles require the ruby gem 'pry' and 'pry-bond' to enable the ruby shell 'pry' with filename and string completion. 
 
 The following examples can be used for both scripts and console. If you have started the console in the gem path, you can just put these examples.
 
@@ -326,9 +318,28 @@ and set another value to that range.
 For more details about reading and writing contents of cells and ranges see {README_ranges}[https://github.com/Thomas008/robust_excel_ole/blob/master/docs/README_ranges.rdoc]
 
 
-=== More things
+=== More features
+
+1. The method +General.change_current_binding+ allows to change the value of self within the current binding, while preserving the local variables, without starting another repl. Assume, +object+ shall be the self, then you would put
+
+  General.change_current_binding(object)
+
+Without this method, the ruby shell 'pry' allows to change the value of 'self' in the console as well, e.g. 
+
+  object.pry
+
+or
+
+  cd object
+
+However, this command also starts another pry repl (with another binding). Moreover, local variables in the previous binding are forgotten.
+
+
+2. The class Win32Ole is being extended such that RobustExcelOle methods can be applied to Win32Ole objects. As mentioned above, the RobustExcelOle objects are wrapper of corresponding WIN32OLE objects. With help of +update_to_reo+ the RobustExcelOle objects and their wrapped Win32Ole objects are interchangeable. One example would be
+
+  range.ole_range.copy([4,3])
 
-You can convert some Win32Ole objects into a RobustExcelOle object.
+Likewise it is possible to convert ("type-lift") Win32Ole objects into the corresponding RobustExcelOle object, using General.to_reo.
 
   range = sheet.Names.Item("firstcell").to_reo
 

data/bin/jreo

@@ -2,7 +2,7 @@
 # -*- jruby -*-
 
 require 'pry'
-require '../robust_excel_ole/lib/robust_excel_ole'
+require_relative '../lib/robust_excel_ole'
 
 include REO
 include General
@@ -15,10 +15,29 @@ Pry.config.prompt_name = "REO "
 #Pry.config.history_save = true
 #Pry.editor = 'notepad'  # 'subl', 'vi'
 
+prompt_proc1 = proc { |target_self, nest_level, pry|
+   "[#{pry.input_ring.count}] #{pry.config.prompt_name}(#{Pry.view_clip(target_self)})#{":#{nest_level}" unless nest_level.zero?}> "
+ }
+
+prompt_proc2 =  proc { |target_self, nest_level, pry|
+  "[#{pry.input_ring.count}] #{pry.config.prompt_name}(#{Pry.view_clip(target_self.inspect.gsub(/\"/, ''))})})#{":#{nest_level}" unless nest_level.zero?}* "
+ }
+
+Pry.config.prompt = if RUBY_PLATFORM =~ /java/
+  [prompt_proc1, prompt_proc2]
+else
+  Pry::Prompt.new(
+    "REO",
+    "The RobustExcelOle Prompt. Besides the standard information it puts the current object",
+    [prompt_proc1, prompt_proc2]
+    )
+end
+
 hooks = Pry::Hooks.new
 
 hooks.add_hook :when_started, :hook12 do
 puts 'REO console started'
 puts
 end
+
 Pry.start(nil, hooks: hooks)

data/bin/reo

@@ -2,7 +2,7 @@
 # -*- ruby -*-
 
 require 'pry'
-require '../robust_excel_ole/lib/robust_excel_ole'
+require_relative '../lib/robust_excel_ole'
 
 include REO
 include General
@@ -15,10 +15,29 @@ Pry.config.prompt_name = "REO "
 #Pry.config.history_save = true
 #Pry.editor = 'notepad'  # 'subl', 'vi'
 
+prompt_proc1 = proc { |target_self, nest_level, pry|
+  "[#{pry.input_ring.count}] #{pry.config.prompt_name}(#{Pry.view_clip(target_self)})#{":#{nest_level}" unless nest_level.zero?}> "
+ }
+
+prompt_proc2 =  proc { |target_self, nest_level, pry|
+  "[#{pry.input_ring.count}] #{pry.config.prompt_name}(#{Pry.view_clip(target_self)})#{":#{nest_level}" unless nest_level.zero?}* "
+ }
+
+Pry.config.prompt = if RUBY_PLATFORM =~ /java/
+  [prompt_proc1, prompt_proc2]
+else
+  Pry::Prompt.new(
+    "REO",
+    "The RobustExcelOle Prompt. Besides the standard information it puts the current object",
+    [prompt_proc1, prompt_proc2]
+    )
+end
+
 hooks = Pry::Hooks.new
 
 hooks.add_hook :when_started, :hook12 do
 puts 'REO console started'
 puts
 end
+
 Pry.start(nil, hooks: hooks)

data/docs/README_open.rdoc

@@ -17,6 +17,11 @@ The semantics is similar to, e.g.,  +File.open+.
     # do something
   end
 
+You can provide the filename as a string (as above) or as Pathname object.
+
+  pathname = Pathname('spec/data/workbook.xls')
+  workbook = Workbook.open(pathname)
+
 The options are the following:
 
 +:default+:: if the workbook was already open, then use the properties of this workbook.otherwise use the properties stated in +:default+
@@ -195,12 +200,11 @@ The method +unobtrusively+ enables the user to read or modify a workbook, no mat
 
 Options are the following:
 
-+:if_closed+:: the Excel instance in which to open the workbook, if it was closed (default: +:current+). (Note: this option works workbooks opened via RobustExcelOle only.)
-
 +:read_only+:: Whether the workbook shall be forced to be open in ReadOnly mode
-+:writable+::  Whether changes in the workbook shall be saved
-
++:writable+::  Whether changes in the workbook shall be saved and the workbook shall be opened in ReadOnly mode by default (i.e., when the workbook was not open before) (default: true)
 +:keep_open+:: Whether the workbook shall be open after unobtrusively opening (default: false)
++:if_closed+:: the Excel instance in which to open the workbook, if it was closed (default: +:current+). 
+(Note: this option works workbooks opened via RobustExcelOle only.)
 
 There are the class method and the instance method of +unobtrusively+. Here is an example of the class method:
 

data/lib/robust_excel_ole.rb

@@ -3,8 +3,8 @@ if RUBY_PLATFORM =~ /java/
 else
   require 'win32ole'
 end
-require File.join(File.dirname(__FILE__), 'robust_excel_ole/base')
 require File.join(File.dirname(__FILE__), 'robust_excel_ole/general')
+require File.join(File.dirname(__FILE__), 'robust_excel_ole/base')
 require File.join(File.dirname(__FILE__), 'robust_excel_ole/vba_objects')
 require File.join(File.dirname(__FILE__), 'robust_excel_ole/range_owners')
 require File.join(File.dirname(__FILE__), 'robust_excel_ole/address_tool')
@@ -18,5 +18,4 @@ require File.join(File.dirname(__FILE__), 'robust_excel_ole/list_object')
 require File.join(File.dirname(__FILE__), 'robust_excel_ole/cygwin') if RUBY_PLATFORM =~ /cygwin/
 require File.join(File.dirname(__FILE__), 'robust_excel_ole/version')
 
-#include RobustExcelOle
-include General
+General.init_reo_for_win32ole

data/lib/robust_excel_ole/base.rb

@@ -65,6 +65,8 @@ module RobustExcelOle
 
   class Base
 
+    include General
+
     # @private
     def own_methods
       (self.methods - Object.methods).sort
@@ -110,3 +112,6 @@ module RobustExcelOle
   end
 
 end
+
+REO = RobustExcelOle
+

data/lib/robust_excel_ole/bookstore.rb

@@ -4,7 +4,7 @@ module RobustExcelOle
 
   # @private
   class Bookstore < Base
-    
+
     def initialize
       @filename2books ||= Hash.new { |hash, key| hash[key] = [] }
       @hidden_excel_instance = nil

data/lib/robust_excel_ole/excel.rb

@@ -15,6 +15,7 @@ module RobustExcelOle
   # See https://docs.microsoft.com/en-us/office/vba/api/excel.application(object)#methods
 
   class Excel < VbaObjects
+
     attr_reader :ole_excel
     attr_reader :properties
     attr_reader :address_tool
@@ -76,7 +77,7 @@ module RobustExcelOle
       end
       connected = (not ole_xl.nil?) && win32ole_excel.nil?
       ole_xl ||= WIN32OLE.new('Excel.Application')
-      hwnd = ole_xl.HWnd
+      hwnd = ole_xl.Hwnd
       stored = hwnd2excel(hwnd)
       if stored && stored.alive?
         result = stored
@@ -297,7 +298,7 @@ module RobustExcelOle
       finishing_living_excel = alive?
       if finishing_living_excel
         hwnd = (begin
-                  @ole_excel.HWnd
+                  @ole_excel.Hwnd
                 rescue
                   nil
                 end)
@@ -370,7 +371,7 @@ module RobustExcelOle
       number = 0
       WIN32OLE.connect('winmgmts:\\\\.').InstancesOf('win32_process').each do |p|
         begin
-          if p.name == 'EXCEL.EXE'
+          if p.Name == 'EXCEL.EXE'
             Process.kill('KILL', p.processid)
             number += 1
           end
@@ -384,7 +385,7 @@ module RobustExcelOle
 
     def self.excels_number
       processes = WIN32OLE.connect('winmgmts:\\\\.').InstancesOf('win32_process')
-      processes.select { |p| p.name == 'EXCEL.EXE' }.size
+      processes.select { |p| p.Name == 'EXCEL.EXE' }.size
     end
 
     def self.known_excels_number
@@ -417,7 +418,7 @@ module RobustExcelOle
           result.Visible # send any method, just to see if it responds
         rescue
           trace 'dead excel ' + (begin
-                                 "Window-handle = #{result.HWnd}"
+                                 "Window-handle = #{result.Hwnd}"
                                  rescue
                                  'without window handle'
                                  end)
@@ -471,13 +472,13 @@ module RobustExcelOle
         pid2excel[pid] = excel
       end
       processes = WIN32OLE.connect('winmgmts:\\\\.').InstancesOf('win32_process')
-      processes.select { |p| Excel.new(pid2excel[p.processid]) if p.name == 'EXCEL.EXE' && pid2excel.include?(p.processid) }
+      processes.select { |p| Excel.new(pid2excel[p.ProcessId]) if p.Name == 'EXCEL.EXE' && pid2excel.include?(p.ProcessId) }
       result = []
       processes.each do |p|
-        next unless p.name == 'EXCEL.EXE'
+        next unless p.Name == 'EXCEL.EXE'
 
-        if pid2excel.include?(p.processid)
-          excel = pid2excel[p.processid]
+        if pid2excel.include?(p.ProcessId)
+          excel = pid2excel[p.ProcessId]
           result << excel
         end
         # how to connect to an (interactively opened) Excel instance and get a WIN32OLE object?
@@ -684,21 +685,7 @@ module RobustExcelOle
       # Win32API.new("user32","SetForegroundWindow","","I").call
       # end
     end
-
-    # returns the value of a range
-    # @param [String] name the name of a range
-    # @returns [Variant] the value of the range
-    def [] name
-      namevalue_glob(name)
-    end
-
-    # sets the value of a range
-    # @param [String]  name  the name of the range
-    # @param [Variant] value the contents of the range
-    def []=(name, value)
-      set_namevalue_glob(name, value)
-    end
-
+    
     # @private
     # returns active workbook
     def workbook
@@ -717,6 +704,9 @@ module RobustExcelOle
       to_s
     end
 
+    using ParentRefinement
+    using StringRefinement
+
     # @private
     def self.workbook_class  
       @workbook_class ||= begin

data/lib/robust_excel_ole/general.rb

@@ -1,74 +1,175 @@
 # -*- coding: utf-8 -*-
+require 'pathname'
 
-module General
+# @private
+module ToReoRefinement
 
-  IS_JRUBY_PLATFORM = (RUBY_PLATFORM =~ /java/)
-  ::EXPANDPATH_JRUBY_BUG   = IS_JRUBY_PLATFORM && true
-  ::CONNECT_JRUBY_BUG      = IS_JRUBY_PLATFORM && true
-  ::COPYSHEETS_JRUBY_BUG   = IS_JRUBY_PLATFORM && true
-  ::ERRORMESSAGE_JRUBY_BUG = IS_JRUBY_PLATFORM && true
-  ::CONNECT_EXCEL_JRUBY_BUG      = IS_JRUBY_PLATFORM && true
-  ::RANGES_JRUBY_BUG       = IS_JRUBY_PLATFORM && true
-
-  @private
-  NetworkDrive = Struct.new(:drive_letter, :network_name) do
+  refine WIN32OLE do
 
-    def self.get_all(drives)
-      ndrives = []
-      count = drives.Count
-      (0..(count - 1)).step(2) do |i|
-        ndrives << NetworkDrive.new( drives.Item(i), drives.Item(i + 1).tr('\\','/'))
+    # type-lifting WIN32OLE objects to RobustExcelOle objects
+    def to_reo
+      General.class2method.each do |element|
+        classname = element.first.first
+        method = element.first.last
+        begin
+          self.send(method)
+          if classname == RobustExcelOle::Range && self.Rows.Count == 1 && self.Columns.Count == 1
+            return Cell.new(self, self.Parent)
+          else
+            return classname.new(self)
+          end
+        rescue
+          next
+        end
       end
-      ndrives
+      raise TypeREOError, "given object cannot be type-lifted to a RobustExcelOle object"
     end
 
   end
 
-  @private
-  def hostnameshare2networkpath(filename)
-    return filename unless filename[0,2] == "//"
-    network = WIN32OLE.new('WScript.Network')
-    drives = network.enumnetworkdrives
-    network_drives = NetworkDrive.get_all(drives)
-    f_c = filename.dup
-    network_drive = network_drives.find do |d| 
-      e = f_c.sub!(d.network_name,d.drive_letter)
-      return e if e
-    end    
-    filename 
-  end  
+end
 
-  # @private
-  def absolute_path(file)    
-    return file if file[0,2] == "//" 
-    file[0,2] = './' if ::EXPANDPATH_JRUBY_BUG && file  =~ /[A-Z]:[^\/]/
-    file = File.expand_path(file)
-    file = RobustExcelOle::Cygwin.cygpath('-w', file) if RUBY_PLATFORM =~ /cygwin/
-    WIN32OLE.new('Scripting.FileSystemObject').GetAbsolutePathName(file).tr('/','\\')
-  end
+# @private
+class WIN32OLE
 
-  # @private
-  def canonize(filename)
-    raise TypeREOError, "No string given to canonize, but #{filename.inspect}" unless filename.is_a?(String)
-    filename = hostnameshare2networkpath(filename)
-    normalize(filename) if filename
-  end
+  include Enumerable
+
+end
+
+# @private
+module FindAllIndicesRefinement
+
+  refine Array do
+
+    def find_all_indices elem
+      found, index, result = -1, -1, []
+      while found
+        found = self[index+1..-1].index(elem)
+        if found
+          index = index + found + 1
+          result << index
+        end
+      end
+      result
+    end
 
-  # @private
-  def normalize(path)  
-    return unless path    
-    path = path.gsub('/./', '/') + '/'
-    path = path.gsub(/[\/\\]+/, '/')
-    nil while path.gsub!(/(\/|^)(?!\.\.?)([^\/]+)\/\.\.\//, '\1')
-    path = path.chomp('/')
-    path
   end
 
-  module_function :absolute_path, :canonize, :normalize
+end
+
+# @private
+module StringRefinement
+
+  refine String do
+   
+    def / path_part
+      if empty?
+        path_part
+      else
+        if path_part.nil? || path_part.empty?
+          self
+        else
+          begin
+            File.join self, path_part
+          rescue TypeError
+            raise TypeError, "Only strings can be parts of paths (given: #{path_part.inspect} of class #{path_part.class})"
+          end
+        end
+      end
+    end
+
+    # taken from http://apidock.com/rails/ActiveSupport/Inflector/underscore
+    def underscore
+      word = gsub('::', '/')
+      word.gsub!(/([A-Z\d]+)([A-Z][a-z])/,'\1_\2')
+      word.gsub!(/([a-z\d])([A-Z])/,'\1_\2')
+      word.tr!('-', '_')
+      word.downcase!
+      word
+    end
+
+    def delete_multiple_underscores
+      word = self
+      while word.index('__') do
+        word.gsub!('__','_')
+      end    
+      word
+    end
+
+    def replace_umlauts
+      word = self
+      word.gsub!('ä','ae')
+      word.gsub!('Ä','Ae')
+      word.gsub!('ö','oe')
+      word.gsub!('Ö','Oe')
+      word.gsub!('ü','ue')
+      word.gsub!('Ü','Ue')
+      #word.gsub!(/\x84/,'ae')
+      #word.gsub!(/\x8E/,'Ae')
+      #word.gsub!(/\x94/,'oe')
+      #word.gsub!(/\x99/,'Oe')
+      #word.gsub!(/\x81/,'ue')
+      #word.gsub!(/\x9A/,'Ue')
+      word
+    end
+
+    # taken from http://apidock.com/rails/ActiveSupport/Inflector/constantize
+    # File activesupport/lib/active_support/inflector/methods.rb, line 226
+    def constantize # (camel_cased_word)
+      names = split('::')
+
+      # Trigger a builtin NameError exception including the ill-formed constant in the message.
+      Object.const_get(self) if names.empty?
+
+      # Remove the first blank element in case of '::ClassName' notation.
+      names.shift if names.size > 1 && names.first.empty?
 
+      names.inject(Object) do |constant, name|
+        if constant == Object
+          constant.const_get(name)
+        else
+          candidate = constant.const_get(name)
+          next candidate if constant.const_defined?(name)
+          next candidate unless Object.const_defined?(name)
+
+          # Go down the ancestors to check it it's owned
+          # directly before we reach Object or the end of ancestors.
+          constant = constant.ancestors.inject do |const, ancestor|
+            break const    if ancestor == Object
+            break ancestor if ancestor.const_defined?(name)
+
+            const
+          end
+
+          # owner is in Object, so raise
+          constant.const_get(name)
+        end
+      end
+    end
+  end
 end
 
 # @private
+module ParentRefinement
+
+  using StringRefinement
+
+  # taken from http://api.rubyonrails.org/v2.3.8/classes/ActiveSupport/CoreExtensions/Module.html#M000806
+  refine Module do
+
+    def parent_name
+      unless defined? @parent_name
+        @parent_name = name =~ /::[^:]+\Z/ ? $`.freeze : nil
+      end
+      @parent_name
+    end
+
+    def parent
+      parent_name ? parent_name.constantize : Object
+    end
+  end
+end
+
 class Integer
 
   alias old_spaceship <=>
@@ -98,179 +199,202 @@ class Array
     end
   end
 
-  def find_each_index find
-    found, index, q = -1, -1, []
-    while found
-      found = self[index+1..-1].index(find)
-      if found
-        index = index + found + 1
-        q << index
-      end
-    end
-    q
-  end
 end
 
+
+=begin
 # @private
-class WIN32OLE
+module SpaceshipRefinement
 
-  include Enumerable
-  
-  # type-lifting WIN32OLE objects to RobustExcelOle objects
-  def to_reo
-    class2method = [
-      {Excel => :Hwnd},
-      {Workbook => :FullName},
-      {Worksheet => :UsedRange},
-      {RobustExcelOle::Range => :Row},
-      {ListObject => :ListRows}
-    ]
-    class2method.each do |element|
-      classname = element.first.first
-      method = element.first.last
-      begin
-        self.send(method)
-        if classname == RobustExcelOle::Range && self.Rows.Count == 1 && self.Columns.Count == 1
-          return Cell.new(self, self.Parent)
-        else
-          return classname.new(self)
-        end
-      rescue
-        next
+  refine Integer do
+
+    alias old_spaceship <=>
+
+    def <=> other
+      # p other
+      if other.is_a? Array
+        self <=> other.first
+      else
+        old_spaceship other
       end
     end
-    raise TypeREOError, "given object cannot be type-lifted to a RobustExcelOle object"
   end
 
+  refine Array do
 
- # def method_missing(name, *args, &blk)
- #   puts "method_missing:"
- #   puts "name: #{name.inspect}"
- #   puts "self: #{self}"
- #   puts "self.ole_type: #{self.ole_type}"
- #   puts "self.to_reo: #{self.to_reo}"
- #   begin
- #     reo_obj = self.to_reo
- #   rescue
- #     puts "error: #{$!.message}"
- #     raise # NoMethodError, "undefined method #{name.inspect} for #{self.inspect}"
- #   end
- #   reo_obj.send(name, *args, &blk)
- # end
-
-  #alias method_missing_before_implicit_typelift method_missing 
-  #def method_missing(name, *args, &blk)
-  #  begin
-  #    reo_obj = self.to_reo
-  #  rescue
-  #    puts "$!.message: #{$!.message}"
-  #    method_missing_before_implicit_typelift(name, *args, &blk)
-  #  end
-  #  reo_obj.send(name, *args, &blk)
-  #end
-
-end
+    alias old_spaceship <=>
 
-# @private
-class ::String 
-  def / path_part
-    if empty?
-      path_part
-    else
-      if path_part.nil? || path_part.empty?
-        self
+    def <=> other
+      # p other
+      if other.is_a? Integer
+        self <=> [other]
       else
-        begin
-          File.join self, path_part
-        rescue TypeError
-          raise TypeError, "Only strings can be parts of paths (given: #{path_part.inspect} of class #{path_part.class})"
-        end
+        old_spaceship other
       end
     end
   end
+end
+=end
+
+module General
+
+  IS_JRUBY_PLATFORM = (RUBY_PLATFORM =~ /java/)
+  ::EXPANDPATH_JRUBY_BUG    = IS_JRUBY_PLATFORM && true
+  ::CONNECT_JRUBY_BUG       = IS_JRUBY_PLATFORM && true
+  ::COPYSHEETS_JRUBY_BUG    = IS_JRUBY_PLATFORM && true
+  ::ERRORMESSAGE_JRUBY_BUG  = IS_JRUBY_PLATFORM && true
+  ::CONNECT_EXCEL_JRUBY_BUG = IS_JRUBY_PLATFORM && true
+  ::RANGES_JRUBY_BUG        = IS_JRUBY_PLATFORM && true
+
+  # @private
+  NetworkDrive = Struct.new(:drive_letter, :network_name) do
+
+    def self.get_all(drives)
+      ndrives = []
+      count = drives.Count
+      (0..(count - 1)).step(2) do |i|
+        ndrives << NetworkDrive.new( drives.Item(i), drives.Item(i + 1).tr('\\','/'))
+      end
+      ndrives
+    end
 
-  # taken from http://apidock.com/rails/ActiveSupport/Inflector/underscore
-  def underscore
-    word = gsub('::', '/')
-    word.gsub!(/([A-Z\d]+)([A-Z][a-z])/,'\1_\2')
-    word.gsub!(/([a-z\d])([A-Z])/,'\1_\2')
-    word.tr!('-', '_')
-    word.downcase!
-    word
   end
 
-  def delete_multiple_underscores
-    word = self
-    while word.index('__') do
-      word.gsub!('__','_')
+  # @private
+  def hostnameshare2networkpath(filename)
+    return filename unless filename[0,2] == "//"
+    network = WIN32OLE.new('WScript.Network')
+    drives = network.enumnetworkdrives
+    network_drives = NetworkDrive.get_all(drives)
+    f_c = filename.dup
+    network_drive = network_drives.find do |d| 
+      e = f_c.sub!(d.network_name,d.drive_letter)
+      return e if e
     end    
-    word
-  end
+    filename 
+  end  
 
-  def replace_umlauts
-    word = self
-    word.gsub!('ä','ae')
-    word.gsub!('Ä','Ae')
-    word.gsub!('ö','oe')
-    word.gsub!('Ö','Oe')
-    word.gsub!('ü','ue')
-    word.gsub!('Ü','Ue')
-    #word.gsub!(/\x84/,'ae')
-    #word.gsub!(/\x8E/,'Ae')
-    #word.gsub!(/\x94/,'oe')
-    #word.gsub!(/\x99/,'Oe')
-    #word.gsub!(/\x81/,'ue')
-    #word.gsub!(/\x9A/,'Ue')
-    word
+  # @private
+  def absolute_path(file)
+    file = file.to_path if file.respond_to?(:to_path)
+    return file if file[0,2] == "//" 
+    file[0,2] = './' if ::EXPANDPATH_JRUBY_BUG && file  =~ /[A-Z]:[^\/]/
+    file = File.expand_path(file)
+    file = RobustExcelOle::Cygwin.cygpath('-w', file) if RUBY_PLATFORM =~ /cygwin/
+    WIN32OLE.new('Scripting.FileSystemObject').GetAbsolutePathName(file) #.tr('/','\\')
   end
 
-  # taken from http://apidock.com/rails/ActiveSupport/Inflector/constantize
-  # File activesupport/lib/active_support/inflector/methods.rb, line 226
-  def constantize # (camel_cased_word)
-    names = split('::')
+  # @private
+  def canonize(filename)
+    raise TypeREOError, "No string given to canonize, but #{filename.inspect}" unless filename.is_a?(String)
+    filename = hostnameshare2networkpath(filename)
+    normalize(filename) if filename
+  end
 
-    # Trigger a builtin NameError exception including the ill-formed constant in the message.
-    Object.const_get(self) if names.empty?
+  # @private
+  def normalize(path)  
+    return unless path    
+    path = path.gsub('/./', '/') + '/'
+    path = path.gsub(/[\/\\]+/, '/')
+    nil while path.gsub!(/(\/|^)(?!\.\.?)([^\/]+)\/\.\.\//, '\1')
+    path = path.chomp('/')
+    path
+  end
 
-    # Remove the first blank element in case of '::ClassName' notation.
-    names.shift if names.size > 1 && names.first.empty?
+  def change_current_binding(current_object)
+    Pry.change_current_binding(current_object)
+  end
 
-    names.inject(Object) do |constant, name|
-      if constant == Object
-        constant.const_get(name)
-      else
-        candidate = constant.const_get(name)
-        next candidate if constant.const_defined?(name)
-        next candidate unless Object.const_defined?(name)
+  def class2method
+    [{RobustExcelOle::Excel => :Hwnd},
+     {RobustExcelOle::Workbook => :FullName},
+     {RobustExcelOle::Worksheet => :UsedRange},
+     {RobustExcelOle::Range => :Row},
+     {RobustExcelOle::ListObject => :ListRows}]
+  end
 
-        # Go down the ancestors to check it it's owned
-        # directly before we reach Object or the end of ancestors.
-        constant = constant.ancestors.inject do |const, ancestor|
-          break const    if ancestor == Object
-          break ancestor if ancestor.const_defined?(name)
+  using ToReoRefinement
 
-          const
+  # enable RobustExcelOle methods to Win32Ole objects
+  def init_reo_for_win32ole
+    exclude_list = [:each, :each_with_index, :inspect, :Calculation=]
+    class2method.each do |element|
+      classname = element.first.first
+      classname.instance_methods(false).each do |inst_method|
+        if !exclude_list.include?(inst_method)
+          WIN32OLE.send(:define_method, inst_method) do |*args, &blk|  
+            self.to_reo.send(inst_method, *args, &blk) 
+          end
         end
-
-        # owner is in Object, so raise
-        constant.const_get(name)
       end
     end
+    nil
   end
+
+  module_function :absolute_path, :canonize, :normalize, :change_current_binding, :class2method, 
+                  :init_reo_for_win32ole, :hostnameshare2networkpath
+
 end
 
-# taken from http://api.rubyonrails.org/v2.3.8/classes/ActiveSupport/CoreExtensions/Module.html#M000806
+
 # @private
-class Module
-  def parent_name
-    unless defined? @parent_name
-      @parent_name = name =~ /::[^:]+\Z/ ? $`.freeze : nil
+class Pry
+
+  # change the current binding such that self is the current object in the pry-instance, 
+  # preserve the local variables
+
+  class << self
+    attr_accessor :pry_instance
+  end
+
+  def self.change_current_binding(current_object)
+    pry_instance = self.pry_instance
+    old_binding = pry_instance.binding_stack.pop
+    pry_instance.push_binding(current_object.__binding__)
+    exclude_vars = [:__, :_, :_dir, :_dir_, :_file, :_file_, :_in_, :_out_, :_ex, :_ex_, :pry_instance]
+    old_binding.local_variables.each do |var|
+      pry_instance.add_sticky_local(var) {old_binding.local_variable_get(var)} unless exclude_vars.include?(var)
     end
-    @parent_name
+    self.pry_instance = pry_instance
+    nil
   end
 
-  def parent
-    parent_name ? parent_name.constantize : Object
+  def push_initial_binding(target = nil)
+    # memorize the current pry instance
+    self.class.pry_instance = self 
+    push_binding(target || Pry.toplevel_binding)
+  end
+
+  class REPL
+
+    def read
+      @indent.reset if pry.eval_string.empty?
+      current_prompt = pry.select_prompt
+      indentation = pry.config.auto_indent ? @indent.current_prefix : ''
+      val = read_line("#{current_prompt}#{indentation}")
+      # Return nil for EOF, :no_more_input for error, or :control_c for <Ctrl-C>
+      return val unless val.is_a?(String)
+      if pry.config.auto_indent
+        original_val = "#{indentation}#{val}"
+        indented_val = @indent.indent(val)
+
+        if output.tty? &&
+           pry.config.correct_indent &&
+           Pry::Helpers::BaseHelpers.use_ansi_codes?
+          # avoid repeating read line
+
+          #output.print @indent.correct_indentation(
+          #  current_prompt,
+          #  indented_val,
+          #  calculate_overhang(current_prompt, original_val, indented_val)
+          #)
+          output.flush
+        end
+      else
+        indented_val = val
+      end
+      indented_val
+    end
   end
 end
 
@@ -293,7 +417,4 @@ module MethodHelpers
       super
     end
   end
-
 end
-
-REO = RobustExcelOle