viewworkbook 0.1.3

data/lib/color_output.rb

@@ -0,0 +1,43 @@
+#encoding 'UTF-8'
+
+# functions to apply colors to terminal output
+
+COLORS = {:default => 9, :black => 0, :red => 1, :green => 2, :yellow => 3, :blue => 4, :purple => 5, :cyan => 6, :white => 7 }
+
+BG = 4
+FG = 3
+REGULAR = 0
+BOLD = 1
+UNDERLINE = 4
+BLINK = 5
+SWAP = 7
+NEUTRAL = 0
+
+STYLES = {:regular => REGULAR, :bold => BOLD, :underline => UNDERLINE, :blink => BLINK, :swap => SWAP, :neutral => NEUTRAL}
+
+def colorize(text, color_code)
+    "#{color_code}#{text}\033[0m"
+end
+
+def style(text, style_code)
+  "#{style_code}#{text}\033[0m"
+end
+
+def colored_output(output_text, fg_color = :default, bg_color = :default, style = :regular , mode = :neutral )
+  "\033[%i;%i;%i%i;%i%im%s\033[0m" %[STYLES[mode.to_sym], STYLES[style.to_sym], FG, COLORS[fg_color.to_sym], BG, COLORS[bg_color.to_sym], output_text]
+end
+
+def red(text); colorize(text, "\033[31m"); end
+def green(text); colorize(text, "\033[32m"); end
+def yellow(text); colorize(text, "\033[33m"); end
+def purple(text); colorize(text, "\033[35m"); end
+def cyan(text); colorize(text, "\033[36m"); end
+def blue(text); colorize(text, "\033[34m"); end
+def white(text); colorize(text, "\033[37m"); end
+
+def black_on_white(text); colorize(colorize(text, "\033[30m"), "\033[47m");end
+def white_on_black(text); colorize(colorize(text, "\033[37m"), "\033[40m");end
+
+def bold(text); style(text, "\033[01m");end
+def underline(text); style(text, "\033[04m");end
+

data/lib/column.rb

