rcl 0.0.2 → 0.0.5

data/README

@@ -1,5 +1,5 @@
 == What
-Ramsey's Common Library version 0.0.3
+Ramsey's Common Library version 0.0.5
 
 This is simply a collection of Ruby modules that perform useful tasks. There
 are methods that do simple things like check permissions on files and
@@ -34,6 +34,8 @@ Shell#unregister
 Shell#run
 Shell#history
 
+SMTP#send
+
 Timestamp#new
 Timestamp#create
 Timestamp#modify
@@ -72,7 +74,7 @@ I added a Rakefile and a gem spec. To build the gem, just type:
 
 To install the gem, just type:
 
-  sudo gem install rcl-0.0.3.gem
+  sudo gem install rcl-0.0.5.gem
 
 == Notes
 I haven't tested this code with YARV, so YMMV.

data/lib/rcl.rb

@@ -5,7 +5,7 @@
 
 module RCL
   RCL::NAME = 'rcl'
-  RCL::VERSION = '0.0.2'
+  RCL::VERSION = '0.0.5'
   RCL::COPYRIGHT = 'Copyright (c) 2008 Ramsey Dow'
   def self.copyright() RCL::COPYRIGHT end
   def self.version() RCL::VERSION end
@@ -21,8 +21,10 @@ require 'yaml_helper'
 $LOAD_PATH.unshift(File.dirname(__FILE__)+'/rcl')
 
 require 'base'
+require 'http'
 require 'perms'
 require 'shell'
+require 'smtp'
 require 'timestamp'
 require 'token'
 require 'url'

data/lib/rcl/ext/ansicolour.rb

@@ -0,0 +1,126 @@
+=begin
+
+= Name
+  Term::ANSIColour v0.01 (unstable)
+
+= Synopsis
+   require 'term/ansicolour'
+
+   print "Some ordinary text\n"
+   Term::ANSIColour.colour = ('red')
+   print "some red text..\n"
+   print "some more red text..\n"
+   Term::ANSIColour.colour = ('green')
+   print "some green text..\n"
+   Term::ANSIColour.colour = ('default')
+   puts "some ordinary text.."
+   puts "some magenta text".colour("magenta")
+   puts "some funky text".colour("cyan", "bold", "on_white", "blink")
+   puts "more ordinary text"
+
+= Description
+  prints out text in funny colours
+
+= Class Methods
+  --- Term::ANSIColour.colour
+      Gets and sets the default output text colour (none by default)
+
+= Overridden Methods
+  --- print
+      output text in the colour specified by Term::ANSIColour.colour
+  --- String.colour( colour )
+      returns a string of the colour given in the argument (overriding Term::ANSIColour.colour).
+
+= To Do
+  --- Get puts, printf, putc and write to output coloured text.
+  --- Write some proper documentation.
+  --- Make the interface a bit cleaner.
+  --- Allow people to use string modifiers, constants, or overridden output
+      methods depending on their taste.
+  --- Plug in a few enhancements such as regexp colouring, syntax highlighting
+      and the like.
+  --- Alias @@colour to @color
+  --- Learn how to code ruby before I break something.
+
+= Credits
+  First version by Robert Ryan (rjr@rollmop.org) borrowing extensively from
+  the perl version by Russ Allbery and Zenin. Additional input by Mark Hulme-Jones.
+  
+= Copyright
+
+Copyright 2002
+
+This program is free software. You can redistribute it and/or modify
+it under the same terms as Ruby itself.
+  
+=cut
+
+=end
+
+module Term
+  module ANSIColour
+    # XXX - why don't attr_reader and attr_writer work?
+    @@colour = ['reset']
+
+    def ANSIColour.colour
+      @@colour
+    end
+
+    def ANSIColour.colour=(*string)
+      # why does this seem to work?
+      @@colour = string[0]
+
+      # why won't his work?
+      # @@colour = string
+
+      return @@colour
+    end
+
+    def ANSIColour.attributes
+      { 'default'    => '0',
+        'clear'      => '0',
+        'reset'      => '0',
+        'bold'       => '1',
+        'dark'       => '2',
+        'underline'  => '4',
+        'blink'      => '5',
+        'reverse'    => '7',
+        'concealed'  => '8',
+
+        'black'      => '30',   'on_black'   => '40',
+        'red'        => '31',   'on_red'     => '41',
+        'green'      => '32',   'on_green'   => '42',
+        'yellow'     => '33',   'on_yellow'  => '43',
+        'blue'       => '34',   'on_blue'    => '44',
+        'magenta'    => '35',   'on_magenta' => '45',
+        'cyan'       => '36',   'on_cyan'    => '46',
+        'white'      => '37',   'on_white'   => '47'
+      }
+    end
+  end
+end
+
+class String
+  def colour(newcolour, *colours)
+    attr = Term::ANSIColour.attributes
+    [newcolour, colours].flatten.map {|c| "\e\[#{attr[c]}m"}.join + self.to_s + "\e\[#{attr['reset']}m"
+  end
+
+  alias color colour
+end
+
+module Kernel
+  include Term::ANSIColour
+
+  alias_method :orig_print, :print
+  #alias_method :orig_puts, :puts # XXX - still has issues passing a list
+
+  def print(str)
+    colours = Term::ANSIColour.colour
+    attr    = Term::ANSIColour.attributes
+    orig_print ( attr[colours[0]] == 0 ? str :
+                 colours.map{|c| "\e\[#{attr[c]}m"}.join + str + "\e\[#{attr['reset']}m"
+               )
+  end
+  # XXX - todo - get puts, printf and putc to ouput in colour.
+end

