radiant 0.5.2 → 0.6.0

data/vendor/bluecloth/tests/data/antsugar.txt

@@ -0,0 +1,34 @@
+The Ant-Sugar Tales
+===================
+
+By Candice Yellowflower  
+
+The _Ant-Sugar Tales_ is a collection of short stories told from the
+perspective of a fine young lady from [Venice][1], who has some run-ins
+with a few [inquisitive insects][2]. Each tale presents a moral quandry,
+which the ants are quick to solve with their antly wisdom and
+know-how. Some of the moral lessons presented are:
+
+* Laundry: How not to get caught in soiled knickers.
+* Used Ticket Stubs and Their Impact on the Universe
+* I'm Keeping a Birdhouse in my Attic
+
+Use of Metaphor
+---------------
+
+The author's splended use of metaphor can be attributed to her growing
+up in a art-supply store. Her characters are richly outlined, but her
+unusual descriptions can sometimes be a bit jarring in places, such as
+her description of the old caretaker that lives inside a hollow tree in
+her yard:
+
+> His skin was smooth like Magnani Pescia 100% acid-free cold pressed
+> 22x30" Soft White Paper, with fine hair like the bristles of a Habico
+> Lasur Superb Oil Glazing Brush Size 10.
+
+
+  [1]: http://www.azureva.com/gb/italie/mags/grand-canal.php3
+  	   (Venice: The Grand Canal)
+  [2]: http://www.fortunecity.com/emachines/e11/86/tourist4d.html
+
+

data/vendor/bluecloth/tests/data/ml-announce.txt

@@ -0,0 +1,17 @@
+Hi,
+
+I'd like to announce the alpha release of a Markdown library for [Ruby][1]
+called "BlueCloth". It's mostly a direct port of the most recent Perl version,
+minus the various plugin hooks and whatnot.
+
+More information can be found on [the project page][2], or feel free to ask me
+directly. I don't have much in the way of a demo yet, but will be working on
+getting something set up in the coming days.
+
+  [1]: http://www.ruby-lang.org/
+  [2]: http://bluecloth.rubyforge.org/
+
+--
+Michael Granger <ged@FaerieMUD.org>  
+Rubymage, Believer, Architect  
+The FaerieMUD Consortium <http://www.FaerieMUD.org/>  

data/vendor/bluecloth/tests/data/re-overflow.txt