@@ -0,0 +1,97 @@
+#encoding: UTF-8
+
+=begin
+/***************************************************************************
+ *   Copyright ©2016-2016, Michael Uplawski <michael.uplawski@uplawski.eu> *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 3 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+=end
+
+
+require_relative 'logging'
+
+# Objects of this class represent columns in a spreadsheet table
+
+class Column
+  self.extend(Logging)
+  @@log = self.init_logger
+  @@DEF_WIDTH=15
+  @@col_width=@@DEF_WIDTH
+  @@columns = Array.new
+  def initialize(number = nil)
+    @log = @@log
+    @number = number
+    @cells = Array.new
+    @width = @@col_width
+    @@columns << self
+  end
+
+  def add(cell)
+    n_cell = nil
+    if cell.respond_to?(:to_cell)
+      n_cell = cell
+    elsif cell.respond_to?(:to_i)
+      n_cell = Cell.new( cell, @number) 
+    else
+      msg = 'For a new cell, a row-number must be specified'
+      @log.error(yellow(msg))
+      raise StandardError(msg)
+    end
+    @cells.insert(n_cell.row, n_cell) 
+    @cells.compact!
+    set_limits
+  end
+
+  def each(&b)
+    @cells.each do |c|
+      yield(c) 
+    end
+  end
+
+  def self::col_width
+    @@col_width
+  end
+
+  def self::col_width=(w)
+    @@col_width = w
+    @log.debug("self::col_width=(#{w}), calling resize")
+
+    @@columns.each {|col| col.resize(w)}
+  end
+
+  def resize(width)
+    @width = width
+    @log.debug('calling resize')
+    @cells.each {|cell| cell.resize}
+  end
+
+  def to_s
+    '<' << self.class.name.dup << ':' << object_id.to_s << "{number=%s width=%s cells.length=}>" %[@number, @cells.length]
+  end
+
+  attr_reader :number, :width
+  alias :<< :add
+
+  private
+
+  def set_limits
+    @ideal_width = @cells.max{|c1, c2| c1.ideal_width <=> c2.ideal_width}.ideal_width 
+    @ideal_width ||= @@DEF_WIDTH
+    # @width ||= @ideal_width
+  end
+
+end

data/lib/file_checking.rb

@@ -0,0 +1,87 @@
+#encoding: UTF-8
+=begin
+/***************************************************************************
+ *   ©2011-2013 Michael Uplawski <michael.uplawski@uplawski.eu>            *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 3 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+=end
+
+=begin
+A module to facilitate frequently occuring checks on
+file-system objects
+=end
+module File_Checking
+
+  @@text_messages  = {
+    :exist? => "does not exist!",
+    :exist => "does not exist!",
+    :readable? => "is not readable!",
+    :readable => "is not readable!",
+    :executable? => "is not executable!",
+    :executable => "is not executable!",
+    :writable? => "is not writable!",
+    :writable => "is not writable!",
+    :directory? => "is not a directory!",
+    :directory => "is not a directory!",
+    :file? => "is not a file!",
+    :file => "is not a file!",
+  }
+
+  # Checks if the file with the name from the first
+  # parameter has the properties, listed in the second. 
+  # The messages parameter is an array of one or several
+  # of :exist?, :readable?, :writable?, :directory?  or 
+  # their string-representations, respectively. 
+  # Returns nil in case of success, otherwise an 
+  # informative message, describing the first negative
+  # test-result.
+  def file_check(file, *messages)
+    File_Checking.file_check(file, *messages)
+  end
+
+  # Checks if the file with the name from the first
+  # parameter has the properties, listed in the second. 
+  # The messages parameter is an array of one or all
+  # of :exist?, :readable?, :writable?, :directory? or
+  # their string-representations, respectively. 
+  # Returns nil in case of success, otherwise an 
+  # informative message, describing the first negative
+  # test-result.
+  def self.file_check(file, *messages)
+    msg = nil
+    if(file && messages.respond_to?(:to_ary) && !messages.empty?)
+      messages.each do |k|
+        if(! k.to_s.end_with?('?'))	
+          k = (k.to_s << '?').to_sym
+        end
+        @log.debug ('checking ' << k.to_s) if @log
+        if(msg == nil && File.respond_to?(k) && ! File.send(k, file.to_s))
+          msg = "#{file} #{@@text_messages[k.to_sym]}"
+        end
+      end
+    end
+    msg
+  end
+end
+
+=begin
+# example
+
+include File_Checking
+msg = file_check('some_file.txt', [:exist?, :readable?, 'writable'])
+puts msg if msg
+=end

data/lib/log.conf

@@ -0,0 +1,62 @@
+#encoding: UTF-8 
+=begin
+/***************************************************************************
+ *   ©2013 Michael Uplawski <michael.uplawski@uplawski.eu>            *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 3 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+
+A simplified logger configuration. Set the level for each individual logger
+below. Choose a different log-device or log-file if you like. Keep the 
+formatting intact.  Do not change other sections of this file.
+=end
+
+# Do not touch from here ----->
+require 'logger'
+
+debug = Logger::DEBUG
+info = Logger::INFO
+error = Logger::ERROR
+fatal = Logger::FATAL
+warn = Logger::WARN
+unknown = Logger::UNKNOWN
+{
+# <---------------- to here !
+
+# Enter your settings here, but take into consideration that not all 
+# the named classes will really produce readable output. Well, you can 
+# always try... Either name just the log-level or make the log-level
+# precede the output-device or output-file like in the examples.
+
+# Example: naming a log-file
+# :HtmlBuilder => [info, 'C:\temp\htmlbuilder.log']
+# :HtmlBuilder => [debug, '/tmp/htmlbuilder.log'],
+
+:ViewWorkBook => debug,
+:SheetInterface => debug,
+:Action => info,
+:Menu => info,
+:SheetData => info,
+:Row => info,
+:Cell => info,
+:Column => info,
+:Scrollable => debug,
+:AnsiEscapedText => debug,
+
+# And ignore the remainder, too.
+}
+
+#eof

data/lib/logging.rb

@@ -0,0 +1,195 @@
+#encoding: UTF-8 
+=begin
+/***************************************************************************
+ *   ©2011-2016 Michael Uplawski <michael.uplawski@uplawski.eu>            *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 3 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+=end
+require 'logger'
+require_relative 'file_checking'
+
+$DEBUG = :DEBUG
+
+=begin Creates a member @log and precede its output with the name of the class
+of the object. 
+Example for a class-level logger:
+# --------------------
+class TClass
+        self.extend(Logging)
+        @@log = init_logger(STDOUT)
+        def test_log
+                @@log.info('class-level logger called from instance: ' << @@log.to_s)
+                @log = @@log
+                @log.info('AGAIN: class-level logger called from instance: ' << @log.to_s)
+        end
+        def self::test_log
+                @log.info('class-level logger called from class: ' << @log.to_s)
+                @@log.info('AGAIN: class-level logger called from class: ' << @@log.to_s)
+        end
+end
+#---------------------
+Example for a object-level logger:
+ATTN! This means 1 logger per object.
+# --------------------
+class TClass
+        include Logging
+        def initialize
+                init_logger(STDOUT, Logger::DEBUG)
+        end
+        def test_log
+                @log.debug('called test_log() ')
+        end
+end
+=end
+module Logging
+  include File_Checking
+
+  @@have_log = false
+  @@LOG_CONF = File.dirname(File.absolute_path(__FILE__)) << File::Separator << 'log.conf'
+
+  # Call this method in an instance-method (e.g. initialize() ) to define the
+  # object-level logger; i.e. an object-specific member @log.
+  # Call this method within the class-definition for a class-level logger; i.e.
+  # a member @log for class-level acces.
+  # The method returns the logger, so you can actually do what you want with it.
+  def init_logger(target = STDOUT, level = Logger::INFO)
+    # Prepare for a class-level logger. This is actually quite cool.
+
+    # ---> Ingeniuous code starts here
+    cn = (self.class == Class ? name : self.class.name)
+    # <--- Ingeniuous code ends here
+
+    # allow to override the set log-levels with an
+    # external configuration (log.conf).
+    log_conf(cn)
+    # Or use the defaults as set here or elsewhere...
+
+    @level ||= level 
+    @target ||= target
+
+    @log = Logger.new(@target)
+    @log.level = @level
+
+    @log.formatter = proc do |severity, datetime, progname, msg|
+      t = Time.now
+      "#{cn}: #{severity} #{t.hour}-#{t.min}-#{t.sec}: #{msg}\n"
+    end
+    if ! @@have_log
+      @log.debug cn.dup << ' reading logging-configuration from ' << @@LOG_CONF	
+      @@have_log = true
+      @log.debug('level is ' << level.to_s)
+    end
+    return @log
+  end
+
+  # Set the log-target to an IO object.
+  def log_target=(target)
+    @target = target
+    @log = Logger.new(@@target)
+    @log.level = @level
+  end
+
+  # set the log-level
+  def log_level=(level)
+    @level = level
+    @log.level = @level
+  end
+
+  private
+
+  # Override or set the log-level and target-device, as set in a file 'log.conf'.
+  # I do not like the look of this, but it works just the way I want it to.
+  # "HEAVANS! Isn't there a standard way to do this in Ruby, for Christ's sake?", you say.
+  # Heck, I don't care. <= Read that again, I say.
+  def log_conf(cn = nil)
+    config = level = target = nil
+    # puts 'log-config is in ' << @@LOG_CONF
+    if(File::exist?(@@LOG_CONF) )
+      begin
+        conf = File.read(@@LOG_CONF)
+        config = instance_eval(conf)
+      rescue Exception => ex
+        STDERR.puts "WARNING! Cannot evaluate the logger-configuration!" << ' ' << ex.message
+        STDERR.puts "Default log-levels apply."
+      end
+    else
+      puts "Default log-levels apply."
+    end
+
+    if(config && config.respond_to?(:to_hash) )
+      config.default = nil
+      if cn
+        config = config[cn.to_sym]
+      else
+        config = config[self.class.name.to_sym]
+      end
+
+      if(config )
+        if(config.respond_to?(:to_ary) && config.size == 2)
+          @level, @target = config
+          @target.downcase!
+          logdir = File.dirname(@target)
+          msg = file_check(logdir, :exist?, :directory?, :writable?)
+          if(msg) 
+            STDERR.puts "WARNING! A logfile for '%s' cannot be written to %s (%s)!" %[self.class.name, logdir, msg] 
+            @target = nil
+          end
+        else
+          @level = config
+        end	
+      end
+    end
+  end
+end
+
+######### test
+if __FILE__ == $0
+  class TClass
+    # class level ---->
+    self.extend(Logging)
+    @@log = init_logger(STDOUT, Logger::INFO)
+    # <------
+    # object-level ---->
+    include Logging
+    # <---------
+
+    def test_log
+      @@log.info('class-level logger called from instance: ' << @@log.to_s)
+      #@log = @@log # works too
+      @log = TClass.class_eval{@log}
+      @log.info('AGAIN: class-level logger called from instance: ' << @log.to_s)
+      @log.debug("you won't see this on log-level INFO")
+
+      # object-level ---->
+      init_logger
+      # <-----------
+      @log.info("That's a different thing: " << @log.to_s << " - object-level logger!")
+
+    end
+    def self::test_log
+      @log.info('class-level logger called from class: ' << @log.to_s)
+      @@log.info('AGAIN: class-level logger called from class: ' << @log.to_s)
+    end
+  end
+
+  TClass.new.test_log # class-logger + 1st object-logger
+  TClass.new.test_log # same class-logger + 2nd object-logger
+
+  TClass::test_log # same class-logger
+  puts 'And just say it once clearly: THIS IS COOOL!!'
+end
+#EOF