data/lib/rcl/ext/dir.rb

@@ -0,0 +1,14 @@
+# dir.rb
+# ara.t.howard@noaa.gov
+
+class Dir
+  def self.ls dir, glob = File.join('**','**'), &block
+    ret = [] unless block
+    Dir.glob(File.join(dir, glob)) do |entry|
+      block ? block.call(entry) : ret.push(entry)
+    end
+    ret
+  end
+end
+
+raise RuntimeError, 'This library is for require only' if $0 == __FILE__

data/lib/rcl/ext/yaml_helper.rb

@@ -0,0 +1,97 @@
+require 'yaml'
+require 'set'
+
+class Class
+  def persist
+    @persist = [] if !@persist
+    @persist
+  end
+ 
+  def persist= p
+    @persist = p if p.kind_of?(Array)
+  end
+ 
+  def persist_with_parent
+    p = []
+    klass = self;
+    while klass
+      p.concat(klass.persist)
+      klass = klass.superclass
+    end
+    p.uniq
+  end
+end
+
+class Object
+  def self.persistent *var
+    for i in (0..var.length-1)
+      var[i] = var[i].to_s
+    end
+    self.persist.concat(var)
+    self.persist.uniq!   
+  end
+ 
+  alias_method :old_to_yaml, :to_yaml
+ 
+  def to_yaml ( opts = {} )       
+    p = self.class.persist_with_parent
+
+    if p && p.size > 0
+      yaml_emit opts do |map|
+        p.each do |m|
+          map.add( m, instance_variable_get( '@' + m ) )
+        end
+      end
+    else
+      old_to_yaml opts
+    end
+  end
+private
+  def yaml_emit opts
+    YAML::quick_emit( object_id, opts ) do |out|
+      out.map( taguri, to_yaml_style ) do |map|
+        yield map
+      end
+    end
+  end
+end
+
+module RHNH
+  module EnumerablePostDeserializeHelper
+    def post_deserialize
+      self.each do |e|
+        YAML.call_post_deserialize(e) if e
+      end
+    end
+  end
+end
+
+class Array
+  include RHNH::EnumerablePostDeserializeHelper
+end
+
+class Hash
+  include RHNH::EnumerablePostDeserializeHelper
+end
+
+module YAML
+  def YAML.call_post_deserialize obj, object_map = ::Set.new
+    if !object_map.include?(obj.object_id)
+      object_map.add(obj.object_id)
+     
+      obj.instance_variables.each do |v|
+        call_post_deserialize obj.instance_variable_get(v), object_map
+      end
+
+      obj.post_deserialize if obj.respond_to?('post_deserialize')
+    end
+  end
+ 
+  def YAML.load( io )
+    yp = parser.load( io )
+    call_post_deserialize yp
+    yp
+  end
+end
+
+raise RuntimeError, 'This library is for require only' if $0 == __FILE__

data/lib/rcl/http.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+
+# http.rb
+# yesmar@speakeasy.net
+
+require 'net/http'
+
+module RCL
+  module HTTP
+    def self.fetch_uri(uri, max_redirects=10)
+      raise ArgumentError, 'nil uri' if uri.nil?
+      raise ArgumentError, 'invalid uri class' if uri.class != String
+      raise ArgumentError, 'empty uri' if uri.empty?
+      raise ArgumentError, 'nil max_redirects' if max_redirects.nil?
+      raise ArgumentError, 'max_redirects too deep' if max_redirects == 0
+
+      url = URI.parse(uri)
+      count = -1
+      found = false
+
+      until found
+        host, port = url.host, url.port if url.host && url.port
+        req = Net::HTTP::Get.new(url.path)
+        res = Net::HTTP.start(host, port) { |http| http.request(req) }
+        res.header['location'] \
+          ? url = URI.parse(res.header['location']) : found = true
+        count += 1
+        raise 'too many redirects' if count >= max_redirects
+      end
+
+      return res, count
+    end
+
+    def self.status_message(res, count=0)
+      raise ArgumentError, 'nil res' if res.nil?
+
+      status = []
+
+      status << "HTTP/#{res.http_version} #{res.code} #{res.message}"
+      status << " [#{count} redirec#{count!= 1 ? "ts" : "t"}]" if count > 0
+
+      status.join
+    end
+  end
+end