@@ -0,0 +1,67 @@
+*  xx xxxxxxx xx xxxxxx.
+
+*  xxx xxxxxxx xxxx xx xxxxxxxxxxx xx:
+
+  *  xxxxxxx xxxxxxx: xxxxx xxxx xxxx xxxxxxx xxxxxxx xxxxxxxx xxxxxx xx
+     xxxxxxx xxx xxxxxxxxx, xxx x xxxxx xxxxx xxx xxxxxxxx xx xxx xxxxxx xxxx
+     xxx xx xxxxxxxxx xx xxxx.
+
+     xxxxx xxxxxxx xx xxx xxxx xx xx xxxxxxxxx, xxx xxxx xxxxxx xx xxxxxxx xxxx
+     xxx xxxxxxx'x xxxxxx xxx. xx xxxxxxxx xxxxxxxxxxxxx xxxxxxxx.
+
+  *  xxxxxxxxx xxxxxxx: xxxxx xxxx xxx xxxxx xx xxxxx xxx xxxxxxxx xxxxxxxxx
+     xx xxx xxxxxxxx, xxx xxxxx xxxxx xxxx xxxx xxxxx xxxxxxxxxxxx xx xxx
+     xxxxxxxxxxx xxxx xxx xx xxxxxxxxx xx xxxx.
+
+     xxxxx xxxxxxx xxx xx xxxxxxxxx xxxxxx xxx-xxxx xxxxx (xx xx xxxxxxxxxx)
+     xx, xx xxxxxxxxx xxxxxxxx xxxxxxx xx xxxxxxxx xx xxxxxx xxx xxxxxxx
+     xxxxxxx xx xxx xxxxxxx, xxxxxx xxx xxxx xxx.
+
+     xxxxx xxxxxxxxxx xxx xxxx xxxx xx xxxxxxxxx xxx xx xxxxx xxx xxxxx xxxxx
+     xxx xxxx xxx xxxx xxxxxxxxx. xxxxxxxx xxxxxxxxxxxxx xxx xxxx-xxxxxxxxx,
+     xxxx xx xxxxxx xxx xxxx.
+
+  *  xxxxx xxxxxxx: xxxxx xxxx xxxxxx xxxx xxxxxxx xx xxxxxxx x xxxxxxxxxxx
+     xxxxxx, xxxxxxx xx xxxxxxx xxxxxxxxxxxx. xxxxx xxxxxxx xxxx xx xxxxxxxxx
+     xxxxxx xxx-xxxx xxxxx.
+
+     xxxxxx xxxxxxxxx xxx x xxxx xxxxxxxxx, xxxx xx x-xxxx.
+
+*  xxxx xxx x xxxxxx xxxxxxx xxxx: xxxxx xxxxxxx xxxx xx xxxxxxxx, xxx xxxxxxx
+   xxx xxx xxxxxx, xxx xxxxx, xxx xxxxxxxxx xxx xxxxxxx xxxx xxx xxxxxxx
+   xxxxxxxx xxxx, xxx xxxx-xxx xxxx, xxx xxxxxxxx xx xxx xxxx, xxx xxx xxxxxxxx
+   xx xxx xxxxxxxxx xxxx-xxx.
+
+*  xxx xxxxxxxxxxxx xxxxxxxxxxx (x.x.x. xxx xxxxxxxx xx xxxxxxx xxxxxxxx, xx
+   xxxxxxxx xxxxxx, xxx.), xxx xxxxxxx xxxxxxxxxxx xx x xxxxxx xxxxxxx xxxx
+   xxxx xx xxxxxxxxx: x xxxx-xxxxxx xx xxxx-xxxxx xxxxxxxx xx xxx xxxxxxxxxx.
+
+*  xxx xxx xxxx xxxxxxx xxx, xx xxxxx xxxxxx xx xxxx xx xxx xxxxxxx'x xxxxxx
+   xxx. xxxxxxxx xxxxxxx xxxxxx xx xxxx xxx xxxxxxx xxxxxxx.
+   
+   x xxxxxx xxx xxx xxxxxxx xxxx xx xxxx xx xxxxxxxx. xxxxx xxxxxxxxxxxxx
+   xxxxxx xx x xxxxxx xxxx xx xxxxxxx xxxx xxxx xxxxxx'x xxxxxx xxx xxx xxxx
+   xxxxxxx xxx xxxxxxxxx xxxxxxxxxxx:
+
+  *  xxxxxxxxx xx xxxxxx xxxxxxx xxxxxx xxxx xxxxxx (xx xxxxx xxxxxx xx xx
+     xxxxxxxxxx).
+
+  *  xxxxxxxxxxx xx xxxx xxxxxxx xxx.
+
+  *  xxxx xx xxxxx xxxxxxx xx xxx xxxxxx.
+
+  *  xxxx xxx xxxx xx xxxxxx xx xxxx-xx-xx xx:xx xxx (xx xxx) xxxxxx.
+
+  *  xxxx xxx xxxxxxxx xx xxxxxxxxxxx xx xxxxxx.
+
+* xxxxxx xx xxxxxxx xxxx xx xxxxxxxx xxxxxxx xxx xxxx xxxx xx xxxxxx
+  xxxxx-xxxxxxxxxxxx xxxxxx xxxxxxxxxx xxxxxxx. xxxxxxxx xxxxxxx xxx xx
+  xxxxxxxx xx xxxxxxxxxxx xx xxxx xxxx.
+
+* xx x xxxxx xxxx:
+
+  * xxxx xxxxxxx xxxxxx xxxx x xxxxx-xxx xxx xxxxxx xxxxxxx, xxxxxxxx xxxxxxx,
+    xxx xxxxxxxx xxxxx xxxxxxx xxxx xxxxxxxx xxxxxxx, xx xxx xxx. xxxxxxx,
+    xxxx xxxxxx xxx xxxx xx xxx xxxxxxx xx xxx xxxxxx xx xxx xxxxxxx xxxxxx
+    -- xxxxx xxx, xx xxxxx xxxxxx xxxxx xx xxxxx xxx xxxx xxxxxxxx -- xxx xxxx
+    xxxxx xxx xxx xxxxxxxx xx xxxxxxxxx xxxxxx-xxxxxxxx xxxxxxxx.

data/vendor/bluecloth/tests/data/re-overflow2.txt

