facets 1.8.54 → 2.0.0

data/lib/facets/more/times.rb

@@ -1,413 +0,0 @@
-# = times.rb
-#
-# == Copyright (c) 2005 Rich Kilmer, Thomas Sawyer
-#
-#   Ruby License
-#
-#   This module is free software. You may use, modify, and/or redistribute this
-#   software under the same terms as Ruby.
-#
-#   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.
-#
-# == SPECIAL THANKS
-#
-# Thanks to Richard Kilmer for the orignal work and Alexander Kellett
-# for suggesting it for Facets.
-#
-# Thanks to Dave Hoover and Ryan Platte for the Weekdays implementation.
-#
-# == Author(s)
-#
-# * Rich Kilmer
-# * Thomas Sawyer
-# * Dave Hoover
-# * Ryan Platte
-#
-# CREDIT Rich Kilmer
-# CREDIT Thomas Sawyer
-# CREDIT Dave Hoover
-# CREDIT Ryan Platte
-#
-# == Developer Notes
-#
-#   TODO Extra Add in_* methods, like in_days, in_hours, etc.
-
-# Author::    Rich Kilmer
-# Copyright:: Copyright (c) 2005 Rich Kilmer
-# License::   Ruby License
-
-require 'facets/core/time/change'
-
-# = Time In English
-#
-# Plain-English convenience methods for dealing with dates and times.
-
-class Numeric
-
-  # Enables the use of time calculations and declarations, 
-  # like 45.minutes + 2.hours + 4.years. The base unit for
-  # all of these Numeric time methods is seconds.
-  def seconds ; self ; end
-  alias_method :second, :seconds
-  #def as_seconds ; self ; end
-
-  # Converts minutes into seconds.
-  def minutes ; self * 60 ; end
-  alias_method :minute, :minutes
-  #def as_minutes ; self.to_f / 60 ; end
-
-  # Converts hours into seconds.
-  def hours ; self * 60.minutes ; end
-  alias_method :hour, :hours
-  #def as_hours ; self / 60.minutes ; end
-
-  # Converts days into seconds.
-  def days ; self * 24.hours ; end
-  alias_method :day, :days
-  #def as_days ; self / 24.hours ; end
-
-  # Converts weeks into seconds.
-  def weeks ; self * 7.days ; end
-  alias_method :week, :weeks
-  #def as_weeks ; self / 7.days ; end
-
-  # Converts fortnights into seconds.
-  # (A fortnight is 2 weeks)
-  def fortnights ; self * 2.weeks ; end
-  alias_method :fortnight, :fortnights
-  #def as_fortnights ; self / 2.weeks ; end
-
-  # Converts months into seconds.
-  # WARNING: This is not exact as it assumes 30 days to a month.
-  def months ; self * 30.days ; end
-  alias_method :month, :months
-  #def as_months ; self / 30.days ; end
-
-  # Converts years into seconds.
-  def years ; self * 365.days ; end
-  alias_method :year, :years
-  #def as_years ; self / 365.days ; end
-
-  # Calculates time _before_ a given time. Default time is now.
-  # Reads best with arguments: 10.days.before( Time.now - 1.day )
-  def before(time = ::Time.now)
-    time - self
-  end
-  alias_method :until, :before   # Reads best with argument: 10.minutes.until(time)
-  alias_method :ago, :before     # Reads best without arguments: 10.minutes.ago
-
-  # Calculates time _after_ a given time. Default time is now.
-  # Reads best with argument: 10.minutes.after(time)
-  def after(time = ::Time.now)
-    time + self
-  end
-  alias_method :since, :after    # Reads best with argument: 10.minutes.since(time)
-  alias_method :from_now, :after # Reads best without arguments: 10.minutes.from_now
-  alias_method :later, :after    # Reads best without arguments: 10.minutes.later
-
-  # Works with day in terms of weekdays.
-  def weekdays
-    Weekdays.new(self)
-  end
-  alias :weekday :weekdays
-
-end
-
-
-# The Weekdays class provides useful weekday terminology to Numeric.
-
-class Weekdays
-  WEEKDAYS = 1..5 # Monday is wday 1
-  ONE_DAY = 60 * 60 * 24
-
-  def initialize(n)
-    @n = n
-  end
-
-  def ago(time = ::Time.now)
-    step :down, time
-  end
-  alias :until :ago
-  alias :before :ago
-
-  def since(time = ::Time.now)
-    step :up, time
-  end
-  alias :from_now :since
-  alias :after :since
-
-  private
-
-  def step(direction, original_time)
-    result = original_time
-    time = ONE_DAY
-
-    compare = direction == :up ? ">" : "<"
-    time *= -1 if direction == :down
-
-    @n.times do
-      result += time until result.send(compare, original_time) && WEEKDAYS.member?(result.wday)
-      original_time = result
-    end
-    result
-  end
-end
-
-
-class Time
-
-  NEVER = Time.mktime(2038)
-  ZERO = Time.mktime(1972)
-
-  # Seconds since midnight: Time.now.seconds_since_midnight
-  def seconds_since_midnight
-    self.hour.hours + self.min.minutes + self.sec + (self.usec/1.0e+6)
-  end
-
-  # Returns a new Time representing the time a number of seconds ago.
-  # Do not use this method in combination with x.months, use months_ago instead!
-  def ago(seconds)
-    # This is basically a wrapper around the Numeric extension.
-    #seconds.until(self)
-    self - seconds
-  end
-
-  # Returns a new Time representing the time a number of seconds
-  # since the instance time. Do not use this method in combination
-  # with x.months, use months_since instead!
-  def since(seconds)
-    # This is basically a wrapper around the Numeric extension.
-    #seconds.since(self)
-    self + seconds
-  end
-  alias_method :in, :since
-
-  # Returns a new Time representing the time a number of specified
-  # months ago.
-  def months_ago(months)
-    if months >= self.month 
-      change(:year => self.year - 1, :month => 12).months_ago(months - self.month)
-    else
-      change(:year => self.year, :month => self.month - months)
-    end
-  end
-
-  def months_since(months)
-    if months + self.month > 12
-      change(:year => self.year + 1, :month => 1).months_since(months - (self.month == 1 ? 12 : (self.month + 1)))
-    else
-      change(:year => self.year, :month => self.month + months)
-    end
-  end
-
-  # Returns a new Time representing the time a number of specified
-  # years ago.
-  def years_ago(years)
-    change(:year => self.year - years)
-  end
-
-  def years_since(years)
-    change(:year => self.year + years)
-  end
-
-  # Short-hand for months_ago(1)
-  def last_year
-    years_since(1)
-  end
-
-  # Short-hand for months_since(1)
-  def next_year
-    years_since(1)
-  end
-
-  # Short-hand for months_ago(1)
-  def last_month
-    months_ago(1)
-  end
-
-  # Short-hand for months_since(1)
-  def next_month
-    months_since(1)
-  end
-
-  # Returns a new Time representing the "start" of this week (Monday, 0:00)
-  def beginning_of_week
-    (self - self.wday.days).midnight + 1.day
-  end
-  alias :monday :beginning_of_week
-  alias :at_beginning_of_week :beginning_of_week
-
-  # Returns a new Time representing the start of the given
-  # day in next week (default is Monday).
-  def next_week(day = :monday)
-    days_into_week = { :monday => 0, :tuesday => 1, :wednesday => 2,
-                       :thursday => 3, :friday => 4, :saturday => 5,
-                       :sunday => 6 }
-    since(1.week).beginning_of_week.since(days_into_week[day].day).change(:hour => 0)
-  end
-
-  # Set time to end of day
-  #def end_of_day
-  #  return Time.mktime(year, month, day, 23, 59, 59, 999)
-  #end
-
-  # Returns a new Time representing the start of the day (0:00)
-  def beginning_of_day
-    self - self.seconds_since_midnight
-  end
-  alias :midnight :beginning_of_day
-  alias :at_midnight :beginning_of_day
-  alias :at_beginning_of_day :beginning_of_day
-  alias :start_of_day :beginning_of_day
-
-  # Returns a new Time representing the start of the month
-  # (1st of the month, 0:00)
-  def beginning_of_month
-    #self - ((self.mday-1).days + self.seconds_since_midnight)
-    change(:day => 1,:hour => 0, :min => 0, :sec => 0, :usec => 0)
-  end
-  alias_method :at_beginning_of_month, :beginning_of_month
-
-  # Returns  a new Time representing the start of the year (1st of january, 0:00)
-  def beginning_of_year
-    change(:month => 1,:day => 1,:hour => 0, :min => 0, :sec => 0, :usec => 0)
-  end
-  alias :at_beginning_of_year :beginning_of_year
-
-  # Convenience method which returns a new Time representing
-  # the time 1 day ago
-  def yesterday
-    self.ago(1.day)
-  end
-
-  # Convenience method which returns a new Time representing
-  # the time 1 day since the instance time
-  def tomorrow
-    self.since(1.day)
-  end
-
-  # Returns a new time at start of day
-  def to_start_of_day
-    return Time.mktime(year, month, day, 0, 0, 0, 0)
-  end
-
-  # Rrturns a new time at end of day
-  def to_end_of_day
-    return Time.mktime(year, month, day, 23, 59, 59, 999)
-  end
-
-  # Returns true only if day of time is included in the
-  # range (stime..etime). Only year days are checked.
-  def in_day_range?(stime=ZERO, etime=NEVER)
-    if (etime <= stime)
-      warn "invalid end time (#{etime} < #{stime})" if $DEBUG
-      etime = NEVER
-    end
-
-    stime = stime.to_start_of_day
-    etime = etime.to_end_of_day
-
-    return (stime..etime).include?(time)
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin testing
-
-  require 'test/unit'
-  #require 'mega/multiplier'
-
-  class NumericTest < Test::Unit::TestCase
-
-    #def test_micro_seconds
-    #  assert_equal( 0.000001, 1.microsecond )
-    #end
-
-    #def test_milli_seconds
-    #  assert_equal( 0.001, 1.millisecond )
-    #end
-
-    def test_seconds
-      assert_equal( 60**0, 1.seconds )
-    end
-
-    def test_minutes
-      assert_equal( 60**1, 1.minutes )
-    end
-
-    def test_hours
-      assert_equal( 60**2, 1.hours )
-    end
-
-    def test_days
-      assert_equal( 24*(60**2), 1.days )
-    end
-
-    def test_weeks
-      assert_equal( 7*24*(60**2), 1.weeks )
-    end
-
-    def test_fortnights
-      assert_equal( 14*24*(60**2), 1.fortnights )
-    end
-
-    def test_months
-      assert_equal( 30*24*(60**2), 1.months )
-    end
-
-    def test_years
-      assert_equal( 365*24*(60**2), 1.years )
-    end
-
-    def test_before
-      t = Time.now
-      assert_equal( t - 1.day, 1.day.before(t) )
-    end
-
-    def test_after
-      t = Time.now
-      assert_equal( t + 1.day, 1.day.after(t) )
-    end
-
-  end
-
-  class WeekdaysTest < Test::Unit::TestCase
-
-    MONDAY = Time.at(1165250000)
-    THURSDAY = Time.at(1165500000)
-    FRIDAY = Time.at(1165606025)
-
-    def test_weekday_after_monday
-      assert_equal 2, 1.weekday.since(MONDAY).wday
-    end
-
-    def test_weekday_after_friday
-      assert_equal 1, 1.weekday.after(FRIDAY).wday
-    end
-
-    def test_weekdays_before_friday
-      assert_equal 2, 3.weekdays.before(FRIDAY).wday
-    end
-
-    #def test_weekday_before_today
-    #  Time.expects(:now).returns(THURSDAY)
-    #  assert_equal 3, 1.weekday.ago.wday
-    #end
-
-    #def test_weekdays_after_today
-    #  Time.expects(:now).returns(MONDAY)
-    #  assert_equal 3, 2.weekday.from_now.wday
-    #end
-
-  end
-
-=end

