mega 0.3.1

data/lib/mega.rb

@@ -0,0 +1,60 @@
+
+#
+# Mega Modules
+#
+
+#--
+# Note: The Fixnum constants can't be autoloded. How to fix?
+#++
+def autoload_classes
+  # built-in
+  autoload( 'CGI', 'cgi' )
+  autoload( 'FCGI', 'fcgi' )
+  autoload( 'FileUtils', 'fileutils' )
+  autoload( 'OpenStruct', 'ostruct' )
+  # mega classes
+  autoload( 'ANSICode', 'mega/ansicode' )
+  autoload( 'BBCode', 'mega/bbcode' )
+  autoload( 'BinaryReader', 'mega/binaryreader' )
+  autoload( 'BlankSlate', 'mega/blankslate' )
+  autoload( 'ByteOrder', 'mega/byteorder' )
+  autoload( 'ClassMethods', 'mega/classmethods' )
+  autoload( 'Coroutine', 'mega/coroutine' )
+  autoload( 'CrossCase', 'mega/crosscase' )
+  autoload( 'EnumerableArgs', 'mega/enumerable_args' )
+  autoload( 'EnumeratedType', 'mega/enumerated_type' )
+  autoload( 'FileList', 'mega/expirable' )
+  autoload( 'FloatString', 'mega/floatstring' )
+  autoload( 'Functor', 'mega/functor' )
+  autoload( 'HArray', 'mega/floatstring' )
+  autoload( 'Heap', 'mega/heap' )
+  autoload( 'Infinity', 'mega/infinity' )
+  autoload( 'Interval', 'mega/interval' )
+  autoload( 'IOReactor', 'mega/ioreactor' )
+  autoload( 'IORedirect', 'mega/ioredirect' )
+  autoload( 'LRUCache', 'mega/lru_cache' )
+  autoload( 'MethodProbe', 'mega/methodprobe' )
+  autoload( 'Multiton', 'mega/multiton' )
+  autoload( 'Nack', 'mega/nack' )
+  autoload( 'NilComparable', 'mega/nilcomparable' )
+  autoload( 'NotCopyable', 'mega/notcopyable' )
+  autoload( 'OpenStructable', 'mega/ostructable' )
+  autoload( 'OrderedHash', 'mega/ohash' )
+  autoload( 'PhysicalConstant', 'mega/physical_const' )
+  autoload( 'Pool', 'mega/pool' )
+  autoload( 'PromoteSelf', 'mega/promoteself' )
+  autoload( 'Reference', 'mega/reference' )
+  autoload( 'Semaphore', 'mega/semaphore' )
+  autoload( 'StackParser', 'mega/stackparser' )
+  autoload( 'StaticHash', 'mega/statichash' )
+  autoload( 'SuperStruct', 'mega/superstruct' )
+  autoload( 'SyncHash', 'mega/synchash' )
+  autoload( 'SyncArray', 'mega/syncarray' )
+  autoload( 'SyncHash', 'mega/synchash' )
+  autoload( 'TagIterator', 'mega/tagiter' )
+  autoload( 'Timer', 'mega/timer' )
+  autoload( 'TracePoint', 'mega/tracepoint' )
+  autoload( 'Tuple', 'mega/tuple' )
+  autoload( 'Uninheritable', 'mega/uninheritable' )
+  autoload( 'Version', 'mega/version' )
+end

data/lib/mega/1.rb

@@ -0,0 +1,44 @@
+# 1.rb one-liners helper lib.
+
+K=Kernel
+O=Object
+C=Class
+
+module Kernel
+  alias pi p
+  alias p print
+  alias ps puts
+  alias s sleep
+  alias l loop
+end
+
+module Enumerable
+  alias m map
+end
+
+class Array
+  alias e each
+  alias r reverse
+end
+
+class String
+  alias e each
+  alias r reverse
+end
+
+class Integer
+  alias t times
+end
+
+
+module FamousOneLiners
+  extend self
+
+  # normal
+  #s="\e[2J\e[0;0H         _\nQuack! >(*)____,\n        (` =~~/\n^v^v^v^v^`---'v^v^v^v^\n";i=0;loop{s[21,6]=i&1>0?'Quack!':' '*6;s.tr!(t='*.>v^<,"',t.reverse);$><<s;i+=sleep 1}
+
+  def duck
+    s="\e[2J\e[0;0H         _\nQuack! >(*)____,\n        (` =~~/\n^v^v^v^v^`---'v^v^v^v^\n";i=0;l{s[21,6]=i&1>0?'Quack!':' '*6;s.tr!(t='*.>v^<,"',t.r);$><<s;i+=s 1}
+  end
+
+end

