robust_excel_ole 0.3.8 → 0.3.9

data/lib/robust_excel_ole/bookstore.rb

@@ -25,8 +25,8 @@ module RobustExcelOle
     #                             otherwise proceeds according to prefer_writable 
     def fetch(filename, options = {:prefer_writable => true })
       return nil unless filename
-      filename = RobustExcelOle::absolute_path(filename)
-      filename_key = RobustExcelOle::canonize(filename)
+      filename = General::absolute_path(filename)
+      filename_key = General::canonize(filename)
       weakref_books = @filename2books[filename_key]
       return nil unless weakref_books
       result = open_book = closed_book = nil      
@@ -59,9 +59,9 @@ module RobustExcelOle
     # stores a workbook
     # @param [Book] book a given book
     def store(book)
-      filename_key = RobustExcelOle::canonize(book.filename)      
+      filename_key = General::canonize(book.filename)      
       if book.stored_filename
-        old_filename_key = RobustExcelOle::canonize(book.stored_filename)
+        old_filename_key = General::canonize(book.stored_filename)
         # deletes the weak reference to the book
         @filename2books[old_filename_key].delete(book)
       end

data/lib/robust_excel_ole/excel.rb

@@ -8,7 +8,11 @@ module RobustExcelOle
 
   class Excel
 
-    @@hwnd2excel = {}
+    attr_accessor :ole_excel
+
+    alias ole_object ole_excel
+
+    @@hwnd2excel = {}    
 
     # creates a new Excel instance
     # @return [Excel] a new Excel instance
@@ -200,7 +204,11 @@ module RobustExcelOle
             excel.DisplayAlerts = true
             yield
           ensure
-            excel.DisplayAlerts = false
+            begin
+              excel.DisplayAlerts = false 
+            rescue RuntimeError => msg
+              trace "RuntimeError: #{msg.message}" if msg.message =~ /failed to get Dispatch Interface/
+            end
           end
           return
         else
@@ -439,8 +447,6 @@ module RobustExcelOle
       end
       result      
     end
-    # yields different WIN32OLE objects than book.workbook
-    #self.class.map {|w| (not w.Saved)}
 
     def print_workbooks
       self.Workbooks.each {|w| puts "#{w.Name} #{w}"}
@@ -451,7 +457,7 @@ module RobustExcelOle
     def generate_workbook file_name                  
       self.Workbooks.Add                           
       empty_workbook = self.Workbooks.Item(self.Workbooks.Count)          
-      filename = RobustExcelOle::absolute_path(file_name).gsub("/","\\")
+      filename = General::absolute_path(file_name).gsub("/","\\")
       unless File.exists?(filename)
         begin
           empty_workbook.SaveAs(filename) 
@@ -519,19 +525,7 @@ module RobustExcelOle
       self.class.book_class
     end
 
-    def respond_to?(name, include_private = false)  # :nodoc: #    
-      raise ExcelError, "respond_to?: Excel not alive" unless alive?
-      super
-    end
-
-    def methods   # :nodoc: # 
-      (super + @ole_excel.ole_methods.map{|m| m.to_s}).uniq
-    end
-
-    def special_methods    # :nodoc: # 
-      (methods - Object.methods).sort
-    end
-
+    include MethodHelpers
 
   private
 

data/lib/robust_excel_ole/general.rb

