bigtinker 0.93

data/extras/cal.rb

@@ -0,0 +1,158 @@
+#! /usr/bin/env ruby
+
+# cal.rb: Written by Tadayoshi Funaba 1998-2004
+# $Id: cal.rb,v 2.8 2004-09-25 12:50:10+09 tadf Exp $
+
+require 'date'
+
+class Cal
+
+  START =
+    {
+    'cn' => true,    # China
+    'de' => 2342032, # Germany (protestant states)
+    'dk' => 2342032, # Denmark
+    'en' => 2361222, # English
+    'es' => 2299161, # Spain
+    'fi' => 2361390, # Finland
+    'fr' => 2299227, # France
+    'gb' => 2361222, # United Kingdom
+    'gr' => 2423868, # Greece
+    'hu' => 2301004, # Hungary
+    'it' => 2299161, # Italy
+    'jp' => true,    # Japan
+    'no' => 2342032, # Norway
+    'nl' => 2361222,
+    'pl' => 2299161, # Poland
+    'pt' => 2299161, # Portugal
+    'ru' => 2421639, # Russia
+    'se' => 2361390, # Sweden
+    'us' => 2361222, # United States
+    'os' => false,   # (old style)
+    'ns' => true     # (new style)
+  }
+
+  DEFAULT_START = 'gb'
+
+  def initialize
+    opt_j; opt_m; opt_t; opt_y; opt_c
+  end
+
+  def opt_j(flag=false) @opt_j = flag end
+  def opt_m(flag=false) @opt_m = flag end
+  def opt_t(flag=false) @opt_t = flag end
+  def opt_y(flag=false) @opt_y = flag end
+
+  def opt_c(arg=DEFAULT_START) @start = START[arg] end
+
+  def set_params
+    @dw = if @opt_j then 3 else 2 end
+    @mw = (@dw + 1) * 7 - 1
+    @mn = if @opt_j then 2 else 3 end
+    @tw = (@mw + 2) * @mn - 2
+    @k  = if @opt_m then 1 else 0 end
+    @da = if @opt_j then :yday else :mday end
+  end
+  
+ 
+
+  def nl_pict(y, m)
+    d = (1..31).detect{|d| Date.valid_date?(y, m, d, @start)}
+    fi = Date.new(y, m, d, @start)
+    fi -= (fi.jd - @k + 1) % 7
+
+    ve  = (fi..fi +  6).collect{|cu|
+      %w(zo ma di wo do vr za)[cu.wday]
+    }
+    ve += (fi..fi + 41).collect{|cu|
+      if cu.mon == m then cu.send(@da) end.to_s
+    }
+
+    ve = ve.collect{|e| e.rjust(@dw)}
+
+    gr = group(ve, 7)
+    gr = trans(gr) if @opt_t
+    ta = gr.collect{|xs| xs.join('  ')}
+
+    ca = %w(januari februari  maart  april mei juni juli
+	    augustus september oktober november december)[m - 1]
+    ca = ca + ' ' + y.to_s if not @opt_y
+    ca = ca.center(@mw)
+
+    ta.unshift(ca)
+  end
+
+
+  def en_pict(y, m)
+    d = (1..31).detect{|d| Date.valid_date?(y, m, d, @start)}
+    fi = Date.new(y, m, d, @start)
+    fi -= (fi.jd - @k + 1) % 7
+
+    ve  = (fi..fi +  6).collect{|cu|
+      %w(Su Mo Tu We Th Fr Sa)[cu.wday]
+    }
+    ve += (fi..fi + 41).collect{|cu|
+      if cu.mon == m then cu.send(@da) end.to_s
+    }
+
+    ve = ve.collect{|e| e.rjust(@dw)}
+
+    gr = group(ve, 7)
+    gr = trans(gr) if @opt_t
+    ta = gr.collect{|xs| xs.join('  ')}
+
+    ca = %w(January February March April May June July
+	    August September October November December)[m - 1]
+    ca = ca + ' ' + y.to_s if not @opt_y
+    ca = ca  #.center(@mw)
+
+    ta.unshift(ca)
+  end
+
+  def group(xs, n)
+    (0..xs.size / n - 1).collect{|i| xs[i * n, n]}
+  end
+
+  def trans(xs)
+    (0..xs[0].size - 1).collect{|i| xs.collect{|x| x[i]}}
+  end
+
+  def stack(xs)
+    if xs.empty? then [] else xs[0] + stack(xs[1..-1]) end
+  end
+
+  def block(xs, n)
+    stack(group(xs, n).collect{|ys| trans(ys).collect{|zs| zs.join('  ')}})
+  end
+
+  def unlines(xs)
+    xs.collect{|x| x + "\n"}.join
+  end
+
+  def monthly(y, m)
+   if $lang == "nl"
+    return nl_pict(y,m)
+    end
+    return en_pict(y,m)
+    #unlines(pict(y, m))
+  end
+
+  def addmon(y, m, n)
+    y, m = (y * 12 + (m - 1) + n).divmod(12)
+    return y, m + 1
+  end
+
+  def yearly(y)
+    y.to_s.center(@tw) + "\n\n" +
+      unlines(block((0..11).collect{|n| pict(*addmon(y, 1, n))}, @mn)) + "\n"
+  end
+
+  def print(y, m)
+    set_params
+    if @opt_y then yearly(y) else monthly(y, m) end
+  end
+
+end
+
+
+