data/lib/mega/ansicolor.rb

@@ -0,0 +1,161 @@
+#--
+# ANSIColor
+#
+# Copyright (c) 2002-2005 Florian Frank
+#
+# GNU Lesser General Public License
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU Lesser General Public License version 2 or later.
+#
+#
+# ==========================================================================
+# Revision History ::
+# --------------------------------------------------------------------------
+#  2005.04.28  Trans  * Minor modifications to documentation.
+#
+#  2004-11-30  Trans  * Ported to Facets collection (transami)
+#
+#  2004-09-28  FF     * First release on Rubyforge
+#                     * Supports Rubygems now
+#
+#  2003-10-09  FF     * Added uncolored method as suggested by
+#                       Thomas Husterer <Thomas.Husterer@heidelberg.com>
+#                     * Added attribute methods with string arguments
+#                     * Deleted now unused files
+#
+#  2002-07-27  FF     * Minor Code Cleanup
+#                     * Added cdiff.rb
+#
+#  2002-06-12  FF     * Initial Release
+# ==========================================================================
+#++
+
+#:title: ANSIColor
+#
+# Module which makes it very easy to use ANSI codes.
+# These are esspecially nice for beautifying shell output.
+#
+# == Synopsis
+#
+#   require 'mega/ansicolor'
+#
+#   include ANSIColor
+#
+#   p red, "Hello", blue, "World"   
+#   => "\e[31mHello\e[34mWorld"
+#
+#   p red { "Hello" } + blue { "World" }
+#   => "\e[31mHello\e[0m\e[34mWorld\e[0m"
+#
+# == Supported ANSI Commands
+#
+#     clear
+#     reset           # synonym for :clear
+#     bold
+#     dark
+#     italic          # not widely implemented
+#     underline
+#     underscore      # synonym for :underline
+#     blink
+#     rapid_blink     # not widely implemented
+#     negative        # no reverse because of String#reverse
+#     concealed
+#     strikethrough   # not widely implemented
+#     black
+#     red
+#     green
+#     yellow
+#     blue
+#     magenta
+#     cyan
+#     white
+#     on_black
+#     on_red
+#     on_green
+#     on_yellow
+#     on_blue
+#     on_magenta
+#     on_cyan
+#     on_white
+#
+# == Author(s)
+#
+# * Florian Frank <flori#ping.de>
+#
+
+module ANSIColor
+
+  @@attributes = [
+    [ :clear        ,   0 ], 
+    [ :reset        ,   0 ],     # synonym for :clear
+    [ :bold         ,   1 ], 
+    [ :dark         ,   2 ], 
+    [ :italic       ,   3 ],     # not widely implemented
+    [ :underline    ,   4 ], 
+    [ :underscore   ,   4 ],     # synonym for :underline
+    [ :blink        ,   5 ], 
+    [ :rapid_blink  ,   6 ],     # not widely implemented
+    [ :negative     ,   7 ],     # no reverse because of String#reverse
+    [ :concealed    ,   8 ], 
+    [ :strikethrough,   9 ],     # not widely implemented
+    [ :black        ,  30 ], 
+    [ :red          ,  31 ], 
+    [ :green        ,  32 ], 
+    [ :yellow       ,  33 ], 
+    [ :blue         ,  34 ], 
+    [ :magenta      ,  35 ], 
+    [ :cyan         ,  36 ], 
+    [ :white        ,  37 ], 
+    [ :on_black     ,  40 ], 
+    [ :on_red       ,  41 ], 
+    [ :on_green     ,  42 ], 
+    [ :on_yellow    ,  43 ], 
+    [ :on_blue      ,  44 ], 
+    [ :on_magenta   ,  45 ], 
+    [ :on_cyan      ,  46 ], 
+    [ :on_white     ,  47 ], 
+  ]
+
+  @@attributes.each do |c, v|
+    eval %Q{
+        def #{c.to_s}(string = nil)
+            result = "\e[#{v}m"
+            if block_given?
+                result << yield
+                result << "\e[0m"
+            elsif string
+                result << string
+                result << "\e[0m"
+            elsif respond_to?(:to_str)
+                result << self
+                result << "\e[0m"
+            end
+            return result
+        end
+    }
+  end
+
+  ColoredRegexp = /\e\[([34][0-7]|[0-9])m/
+
+  def uncolored(string = nil)
+    if block_given?
+      yield.gsub(ColoredRegexp, '')
+    elsif string
+      string.gsub(ColoredRegexp, '')
+    elsif respond_to?(:to_str)
+      gsub(ColoredRegexp, '')
+    else
+      ''
+    end
+  end
+
+  module_function
+
+  def attributes
+    @@attributes.map { |c| c[0] }
+  end
+
+end #module ANSIColor
+

data/lib/mega/bbcode.rb

@@ -0,0 +1,359 @@
+#--
+# BBCode
+#
+# Copyright (c) 2002 Thomas-Ivo Heinen
+#
+# 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.
+#
+#
+# ==========================================================================
+# Revision History ::
+# --------------------------------------------------------------------------
+#  2002-07-16  TH    Bugfix BBCODE=>ANSI, bbcode_to_html, ansi_to_html,
+#                    html_to_bbcode, html_to_ansi
+#
+#  2002-11-11  TH    Comment fixes, more case insensitive matching,
+#                    convert deprecated HTML styles (<b>, <i>), more
+#                    space-tolerant matching, img-tags in html_to_bbcode
+#                    works now, some error-preventing stripping and
+#                    downcasing.
+# ==========================================================================
+#++
+
+#:title: BBCode
+#
+# This module helps easening the separation of core and frontend with the
+# core (or submodules) being still able to say, what colors shall be used
+# in it's responses. This is achieved by encoding formatting information
+# using the BBCode tokens. This enables you to "pipe" layout information
+# such as colors, style, fonttype, size and alignment through the core to
+# the frontend.
+#
+# Additionally it converts markups/codes between ANSI, HTML and BBCode
+# almost freely ;)
+#
+# == Usage
+#
+#   # Converting a bbcode string to ANSI and XHTML
+#
+#   require 'mega/bbcode'
+#
+#   str = "this is [COLOR=red]red[/COLOR], this is [B]bold[/B]"
+#   print( BBCode.bbcode_to_ansi(str) )
+#   print( BBCode.bbcode_to_html(str) )
+#
+# == Author(s)
+#
+# * Thomas-Ivo Heinen
+#
+
+module BBCode
+
+  ## ANSIname => ANSIcode LUT
+  ANSINAME2CODE= { "reset"     => "\e[0m",    "bold"       => "\e[1m",
+                    "underline" => "\e[4m",    "blink"      => "\e[5m",
+                    "reverse"   => "\e[7m",    "invisible"  => "\e[8m",
+                    "black"     => "\e[0;30m", "darkgrey"   => "\e[1;30m",
+                    "red"       => "\e[0;31m", "lightred"   => "\e[1;31m",
+                    "green"     => "\e[0;32m", "lightgreen" => "\e[1;32m",
+                    "brown"     => "\e[0;33m", "yellow"     => "\e[1;33m",
+                    "blue"      => "\e[0;34m", "lightblue"  => "\e[1;34m",
+                    "purple"    => "\e[0;35m", "magenta"    => "\e[1;35m",
+                    "cyan"      => "\e[1;36m", "lightcyan"  => "\e[1;36m",
+                    "grey"      => "\e[0;37m", "white"      => "\e[1;37m",
+                    "bgblack"   => "\e[40m",   "bgred"      => "\e[41m",
+                    "bggreen"   => "\e[42m",   "bgyellow"   => "\e[43m",
+                    "bgblue"    => "\e[44m",   "bgmagenta"  => "\e[45m",
+                    "bgcyan"    => "\e[46m",   "bgwhite"    => "\e[47m"
+                  }
+
+  ## BBColor => ANSIname LUT
+  BBCOLOR2ANSI  = { "skyblue"   => "blue",     "royalblue" => "blue",
+                    "blue"      => "blue",     "darkblue"  => "blue",
+                    "orange"    => "red",      "orangered" => "red",
+                    "crimson"   => "red",      "red"       => "lightred",
+                    "firebrick" => "red",      "darkred"   => "red",
+                    "green"     => "green",    "limegreen" => "green",
+                    "seagreen"  => "green",    "darkgreen" => "green",
+                    "deeppink"  => "magenta",  "tomato"    => "red",
+                    "coral"     => "cyan",     "purple"    => "purple", 
+                    "indigo"    => "blue",     "burlywood" => "red",
+                    "sandybrown"=> "red",      "sierra"    => "sierra",
+                    "chocolate" => "brown",    "teal"      => "teal",
+                    "silver"    => "white",     
+                    "black"     => "black",    "yellow"    => "yellow",
+                    "magenta"   => "magenta",  "cyan"      => "cyan",
+                    "white"     => "white" 
+                  }
+
+  ## ANSInames => BBCode LUT
+  ANSINAME2BBCODE = { "bold" => "B", "underline" => "U", "reverse" => "I",
+
+                      "red"    => "COLOR=red",      "blue"   => "COLOR=blue",
+                      "green"  => "COLOR=green",    "cyan"   => "COLOR=cyan",
+                      "magenta"=> "COLOR=deeppink", "purple" => "COLOR=purple",
+                      "black"  => "COLOR=black",    "white"  => "COLOR=white",
+                      "yellow" => "COLOR=yellow",   "brown"  => "COLOR=chocolate"
+                    }
+
+  ## Needed for alignments
+  @@width = 80
+
+
+  # ---------------------------
+
+  # Returns the ANSI sequence for given color, if existant
+  def BBCode.ansi(colorname)
+      colorname.strip!
+      return ANSINAME2CODE[ colorname.downcase ]
+  end
+
+  # --- strip_bbcode( string )
+  # Will strip any BBCode tags from the given string.
+  def BBCode.strip_bbcode(string)
+      string.strip!
+      return string.gsub(/\[[A-Za-z0-9\/=]+\]/, "") 
+  end
+
+  # Returns the string with all ansi escape sequences converted to BBCodes
+  def BBCode.ansi_to_bbcode(string)
+      return "" if string.nil? || string.to_s.strip.empty?
+      result = ""
+      tagstack = []
+
+      ## Iterate over input lines
+      string.split("\n").each do |line|
+          ansi = line.scan(/\e\[[0-9;]+m/)
+          continue if ansi.nil? || ansi.empty?
+
+          ## Iterate over found ansi sequences
+          ansi.each do |seq|  
+              ansiname = ANSINAME2CODE.invert["#{seq}"]
+
+              ## Pop last tag and form closing tag
+              if ansiname == "reset"
+                  lasttag = tagstack.pop
+                  bbname = "/" + String.new( lasttag.split("=")[0] )
+
+              ## Get corresponding BBCode tag + Push to stack
+              else
+                  bbname   = ANSINAME2BBCODE[ansiname]
+                  tagstack.push(bbname) 
+              end
+
+              ## Replace ansi sequence by BBCode tag
+              replace = sprintf("[%s]", bbname)
+              line.sub!("#{Regexp.quote(seq)}", replace)
+          end
+
+          ## Append converted line
+          result << sprintf("%s\n", line)
+      end
+
+
+      ## Some tags are unclosed
+      while !tagstack.empty?
+          result << sprintf("[/%s]", String.new(tagstack.pop.split("=")[0])  )
+      end
+
+      return result
+  end
+
+  # Converts a BBCode string to one with ANSI sequences.
+  # Returns the string with all formatting instructions in BBCodes converted
+  # to ANSI code sequences / aligned with spaces to specified width.
+  def BBCode.bbcode_to_ansi(string, usecolors = true)
+      return "" if string.nil? || string.to_s.strip.empty?
+      result = ""
+
+      return BBCode.strip_bbcode(string) if !usecolors
+
+      ## Iterate over lines
+      string.split("\n").each do |line|
+
+          ## TODO: stacking? other styles!
+          ANSINAME2BBCODE.each do |key,val|
+              line.gsub!(/\[#{val}\]/, ANSINAME2CODE[key])
+              line.gsub!(/\[\/#{val}\]/, ANSINAME2CODE["reset"])
+          end
+
+          ## Fonttypes and sizes not available
+          line.gsub!(/\[SIZE=\d\]/, "")
+          line.gsub!(/\[\/SIZE\]/, "")
+          line.gsub!(/\[FONT=[^\]]*\]/, "")
+          line.gsub!(/\[\/FONT\]/, "")
+
+          ## Color-mapping
+          colors = line.scan(/\[COLOR=(.*?)\]/i)
+          colors = colors.collect{|s|  s[0].to_s} if !colors.nil?
+          colors.each do |col|  
+              name = BBCOLOR2ANSI[col.downcase]
+              name = BBCOLOR2ANSI["white"] if name.nil?
+              code = ANSINAME2CODE[name]
+
+              line.gsub!(/\[COLOR=#{col}\]/i, code)
+          end
+          line.gsub!(/\[\/COLOR\]/, ANSINAME2CODE["reset"])
+
+          ## TODO: Alignment
+          ## TODO: IMGs
+          ## TODO: EMAILs
+          ## TODO: URLs
+          ## TODO: QUOTEs
+          ## TODO: LISTs
+
+          result << sprintf("%s\n", line)
+      end
+
+      return result
+  end
+
+  
+  # Converts a HTML string into one with BBCode markup (TODO)
+  # Returns the (X)HTML markup string as BBCode
+  def BBCode.html_to_bbcode(string)
+      return "" if string.nil? || string.to_s.strip.empty?
+      result = ""
+
+      ## Iterate over lines
+      string.split(/<br *\/?>/i).each do |line|
+          styles = { "strong" => "b", "b" => "b",
+                      "em"     => "i", "i" => "i",
+                      "u"      => "u" }
+
+          ## preserve B, I, U
+          styles.each do |html,code|
+              line.gsub!(/<#{html}>/i, "[#{code.upcase}]")
+              line.gsub!(/<\/#{html}>/i, "[/#{code.upcase}]")
+          end
+          
+          ## TODO: COLORs
+          ## TODO: SIZEs
+          ## TODO: FONTs
+
+          ## EMAIL
+          line.gsub!(/<a +href *= *\"mailto:(.*?)\".*?>.*?<\/a>/i, "[EMAIL]\\1[/EMAIL]")
+          
+          ## URL
+          line.gsub!(/<a +href *= *\"((?:https?|ftp):\/\/.*?)\".*?>(.*?)<\/a>/i, "[URL=\\1]\\2[/URL]")
+          
+          ## Other refs + closing tags => throw away
+          line.gsub!(/<a +href *= *\".*?\".*?>/i, "")
+          line.gsub!(/<\/a>/i,            "")
+
+          ## IMG
+          line.gsub!(/<img +src *= *\"(.*?)\".*?\/?>/i, "[IMG=\\1]")
+
+          ## CENTER (right/left??)
+          line.gsub!(/<center>/i,   "[ALIGN=center]")
+          line.gsub!(/<\/center>/i, "[/ALIGN]")
+
+          ## QUOTE
+          line.gsub!(/<(?:xmp|pre)>/i,   "[QUOTE]")
+          line.gsub!(/<\/(?:xmp|pre)>/i, "[/QUOTE]")
+
+          ## LIST
+          line.gsub!(/<ul>/i,      "\n[LIST]\n")
+          line.gsub!(/<\/ul>/i,    "\n[/LIST]\n")
+          line.gsub!(/<li *\/?> */i, "\n[*] ")
+
+          ## Unkown tags => throw away
+          line.gsub!(/<.*? *\/?>/, "")
+
+          result << sprintf("%s<br />\n", line)
+      end
+
+      return result.gsub!(/<br *\/?>/i, "\n")
+  end
+
+  # Converts a BBCode string to one with HTML markup.
+  # Returns the string with all formatting instructions in 
+  # BBCodes converted to XHTML markups.
+  def BBCode.bbcode_to_html(string)
+      return "" if string.nil? || string.to_s.strip.empty?
+      result = ""
+      quote = 0
+
+      ## Iterate over lines
+      string.split("\n").each do |line|
+          styles = { "b" => "strong", "i" => "em", "u" => "u" }
+
+          ## preserve B, I, U
+          styles.each do |code,html|
+              line.gsub!(/\[#{code}\]/i, "<#{html}>")
+              line.gsub!(/\[\/#{code}\]/i, "</#{html}>")
+          end
+          
+          ## COLOR => font color=... (TODO: should be numeric!)
+          line.gsub!(/\[COLOR=(.*?)\]/i, "<font color=\"\\1\">")
+          line.gsub!(/\[\/COLOR\]/i,     "</font>")
+
+          ## SIZE => font size=...
+          line.gsub!(/\[SIZE=(.*?)\]/i, "<font size=\"\\1\">")
+          line.gsub!(/\[\/SIZE\]/i,     "</font>")
+
+          ## URL   
+          line.gsub!(/\[URL\]([^\[]+?)\[\/URL\]/i, "<a href=\"\\1\">\\1</a>")
+          line.gsub!(/\[URL=(.*?)\](.+?)\[\/URL\]/i, "<a href=\"\\1\">\\2</a>")
+
+          ## IMG
+          line.gsub!(/\[IMG=(.*?)\]/i, "<img src=\"\\1\" />")
+
+          ## ALIGN=center (TODO: right, left)
+          line.gsub!(/\[ALIGN=center\]/i, "<center>")
+          line.gsub!(/\[ALIGN=right\]/i,  "<center>")
+          line.gsub!(/\[ALIGN=left\]/i,   "<center>")
+          line.gsub!(/\[\/ALIGN\]/i,      "</center>")
+
+          ## QUOTE
+          quote+=1 if line =~ /\[QUOTE\]/i
+          quote-=1 if (line =~ /\[\/QUOTE\]/i) && (quote > -1)
+          line.gsub!(/\[QUOTE\]/i,   "<pre>\n")
+          line.gsub!(/\[\/QUOTE\]/i, "</pre>\n")
+          line.gsub!(/^/, "&#62;"*quote) if quote > 0
+
+          ## EMAIL
+          line.gsub!(/\[EMAIL\](.*?)\[\/EMAIL\]/i, "<a href=\"mailto:\\1\">\\1</a>")
+
+          ## LIST (TODO: LIST=1, LIST=A)
+          line.gsub!(/\[LIST(?:=(.*?))?\]/i, "\n<ul>\n")
+          line.gsub!(/\[\/LIST\]/i,          "\n</ul>\n")
+          line.gsub!(/\[\*\]/i,              "\n<li />")
+
+          ## FONT => font ??????
+          ## ?BLUR?, FADE?
+
+          result << sprintf("%s<br />\n", line)
+      end
+
+      return result
+  end
+
+
+  # -- Transitive methods ---------------
+
+  # Converts a ANSI string to one with HTML markup.
+  # Returns the string with ANSI code sequences converted to XHTML markup.
+  def BBCode.ansi_to_html(string)
+      bbcoded = BBCode.ansi_to_bbcode(string )
+      htmled  = BBCode.bbcode_to_html(bbcoded)
+
+      return htmled
+  end
+
+  # Returns the (X)HTML markup code as ANSI sequences
+  def BBCode.html_to_ansi(string)
+      bbcoded = BBCode.html_to_bbcode(string )
+      ansied  = BBCode.bbcode_to_ansi(bbcoded)
+
+      return ansied
+  end
+
+end #module BBCode