The core tree, and some formulae0.1

3 files changed, 222 insertions, 0 deletions

diff --git a/Cellar/homebrew/brew b/Cellar/homebrew/brew
new file mode 100755
index 000000000..e0c1ca182
--- /dev/null
+++ b/Cellar/homebrew/brew
@@ -0,0 +1,47 @@
+#!/usr/bin/ruby
+# Copyright 2009 Max Howell <max@methylblue.com>
+# Licensed as per the GPL version 3
+require 'Find'
+require 'Pathname'
+$root = Pathname.new(__FILE__).realpath.dirname.parent.parent
+
+case ARGV[0]
+  when 'brew', 'install' then
+    file="#{$root}/Formula/#{ARGV[1]}"
+    file+='.rb' unless File.exist? file
+    system "ruby #{file}"
+
+  when 'ln' then
+    abort "#{ARGV[1]} is not a directory" unless File.directory? ARGV[1]
+
+    #TODO check is under +/ with name AND version
+    #TODO you should mkdirs as you find them and symlink files otherwise
+    #TODO consider using hardlinks
+
+    Find.find ARGV[1] do |from|
+      next if from == ARGV[1] #rubysucks
+
+      from=Pathname.new from
+      relto=from.relative_path_from(Pathname.new(ARGV[1]))
+      to=$root+relto;
+
+      if from.directory?
+        to.mkpath unless to.exist? and relto.to_s.include? '/'
+      elsif from.file?
+        to.make_symlink from
+      end
+    end
+
+  when 'prune', 'pasteurize' then
+    $root.find do |path| 
+      if path.directory?
+        name=path.basename
+        Find.prune if name == 'brews' or name == 'yeasts'
+      elsif path.symlink?
+        path.unlink unless path.readlink.exist?
+      end
+    end
+
+  else
+    puts "usage: #{$0} [prune] [ln path]"
+end
\ No newline at end of file
diff --git a/Cellar/homebrew/brewkit.rb b/Cellar/homebrew/brewkit.rb
new file mode 100644
index 000000000..92ab72104
--- /dev/null
+++ b/Cellar/homebrew/brewkit.rb
@@ -0,0 +1,116 @@
+# Copyright 2009 Max Howell <max@methylblue.com>
+# Licensed as per the GPL version 3
+require 'FileUtils'
+require 'Find'
+require 'Pathname'
+$agent = "Homebrew 0.1 (Ruby; Mac OS X 10.5 Leopard)"
+$cellar = Pathname.new(__FILE__).dirname.parent.realpath
+
+class Formula
+  # if you reimplement, assign @name, @version, @url and @md5
+  def initialize(url, md5)
+    @name = File.basename $0, '.rb' #original script that the interpreter started
+    @url = url
+    @md5 = md5
+
+    # pls improve this version extraction crap
+    filename=File.basename url
+    i=filename.index /[-_]\d/
+    unless i.nil?
+      /^((\d+[.-])*\d+)/.match filename[i+1,1000] #1000 because rubysucks
+      @version = $1
+    else
+      # no divisor or a '.' divisor, eg. dmd.1.11.zip
+      /^[a-zA-Z._-]*((\d+\.)*\d+)/.match filename
+      @version = $1
+    end
+  end
+
+  #yields a Pathname object for the installation prefix
+  def brew
+    raise "@name.nil?" if @name.nil?
+    raise "@version.nil?" if @version.nil?
+    raise "@name does not validate to our regexp" unless /^\w+$/ =~ @name
+
+    prefix=$cellar+@name+@version
+    raise "#{prefix} already exists!" if prefix.exist?
+
+    appsupport = File.expand_path "~/Library/Application Support/Homebrew"
+    FileUtils.mkpath appsupport unless File.exist? appsupport
+    Dir.chdir appsupport do
+      tgz=Pathname.new self.fetch
+      raise "MD5 mismatch" unless `md5 -q "#{tgz}"`.strip == @md5.downcase
+
+      # we make an additional subdirectory so know exactly what we are
+      # recursively deleting later
+      # we use mktemp rather than appsupport/blah because some build scripts
+      # can't handle being built in a directory with spaces in it :P
+      tmp=nil
+      begin
+        tmp=`mktemp -dt #{@name}-#{@version}`.strip
+        Dir.chdir tmp do
+          Dir.chdir uncompress(tgz) do
+            yield prefix
+            #TODO copy changelog or CHANGES file to pkg root,
+            #TODO maybe README, etc. to versioned root
+          end
+        end
+      ensure
+        FileUtils.rm_rf tmp
+      end
+
+      # stay in appsupport in case any odd files gets created etc.
+      `#{$cellar}/homebrew/brew ln #{prefix}` if prefix.exist?
+      
+      puts "#{prefix}: "+`find #{prefix} | wc -l`.strip+' files, '+`du -hd0 #{prefix} | cut -d"\t" -f1`.strip
+    end
+  end
+
+  def version
+    @version
+  end
+  def name
+    @name
+  end
+
+protected
+  def fetch
+    tgz=File.expand_path File.basename(@url)
+    `curl -LOA "#{$agent}" "#{@url}"` unless File.exists? tgz
+    return tgz
+  end
+
+  def uncompress(path)
+    if path.extname == '.zip'
+      `unzip -qq "#{path}"`
+    else
+      `tar xf "#{path}"`
+    end
+
+    raise "Compression tool failed" if $? != 0
+
+    entries=Dir['*']
+    raise "Empty tar!" if entries.nil? or entries.length == 0
+    raise "Too many folders in uncompressed result. You need to reimplement the Recipe.uncompress function." if entries.length > 1
+    return entries.first
+  end
+
+private
+  def method_added(method)
+    raise 'You cannot override Formula.brew' if method == 'brew'
+  end
+end
+
+
+def inreplace(path, before, after)
+  # we're not using Ruby because the perl script is more concise
+  `perl -pi -e "s|#{before}|#{after}|g" "#{path}"`
+end
+
+
+########################################################################script
+if $0 == __FILE__
+  d=$cellar.parent+'bin'
+  d.mkpath unless d.exist?
+  (d+'brew').make_symlink $cellar+'homebrew'+'brew'
+end
\ No newline at end of file
diff --git a/Cellar/homebrew/unittest.rb b/Cellar/homebrew/unittest.rb
new file mode 100755
index 000000000..1587959bd
--- /dev/null
+++ b/Cellar/homebrew/unittest.rb
@@ -0,0 +1,59 @@
+#!/usr/bin/ruby
+cwd=File.dirname(__FILE__)
+$:.unshift cwd #rubysucks
+require 'brewkit'
+require 'test/unit'
+$cellar=Pathname.new(cwd).parent.realpath
+
+class BeerTasting < Test::Unit::TestCase
+  def test_version_all_dots
+    r=Formula.new "http://example.com/foo.bar.la.1.14.zip", 'nomd5'
+    assert_equal '1.14', r.version
+  end
+
+  def test_version_underscore_separator
+    r=Formula.new "http://example.com/grc_1.1.tar.gz", 'nomd5'
+    assert_equal '1.1', r.version
+  end
+
+  def test_version_internal_dash
+    r=Formula.new "http://example.com/foo-arse-1.1-2.tar.gz", 'nomd5'
+    assert_equal '1.1-2', r.version
+  end
+
+  def test_version_single_digit
+    r=Formula.new "http://example.com/foo_bar.45.tar.gz", 'nomd5'
+    assert_equal '45', r.version
+  end
+
+  def test_noseparator_single_digit
+    r=Formula.new "http://example.com/foo_bar45.tar.gz", 'nomd5'
+    assert_equal '45', r.version
+  end
+
+  def test_version_developer_that_hates_us_format
+    r=Formula.new "http://example.com/foo-bar-la.1.2.3.tar.gz", 'nomd5'
+    assert_equal '1.2.3', r.version
+  end
+
+  def test_version_regular
+    r=Formula.new "http://example.com/foo_bar-1.21.tar.gz", 'nomd5'
+    assert_equal '1.21', r.version
+  end
+
+  def test_prefix
+    url='http://www.methylblue.com/test-0.1.tar.gz'
+    md5='d496ea538a21dc4bb8524a8888baf88c'
+    
+    begin #rubysyntaxFAIL
+      Formula.new(url, md5).brew do |prefix|
+        # we test for +/unittest/0.1 because we derive @name from $0
+        assert_equal File.expand_path(prefix), ($cellar+'unittest'+'0.1').to_s
+        assert_kind_of Pathname, prefix
+      end
+    rescue IOError => e
+      # this is not an error, cook will throw as nothing was installed
+      raise unless e.errno == Errno::ENOENT
+    end
+  end
+end
\ No newline at end of file