graffle 0.1.0

data/lib/graffle/styled-text-reader.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+#
+#  Created by Brian Marick on 2007-07-06.
+#  Copyright (c) 2007. All rights reserved.
+
+
+module Graffle
+
+  class StyledTextReader   # :nodoc:
+    attr_reader :raw_text
+    
+    def initialize(string)
+      @raw_text = string
+    end
+    
+    def is_rtf?
+      @raw_text.starts_with?("{\\rtf")
+    end
+    
+    def without_rtf_header
+      lines = @raw_text.split("\n")
+      return lines unless self.is_rtf?
+      
+      lines.each_with_index do | elt, index |
+        unless elt.starts_with?("\\") or elt.starts_with?("{")
+          index += 1  # skip past blank line
+          return lines[index..-1]
+        end
+      end
+    end
+    
+    def as_lines
+      lines = without_rtf_header
+      return lines unless self.is_rtf?
+      
+      lines = lines.reject { |line| line.starts_with?("\\par") }
+      lines.collect do |line|
+        line = line.gsub(/^\\f\d\\fs\d\d \\cf\d /, '')
+        line = line.gsub(/\}$/, '')
+        line = line.gsub(/\\$/, '')
+      end
+    end
+    
+    def as_tokens_within_lines
+      self.as_lines.collect do |line|
+        line.split(/",?/).collect { |tok| tok.strip }
+      end      
+    end
+  end
+  
+  
+end

data/lib/graffle/third-party/s4t-utils.rb

@@ -0,0 +1,21 @@
+require 's4t-utils/capturing-globals'
+require 's4t-utils/error-handling'
+require 's4t-utils/more-assertions'
+require 's4t-utils/claims'
+require 's4t-utils/friendly-format'
+require 's4t-utils/rake-task-helpers'
+require 's4t-utils/svn-file-movement'
+require 's4t-utils/hacks'
+require 's4t-utils/command-line'
+require 's4t-utils/test-util'
+require 's4t-utils/os'
+
+require 'pp'
+
+# Tolerate typos
+S4TUtils=S4tUtils   
+S4tUtil=S4tUtils   
+S4TUtil=S4tUtils   
+
+module S4tUtils
+end

data/lib/graffle/third-party/s4t-utils/capturing-globals.rb

@@ -0,0 +1,78 @@
+require 'stringio'
+
+module S4tUtils
+
+  module_function
+
+  def capturing_stderr
+    old_stderr = $stderr
+    new_stderr = StringIO.new
+    begin
+      $stderr = new_stderr
+      yield
+    ensure
+      $stderr = old_stderr
+    end
+    new_stderr.string
+  end
+
+  def with_environment_vars(settings)
+    begin
+      old = {}
+      settings.each { | key, value |
+        old[key] = ENV[key]
+        ENV[key] = value
+      }
+      yield
+    ensure
+      settings.each_key { | key |
+        ENV[key] = old[key]
+      }
+    end
+  end
+
+  def with_home_right_here
+    begin
+      old_home = ENV['HOME']
+      ENV['HOME'] = '.'
+      yield
+    ensure
+      ENV['HOME'] = @old_home
+    end
+  end
+
+  def erasing_local_config_file(file)
+    with_home_right_here { 
+      begin
+        File.delete(file) if File.exist?(file)
+        yield
+      ensure
+        File.delete(file) if File.exist?(file)
+      end
+    }
+  end
+
+  def with_local_config_file(file, contents)
+    erasing_local_config_file(file) do
+      File.open(file, 'w') do | io |
+        io.puts(contents.to_s)
+      end
+      yield
+    end
+  end
+
+  def with_command_args(string)
+    begin
+      old_argv = ARGV.dup
+      ARGV.replace(string.split)
+      yield
+    rescue SystemExit => ex
+      replacement = StandardError.new(ex.message)
+      replacement.set_backtrace(ex.backtrace)
+      raise replacement
+    ensure
+      ARGV.replace(old_argv)
+    end
+  end
+
+end

data/lib/graffle/third-party/s4t-utils/claims.rb

@@ -0,0 +1,14 @@
+module S4tUtils
+
+  module_function
+
+  def user_claims(fact, &block)
+    raise StandardError.new(block.call) unless fact
+  end
+
+  def user_disputes(fact, &block)
+    user_claims(!fact, &block)
+  end
+end
+
+

data/lib/graffle/third-party/s4t-utils/command-line.rb

@@ -0,0 +1,15 @@
+module S4tUtils
+
+  module_function
+
+  def ask(default_answer, *question_lines)
+    puts question_lines
+    print "[#{default_answer}] => "
+    answer = STDIN.readline.strip
+    answer = default_answer.to_s if answer == ''
+    answer
+  end
+
+end
+
+

data/lib/graffle/third-party/s4t-utils/error-handling.rb

@@ -0,0 +1,20 @@
+module S4tUtils
+
+  module_function
+
+  def with_pleasant_exceptions
+    yield
+  rescue SystemExit
+    raise
+  rescue Exception => ex
+    $stderr.puts(ex.message)
+  end
+
+  # with_pleasant_exceptions swallows the stack trace, which you
+  # want to see during debugging. The easy way to see it is to add
+  # 'out' to the method, giving this:
+  def without_pleasant_exceptions
+    $stderr.puts "Note: exception handling turned off."
+    yield
+  end
+end

data/lib/graffle/third-party/s4t-utils/friendly-format.rb

@@ -0,0 +1,27 @@
+# Note: see also <http://englishext.rubyforge.org/>
+
+module S4tUtils
+
+  module_function
+
+  def friendly_list(connector, array)
+    quoted = array.collect { | elt | "'" + elt.to_s + "'" }
+    case array.length
+    when 0
+      ""
+    when 1
+      quoted[0]
+    when 2
+      quoted[0] + " #{connector} " + quoted[1]
+    else
+      quoted[0...-1].join(", ") + ", #{connector} #{quoted.last}"
+    end
+  end
+
+  # Produces a version of a string that can be typed after a :
+  # (Can also be safely given at a command-line prompt.
+  def symbol_safe_name(name)
+    name.to_s.gsub(/\W/, '')
+  end
+end
+

data/lib/graffle/third-party/s4t-utils/hacks.rb

@@ -0,0 +1,32 @@
+module S4tUtils
+
+  module_function
+
+  def prog1(retval)
+    yield(retval)
+    retval
+  end
+  
+  # Allow debugging like this:
+  #     x = pi y      # adding pi doesn't change effect of x=y
+  def pi(arg, leader=nil)
+     leader = (leader == nil) ? '' : leader + ': '
+     prog1(arg) { puts leader + arg.inspect }
+   end
+  
+
+
+  class ArgForwarder
+    def initialize(target, *added_args)
+      @target = target
+      @added_args = added_args
+    end
+
+    def method_missing(method, *args)
+      @target.send(method, *(@added_args + args))
+    end
+  end
+
+  
+  
+end

data/lib/graffle/third-party/s4t-utils/load-path-auto-adjuster.rb

@@ -0,0 +1,120 @@
+# This is loaded by an executable script in one of two cases:
+#
+# It's a development version living in the bin part of this directory
+# structure (but it can invoked from any place).
+#
+#   project/
+#     bin/
+#     lib/
+#        project/
+#           third-party/
+#              s4t-utils/
+#                 this file
+#
+# It's a deployed version living in some random place, with 
+# the site_ruby directory in the page.
+#
+#   site_ruby/1.8/
+#      project/
+#        third-party/
+#           s4t-utils/
+#              this file
+#
+#
+# In order for this file to have been required in both cases, the following
+# code is executed in the caller:
+#
+#
+# $:.unshift((Pathname.new(__FILE__).parent.parent + 'lib').to_s)
+# require 'package/third-party/s4t-utils/load-path-auto-adjuster'
+#
+# In the first case, that will put something like "../lib" on the load
+# path.  In the second case, it will put harmless garbage on the path
+# (harmless because it won't contain this file, which will still be
+# found somewhere later in the load path). 
+#
+# The first thing this file does is pop that off, it having done its job.
+# In the first (development) case, it puts the following on the load path:
+#        project/lib & project/lib/project/third-party & project
+# ('project' is added so that <require 'test/util-file'> works.)
+#
+#    In the second, it adds only the third-party library and takes care
+#    to add it just after whatever component in the path contains this
+#    file. (It will thus not interfere with clashing packages earlier
+#    in the path.) 
+#        site_ruby/1.8/project/third-party
+#    since site_ruby/1.8 (or the equivalent) is already on there.
+
+require 'rubygems'
+require 'pathname'
+
+module S4tUtils
+  module Hidden  # This should not interfere with any namespace.
+
+    class Arranger
+      def initialize(third_party)
+        @third_party_lib = third_party
+        @project_lib = third_party.parent.parent
+        @test_util_root = @project_lib.parent
+      end
+
+      def self.arrange_path_around(third_party)
+        new(third_party).arrange
+      end
+
+      def arrange
+        add_third_party_gems
+        if project_lib_already_in_path?
+          just_add_third_party_after_project_lib
+        else
+          add_everything_at_front
+        end
+      end
+        
+
+      def add_third_party_gems
+        # When RubyGems 0.8.11 gets clear_paths, it does not clear the
+        # cache used by Gem's overriding version of require(), so if
+        # this is loaded after the first Gem is required, it will have
+        # no effect on later uses of require(). (But it does affect
+        # require_gem.)
+        # 
+        ENV['GEM_PATH']=(@third_party_lib+'gems').to_s
+        Gem.clear_paths
+      end
+
+      def project_lib_already_in_path?
+        $:.include?(@project_lib.to_s)
+      end
+
+      def just_add_third_party_after_project_lib
+        $:.each_with_index do | path_element, index |
+          if path_element == @project_lib.to_s
+            $:[index+1,0] = @third_party_lib.to_s
+            return
+          end
+        end
+        fail "No place to put third_party library."
+      end
+
+      def add_everything_at_front
+        $:.unshift(@test_util_root.to_s)  
+        $:.unshift(@third_party_lib.to_s)
+        $:.unshift(@project_lib.to_s)  # This is now first
+      end
+    end
+
+    def self.auto_adjust_load_path
+      $:.shift   # Remove extra element used to find this file.
+      
+      # Having loaded us, __FILE__ is something like this:
+      # ...lib.../package/third-party/s4t-utils/load-path-auto-adjuster.rb
+      relative_third_party = Pathname.new(__FILE__).parent.parent
+      # Pathname#real_path doesn't work on Windows (1.8.2). Grr.
+      third_party = Pathname.new(File.expand_path(relative_third_party.to_s))
+      Arranger.arrange_path_around(third_party)
+    end
+
+    auto_adjust_load_path
+  end
+end

data/lib/graffle/third-party/s4t-utils/more-assertions.rb

@@ -0,0 +1,29 @@
+module Test
+  module Unit
+
+    module Assertions
+      def assert_true(boolean, message = nil)
+        assert(boolean, message)
+      end
+
+      def assert_false(boolean, message = nil)
+        _wrap_assertion do
+          assert_block(build_message(message, "<?> should be false or nil.", boolean)) { !boolean }
+        end
+      end
+
+      def assert_raise_with_matching_message(exception_class, message, &block)
+        exception = assert_raise(exception_class, &block)
+        assert_match(message, exception.message)
+      end
+      alias_method :assert_raises_with_matching_message,
+                   :assert_raise_with_matching_message
+
+      def assert_wants_to_exit
+        assert_raise(SystemExit) do
+          yield
+        end
+      end
+    end
+  end
+end

data/lib/graffle/third-party/s4t-utils/os.rb

@@ -0,0 +1,28 @@
+module S4tUtils
+
+  def self.on_windows?
+    Config::CONFIG["arch"] =~ /dos|win32/i
+  end
+
+  # Lifted this from Rubygems, which is released under the
+  # Ruby license.
+  def self.find_home    # :nodoc:
+    ['HOME', 'USERPROFILE'].each do |homekey|
+      return ENV[homekey] if ENV[homekey]
+    end
+    if ENV['HOMEDRIVE'] && ENV['HOMEPATH']
+      return "#{ENV['HOMEDRIVE']}:#{ENV['HOMEPATH']}"
+    end
+    begin
+      File.expand_path("~")
+    rescue StandardError => ex
+      if File::ALT_SEPARATOR
+        "C:/"
+      else
+        "/"
+      end
+    end
+  end
+
+
+end