@@ -0,0 +1,281 @@
+<strong>iFotobilder</strong> will be an iPhoto export plugin that will let you manage your Fotobilder pictures through iPhoto.
+
+## Getting Started
+
+Since iPhoto's APIs aren't public, and because my Objective C is extremely rusty, I wanted a couple of examples of other people's plugins before I dove into this.
+
+Here's what I found:
+
+* [Writing Plugins for Cocoa][1]
+
+[1]: http://www.stone.com/The_Cocoa_Files/Writing_PlugIns.html
+
+## The iPhoto Export API
+
+Using the `class-dump` tool, I dumped the export API: 
+
+	/*
+	 *     Generated by class-dump 3.0.
+	 *
+	 *     class-dump is Copyright (C) 1997-1998, 2000-2001, 2004 by Steve Nygard.
+	 */
+	
+	/*
+	 * File: /Applications/iPhoto.app/Contents/MacOS/iPhoto
+	 */
+	
+	@protocol ExportImageProtocol
+	- (unsigned int)imageCount;
+	- (BOOL)imageIsPortraitAtIndex:(unsigned int)fp20;
+	- (struct _NSSize)imageSizeAtIndex:(unsigned int)fp16;
+	- (unsigned int)imageFormatAtIndex:(unsigned int)fp16;
+	- (id)imageCaptionAtIndex:(unsigned int)fp16;
+	- (id)imagePathAtIndex:(unsigned int)fp16;
+	- (id)thumbnailPathAtIndex:(unsigned int)fp16;
+	- (id)imageDictionaryAtIndex:(unsigned int)fp16;
+	- (float)imageAspectRatioAtIndex:(unsigned int)fp16;
+	- (id)albumName;
+	- (id)albumMusicPath;
+	- (unsigned int)albumCount;
+	- (unsigned int)albumPositionOfImageAtIndex:(unsigned int)fp16;
+	- (id)window;
+	- (void)enableControls;
+	- (void)disableControls;
+	- (void)clickExport;
+	- (void)startExport;
+	- (void)cancelExport;
+	- (void)cancelExportBeforeBeginning;
+	- (id)directoryPath;
+	- (id)temporaryDirectory;
+	- (BOOL)doesFileExist:(id)fp16;
+	- (BOOL)doesDirectoryExist:(id)fp16;
+	- (BOOL)createDir:(id)fp16;
+	- (id)uniqueSubPath:(id)fp12 child:(id)fp20;
+	- (id)makeUniquePath:(id)fp16;
+	- (id)makeUniqueFilePath:(id)fp12 extension:(id)fp20;
+	- (id)makeUniqueFileNameWithTime:(id)fp16;
+	- (BOOL)makeFSSpec:(id)fp12 spec:(struct FSSpec *)fp20;
+	- (id)pathForFSSpec:(id)fp16;
+	- (BOOL)getFSRef:(struct FSRef *)fp12 forPath:(id)fp16 isDirectory:(BOOL)fp27;
+	- (id)pathForFSRef:(struct FSRef *)fp16;
+	- (unsigned long)countFiles:(id)fp12 descend:(BOOL)fp23;
+	- (unsigned long)countFilesFromArray:(id)fp12 descend:(BOOL)fp23;
+	- (unsigned long long)sizeAtPath:(id)fp12 count:(unsigned long *)fp16 physical:(BOOL)fp27;
+	- (BOOL)isAliasFileAtPath:(id)fp16;
+	- (id)pathContentOfAliasAtPath:(id)fp16;
+	- (id)stringByResolvingAliasesInPath:(id)fp16;
+	- (BOOL)ensurePermissions:(unsigned long)fp12 forPath:(id)fp20;
+	- (id)validFilename:(id)fp16;
+	- (id)getExtensionForImageFormat:(unsigned int)fp16;
+	- (unsigned int)getImageFormatForExtension:(id)fp16;
+	- (struct OpaqueGrafPtr *)uncompressImage:(id)fp12 size:(struct _NSSize)fp16 pixelFormat:(unsigned int)fp24 rotation:(float)fp32;
+	- (void *)createThumbnailer;
+	- (void *)retainThumbnailer:(void *)fp16;
+	- (void *)autoreleaseThumbnailer:(void *)fp16;
+	- (void)releaseThumbnailer:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp16 maxBytes:(unsigned int)fp20 maxWidth:(unsigned int)fp24 maxHeight:(unsigned int)fp32;
+	- (struct _NSSize)thumbnailerMaxBounds:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 quality:(int)fp20;
+	- (int)thumbnailerQuality:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 rotation:(float)fp20;
+	- (float)thumbnailerRotation:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 outputFormat:(unsigned int)fp20;
+	- (unsigned int)thumbnailerOutputFormat:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 outputExtension:(id)fp20;
+	- (id)thumbnailerOutputExtension:(void *)fp16;
+	- (BOOL)thumbnailer:(void *)fp16 createThumbnail:(id)fp20 dest:(id)fp28;
+	- (struct _NSSize)lastImageSize:(void *)fp20;
+	- (struct _NSSize)lastThumbnailSize:(void *)fp16;
+	@end
+	
+	@protocol ExportPluginBoxProtocol
+	- (BOOL)performKeyEquivalent:(id)fp16;
+	@end
+	
+	@protocol ExportPluginProtocol
+	- (id)initWithExportImageObj:(id)fp16;
+	- (id)settingsView;
+	- (id)firstView;
+	- (id)lastView;
+	- (void)viewWillBeActivated;
+	- (void)viewWillBeDeactivated;
+	- (id)requiredFileType;
+	- (BOOL)wantsDestinationPrompt;
+	- (id)getDestinationPath;
+	- (id)defaultFileName;
+	- (id)defaultDirectory;
+	- (BOOL)treatSingleSelectionDifferently;
+	- (BOOL)validateUserCreatedPath:(id)fp16;
+	- (void)clickExport;
+	- (void)startExport:(id)fp16;
+	- (void)performExport:(id)fp16;
+	- (CDAnonymousStruct12 *)progress;
+	- (void)lockProgress;
+	- (void)unlockProgress;
+	- (void)cancelExport;
+	- (id)name;
+	- (id)description;
+	@end
+	
+	@interface ExportController : NSObject
+	{
+	    id mWindow;
+	    id mExportView;
+	    id mExportButton;
+	    id mImageCount;
+	    ExportMgr *mExportMgr;
+	    ExportMgrRec *mCurrentPluginRec;
+	    ProgressController *mProgressController;
+	    BOOL mCancelExport;
+	    NSTimer *mTimer;
+	    NSString *mDirectoryPath;
+	}
+	
+	- (void)awakeFromNib;
+	- (void)dealloc;
+	- (id)currentPlugin;
+	- (id)currentPluginRec;
+	- (void)setCurrentPluginRec:(id)fp12;
+	- (id)directoryPath;
+	- (void)setDirectoryPath:(id)fp12;
+	- (void)show;
+	- (void)_openPanelDidEnd:(id)fp12 returnCode:(int)fp16 contextInfo:(void *)fp20;
+	- (id)panel:(id)fp12 userEnteredFilename:(id)fp16 confirmed:(BOOL)fp20;
+	- (BOOL)panel:(id)fp12 shouldShowFilename:(id)fp16;
+	- (BOOL)panel:(id)fp12 isValidFilename:(id)fp16;
+	- (BOOL)filesWillFitOnDisk;
+	- (void)export:(id)fp12;
+	- (void)_exportThread:(id)fp12;
+	- (void)_exportProgress:(id)fp12;
+	- (void)startExport:(id)fp12;
+	- (void)finishExport;
+	- (void)cancelExport;
+	- (void)cancel:(id)fp12;
+	- (void)enableControls;
+	- (id)window;
+	- (void)disableControls;
+	- (void)tabView:(id)fp12 willSelectTabViewItem:(id)fp16;
+	- (void)tabView:(id)fp12 didSelectTabViewItem:(id)fp16;
+	- (void)selectExporter:(id)fp12;
+	- (id)exportView;
+	- (BOOL)_hasPlugins;
+	- (void)_resizeExporterToFitView:(id)fp12;
+	- (void)_updateImageCount;
+	
+	@end
+	
+	@interface ExportMgr : NSObject <ExportImageProtocol>
+	{
+	    ArchiveDocument *mDocument;
+	    NSMutableArray *mExporters;
+	    Album *mExportAlbum;
+	    NSArray *mSelection;
+	    ExportController *mExportController;
+	}
+	
+	+ (id)exportMgr;
+	+ (id)exportMgrNoAlloc;
+	- (id)init;
+	- (void)dealloc;
+	- (void)releasePlugins;
+	- (void)setExportController:(id)fp12;
+	- (id)exportController;
+	- (void)setDocument:(id)fp12;
+	- (id)document;
+	- (void)updateDocumentSelection;
+	- (unsigned int)count;
+	- (id)recAtIndex:(unsigned int)fp12;
+	- (void)scanForExporters;
+	- (unsigned int)imageCount;
+	- (BOOL)imageIsPortraitAtIndex:(unsigned int)fp12;
+	- (id)imagePathAtIndex:(unsigned int)fp12;
+	- (struct _NSSize)imageSizeAtIndex:(unsigned int)fp16;
+	- (unsigned int)imageFormatAtIndex:(unsigned int)fp12;
+	- (id)imageCaptionAtIndex:(unsigned int)fp12;
+	- (id)thumbnailPathAtIndex:(unsigned int)fp12;
+	- (id)imageDictionaryAtIndex:(unsigned int)fp12;
+	- (float)imageAspectRatioAtIndex:(unsigned int)fp12;
+	- (id)albumName;
+	- (id)albumMusicPath;
+	- (unsigned int)albumCount;
+	- (unsigned int)albumPositionOfImageAtIndex:(unsigned int)fp12;
+	- (id)imageRecAtIndex:(unsigned int)fp12;
+	- (id)currentAlbum;
+	- (void)enableControls;
+	- (void)disableControls;
+	- (id)window;
+	- (void)clickExport;
+	- (void)startExport;
+	- (void)cancelExport;
+	- (void)cancelExportBeforeBeginning;
+	- (id)directoryPath;
+	- (void)_copySelection:(id)fp12;
+	- (id)temporaryDirectory;
+	- (BOOL)doesFileExist:(id)fp12;
+	- (BOOL)doesDirectoryExist:(id)fp12;
+	- (BOOL)createDir:(id)fp12;
+	- (id)uniqueSubPath:(id)fp12 child:(id)fp16;
+	- (id)makeUniquePath:(id)fp12;
+	- (id)makeUniqueFilePath:(id)fp12 extension:(id)fp16;
+	- (id)makeUniqueFileNameWithTime:(id)fp12;
+	- (BOOL)makeFSSpec:(id)fp12 spec:(struct FSSpec *)fp16;
+	- (id)pathForFSSpec:(id)fp12;
+	- (BOOL)getFSRef:(struct FSRef *)fp12 forPath:(id)fp16 isDirectory:(BOOL)fp20;
+	- (id)pathForFSRef:(struct FSRef *)fp12;
+	- (unsigned long)countFiles:(id)fp12 descend:(BOOL)fp16;
+	- (unsigned long)countFilesFromArray:(id)fp12 descend:(BOOL)fp16;
+	- (unsigned long long)sizeAtPath:(id)fp12 count:(unsigned long *)fp16 physical:(BOOL)fp20;
+	- (BOOL)isAliasFileAtPath:(id)fp12;
+	- (id)pathContentOfAliasAtPath:(id)fp12;
+	- (id)stringByResolvingAliasesInPath:(id)fp12;
+	- (BOOL)ensurePermissions:(unsigned long)fp12 forPath:(id)fp16;
+	- (id)validFilename:(id)fp12;
+	- (id)getExtensionForImageFormat:(unsigned int)fp12;
+	- (unsigned int)getImageFormatForExtension:(id)fp12;
+	- (struct OpaqueGrafPtr *)uncompressImage:(id)fp12 size:(struct _NSSize)fp16 pixelFormat:(unsigned int)fp24 rotation:(float)fp36;
+	- (void *)createThumbnailer;
+	- (void *)retainThumbnailer:(void *)fp12;
+	- (void *)autoreleaseThumbnailer:(void *)fp12;
+	- (void)releaseThumbnailer:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 maxBytes:(unsigned int)fp16 maxWidth:(unsigned int)fp20 maxHeight:(unsigned int)fp24;
+	- (struct _NSSize)thumbnailerMaxBounds:(void *)fp16;
+	- (void)setThumbnailer:(void *)fp12 quality:(int)fp16;
+	- (int)thumbnailerQuality:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 rotation:(float)fp36;
+	- (float)thumbnailerRotation:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 outputFormat:(unsigned int)fp16;
+	- (unsigned int)thumbnailerOutputFormat:(void *)fp12;
+	- (void)setThumbnailer:(void *)fp12 outputExtension:(id)fp16;
+	- (id)thumbnailerOutputExtension:(void *)fp12;
+	- (BOOL)thumbnailer:(void *)fp12 createThumbnail:(id)fp16 dest:(id)fp20;
+	- (struct _NSSize)lastImageSize:(void *)fp16;
+	- (struct _NSSize)lastThumbnailSize:(void *)fp16;
+	
+	@end
+	
+	@interface ExportMgrRec : NSObject
+	{
+	    NSString *mPath;
+	    NSBundle *mBundle;
+	    id mPlugin;
+	    struct _NSSize mViewSize;
+	}
+	
+	- (void)dealloc;
+	- (BOOL)isEqual:(id)fp12;
+	- (id)description;
+	- (id)initWithPath:(id)fp12;
+	- (id)path;
+	- (id)bundle;
+	- (id)bundleInfo;
+	- (BOOL)isValidExportPlugin;
+	- (BOOL)loadPlugin;
+	- (id)exportPlugin;
+	- (void)unloadPlugin;
+	- (id)view;
+	- (struct _NSSize)viewSize;
+	- (void)setPath:(id)fp12;
+	- (void)setBundle:(id)fp12;
+	
+	@end
+

