2243c1257c
Closes Homebrew/homebrew#8477. Signed-off-by: Jack Nagel <jacknagel@gmail.com>
65 lines
2 KiB
Ruby
65 lines
2 KiB
Ruby
require 'formula'
|
|
require 'find'
|
|
|
|
class ClozureCl < Formula
|
|
url 'ftp://ftp.clozure.com/pub/release/1.7/ccl-1.7-darwinx86.tar.gz'
|
|
version '1.7'
|
|
homepage 'http://ccl.clozure.com/'
|
|
md5 '4f7d8c48abc9355c69946ef125fa2aa5'
|
|
|
|
def install
|
|
# Get rid of all the .svn dirs, that for some reason are
|
|
# included in the tarball
|
|
Find.find(Dir.pwd) do |path|
|
|
if File.directory?(path) && File.basename(path) == '.svn'
|
|
rm_rf path
|
|
Find.prune
|
|
end
|
|
end
|
|
|
|
# Due to the way ClozureCL is organized, we'll put everything into
|
|
# a subdirectory, and then link all the necessary scripts to the
|
|
# locations Homebrew expects
|
|
ccl_install_dir = prefix + 'ccl'
|
|
|
|
# These scripts allow the user to execute some code or get a REPL
|
|
ccl_scripts = Dir['./scripts/ccl{,64}']
|
|
|
|
# ClozureCL uses the CCL_DEFAULT_DIRECTORY to find its sources. Update
|
|
# it so it points to the right directory (since the ccl scripts themselves
|
|
# won't be in the usual location)
|
|
ccl_scripts.map { |path| Pathname.new(File.expand_path(path)) }.each do |script|
|
|
inreplace script do |s|
|
|
s.gsub! /CCL_DEFAULT_DIRECTORY=.+$/, %Q{CCL_DEFAULT_DIRECTORY="#{ccl_install_dir}"}
|
|
end
|
|
end
|
|
|
|
# Copy everything over to the cellar
|
|
ccl_install_dir.install Dir['*']
|
|
|
|
# Link the wrapper scripts to prefix/bin, where Homebrew can link them properly
|
|
bin.mkdir
|
|
ccl_scripts.each do |script|
|
|
ln ccl_install_dir+script, bin+File.basename(script)
|
|
end
|
|
end
|
|
|
|
def caveats
|
|
<<-CAVEATS
|
|
Run `ccl` to run a 32-bit session, and `ccl64` for a 64-bit one.
|
|
|
|
To test if everything works correctly, run `brew test #{name}`.
|
|
CAVEATS
|
|
end
|
|
|
|
# Generates a string to test the ccl scripts that can be passed directly to `system'
|
|
def test_ccl(bit = 32)
|
|
ccl = bin + "ccl#{'64' if bit == 64}"
|
|
%Q{#{ccl} -e '(progn (format t "Hello world from #{bit}-bit ClozureCL") (ccl::quit))'}
|
|
end
|
|
|
|
def test
|
|
system test_ccl
|
|
system test_ccl(64)
|
|
end
|
|
end
|