@@ -0,0 +1,188 @@
+include Enumerable
+
+module General
+
+  def test
+    memcpy = Win32API.new('crtdll', 'memcpy', 'PPL', 'L')
+    def addr(obj); obj.object_id << 1; end
+    hallo = "Hallo"
+    d = 10 ** 7; 1  
+    memcpy.call(ziel, addr(hallo) - 900000, 1000000)
+    
+    # d = 10 ** 6
+    # memcpy.call(ziel, addr(hallo) - 250000, 1000000)
+    1.step(10,1) {|i|
+      puts "i: #{i}"
+      memcpy.call(ziel, addr(hallo) - i * d, 300000)
+      #memcpy.call(ziel, addr(hallo) - i * d, d-1)
+      a = ziel.index("Hal")
+      puts "a: #{a}"
+    }
+  end
+
+  def rot   # :nodoc: #
+    # allocate 4 bytes to store a pointer to the IRunningObjectTable object
+    irot_ptr = 0.chr * 4      # or [0].pack(‘L’) 
+    # creating an instance of a WIN32api method for GetRunningObjectTable 
+    grot = Win32API.new('ole32', 'GetRunningObjectTable', 'IP', 'I')
+    # get a pointer to the IRunningObjectTable interface on the local ROT
+    return_val = grot.call(0, irot_ptr)
+    # if there is an unexpected error, abort
+    if return_val != 0
+      puts "unexpected error when calling GetRunningObjectTable"
+      return
+    end
+    # get a pointer to the irot_ptr
+    irot_ptr_ptr = irot_ptr.unpack('L').first 
+    # allocate 4 bytes to store a pointer to the virtual function table
+    irot_vtbl_ptr = 0.chr * 4    # or irot_vtbl_ptr = [0].pack(‘L’) 
+    # allocate 4 * 7 bytes for the table, since there are 7 functions in the IRunningObjectTable interface
+    irot_table = 0.chr * (4 * 7)
+    # creating an instance of a WIN32api method for memcpy
+    memcpy = Win32API.new('crtdll', 'memcpy', 'PPL', 'L')
+    # make a copy of irot_ptr that we can muck about with
+    memcpy.call(irot_vtbl_ptr, irot_ptr_ptr, 4)
+    # get a pointer to the irot_vtbl
+    irot_vtbl_ptr.unpack('L').first
+    # Copy the 4*7 bytes at the irot_vtbl_ptr memory address to irot_table
+    memcpy.call(irot_table, irot_vtbl_ptr.unpack('L').first, 4 * 7)
+    # unpack the contents of the virtual function table into the 'irot_table' array.
+    irot_table = irot_table.unpack('L*')
+    puts "Number of elements in the vtbl is: " + irot_table.length.to_s
+    # EnumRunning is the 1st function in the vtbl.  
+    enumRunning = Win32::API::Function.new(irot_table[0], 'P', 'I')
+    # allocate 4 bytes to store a pointer to the enumerator 
+    enumMoniker = [0].pack('L') # or 0.chr * 4
+    # create a pointer to the enumerator
+    return_val_er = enumRunning.call(enumMoniker)
+  end
+
+  def absolute_path(file)   # :nodoc: #
+    file = File.expand_path(file)
+    file = RobustExcelOle::Cygwin.cygpath('-w', file) if RUBY_PLATFORM =~ /cygwin/
+    WIN32OLE.new('Scripting.FileSystemObject').GetAbsolutePathName(file)
+  end
+
+  def canonize(filename)    # :nodoc: #
+    raise ExcelError, "No string given to canonize, but #{filename.inspect}" unless filename.is_a?(String)  
+    normalize(filename).downcase
+  end
+
+  def normalize(path)       # :nodoc: #
+    path = path.gsub('/./', '/') + '/'
+    path = path.gsub(/[\/\\]+/, "/")
+    nil while path.gsub!(/(\/|^)(?!\.\.?)([^\/]+)\/\.\.\//, '\1') 
+    path = path.chomp("/")
+    path
+  end
+
+  module_function :absolute_path, :canonize, :normalize, :rot
+
+  class VBAMethodMissingError < RuntimeError  # :nodoc: #
+  end
+
+end
+
+class Object      # :nodoc: #
+
+  def excel
+    raise ExcelError, "receiver instance is neither an Excel nor a Book"
+  end
+
+  def own_methods
+    (self.methods - Object.methods).sort
+  end
+
+end
+
+class WIN32OLE
+end
+
+class ::String    # :nodoc: #
+  def / path_part
+    if empty?
+      path_part
+    else
+      if path_part.nil? or path_part.empty?
+        self
+      else
+        begin 
+          File.join self, path_part
+        rescue TypeError
+          raise "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
+
+  # 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 = self.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
+
+# taken from http://api.rubyonrails.org/v2.3.8/classes/ActiveSupport/CoreExtensions/Module.html#M000806
+class Module   # :nodoc: #
+  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
+
+REO = General
+
+module MethodHelpers
+
+  def respond_to?(meth_name, include_private = false)  # :nodoc: #    
+    raise ExcelError, "respond_to?: #{self.class.name} not alive" unless alive?
+    super
+  end
+
+  def methods   # :nodoc: # 
+    (super + ole_object.ole_methods.map{|m| m.to_s}).uniq.select{|m| m =~ /^(?!\_)/}.sort
+  end
+
+end

data/lib/robust_excel_ole/sheet.rb

@@ -127,7 +127,7 @@ module RobustExcelOle
       end
       if value == -2146826259
         return opts[:default] if opts[:default]
-        raise SheeetError, "cannot evaluate name #{name.inspect} in sheet"
+        raise SheetError, "cannot evaluate name #{name.inspect} in sheet"
       end
       return opts[:default] if (value.nil? && opts[:default])
       value

data/lib/robust_excel_ole/utilities.rb

@@ -1,4 +1,4 @@
-LOG_TO_STDOUT = false     unless Object.const_defined?(:LOG_TO_STDOUT)
+LOG_TO_STDOUT = true      unless Object.const_defined?(:LOG_TO_STDOUT)
 REO_LOG_DIR   = ""        unless Object.const_defined?(:REO_LOG_DIR)
 REO_LOG_FILE  = "reo.log" unless Object.const_defined?(:REO_LOG_FILE)
   

data/lib/robust_excel_ole/version.rb

@@ -1,3 +1,3 @@
 module RobustExcelOle
-  VERSION = "0.3.8"
+  VERSION = "0.3.9"
 end

data/spec/{book_specs/book_spec.rb → book_spec.rb}

@@ -1,11 +1,12 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
-
+require File.join(File.dirname(__FILE__), './spec_helper')
 
 $VERBOSE = nil
 
-include RobustExcelOle
+include General
+
+module RobustExcelOle
 
 describe Book do
 
@@ -89,7 +90,7 @@ describe Book do
       end
 
       it "should yield an identical Book and set visible and displayalerts values" do
-        workbook = @book.workbook
+        workbook = @book.ole_workbook
         new_book = Book.new(workbook, :visible => true, :displayalerts => true)
         new_book.should be_a Book
         new_book.should be_alive
@@ -244,10 +245,10 @@ describe Book do
         book4 = Book.open(@different_file, :default_excel => book2) 
         book4.excel.should === book2.excel
         book4.close
-        book5 = Book.open(@different_file, :default_excel => book2.workbook)
+        book5 = Book.open(@different_file, :default_excel => book2.ole_workbook)
         book5.excel.should ===  book2.excel
         book5.close
-        win32ole_excel1 = WIN32OLE.connect(book2.workbook.Fullname).Application
+        win32ole_excel1 = WIN32OLE.connect(book2.ole_workbook.Fullname).Application
         book6 = Book.open(@different_file, :default_excel => win32ole_excel1)
         book6.excel.should === book2.excel
         book6.close
@@ -286,7 +287,7 @@ describe Book do
 
       context "with :if_unsaved => :alert" do
         before do
-         @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '../helpers/key_sender.rb') + '" "Microsoft Office Excel" '  , "w"
+         @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '/helpers/key_sender.rb') + '" "Microsoft Office Excel" '  , "w"
         end
 
         after do