data/vendor/bluecloth/utils.rb

@@ -0,0 +1,553 @@
+#
+#	Install/distribution utility functions
+#	$Id: utils.rb,v 1.5 2004/01/18 19:15:18 deveiant Exp $
+#
+#	Copyright (c) 2001-2004, The FaerieMUD Consortium.
+#
+#	This is free software. You may use, modify, and/or redistribute this
+#	software under the terms of the Perl Artistic License. (See
+#	http://language.perl.com/misc/Artistic.html)
+#
+
+
+BEGIN {
+	require 'find'
+
+	begin
+		require 'readline'
+		include Readline
+	rescue LoadError => e
+		$stderr.puts "Faking readline..."
+		def readline( prompt )
+			$stderr.print prompt.chomp
+			return $stdin.gets.chomp
+		end
+	end
+}
+
+class File
+    Win32Exts = %w{.exe .com .bat}
+
+    def self::which( prog, path=ENV['PATH'] )
+        path.split(File::PATH_SEPARATOR).each {|dir|
+            # If running under Windows, look for prog + extensions
+            if File::ALT_SEPARATOR
+                ext = Win32Exts.find_all {|ext|
+                    f = File::join(dir, prog+ext)
+                    File::executable?(f) && !File::directory?(f)
+                }
+                ext.each {|f|
+                    f = File::join( dir, prog + f ).gsub(%r:/:,'\\')
+                    if block_given? then yield( f ) else return f end
+                }
+            else
+                f = File::join( dir, prog )
+                if File::executable?( f ) && ! File::directory?( f )
+                    if block_given? then yield(f) else return f end
+                end
+            end
+        }
+    end
+
+end
+
+
+module UtilityFunctions
+
+	# The list of regexen that eliminate files from the MANIFEST
+	ANTIMANIFEST = [
+		/makedist\.rb/,
+		/\bCVS\b/,
+		/~$/,
+		/^#/,
+		%r{docs/html},
+		%r{docs/man},
+		/\bTEMPLATE\.\w+\.tpl\b/,
+		/\.cvsignore/,
+		/\.s?o$/,
+	]
+	AMRegexp = Regexp::union( *ANTIMANIFEST )
+
+	# Set some ANSI escape code constants (Shamelessly stolen from Perl's
+	# Term::ANSIColor by Russ Allbery <rra@stanford.edu> and Zenin <zenin@best.com>
+	AnsiAttributes = {
+		'clear'      => 0,
+		'reset'      => 0,
+		'bold'       => 1,
+		'dark'       => 2,
+		'underline'  => 4,
+		'underscore' => 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
+	}
+
+	ErasePreviousLine = "\033[A\033[K"
+
+
+	###############
+	module_function
+	###############
+
+	# Create a string that contains the ANSI codes specified and return it
+	def ansiCode( *attributes )
+		return '' unless /(?:vt10[03]|xterm(?:-color)?|linux)/i =~ ENV['TERM']
+		attr = attributes.collect {|a| AnsiAttributes[a] ? AnsiAttributes[a] : nil}.compact.join(';')
+		if attr.empty? 
+			return ''
+		else
+			return "\e[%sm" % attr
+		end
+	end
+
+
+	# Test for the presence of the specified <tt>library</tt>, and output a
+	# message describing the test using <tt>nicename</tt>. If <tt>nicename</tt>
+	# is <tt>nil</tt>, the value in <tt>library</tt> is used to build a default.
+	def testForLibrary( library, nicename=nil )
+		nicename ||= library
+		message( "Testing for the #{nicename} library..." )
+		found = false
+
+		begin
+			require library
+		rescue LoadError => err
+			message "no found (%s)\n" % err.message
+		else
+			message "found\n"
+			found = true
+		end
+
+		return found
+	end
+
+
+	# Test for the presence of the specified <tt>library</tt>, and output a
+	# message describing the problem using <tt>nicename</tt>. If
+	# <tt>nicename</tt> is <tt>nil</tt>, the value in <tt>library</tt> is used
+	# to build a default. If <tt>raaUrl</tt> and/or <tt>downloadUrl</tt> are
+	# specified, they are also use to build a message describing how to find the
+	# required library. If <tt>fatal</tt> is <tt>true</tt>, a missing library
+	# will cause the program to abort.
+	def testForRequiredLibrary( library, nicename=nil, raaUrl=nil, downloadUrl=nil, fatal=true )
+		nicename ||= library
+		unless testForLibrary( library, nicename )
+			msgs = [ "You are missing the required #{nicename} library.\n" ]
+			msgs << "RAA: #{raaUrl}\n" if raaUrl
+			msgs << "Download: #{downloadUrl}\n" if downloadUrl
+			if fatal
+				abort msgs.join('')
+			else
+				errorMessage msgs.join('')
+			end
+		end
+		return true
+	end
+
+	### Output <tt>msg</tt> as a ANSI-colored program/section header (white on
+	### blue).
+	def header( msg )
+		msg.chomp!
+		$stderr.puts ansiCode( 'bold', 'white', 'on_blue' ) + msg + ansiCode( 'reset' )
+		$stderr.flush
+	end
+
+	### Output <tt>msg</tt> to STDERR and flush it.
+	def message( msg )
+		$stderr.print ansiCode( 'cyan' ) + msg + ansiCode( 'reset' )
+		$stderr.flush
+	end
+
+	### Output the specified <tt>msg</tt> as an ANSI-colored error message
+	### (white on red).
+	def errorMessage( msg )
+		message ansiCode( 'bold', 'white', 'on_red' ) + msg + ansiCode( 'reset' )
+	end
+
+	### Output the specified <tt>msg</tt> as an ANSI-colored debugging message
+	### (yellow on blue).
+	def debugMsg( msg )
+		return unless $DEBUG
+		msg.chomp!
+		$stderr.puts ansiCode( 'bold', 'yellow', 'on_blue' ) + ">>> #{msg}" + ansiCode( 'reset' )
+		$stderr.flush
+	end
+
+	### Erase the previous line (if supported by your terminal) and output the
+	### specified <tt>msg</tt> instead.
+	def replaceMessage( msg )
+		print ErasePreviousLine
+		message( msg )
+	end
+
+	### Output a divider made up of <tt>length</tt> hyphen characters.
+	def divider( length=75 )
+		puts "\r" + ("-" * length )
+	end
+	alias :writeLine :divider
+
+	### Output the specified <tt>msg</tt> colored in ANSI red and exit with a
+	### status of 1.
+	def abort( msg )
+		print ansiCode( 'bold', 'red' ) + "Aborted: " + msg.chomp + ansiCode( 'reset' ) + "\n\n"
+		Kernel.exit!( 1 )
+	end
+
+	### Output the specified <tt>promptString</tt> as a prompt (in green) and
+	### return the user's input with leading and trailing spaces removed.
+	def prompt( promptString )
+		promptString.chomp!
+		return readline( ansiCode('bold', 'green') + "#{promptString}: " + ansiCode('reset') ).strip
+	end
+
+	### Prompt the user with the given <tt>promptString</tt> via #prompt,
+	### substituting the given <tt>default</tt> if the user doesn't input
+	### anything.
+	def promptWithDefault( promptString, default )
+		response = prompt( "%s [%s]" % [ promptString, default ] )
+		if response.empty?
+			return default
+		else
+			return response
+		end
+	end
+
+	### Search for the program specified by the given <tt>progname</tt> in the
+	### user's <tt>PATH</tt>, and return the full path to it, or <tt>nil</tt> if
+	### no such program is in the path.
+	def findProgram( progname )
+		ENV['PATH'].split(File::PATH_SEPARATOR).each {|d|
+			file = File.join( d, progname )
+			return file if File.executable?( file )
+		}
+		return nil
+	end
+
+	### Using the CVS log for the given <tt>file</tt> attempt to guess what the
+	### next release version might be. This only works if releases are tagged
+	### with tags like 'RELEASE_x_y'.
+	def extractNextVersionFromTags( file )
+		message "Attempting to extract next release version from CVS tags for #{file}...\n"
+		raise RuntimeError, "No such file '#{file}'" unless File.exists?( file )
+		cvsPath = findProgram( 'cvs' ) or
+			raise RuntimeError, "Cannot find the 'cvs' program. Aborting."
+
+		output = %x{#{cvsPath} log #{file}}
+		release = [ 0, 0 ]
+		output.scan( /RELEASE_(\d+)_(\d+)/ ) {|match|
+			if $1.to_i > release[0] || $2.to_i > release[1]
+				release = [ $1.to_i, $2.to_i ]
+				replaceMessage( "Found %d.%02d...\n" % release )
+			end
+		}
+
+		if release[1] >= 99
+			release[0] += 1
+			release[1] = 1
+		else
+			release[1] += 1
+		end
+
+		return "%d.%02d" % release
+	end
+
+
+	### Write a new manifest file with the given +named+, moving any current one
+	### aside with an ".old" suffix if +backup+ is true.
+	def makeManifest( name="MANIFEST", backup=true )
+		message "Making manifest file '#{name}'"
+
+		# Move an old one aside if a backup is desired
+		if backup and File::exists?( name )
+			File::rename( name, name + ".old" )
+		end
+
+		File::open( name, File::WRONLY|File::TRUNC|File::CREAT ) {|ofh|
+			Find::find( "." ) do |file|
+				Find.prune if AMRegexp =~ file
+				Find.prune if %r{/\.} =~ file
+				Find.prune if /TEMPLATE/ =~ file
+				next if File::directory?( file )
+
+				ofh.puts file
+			end
+		}
+	end
+
+
+	### Read the specified <tt>manifestFile</tt>, which is a text file
+	### describing which files to package up for a distribution. The manifest
+	### should consist of one or more lines, each containing one filename or
+	### shell glob pattern.
+	def readManifest( manifestFile="MANIFEST" )
+		message "Reading manifest..."
+		raise "Missing #{manifestFile}, please remake it" unless File.exists? manifestFile
+
+		manifest = IO::readlines( manifestFile ).collect {|line|
+			line.chomp
+		}.select {|line|
+			line !~ /^(\s*(#.*)?)?$/
+		}
+
+		filelist = []
+		for pat in manifest
+			$stderr.puts "Adding files that match '#{pat}' to the file list" if $VERBOSE
+			filelist |= Dir.glob( pat ).find_all {|f| FileTest.file?(f)}
+		end
+
+		message "found #{filelist.length} files.\n"
+		return filelist
+	end
+
+
+	### Given a <tt>filelist</tt> like that returned by #readManifest, remove
+	### the entries therein which match the Regexp objects in the given
+	### <tt>antimanifest</tt> and return the resultant Array.
+	def vetManifest( filelist, antimanifest=ANITMANIFEST )
+		origLength = filelist.length
+		message "Vetting manifest..."
+
+		for regex in antimanifest
+			if $VERBOSE
+				message "\n\tPattern /#{regex.source}/ removed: " +
+					filelist.find_all {|file| regex.match(file)}.join(', ')
+			end
+			filelist.delete_if {|file| regex.match(file)}
+		end
+
+		message "removed #{origLength - filelist.length} files from the list.\n"
+		return filelist
+	end
+
+	### Combine a call to #readManifest with one to #vetManifest.
+	def getVettedManifest( manifestFile="MANIFEST", antimanifest=ANTIMANIFEST )
+		vetManifest( readManifest(manifestFile), antimanifest )
+	end
+
+	### Given a documentation <tt>catalogFile</tt>, extract the title, if
+	### available, and return it. Otherwise generate a title from the name of
+	### the CVS module.
+	def findRdocTitle( catalogFile="docs/CATALOG" )
+
+		# Try extracting it from the CATALOG file from a line that looks like:
+		# Title: Foo Bar Module
+		title = findCatalogKeyword( 'title', catalogFile )
+
+		# If that doesn't work for some reason, try grabbing the name of the CVS
+		# repository the directory belongs to.
+		if title.nil? && File::directory?( "CVS" ) &&
+				File::exists?( "CVS/Repository" )
+			title = File::read( "CVS/Repository" ).chomp
+		end
+
+		# As a last resort, use the name of the project directory
+		if title.nil?
+			distdir = File::dirname( __FILE__ )
+			distdir = File::dirname( distdir ) if /docs$/ =~ distdir
+			title = File::basename( distdir )
+		end
+
+		return title
+	end
+
+	### Given a documentation <tt>catalogFile</tt>, extract the name of the file
+	### to use as the initally displayed page. If extraction fails, the
+	### +default+ will be used if it exists. Returns +nil+ if there is no main
+	### file to be found.
+	def findRdocMain( catalogFile="docs/CATALOG", default="README" )
+
+		# Try extracting it from the CATALOG file from a line that looks like:
+		# Main: Foo Bar Module
+		main = findCatalogKeyword( 'main', catalogFile )
+
+		# Try to make some educated guesses if that doesn't work
+		if main.nil?
+			basedir = File::dirname( __FILE__ )
+			basedir = File::dirname( basedir ) if /docs$/ =~ basedir
+			
+			if File::exists?( File::join(basedir, default) )
+				main = default
+			end
+		end
+
+		return main
+	end
+
+
+	### Given a documentation <tt>catalogFile</tt>, extract an upload URL for
+	### RDoc.
+	def findRdocUpload( catalogFile="docs/CATALOG" )
+		findCatalogKeyword( 'upload', catalogFile )
+	end
+
+
+	### Given a documentation <tt>catalogFile</tt>, extract a CVS web frontend
+	### URL for RDoc.
+	def findRdocCvsURL( catalogFile="docs/CATALOG" )
+		findCatalogKeyword( 'webcvs', catalogFile )
+	end
+
+
+	### Given a documentation <tt>catalogFile</tt>, try extracting the given
+	### +keyword+'s value from it. Keywords are lines that look like:
+	###   # <keyword>: <value>
+	### Returns +nil+ if the catalog file was unreadable or didn't contain the
+	### specified +keyword+.
+	def findCatalogKeyword( keyword, catalogFile="docs/CATALOG" )
+		val = nil
+
+		if File::exists? catalogFile
+			message "Extracting '#{keyword}' from CATALOG file (%s).\n" % catalogFile
+			File::foreach( catalogFile ) {|line|
+				debugMsg( "Examining line #{line.inspect}..." )
+				val = $1.strip and break if /^#\s*#{keyword}:\s*(.*)$/i =~ line
+			}
+		end
+
+		return val
+	end
+
+
+	### Given a documentation <tt>catalogFile</tt>, which is in the same format
+	### as that described by #readManifest, read and expand it, and then return
+	### a list of those files which appear to have RDoc documentation in
+	### them. If <tt>catalogFile</tt> is nil or does not exist, the MANIFEST
+	### file is used instead.
+	def findRdocableFiles( catalogFile="docs/CATALOG" )
+		startlist = []
+		if File.exists? catalogFile
+			message "Using CATALOG file (%s).\n" % catalogFile
+			startlist = getVettedManifest( catalogFile )
+		else
+			message "Using default MANIFEST\n"
+			startlist = getVettedManifest()
+		end
+
+		message "Looking for RDoc comments in:\n" if $VERBOSE
+		startlist.select {|fn|
+			message "  #{fn}: " if $VERBOSE
+			found = false
+			File::open( fn, "r" ) {|fh|
+				fh.each {|line|
+					if line =~ /^(\s*#)?\s*=/ || line =~ /:\w+:/ || line =~ %r{/\*}
+						found = true
+						break
+					end
+				}
+			}
+
+			message( (found ? "yes" : "no") + "\n" ) if $VERBOSE
+			found
+		}
+	end
+
+	### Open a file and filter each of its lines through the given block a
+	### <tt>line</tt> at a time. The return value of the block is used as the
+	### new line, or omitted if the block returns <tt>nil</tt> or
+	### <tt>false</tt>.
+	def editInPlace( file ) # :yields: line
+		raise "No block specified for editing operation" unless block_given?
+
+		tempName = "#{file}.#{$$}"
+		File::open( tempName, File::RDWR|File::CREAT, 0600 ) {|tempfile|
+			File::unlink( tempName )
+			File::open( file, File::RDONLY ) {|fh|
+				fh.each {|line|
+					newline = yield( line ) or next
+					tempfile.print( newline )
+				}
+			}
+
+			tempfile.seek(0)
+
+			File::open( file, File::TRUNC|File::WRONLY, 0644 ) {|newfile|
+				newfile.print( tempfile.read )
+			}
+		}
+	end
+
+	### Execute the specified shell <tt>command</tt>, read the results, and
+	### return them. Like a %x{} that returns an Array instead of a String.
+	def shellCommand( *command )
+		raise "Empty command" if command.empty?
+
+		cmdpipe = IO::popen( command.join(' '), 'r' )
+		return cmdpipe.readlines
+	end
+
+	### Execute a block with $VERBOSE set to +false+, restoring it to its
+	### previous value before returning.
+	def verboseOff
+		raise LocalJumpError, "No block given" unless block_given?
+
+		thrcrit = Thread.critical
+		oldverbose = $VERBOSE
+		begin
+			Thread.critical = true
+			$VERBOSE = false
+			yield
+		ensure
+			$VERBOSE = oldverbose
+			Thread.critical = false
+		end
+	end
+
+
+	### Try the specified code block, printing the given 
+	def try( msg, bind=nil )
+		result = nil
+		if msg =~ /^to\s/
+			message = "Trying #{msg}..."
+		else
+			message = msg
+		end
+			
+		begin
+			rval = nil
+			if block_given?
+				rval = yield
+			else
+				file, line = caller(1)[0].split(/:/,2)
+				rval = eval( msg, bind, file, line.to_i )
+			end
+
+			result = rval.inspect
+		rescue Exception => err
+			if err.backtrace
+				nicetrace = err.backtrace.delete_if {|frame|
+					/in `(try|eval)'/ =~ frame
+				}.join("\n\t")
+			else
+				nicetrace = "Exception had no backtrace"
+			end
+
+			result = err.message + "\n\t" + nicetrace
+		ensure
+			puts result
+		end
+	end
+
+	def time
+		start = Time::now
+		stimes = Process::times
+		rval = yield
+		etimes = Process::times
+		$stderr.puts "Time elapsed: %0.5f user, %0.5f system (%0.5f wall clock seconds)" % [
+			etimes.utime - stimes.utime,
+			etimes.stime - stimes.stime,
+			Time::now.to_f - start.to_f,
+		]
+
+		return rval
+	end
+
+end