data/lib/rcl/smtp.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+
+# smtp.rb
+# yesmar@speakeasy.net
+
+module RCL
+  module SMTP
+    def self.send(mta, from, from_alias, to, to_alias, subject, message)
+      raise ArgumentError, 'nil mta' if mta.nil?
+      raise ArgumentError, 'invalid mta class' if mta.class != String
+      raise ArgumentError, 'empty mta' if mta.empty?
+      raise ArgumentError, 'nil from' if from.nil?
+      raise ArgumentError, 'invalid from class' if from.class != String
+      raise ArgumentError, 'empty from' if from.empty?
+      raise ArgumentError, 'nil from_alias' if from_alias.nil?
+      raise ArgumentError, 'invalid from_alias class' if from_alias.class \
+        != String
+      raise ArgumentError, 'empty from' if from_alias.empty?
+      raise ArgumentError, 'nil to' if to.nil?
+      raise ArgumentError, 'invalid to class' if to.class != String
+      raise ArgumentError, 'empty from' if to.empty?
+      raise ArgumentError, 'nil to_alias' if to_alias.nil?
+      raise ArgumentError, 'invalid to_alias class' if to_alias.class != \
+        String
+      raise ArgumentError, 'empty from' if to_alias.empty?
+      raise ArgumentError, 'nil subject' if subject.nil?
+      raise ArgumentError, 'invalid subject class' if subject.class != String
+      raise ArgumentError, 'nil message' if message.nil?
+      raise ArgumentError, 'invalid message class' if message.class != String
+
+      msg = <<EOM
+From: #{from} <#{from_alias}>
+To: #{to_alias} <#{to}>
+Subject: #{subject}
+
+#{message}
+EOM
+
+      Net::SMTP.start(mta) do |smtp|
+        smtp.send_message(msg, from, to)
+      end
+    end
+  end
+end

data/lib/rcl/timestamp.rb

@@ -87,6 +87,41 @@ module RCL
     return str.join
     
   end
+
+  def self.datestamp(ts)
+    raise ArgumentError, 'nil ts' if ts.nil?
+    raise ArgumentError, 'invalid ts class' if ts.class != Time
+
+    str = []
+
+    str << ts.year
+    str << '0' if ts.month < 10
+    str << ts.month
+    str << '0' if ts.day < 10
+    str << ts.day
+
+    str.join
+  end
+
+  def self.timestamp(ts)
+    raise ArgumentError, 'nil ts' if ts.nil?
+    raise ArgumentError, 'invalid ts class' if ts.class != Time
+
+    str = []
+
+    str << '0' if ts.hour < 10
+    str << ts.hour
+    str << '0' if ts.min < 10
+    str << ts.min
+    str << '0' if ts.sec < 10
+    str << ts.sec
+
+    str.join
+  end
+
+  def self.datetimestamp(ts)
+    "#{datestamp(ts)}T#{timestamp(ts)}"
+  end
 end
 
 raise RuntimeError, 'This library is for require only' if $0 == __FILE__

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: rcl
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
+  version: 0.0.5
 platform: ruby
 authors: 
 - Ramsey Dow
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-02-27 00:00:00 -08:00
+date: 2008-02-28 00:00:00 -08:00
 default_executable: 
 dependencies: []
 
@@ -24,12 +24,17 @@ extra_rdoc_files:
 files: 
 - lib/rcl.rb
 - lib/rcl/base.rb
+- lib/rcl/http.rb
 - lib/rcl/perms.rb
 - lib/rcl/shell.rb
+- lib/rcl/smtp.rb
 - lib/rcl/timestamp.rb
 - lib/rcl/token.rb
 - lib/rcl/url.rb
 - lib/rcl/xml.rb
+- lib/rcl/ext/ansicolour.rb
+- lib/rcl/ext/dir.rb
+- lib/rcl/ext/yaml_helper.rb
 - README
 has_rdoc: true
 homepage: http://rcl.rubyforge.org/