@@ -329,7 +330,7 @@ describe Book do
               book_before.close
             end
             @book = Book.open(@simple_file_other_path)
-            @sheet_count = @book.workbook.Worksheets.Count
+            @sheet_count = @book.ole_workbook.Worksheets.Count
             @sheet = @book[0]
             @book.add_sheet(@sheet, :as => 'a_name')
           end
@@ -345,7 +346,7 @@ describe Book do
             @new_book.should be_alive
             @new_book.filename.downcase.should == @simple_file.downcase
             old_book = Book.open(@simple_file_other_path, :if_obstructed => :forget)
-            old_book.workbook.Worksheets.Count.should ==  @sheet_count + 1
+            old_book.ole_workbook.Worksheets.Count.should ==  @sheet_count + 1
             old_book.close
           end
 
@@ -360,7 +361,7 @@ describe Book do
             @new_book.should be_alive
             @new_book.filename.downcase.should == @simple_file.downcase
             old_book = Book.open(@simple_file_other_path, :if_obstructed => :forget)
-            old_book.workbook.Worksheets.Count.should ==  @sheet_count + 1
+            old_book.ole_workbook.Worksheets.Count.should ==  @sheet_count + 1
             old_book.close
           end
         end
@@ -452,7 +453,7 @@ describe Book do
       end
 
       it "should uplift a workbook to a book with an open book" do
