drake 0.8.1.10.0

data/lib/rake/comp_tree/quix/builtin/kernel/tap.rb

@@ -0,0 +1,57 @@
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+unless respond_to? :tap
+  module Kernel
+    def tap
+      yield self
+      self
+    end
+  end
+end
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+

data/lib/rake/comp_tree/quix/diagnostic.rb

@@ -0,0 +1,92 @@
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+require 'rake/comp_tree/quix/builtin/kernel/tap'
+
+module Rake::CompTree::Quix
+  module Diagnostic
+    def show(desc = nil, stream = STDOUT, &block)
+      if desc
+        stream.puts(desc)
+      end
+      if block
+        expression = block.call
+        eval(expression, block.binding).tap { |result|
+          stream.printf("%-16s => %s\n", expression, result.inspect)
+        }
+      end
+    end
+
+    if $DEBUG
+      def debug
+        yield
+      end
+
+      def debugging?
+        true
+      end
+
+      def trace(desc = nil, &block)
+        if desc
+          show("#{desc}.".sub(%r!\.\.+\Z!, ""), STDERR, &block)
+        else
+          show(nil, STDERR, &block)
+        end
+      end
+    else
+      # non-$DEBUG
+      def debug ; end
+      def debugging? ; end
+      def trace(*args) ; end
+    end
+
+    extend self
+  end
+end
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+

data/lib/rake/comp_tree/quix/kernel.rb

@@ -0,0 +1,109 @@
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+require 'thread'
+
+module Rake::CompTree::Quix
+  module Kernel
+    def let
+      yield self
+    end
+
+    def singleton_class
+      class << self
+        self
+      end
+    end
+
+    module Gensym
+      @mutex = Mutex.new
+      @count = 0
+
+      def gensym(prefix = nil)
+        count = Gensym.module_eval {
+          @mutex.synchronize {
+            @count += 1
+          }
+        }
+        "#{prefix || :G}_#{count}_#{rand}".to_sym
+      end
+    end
+    include Gensym
+
+    def call_private(method, *args, &block)
+      instance_eval { send(method, *args, &block) }
+    end
+
+    def with_warnings(value = true)
+      previous = $VERBOSE
+      $VERBOSE = value
+      begin
+        yield
+      ensure
+        $VERBOSE = previous
+      end
+    end
+
+    def no_warnings(&block)
+      with_warnings(false, &block)
+    end
+
+    def abort_on_exception(value = true)
+      previous = Thread.abort_on_exception
+      Thread.abort_on_exception = value
+      begin
+        yield
+      ensure
+        Thread.abort_on_exception = previous
+      end
+    end
+
+    extend self
+  end
+end
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+

data/lib/rake/comp_tree/retriable_fork.rb