data/extras/dict.rb

@@ -0,0 +1,438 @@
+# dict.rb - a client-side implementation of the DICT protocol (RFC 2229)
+#
+# $Id: dict.rb,v 1.25 2003/04/19 06:53:41 ianmacd Exp $
+# 
+# Version : 0.9.2
+# Author  : Ian Macdonald <ian@caliban.org>
+#
+# Copyright (C) 2002-2003 Ian Macdonald
+#
+#   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 2, 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.
+
+=begin
+
+= NAME
+Ruby/DICT - client-side DICT protocol library
+= SYNOPSIS
+
+  require 'dict'
+
+  dict = DICT.new('dict.org', DICT::DEFAULT_PORT)
+  dict.client('a Ruby/DICT client')
+  definitions = dict.define(DICT::ALL_DATABASES, 'ruby')
+
+  if definitions
+    definitions.each do |d|
+      printf("From %s [%s]:\n\n", d.description, d.database)
+      d.definition.each { |line| print line }
+    end
+  end
+
+  dict.disconnect
+
+= DESCRIPTION
+Ruby/DICT is a client-side library implementation of the DICT protocol,
+as described in ((<RFC 2229|URL:ftp://ftp.isi.edu/in-notes/rfc2229.txt>)).
+= CLASS METHODS
+--- DICT.new(hosts, port = DICT::DEFAULT_PORT, debug = false, verbose = false)
+    This creates a new instance of the DICT class. A DICT object has four
+    instance variables: ((|capabilities|)), ((|code|)), ((|message|)) and
+    ((|msgid|)). ((|capabilities|)) is an array of Strings relating to
+    capabilities implemented on the server, ((|code|)) is the last status
+    code returned by the server, ((|message|)) is the text of the message
+    related to ((|code|)), and ((|msgid|)) is the message ID returned by the
+    server.
+= INSTANCE METHODS
+--- DICT#disconnect
+    Disconnect from the server.
+--- DICT#define(database, word)
+    Obtain definitions for ((|word|)) from ((|database|)). A list of valid
+    databases can be obtained using DICT#show(DICT::DATABASES).
+
+    To show just the first definition found, use ((|DICT::FIRST_DATABASE|))
+    as the database name. To show definitions from all databases, use
+    ((|DICT::ALL_DATABASES|)).
+
+    On success, this returns an array of Struct:Definition objects.
+    ((*nil*)) is returned on failure.
+--- DICT#match(database, strategy, word)
+    Obtain matches for ((|word|)) from ((|database|)) using ((|strategy|)).
+
+    On success, a hash of arrays is returned. The keys of the hash are the
+    database names and the values are arrays of word matches that were found
+    in that database. ((*nil*)) is returned on failure.
+--- DICT#show_server
+    This method retrieves information on the server itself.
+
+    A String is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#show_db
+    This method retrieves information on the databases offered by the server.
+
+    A Hash indexed on database name and containing database descriptions
+    is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#show_info(database)
+    This method retrieves information on a particular database offered by
+    the server.
+
+    A String is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#show_strat
+    This method retrieves information on the strategies offered by the server.
+
+    A Hash indexed on strategy name and containing strategy descriptions
+    is returned on success, while ((*nil*)) is returned on failure.
+--- DICT#status
+    This method returns a single line String of status information from the
+    server.
+--- DICT#help
+    This method returns a String of help information from the server,
+    describing the commands it implements.
+--- DICT#client
+    This method sends a single line String of information describing a client
+    application to the server.
+--- DICT#auth(user, secret)
+    This method attempts to authenticate ((|user|)) to the server using
+    ((|secret|)). Note that ((|secret|)) is not literally passed to the server.
+= CONSTANTS
+Ruby/DICT uses a lot of constants, mostly for the status codes
+returned by DICT servers. See the source for details.
+
+Some of the more interesting other constants:
+: DICT::FIRST_DATABASE
+  Define or match, stopping at first database where match is found
+: DICT::ALL_DATABASES
+  Define or match, gathering matches from all databases
+: DICT::DEFAULT_MATCH_STRATEGY
+  Match using a server-dependent default strategy, which should be the best
+  strategy available for interactive spell checking
+: DICT::DEFAULT_PORT
+  The default port used by DICT servers, namely 2628
+: DICT::ERROR
+  A Regex constant matching any server status code indicating an error
+= EXCEPTIONS
+Exception classes are subclasses of the container class DICTError, which is,
+itself, a subclass of RuntimeError
+--- ConnectError.new(message, code = 2)
+    A ConnectError is raised if DICT::new is unable to connect to the chosen
+    DICT server for any reason. Program execution will terminate.
+--- ProtocolError.new(message, code = 3)
+    A ProtocolError exception can be used if a server operation returns a
+    status code matching DICT::ERROR. This does not happen automatically. The
+    code is stored in the ((|code|)) attribute of the instance of the DICT
+    object. Program execution will terminate.
+= AUTHOR
+Written by Ian Macdonald <ian@caliban.org>
+= COPYRIGHT
+ Copyright (C) 2002-2003 Ian Macdonald
+
+ This is free software; see the source for copying conditions.
+ There is NO warranty; not even for MERCHANTABILITY or FITNESS
+ FOR A PARTICULAR PURPOSE.
+= SEE ALSO
+* ((<"Ruby/DICT home page - http://www.caliban.org/ruby/"|URL:http://www.caliban.org/ruby/>))
+* ((<"The DICT development group - http://www.dict.org/"|URL:http://www.dict.org/>))
+* ((<"RFC 2229 - ftp://ftp.isi.edu/in-notes/rfc2229.txt"|URL:ftp://ftp.isi.edu/in-notes/rfc2229.txt>))
+= BUGS
+Send all bug reports, enhancement requests and patches to the
+author.
+= HISTORY
+$Id: dict.rb,v 1.25 2003/04/19 06:53:41 ianmacd Exp $
+
+=end
+
+
+require 'socket'
+require 'md5'
+
+
+# lines that start with .. need to be reduced to .
+#
+class String
+  def undot!
+    sub!(/^\.\./, '.')
+  end
+end
+
+
+# a basic exception class for DICT errors
+#
+class DICTError < RuntimeError
+  def initialize(message, code = 1)
+    $stderr.puts message
+    exit code
+  end
+end
+
+
+# deal with connection errors
+#
+class ConnectError < DICTError
+  def initialize(message, code = 2)
+    super
+  end
+end
+
+
+# deal with status code errors
+#
+class ProtocolError < DICTError
+  def initialize(message, code = 3)
+    super
+  end
+end
+
+# a structure for definitions
+#
+Definition = Struct.new('Definition', :word, :definition, :database,
+			:description)
+
+class DICT
+  attr_reader :capabilities, :code, :message, :msgid
+
+  DATABASES_PRESENT		= '110'
+  STRATEGIES_AVAILABLE		= '111'
+  DATABASE_INFORMATION		= '112'
+  HELP_TEXT			= '113'
+  SERVER_INFORMATION		= '114'
+  CHALLENGE_FOLLOWS		= '130'
+  DEFINITIONS_RETRIEVED		= '150'
+  WORD_DEFINITION		= '151'
+  MATCHES_PRESENT		= '152'
+  STATUS_RESPONSE		= '210'
+  CONNECTION_ESTABLISHED	= '220'
+  CLOSING_CONNECTION		= '221'
+  AUTHENTICATION_SUCCESSFUL	= '230'
+  OK				= '250'
+  SEND_RESPONSE			= '330'
+  TEMPORARILY_UNAVAILABLE	= '420'
+  SHUTTING_DOWN			= '421'
+  UNRECOGNISED_COMMAND		= '500'
+  ILLEGAL_PARAMETERS		= '501'
+  COMMAND_NOT_IMPLEMENTED	= '502'
+  PARAMETER_NOT_IMPLEMENTED	= '503'
+  ACCESS_DENIED			= '530'
+  AUTH_DENIED			= '531'
+  UNKNOWN_MECHANISM		= '532'
+  INVALID_DATABASE		= '550'
+  INVALID_STRATEGY		= '551'
+  NO_MATCH 			= '552'
+  NO_DATABASES_PRESENT		= '554'
+  NO_STRATEGIES_AVAILABLE	= '555'
+
+  ALL_DATABASES			= '*'
+  DEFAULT_MATCH_STRATEGY	= '.'
+  DEFAULT_PORT			= 2628
+  ERROR				= /^[45]/
+  FIRST_DATABASE		= '!'
+  MAX_LINE_LENGTH 		= 1024
+  PAIR				= /^(\S+)\s"(.+)"\r$/
+  REPLY_CODE			= /^\d\d\d/
+
+  def initialize(hosts, port = DEFAULT_PORT, debug = false, verbose = false)
+    hosts.each do |host|
+      @debug = debug
+      @verbose = verbose
+      printf("Attempting to connect to %s:%d...\n", host, port) if @verbose
+
+      begin
+	@sock = TCPSocket.open(host, port)
+      rescue
+	next	# cycle through list of servers, if more than one
+      end
+
+      break	# continue if connection to this host succeeded
+    end
+
+    # catch failure
+    raise ConnectError, 'Unable to connect to host' unless defined? @sock
+
+    # check status line on connect
+    line = get_line
+    raise ConnectError, line if line =~ ERROR
+
+    caps, @msgid = /<(.+?)>\s(<.+>)/.match(line)[1..2]
+    @capabilities = caps.split(/\./)
+    if @verbose
+      printf("Capabilities: %s\n", @capabilities.join(', '))
+      printf("Msgid: %s\n", @msgid)
+    end
+  end
+
+  private
+
+  # output a line to the server
+  #
+  def send_line(command)
+    line = command + "\r\n"
+    $stderr.printf("SEND: %s", line) if @debug
+    @sock.print(line)
+  end
+
+  # get a line of input from the server
+  #
+  def get_line
+    line = @sock.readline("\r\n")
+    $stderr.printf("RECV: %s", line) if @debug
+    line
+  end
+
+  # send a command and get a response
+  #
+  def exec_cmd(command)
+    send_line(command)
+    line = get_line
+    @code, @message = /^(\d\d\d)\s(.*)$/.match(line)[1..2]
+    # remember the command just executed
+    @command = command
+  end
+
+  # determine whether we're at the end of this response
+  #
+  def end_of_text?(line)
+    line =~ /^\.\r$/ ? true : false
+  end
+
+  # generic method to issue command and parse response
+  #
+  def parse_response
+    return nil if @code =~ ERROR
+
+    while line = get_line
+      # on first pass through loop, create list as either a hash
+      # or a string, depending # on what data looks like
+      list ||= line =~ PAIR ? Hash.new : ''
+
+      # check for end of data
+      return list if line =~ REPLY_CODE
+
+      if ! end_of_text? line
+	line.undot!
+	(list << line; next) if list.is_a?(String)  # list is just text
+
+	# list is a hash of data pairings
+	name, desc = PAIR.match(line)[1..2]
+	if @command =~ /^MATCH/
+	  list[name] = Array.new unless list[name]
+	  list[name] << desc
+	else
+	  list[name] = desc
+	end
+
+      end
+    end
+  end
+
+  public
+
+  # QUIT from the server
+  #
+  def disconnect
+    exec_cmd('QUIT')
+    @sock.close
+  end
+
+  # DEFINE a word
+  #
+  def define(db, word)
+    definitions = Array.new
+    d = Definition.new
+    d.word = word
+    d.definition = Array.new
+
+    exec_cmd('DEFINE %s "%s"' % [ db, word ])
+
+    return nil if @code =~ ERROR
+
+    while line = get_line
+      return definitions if line =~ /^#{OK}/
+
+      if line =~ /^#{WORD_DEFINITION}/
+	word, d.database, d.description =
+	  /^\d\d\d\s"(.+?)"\s(\S+)\s"(.+)"\r$/.match(line)[1..3]
+      elsif end_of_text? line	# finish definition and start a new one
+	definitions << d
+	d = Definition.new
+	d.word = word
+	d.definition = Array.new
+      else
+	line.undot!
+	d.definition << line
+      end
+
+    end
+  end
+
+  # MATCH a word
+  #
+  def match(db, strategy, word)
+    exec_cmd('MATCH %s %s "%s"' % [ db, strategy, word ])
+    parse_response
+  end
+
+  # get database list
+  #
+  def show_db
+    exec_cmd("SHOW DB")
+    parse_response
+  end
+
+  # get strategy list
+  #
+  def show_strat
+    exec_cmd("SHOW STRAT")
+    parse_response
+  end
+
+  # get information on database
+  #
+  def show_info(db)
+    exec_cmd('SHOW INFO %s' % db)
+    parse_response
+  end
+
+  # get server information
+  #
+  def show_server
+    exec_cmd("SHOW SERVER")
+    parse_response
+  end
+  
+  # request server STATUS information
+  #
+  def status
+    exec_cmd('STATUS')
+    @message
+  end
+
+  # request server-side HELP
+  #
+  def help
+    exec_cmd('HELP')
+    parse_response
+  end
+
+  # send CLIENT information
+  #
+  def client(info)
+    exec_cmd('CLIENT %s' % info)
+  end
+
+  # AUTHorise user
+  #
+  def auth(user, secret)
+    auth = MD5::new(@msgid + secret).hexdigest
+    exec_cmd('AUTH %s %s' % [ user, auth ])
+  end
+
+end

data/extras/icalendar/base.rb

@@ -0,0 +1,17 @@
+require 'logger'
+
+module Icalendar #:nodoc:
+  class IcalendarError < StandardError #:nodoc:
+  end
+
+  class InvalidComponentClass < IcalendarError
+  end
+
+  class InvalidPropertyValue < IcalendarError
+  end
+
+  class Base
+    @@logger = Logger.new(STDOUT)
+    @@logger.level = Logger::INFO
+  end
+end

data/extras/icalendar/calendar.rb

@@ -0,0 +1,44 @@
+module Icalendar
+  class Calendar < Component
+
+    attr_accessor :events, :todos, :journals, :freebusys, :timezones
+    
+    def initialize()
+      super("VCALENDAR")
+      @properties = {}
+      @property_params = {}
+      
+      @events = []
+      @todos = []
+      @journals = []
+      @freebusys = []
+      @timezones = []
+    end
+
+    def add(component)
+      if component.is_a? Event
+          @events << component
+        elsif component.is_a? Todo
+          @todos << component
+        elsif component.is_a? Journal
+          @journals << component
+        elsif component.is_a? Freebusy
+          @freebusys << component
+        elsif component.is_a? Timezone
+          @timezones << component
+        else
+          raise InvalidComponentClass
+      end
+    end
+    
+    def to_s
+      print_string do |s|
+        @events.each { |event| s << event.to_s }
+        @todos.each { |todo| s << todo.to_s }
+        @journals.each { |journal| s << journal.to_s }
+        @freebusys.each { |freebusy| s << freebusy.to_s }
+        @timezones.each { |timezone| s << timezone.to_s }
+      end
+    end
+  end
+end