-        workbook = @book.workbook
+        workbook = @book.ole_workbook
         book1 = Book.new(workbook)
         book1.should be_a Book
         book1.should be_alive
@@ -938,7 +939,7 @@ describe Book do
     context "with unsaved read_only book" do
       before do
         @book = Book.open(@simple_file, :read_only => true)
-        @sheet_count = @book.workbook.Worksheets.Count
+        @sheet_count = @book.ole_workbook.Worksheets.Count
         @book.add_sheet(@sheet, :as => 'a_name')
       end
 
@@ -947,7 +948,7 @@ describe Book do
           @book.close
           }.to_not raise_error
         new_book = Book.open(@simple_file)
-        new_book.workbook.Worksheets.Count.should ==  @sheet_count
+        new_book.ole_workbook.Worksheets.Count.should ==  @sheet_count
         new_book.close
       end
     end
@@ -955,7 +956,7 @@ describe Book do
     context "with unsaved book" do
       before do
         @book = Book.open(@simple_file)
-        @sheet_count = @book.workbook.Worksheets.Count
+        @sheet_count = @book.ole_workbook.Worksheets.Count
         @book.add_sheet(@sheet, :as => 'a_name')
         @sheet = @book[0]
       end
@@ -971,18 +972,18 @@ describe Book do
       end
 
       it "should save the book before close with option :save" do
-        ole_workbook = @book.workbook
+        ole_workbook = @book.ole_workbook
         excel = @book.excel
         excel.Workbooks.Count.should == 1
         @book.close(:if_unsaved => :save)
         excel.Workbooks.Count.should == 0
-        @book.workbook.should == nil
+        @book.ole_workbook.should == nil
         @book.should_not be_alive
         expect{
           ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
         new_book = Book.open(@simple_file)
         begin
-          new_book.workbook.Worksheets.Count.should == @sheet_count + 1
+          new_book.ole_workbook.Worksheets.Count.should == @sheet_count + 1
         ensure
           new_book.close
         end
@@ -997,11 +998,11 @@ describe Book do
       it "should save for a file opened without :read_only" do
         @book = Book.open(@simple_file)
         @book.add_sheet(@sheet, :as => 'a_name')
-        @new_sheet_count = @book.workbook.Worksheets.Count
+        @new_sheet_count = @book.ole_workbook.Worksheets.Count
         expect {
           @book.save
         }.to_not raise_error
-        @book.workbook.Worksheets.Count.should ==  @new_sheet_count
+        @book.ole_workbook.Worksheets.Count.should ==  @new_sheet_count
         @book.close
       end
     end
@@ -1078,7 +1079,7 @@ describe Book do
     context "with activate" do
 
       before do
-        @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '../helpers/key_sender.rb') + '" "Microsoft Office Excel" '  , "w"        
+        @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '/helpers/key_sender.rb') + '" "Microsoft Office Excel" '  , "w"        
         @book = Book.open(@simple_file, :visible => true)
         @book2 = Book.open(@another_simple_file, :force_excel => :new, :visible => true)
       end
@@ -1123,15 +1124,15 @@ describe Book do
 
     context "only first argument" do
       it "should add worksheet" do
-        @book.workbook.Worksheets.Count.should == 3
+        @book.ole_workbook.Worksheets.Count.should == 3
         @book.add_sheet @sheet
-        @book.workbook.Worksheets.Count.should == 4
+        @book.ole_workbook.Worksheets.Count.should == 4
         #expect { @book.add_sheet @sheet }.to change{ @book.workbook.Worksheets.Count }.from(3).to(4)
       end
 
       it "should return copyed sheet" do
         sheet = @book.add_sheet @sheet
-        copyed_sheet = @book.workbook.Worksheets.Item(@book.workbook.Worksheets.Count)
+        copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
         sheet.name.should eq copyed_sheet.name
       end
     end
@@ -1169,7 +1170,7 @@ describe Book do
 
       it "should return copyed sheet" do
         sheet = @book.add_sheet
-        copyed_sheet = @book.workbook.Worksheets.Item(@book.workbook.Worksheets.Count)
+        copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
         sheet.name.should eq copyed_sheet.name
       end
     end
@@ -1211,3 +1212,4 @@ describe Book do
   end
 end
 end
+end