bake.clj 0.3.1

data/bake.clj.gemspec

@@ -0,0 +1,14 @@
+Gem::Specification.new do |s|
+  s.name = 'bake.clj'
+  s.rubyforge_project = 'bake.clj'
+  s.version = ENV['BAKE_VERSION']
+  s.authors = ['Justin Balthrop', 'Lance Bradley']
+  s.date = Time.now
+  s.default_executable = 'bake'
+  s.summary = 'Build tools got you down? Get baked!'
+  s.description = 'Add equal parts clojure, ruby, love, and tenderness. Bake at 350 for 1 minute. Delicious.'
+  s.email = 'code@justinbalthrop.com'
+  s.executables = ['bake']
+  s.files = ['bake.clj.gemspec', 'bin/bake', 'lib/bake.jar', 'lib/cake.jar']
+  s.homepage = 'http://github.com/ninjudd/bake'
+end

data/bin/bake

@@ -0,0 +1,600 @@
+#!/usr/bin/env ruby
+# Save your fork, there's bake!"
+require 'ftools'
+require 'find'
+require 'open-uri'
+require 'rexml/document'
+require 'socket'
+require 'timeout'
+require 'fileutils'
+
+begin
+  require 'readline'
+rescue LoadError => e
+  module Readline
+    HISTORY = []
+    attr_accessor :basic_word_break_characters, :completion_proc
+    def readline(prompt)
+      $stdout.print prompt
+      $stdout.flush
+      $stdin.gets
+    end
+    extend Readline
+  end
+end
+
+def project_dir(dir)
+  while dir != "/"
+    return dir if [".bake", "project.clj", "build.clj"].any? {|file| File.exists?("#{dir}/#{file}")}
+    dir = File.dirname(dir)
+  end
+  File.expand_path("~")
+end
+
+PATH_SEP = ':'
+file     = File.readlink(__FILE__) rescue __FILE__
+$cakedir = project_dir(Dir.getwd)
+$bakedir = File.dirname(File.dirname(file))
+$repo    = "http://clojars.org/repo/bake/bake"
+$confdir = ".bake"
+Dir.chdir($cakedir)
+File.makedirs($confdir)
+
+def get_bake(version, dest = nil)
+  jar  = version =~ /(.*)-SNAPSHOT/ ? "bake-#{$1}-#{snapshot(version)}.jar" : "bake-#{version}.jar"
+  repo = File.expand_path("~/.m2/repository/bake/bake/#{version}")
+  path = "#{repo}/#{jar}"
+
+  if not File.exists?(path)
+    log(:deps, "fetching bake libraries. this may take a moment...")
+    url = "#{$repo}/#{version}/#{jar}"
+    File.makedirs(repo)
+    open(url) do |jarfile|
+      open(path, "wb") do |file|
+        while (buf = jarfile.read(8192))
+          file.write buf
+        end
+      end
+    end
+  end
+  return path unless dest
+
+  dest = File.expand_path(dest)
+  File.makedirs(dest)
+  File.copy(path, dest)
+  "#{dest}/#{jar}"
+rescue OpenURI::HTTPError => e
+  log(:deps, "unable to find bake version #{version} on clojars.")
+  log(:deps, "please check http://github.com/ninjudd/bake for latest install instructions.")
+  exit
+end
+
+def current_version
+  open("#{$repo}/maven-metadata.xml") do |file|
+    doc = REXML::Document.new file
+    doc.elements['metadata'].elements['versioning'].elements['versions'].elements.to_a('version').last.get_text.to_s
+  end
+end
+
+def snapshot(version)
+  open("#{$repo}/#{version}/maven-metadata.xml") do |file|
+    doc = REXML::Document.new file
+    snapshot  = doc.elements['metadata'].elements['versioning'].elements['snapshot'].elements
+    timestamp = snapshot['timestamp'].get_text
+    build_num = snapshot['buildNumber'].get_text
+    "#{timestamp}-#{build_num}"
+  end
+end
+
+def extract(jar, file, dest = File.dirname(jar))
+  if not File.exists?("#{dest}/#{file}")
+    log(:deps, "extracting #{file} from #{jar}") if verbose?
+    ret = system %{ jar xf #{jar} #{file} }
+    raise "cannot find jar command" unless ret
+    File.makedirs(dest)
+    File.move(file, dest)
+  end
+  "#{dest}/#{file}"
+end
+
+def newer?(file1, file2)
+  return false unless File.exists?(file1)
+  not File.exists?(file2) or test(?>, file1, file2)
+end
+
+def add_opt!(key, *vals)
+  ($opts[key.to_sym] ||= []).concat vals
+end
+
+def parse_opts!
+  ARGV.unshift('default') if ARGV.empty? or ARGV.first[0,1] == '-'
+  $command = ARGV.shift.to_sym
+  $opts = {}
+  ARGV.each do |opt|
+    case opt
+    when /^-(\w*)$/                then $1.split('').each {|c| add_opt!(c, '')}
+    when /^--?([-\w]*)=([-,\w]+)$/ then add_opt!($1, *$2.split(','))
+    when /^--?([-\w]*)$/           then add_opt!($1, "")
+    else                                add_opt!($command, opt)
+    end
+  end
+  $opts.freeze
+end
+parse_opts!
+
+def debug?
+  ENV['BAKE_DEBUG'] or $opts[:d] or $opts[:debug]
+end
+
+def verbose?
+  debug? or $opts[:v] or $opts[:verbose]
+end
+
+def config_updated?
+  newer?(".bake/config", ".bake/bake.pid") or (File.exists?(".bake/cake.pid") and newer?(".bake/config", ".bake/cake.pid"))
+end
+
+def restart?
+  $opts[:r] or $opts[:restart] or [:stop, :restart].include?($command)
+end
+
+def admin_command?
+  [:start, :stop, :reload, :restart].include?($command)
+end
+
+def log(command, *message)
+  message.each do |line|
+    printf("%11s %s\n", "[#{command}]", line)
+  end
+end
+
+class Config < Hash
+  def initialize(path)
+    File.open(path, 'r') do |file|
+      file.each do |line|
+        next if ['#', '!'].include?(line[0,1])
+        key, value = line.split('=', 2)
+        next unless key and value
+        self[key.strip] = value.strip
+      end
+    end if File.exists?(path)
+  end
+
+  def [](*keys)
+    if keys.first.kind_of?(Symbol)
+      key = keys.join('.') + '.'
+      clone.delete_if {|k,v| not k.index(key) == 0}
+    else
+      super
+    end
+  end
+end
+
+def config
+  @config ||= Config.new(".bake/config")
+end
+
+class JVM
+  attr_reader :type, :classpath, :libpath, :port, :pid, :pidfile, :load_time
+
+  def initialize(classpath, libpath)
+    @type       = self.class.name.downcase
+    @classpath  = make_path(classpath)
+    @libpath    = make_path(libpath)
+    @pidfile    = "#{$confdir}/#{type}.pid"
+    @load_time = File.exists?(pidfile) ? File.mtime(pidfile) : Time.now
+    refresh
+  rescue Errno::ENOENT, Errno::ESRCH, Errno::ECONNREFUSED => e
+    log(:start, "defunct #{type} jvm") if debug? and e.kind_of?(Errno::ECONNREFUSED)
+    reset! # no pidfile or invalid pid or connection refused
+  end
+
+  def running?
+    not pid.nil?
+  end
+
+  def enabled?
+    true
+  end
+
+  def init
+    stale = reload_stale_files if enabled? and running?
+    start
+    stale
+  end
+
+  def refresh
+    @pid, @port = IO.read(pidfile).map {|l| l.to_i}
+    Process.kill(0, @pid) # make sure pid is valid
+    TCPSocket.new("localhost", @port) if @port # make sure jvm is running on port
+  end
+
+  def reload
+    refresh
+    init
+  end
+
+  def reload_stale_files
+    stale_files = files.select {|f| stale?(f)}
+
+    if stale_files.empty?
+      log(:reload, "no stale #{type} files found") if verbose? and admin_command?
+      false
+    else
+      log(:reload, "the following #{type} files have changed: #{stale_files.join(', ')}") if debug?
+
+      if stale_files.any? {|f| File.extname(f) != ".clj"}
+        log(:reload, "non-clojure #{type} files have changed, restarting") if verbose?
+        stop(:reload)
+      else
+        log(:reload, "clojure #{type} files have changed, reloading") if verbose?
+        with_socket(0) do |socket|
+          stale_files = stale_files.collect {|f| %{"#{f}"} }
+          socket.write ":reload [#{stale_files.join(" ")}]\n"
+          if socket.eof?
+            FileUtils.touch(pidfile)
+            @load_time = Time.now
+          else
+            inspect(socket) if debug?
+            log(:reload, "unable to reload all #{type} files, restarting") if verbose?
+            stop(:reload)
+          end
+        end
+      end
+      true
+    end
+  end
+
+  def java_opts
+    opts = "-cp #{classpath} -Djava.library.path=#{libpath}"
+    opts << " -Djava.home=#{ENV['JAVA_HOME']} -Djava.ext.dirs=#{ENV['JAVA_HOME']}/lib" if ENV['JAVA_HOME']
+    opts
+  end
+
+  MIN_PORT = 2**13
+  MAX_PORT = 2**16
+
+  def start
+    return unless enabled?
+    if running?
+      log(:start, "#{type} jvm already running") if $command == :start
+      return
+    else
+      log(:start, "starting #{type} jvm") if verbose? or $command == :start
+      @port = rand(MAX_PORT - MIN_PORT) + MIN_PORT
+      @pid = daemon %{ java -Dbake.project=#{$cakedir} #{java_opts} clojure.main -e "(use '#{type})(start-server #{port})" /dev/null }
+      File.open(pidfile, 'w') {|f| f.write("#{pid}\n#{port}\n") }
+    end
+  rescue Errno::EADDRNOTAVAIL => e
+    retry
+  end
+
+  def stop(mode = :stop)
+    with_socket(0) do |socket|
+      action = mode == :reload ? 'quit' : 'force-quit'
+      log(mode, "sending #{action} to #{type} jvm on port #{port}") if debug?
+      socket.write(":#{action}\n")
+      if socket.eof?
+        log(mode, "#{type} jvm stopped") if restart?
+        reset!
+      else
+        inspect(socket) if debug?
+        if mode == :stop
+          log(mode, "error stopping #{type} jvm, try 'bake kill' or 'bake kill -9'")
+        else
+          log(mode, "warning: classes have changed but can't restart #{type} jvm with active connections")
+          log(mode, "         close active connections or use 'bake stop' to force quit")
+        end
+      end
+    end || (log(mode, "#{type} jvm not running") if $command == :stop)
+  end
+
+  def kill
+    Process.kill($opts[:"9"] ? "KILL" : "TERM", pid) if pid
+  end
+
+  def files
+    files = ["project.clj"]
+    classpath.split(PATH_SEP).uniq.each do |path|
+      if path =~ /(.*)\/\*$/
+        files.concat Dir["#{path}.jar"] << "#{$1}/." # include the directory itself so deletions will be detected
+      else
+        Find.find(path) do |f|
+          Find.prune if f == "#{$cakedir}/src/jvm"
+          files << f if File.exists?(f) and not File.directory?(f)
+        end
+      end
+    end
+    files
+  end
+
+  def ping
+    return unless enabled?
+    with_socket(10) do |socket|
+      socket.write ":ping\n"
+      log($command, "#{type} jvm not running") unless socket.gets == "pong\n"
+    end
+  end
+
+  REPL_PROMPT = "REPL_PROMPT__#{rand}"
+  def repl
+    load_history
+    loop do
+      with_socket do |socket|
+        socket.write %{:repl "#{REPL_PROMPT}"}
+        while @ns = read_until_prompt(socket)
+          line = readline
+          return unless line
+          socket.write(line + "\n")
+        end
+      end
+    end
+  ensure
+    save_history
+  end
+
+private
+
+  def make_path(paths)
+    paths.flatten.compact.collect do |path|
+      path[0,1] == '/' ? path : "#{$cakedir}/#{path}"
+    end.join(PATH_SEP)
+  end
+
+  def inspect(socket)
+    while line = socket.gets
+      puts line
+    end
+  end
+
+  def reset!
+    File.unlink(pidfile) if File.exists?(pidfile)
+    @pid, @port = []
+    @load_time = Time.now
+  end
+
+  def stale?(file)
+    File.exists?(file) and File.mtime(file) > load_time
+  end
+
+  def daemon(cmd)
+    puts cmd if debug?
+    pid = fork do
+      Process.setsid
+      exec(cmd)
+    end
+    Process.detach(pid)
+    pid
+  end
+
+  def with_socket(retries = 10)
+    return unless port
+    socket = TCPSocket.new("localhost", port)
+    result = yield(socket)
+    result
+  rescue Errno::ECONNREFUSED => e
+    sleep 1
+    retry if (retries -= 1) >= 0
+    exit
+  ensure
+    socket.close if socket
+  end
+
+  HISTORY_NUM  = 500
+  HISTORY_FILE = ".bake/history"
+  def load_history
+    open(HISTORY_FILE) do |file|
+      file.each {|line| Readline::HISTORY << line.chomp}
+    end if File.exists?(HISTORY_FILE)
+  end
+
+  def save_history
+    open(HISTORY_FILE, 'w') do |file|
+      history = Readline::HISTORY.to_a
+      file.puts(history[-HISTORY_NUM..-1] || history)
+    end
+  end
+
+  def read_until_prompt(socket)
+    while line = socket.gets
+      return $1 if line =~ /^#{REPL_PROMPT}(.*)$/
+      puts line
+    end
+  end
+
+  def complete?(input)
+    return true if input.empty?
+    with_socket do |socket|
+      socket.write(":validate #{input.join("\n").strip}")
+      socket.close_write # send eof
+      socket.gets != "incomplete\n"
+    end
+  end
+
+  Readline.basic_word_break_characters = " \t\n\"'`~@;#&{}()[]"
+  def readline
+    input = []
+    prompt = "#{@ns}=> "
+    Readline.completion_proc = method(:completions)
+    while line = Readline.readline(prompt)
+      input << line
+      if complete?(input)
+        Readline::HISTORY.push(input.join(' ').strip)
+        return input.join("\n").strip
+      end
+      prompt[-2] = ?*
+    end
+  rescue Interrupt => e
+    return nil if input.empty?
+    Readline::HISTORY.push(input)
+    retry
+  end
+
+  def completions(prefix)
+    return [] if prefix.empty?
+    with_socket do |socket|
+      socket.write(":completions [\"#{prefix}\" #{@ns}]\n")
+      completions = []
+      while line = socket.gets
+        completions << line.chomp
+      end
+      completions
+    end
+  end
+end
+
+class Bake < JVM
+  attr_accessor :cakeport
+
+  READLINE = "READLINE__#{rand}"
+  def send_command(command, args = [])
+    with_socket do |socket|
+      args = args.collect{|arg| '"' + arg.gsub('"', '\"').gsub("\n", "\\n") + '"'}
+      cmd  = %{(#{command} [#{args.join(' ')}] #{cakeport}) "#{READLINE}"}
+      log(command, "sending: " + cmd) if debug?
+      socket.write(cmd)
+      while (line = socket.gets)
+        if line =~ /^#{READLINE}(.*)$/
+          socket.write(prompt($1))
+        elsif line =~ /^@#{READLINE}(.*)$/
+          socket.write(prompt($1, :echo => false))
+        else
+          puts line
+        end
+      end
+    end
+  end
+
+  def files
+    super.concat ["build.clj", ".bake/swank"]
+  end
+
+  def java_opts
+    [ENV['BAKE_JAVA_OPTS'], config['bake.java_opts'], super].compact.join(' ')
+  end
+
+private
+
+  def prompt(prompt, opts = {})
+    if opts[:echo] == false
+      echo_off = system("stty -echo 2&> /dev/null")
+      prompt << " (WARNING, input will be visible on console!)" unless echo_off
+    end
+    input = Readline.readline(prompt + ": ") || ''
+    input + "\n"
+  ensure
+    if echo_off
+      system("stty echo 2&> /dev/null")
+      puts
+    end
+  end
+end
+
+class Cake < JVM
+  def java_opts
+    [ENV['JAVA_OPTS'], config['project.java_opts'], super].compact.join(' ')
+  end
+
+  def enabled?
+    Dir["lib/*.jar"].any?
+  end
+end
+
+# Bootstrap bake dependencies.
+lib = "#{$bakedir}/lib"
+if File.exists?("#{$bakedir}/.gitignore")
+  if Dir["#{lib}/*.jar"].empty? or Dir["#{lib}/dev/*.jar"].empty?
+    # In a new git checkout, need to fetch dependencies.
+    version = IO.read("#{$bakedir}/project.clj").split("\n").first.match(/defproject bake \"(.*)\"/)[1]
+    bakejar = get_bake(version, lib)
+    extract(bakejar, "cake-#{version}.jar", "#{lib}/dev")
+  end
+
+  bakepath = ["#{$bakedir}/src", "#{lib}/*:#{lib}/dev/*"].join(PATH_SEP)
+  cakepath = ["#{$bakedir}/cake", "#{lib}/dev/*"].join(PATH_SEP)
+else
+  bakejar = "#{lib}/bake.jar"
+  cakejar = "#{lib}/cake.jar"
+  if File.exists?(bakejar) and File.exists?(cakejar)
+    # Inside a gem install.
+    bakepath = bakejar
+    cakepath = cakejar
+  else
+    # Naked script.
+    version  = current_version
+    bakepath = get_bake(version)
+    cakepath = extract(bakepath, "cake-#{version}.jar")
+  end
+end
+
+bake = Bake.new(
+  [bakepath, "src", "src/clj", config['bake.claspath'], "lib/dev/*"],
+  [config['bake.library.path'], "lib/dev/native"]
+)
+cake = Cake.new(
+  [cakepath, "src", "src/clj", "classes", "test", config['project.classpath'], "lib/*", "lib/dev/*"],
+  [config['project.library.path'], "lib/native", "lib/dev/native"]
+)
+
+if $command == :kill
+  if $opts[:all]
+    `jps -v | grep bake.project`.split("\n").each do |line|
+      pid = line.split(' ').first.to_i
+      Process.kill($opts[:"9"] ? "KILL" : "TERM", pid)
+    end
+  else
+    bake.kill
+    cake.kill
+  end
+  exit
+elsif $command == :ps
+  puts `jps -v | grep bake.project`.sort.reverse
+  exit
+elsif restart? or config_updated?
+  bake.stop
+  cake.stop
+  exit if $command == :stop
+end
+
+bake.init
+if not [:deps, :clean].include?($command) and File.exists?('project.clj')
+  if newer?('project.clj', 'pom.xml')
+    bake.send_command(:deps) 
+    bake.init
+  elsif File.exist?('.bake/swank')    
+    bake.send_command(:"swank-deps")
+    bake.init
+  end
+
+  cake.init
+end
+
+if $command == :repl
+  if File.exists?('project.clj') and not $opts[:bake]
+    cake.repl
+  else
+    bake.repl
+  end
+elsif [:start, :reload, :restart].include?($command)
+  if $opts[:l] or $opts[:log]
+    system("tail -f .bake/cake.log")
+  else
+    bake.ping
+    cake.ping
+  end
+else
+  bake.cakeport = cake.port
+  if $command == :test and $opts[:auto]
+    interval = $opts[:auto].last.to_i 
+    interval = config['test.auto.interval'].to_i if config['test.auto.interval'] || 1 if interval == 0
+    run_tests = true
+    while true
+      bake.send_command($command, ARGV) if run_tests
+      run_tests = cake.reload
+      bake.reload
+      sleep(interval)
+    end
+  else
+    bake.send_command($command, ARGV)
+  end
+end

metadata

@@ -0,0 +1,71 @@
+--- !ruby/object:Gem::Specification 
+name: bake.clj
+version: !ruby/object:Gem::Version 
+  hash: 17
+  prerelease: false
+  segments: 
+  - 0
+  - 3
+  - 1
+  version: 0.3.1
+platform: ruby
+authors: 
+- Justin Balthrop
+- Lance Bradley
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-07-23 00:00:00 -07:00
+default_executable: bake
+dependencies: []
+
+description: Add equal parts clojure, ruby, love, and tenderness. Bake at 350 for 1 minute. Delicious.
+email: code@justinbalthrop.com
+executables: 
+- bake
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- bake.clj.gemspec
+- bin/bake
+- lib/bake.jar
+- lib/cake.jar
+has_rdoc: true
+homepage: http://github.com/ninjudd/bake
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: bake.clj
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Build tools got you down? Get baked!
+test_files: []
+