@@ -0,0 +1,66 @@
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+module Rake::CompTree
+  module RetriableFork
+    HAVE_FORK = lambda {
+      begin
+        process_id = fork { }
+        Process.wait(process_id)
+      rescue NotImplementedError
+        return false
+      end
+      true
+    }.call
+
+    def fork(retry_wait = 10, retry_max = 10, &block)
+      num_retries = 0
+      begin
+        Process.fork(&block)
+      rescue Errno::EAGAIN
+        num_retries += 1
+        if num_retries == retry_max
+          message = %Q{
+            ****************************************************************
+            Maximum number of EAGAIN signals reached (#{retry_max})
+            ****************************************************************
+
+            Either increase your process limit permission (consult your
+            OS manual) or run this script as superuser.
+  
+            ****************************************************************
+          }
+          STDERR.puts(message.gsub(%r!^[ \t]+!, ""))
+          raise
+        end
+        STDERR.puts "Caught EGAIN. Retrying in #{retry_wait} seconds."
+        sleep(retry_wait)
+        retry
+      end
+    end
+    module_function :fork
+  end
+end
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+

data/lib/rake/comp_tree/task_node.rb

@@ -0,0 +1,46 @@
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+
+
+module Rake::CompTree
+  #
+  # TaskNode is a Node which discards its results
+  #
+  class TaskNode < Node
+    def compute #:nodoc:
+      @function.call
+      true
+    end
+
+    class << self
+      #
+      # TaskNode always returns true.
+      #
+      def discard_result?
+        true
+      end
+    end
+  end
+end
+
+
+
+
+######################################################
+# 
+# **** DO NOT EDIT ****
+# 
+# **** THIS IS A GENERATED FILE *****
+# 
+######################################################
+
+

data/lib/rake/contrib/compositepublisher.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+module Rake
+
+  # Manage several publishers as a single entity.
+  class CompositePublisher
+    def initialize
+      @publishers = []
+    end
+    
+    # Add a publisher to the composite.
+    def add(pub)
+      @publishers << pub
+    end
+    
+    # Upload all the individual publishers.
+    def upload
+      @publishers.each { |p| p.upload }
+    end
+  end
+
+end
+
+

data/lib/rake/contrib/ftptools.rb

@@ -0,0 +1,153 @@
+#!/usr/bin/env ruby
+
+# = Tools for FTP uploading.
+#
+# This file is still under development and is not released for general
+# use.
+
+require 'date'
+require 'net/ftp'
+
+module Rake # :nodoc:
+
+  ####################################################################
+  # <b>Note:</b> <em> Not released for general use.</em>
+  class FtpFile
+    attr_reader :name, :size, :owner, :group, :time
+
+    def self.date
+      @date_class ||= Date
+    end
+
+    def self.time
+      @time_class ||= Time
+    end
+
+    def initialize(path, entry)
+      @path = path
+      @mode, line, @owner, @group, size, d1, d2, d3, @name = entry.split(' ')
+      @size = size.to_i
+      @time = determine_time(d1, d2, d3)
+    end
+
+    def path
+      File.join(@path, @name)
+    end
+
+    def directory?
+      @mode[0] == ?d
+    end
+
+    def mode
+      parse_mode(@mode)
+    end
+
+    def symlink?
+      @mode[0] == ?l
+    end
+
+    private # --------------------------------------------------------
+
+    def parse_mode(m)
+      result = 0
+      (1..9).each do |i|
+        result = 2*result + ((m[i]==?-) ? 0 : 1)
+      end
+      result
+    end
+
+    def determine_time(d1, d2, d3)
+      now = self.class.time.now
+      if /:/ =~ d3
+        h, m = d3.split(':')
+        result = Time.parse("#{d1} #{d2} #{now.year} #{d3}")
+        if result > now
+          result = Time.parse("#{d1} #{d2} #{now.year-1} #{d3}")
+        end
+      else
+        result = Time.parse("#{d1} #{d2} #{d3}")
+      end
+      result
+#       elements = ParseDate.parsedate("#{d1} #{d2} #{d3}")
+#       if elements[0].nil?
+#         today = self.class.date.today
+#         if elements[1] > today.month
+#           elements[0] = today.year - 1
+#         else
+#           elements[0] = today.year
+#         end
+#       end
+#       elements = elements.collect { |el| el.nil? ? 0 : el }
+#       Time.mktime(*elements[0,7])
+    end
+  end
+
+  ####################################################################
+  # Manage the uploading of files to an FTP account.
+  class FtpUploader
+
+    # Log uploads to standard output when true.
+    attr_accessor :verbose
+
+    class << FtpUploader
+      # Create an uploader and pass it to the given block as +up+.
+      # When the block is complete, close the uploader.
+      def connect(path, host, account, password)
+        up = self.new(path, host, account, password)
+        begin
+          yield(up)
+        ensure
+          up.close
+        end
+      end
+    end
+
+    # Create an FTP uploader targetting the directory +path+ on +host+
+    # using the given account and password.  +path+ will be the root
+    # path of the uploader.
+    def initialize(path, host, account, password)
+      @created = Hash.new
+      @path = path
+      @ftp = Net::FTP.new(host, account, password)
+      makedirs(@path)
+      @ftp.chdir(@path)
+    end
+
+    # Create the directory +path+ in the uploader root path.
+    def makedirs(path)
+      route = []
+      File.split(path).each do |dir|
+        route << dir
+        current_dir = File.join(route)
+        if @created[current_dir].nil?
+          @created[current_dir] = true
+          puts "Creating Directory  #{current_dir}" if @verbose
+          @ftp.mkdir(current_dir) rescue nil
+        end
+      end
+    end
+
+    # Upload all files matching +wildcard+ to the uploader's root
+    # path.
+    def upload_files(wildcard)
+      Dir[wildcard].each do |fn|
+        upload(fn)
+      end
+    end
+    
+    # Close the uploader.
+    def close
+      @ftp.close
+    end
+
+    private # --------------------------------------------------------
+
+    # Upload a single file to the uploader's root path.
+    def upload(file)
+      puts "Uploading #{file}" if @verbose
+      dir = File.dirname(file)
+      makedirs(dir)
+      @ftp.putbinaryfile(file, file) unless File.directory?(file)
+    end
+  end
+end