data/lib/facets/more/tkxml.rb

@@ -1,171 +0,0 @@
-# TkXML
-# by Thomas Sawyer (transami@runbox.com)
-# version April 2002 - Alpha (2.04a)
-# A combination of Ruby/Tk + REXML to allow for fast and easy creation of Tk interfaces using standard XML
-#
-# == Usage
-#
-# xml_file = File.open("ui.xml")
-# tkxml_instance = TkXML.new(xml_file)
-# tkxml_instance.build
-
-
-
-require 'rexml/document'
-require 'tk'
-
-include REXML
-
-class TkXML
-
-  def initialize(source)
-    @listener = TkXML_Listener.new
-    Document.parse_stream(source, @listener)
-  end
-
-  def build
-    Tk.mainloop
-  end
-
-end
-
-class TkXML_Listener
-
-  def initialize
-    puts "Initializing TkXML_Listner"
-    @widget = Hash.new
-    @widget_stack = Array.new
-    @parent = nil
-  end
-
-  def tag_start name, attributes
-
-    # get parent, the widget on the bottom of the stack
-    @parent = @widget_stack.last
-
-    # pull off the tag name if prefixed with the Tk namespace
-    if name[0..2] == "Tk:"
-      tag_name = name[3..name.length]
-    else
-      tag_name = name
-    end
-
-    # looks life the attributes object given is nothing morethen a array in an array. how lame!
-    # this wll turn it into a hash
-    attr_hash = Hash.new
-    attributes.each do |a|
-      attr_hash[a[0]] = a[1]
-    end
-
-    # okay, lets do this thing
-
-    # is it a method call or a new widget?
-    if tag_name[0..0] == '_'
-
-      # apply method
-      puts "Applying Method: #{name} to #{@parent}"
-
-      # get method name
-      meth_name = tag_name[1..tag_name.length]
-
-      # assign the method's parameters
-      p_arr = Array.new  # array for parameters to be passed
-      p_init = Hash.new  # for the ordered arguments _1 _2 etc.
-      p_hash = Hash.new  # for all other named parameters
-
-      # weed out the ordered parameters from the hash parameters
-      attr_hash.each do |n, v|
-        puts "   #{n} => #{v}"
-        if n[0..0] == "_"
-          p_init[n] = v
-        else
-          p_hash[n] = v
-        end
-      end
-
-      # sort the ordered parameters based on the hash key
-      # note: this converts p_init into an associative array
-      # then place each one in the parameter array
-      if not p_init.empty?
-        p_init.sort
-        p_init.each do |a|
-          p_arr.push a[1]
-        end
-      end
-
-      # now add the hash to the array if there is one
-      if not p_hash.empty?
-        p_arr.push p_hash
-      end
-
-      # call the method
-      @parent.send(meth_name, *p_arr)
-
-    else
-
-      # create widget
-      puts "Creating Widget: #{name} of #{@parent}"
-
-      widget_class = "Tk" + tag_name.capitalize
-      widget_name = attr_hash['name']
-
-      if @parent == nil
-        @widget[widget_name] = Tk.const_get(widget_class).new
-      else
-        @widget[widget_name] = Tk.const_get(widget_class).new(@parent)
-      end
-
-      # assign the widget properties
-      attr_hash.each do |n, v|
-        if not n == 'name'
-          puts "   #{n} => #{v}"
-          @widget[widget_name].send(n, v)
-        end
-      end
-
-      # push widget on to the stack
-      @widget_stack.push(@widget[widget_name])
-
-    end
-
-  end
-
-  #
-
-  def tag_end name
-
-    # pull off the tag name if prefixed with the Tk namespace
-    if name[0..2] == "Tk:"
-      tag_name = name[3..name.length]
-    else
-      tag_name = name
-    end
-
-    # if method then we're finish
-    # else if widget then finish creation and pop off the widget stack
-    if tag_name[0..0] == "_"
-      puts "End Method: #{name}"
-
-    else
-      @parent = @widget_stack[-2]
-      current = @widget_stack.last
-
-      case tag_name.downcase
-      when "menu"
-        @parent.menu(current)
-      end
-
-      # pop current widget off of stack
-      @widget_stack.pop
-
-      puts "End Widget: #{name}"
-    end
-
-  end
-
-  def text free_radical
-    if not free_radical.strip == ""
-      puts "Error: TkXML does not use XML text entries: #{free_radical}"
-    end
-  end
-end