rcodetools 0.5.0.0 → 0.7.0.0

data/bin/xmpfilter

@@ -1,7 +1,8 @@
-#! /home/batsman/usr//bin/ruby
+#! /home/batsman/usr/bin/ruby
 require 'rcodetools/xmpfilter'
 require 'rcodetools/options'
 
+include Rcodetools
 options = DEFAULT_OPTIONS
 rails_settings = false
 klass = XMPFilter
@@ -71,5 +72,10 @@ end
 targetcode = ARGF.read
 Dir.chdir options[:wd] if options[:wd]
 
+if XMPFilter.detect_rbtest(targetcode, options)
+  require 'rcodetools/xmptestunitfilter'
+  klass = XMPTestUnitFilter
+end
+
 # Do the job. dispatched by klass.
 puts klass.run(targetcode, options)

data/icicles-rcodetools.el

@@ -28,7 +28,8 @@ See also `rct-interactive'."
                         (icicle-point-position-in-candidate 'input-end)
                         pattern klass alist
                         (icicle-candidate-help-fn
-                         (lambda (result) (ri (cdr (assoc result alist)))))) ;bindings
+                         (lambda (result)
+                           (ri (cdr (assoc result alist)))))) ;bindings
                        (rct-exec-and-eval rct-complete-command-name "--completion-emacs-icicles"))
 
 (provide 'icicles-rcodetools)

data/lib/rcodetools/completion.rb

@@ -3,6 +3,9 @@
 
 require 'rcodetools/xmpfilter'
 require 'enumerator'
+
+module Rcodetools
+
 # Common routines for XMPCompletionFilter/XMPDocFilter
 module ProcessParticularLine
   def fill_literal!(expr)
@@ -156,7 +159,7 @@ XXX
     debugprint "newcode", newcode.gsub(/;/, "\n"), "-"*80
     stdout, stderr = execute(newcode)
     output = stderr.readlines
-    debugprint "stdout", output, "-"*80
+    debugprint "stderr", output, "-"*80
     output = output.reject{|x| /^-:[0-9]+: warning/.match(x)}
     runtime_data = extract_data(output)
     if exception = /^-:[0-9]+:.*/m.match(output.join)
@@ -164,6 +167,7 @@ XXX
     end
     begin
       dat = runtime_data.results[1][0]
+      debugprint "dat = #{dat.inspect}"
       [dat[0], dat[1..-1].to_s]
     rescue
       raise RuntimeDataError, runtime_data.inspect
@@ -219,11 +223,11 @@ class XMPCompletionFilter < XMPFilter
     set_expr_and_postfix!(expr, column){|c| /^.{#{c}}/ }
     @prefix = expr
     case expr
-    when /^\$\w+$/              # global variable
+    when /^\$\w*$/              # global variable
       __prepare_line 'nil', 'global_variables', '%n'
-    when /^@@\w+$/              # class variable
+    when /^@@\w*$/              # class variable
       __prepare_line 'nil', 'Module === self ? class_variables : self.class.class_variables', '%n'
-    when /^@\w+$/               # instance variable
+    when /^@\w*$/               # instance variable
       __prepare_line 'nil', 'instance_variables', '%n'
     when /^([A-Z].*)::([^.]*)$/    # nested constants / class methods
       @prefix = $2
@@ -277,15 +281,21 @@ exit
 EOC
   end
 
+  def candidates_with_class(code, lineno, column=nil)
+    klass, methods = runtime_data_with_class(code, lineno, column) rescue ["", ""]
+    raise NoCandidates, "No candidates." if methods.nil? or methods.empty?
+    [klass, methods.split(/ /).sort]
+  end
+
   # Array of completion candidates.
+  class NoCandidates < RuntimeError;  end
   def candidates(code, lineno, column=nil)
-    methods = runtime_data(code, lineno, column) rescue ""
-    methods.split(/ /).sort
+    candidates_with_class(code, lineno, column)[1]
   end
 
   # Completion code for editors.
   def completion_code(code, lineno, column=nil)
-    candidates(code, lineno, column).join("\n")
+    candidates(code, lineno, column).join("\n") rescue "\n"
   end
 end
 
@@ -299,6 +309,8 @@ class XMPCompletionClassInfoFilter < XMPCompletionFilter
 
   def completion_code(code, lineno, column=nil)
     candidates(code, lineno, column).join("\n").tr("\0", "\t")
+  rescue NoCandidates
+    ""
   end
 end
 
@@ -318,23 +330,27 @@ class XMPCompletionEmacsFilter < XMPCompletionFilter
       table << "))\n"
       alist << "))\n"
     rescue Exception => err
-      return %Q[(error "#{err.message}")]
+      return error_code(err)
     end
     elisp << table << alist
     elisp << %Q[(setq pattern "#{prefix}")\n]
     elisp << %Q[(try-completion pattern rct-method-completion-table nil)\n]
     elisp << ")"                # /progn
   end
-end
 
-class XMPCompletionEmacsIciclesFilter < XMPCompletionFilter
-  @candidates_with_description_flag = true
+  def error_code(err)
+    case err
+    when NoCandidates
+      %Q[(error "#{err.message}")]
+    else
+      %Q[(error "#{err.message}\n#{err.backtrace.join("\n")}")]
+    end
 
-  def candidates(code, lineno, column=nil)
-    klass, methods = runtime_data_with_class(code, lineno, column) rescue ["", ""]
-    @klass = klass
-    methods.split(/ /).sort
   end
+end
+
+class XMPCompletionEmacsIciclesFilter < XMPCompletionEmacsFilter
+  @candidates_with_description_flag = true
 
   def completion_code(code, lineno, column=nil)
     elisp = "(progn\n"
@@ -342,7 +358,8 @@ class XMPCompletionEmacsIciclesFilter < XMPCompletionFilter
     help_alist = "(setq alist '("
     
     begin
-      candidates(code, lineno, column).sort.each do |minfo|
+      klass, cands = candidates_with_class(code, lineno, column)
+      cands.sort.each do |minfo|
         meth, description = split_method_info(minfo)
         table << format('("%s\\t[%s]") ', meth, description)
         help_alist << format('("%s" . "%s")', meth, description)
@@ -350,12 +367,13 @@ class XMPCompletionEmacsIciclesFilter < XMPCompletionFilter
       table << "))\n"
       help_alist << "))\n"
     rescue Exception => err
-      return %Q[(error "#{err.message}")]
+      return error_code(err)
     end
     elisp << table << help_alist
     elisp << %Q[(setq pattern "#{prefix}")\n]
-    elisp << %Q[(setq klass "#{@klass}")\n]
+    elisp << %Q[(setq klass "#{klass}")\n]
     elisp << ")"                # /progn
   end
 end
 
+end

data/lib/rcodetools/doc.rb

@@ -1,6 +1,8 @@
 require 'rcodetools/completion'
 # Call Ri for any editors!!
 #  by rubikitch <rubikitch@ruby-lang.org>
+module Rcodetools
+
 class XMPDocFilter < XMPFilter
   include ProcessParticularLine
 
@@ -163,3 +165,4 @@ class XMPRiVimFilter < XMPDocFilter
   end
 end
 
+end

data/lib/rcodetools/fork.rb

@@ -0,0 +1,222 @@
+## Rcodetools version of ruby_fork
+# 
+# Based on ruby_fork.rb by Ryan Davis, Eric Hodel, Zen Spider Software
+#
+#  (The MIT License)
+#
+#  Copyright (c) 2006 Ryan Davis, Eric Hodel, Zen Spider Software <support@zenspider.com>
+#                2007 rubikitch <rubikitch@ruby-lang.org>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'optparse'
+require 'socket'
+require 'rcodetools/fork_config'
+
+module Rcodetools
+module Fork
+
+  USAGE_HELP = <<XXX
+
+rct-fork and rct-fork-client (we) are originally ruby_fork/ruby_fork_client in ZenTest by Zen Spider Software and are slightly modified for rcodetools.
+Completion or document browsing in a script with heavy libraries such as Rails takes a significant latency.
+We eliminate constant overhead of loading heavy libraries.
+
+rct-fork loads libraries you want to pre-load and opens up a server socket and waits for connection. When a connection comes in rct-fork forks to make a copy of the environment.
+
+rct-fork-client connects to the rct-fork server and runs script in server's environment.
+
+xmpfilter/rct-complete/rct-doc can auto-detect rct-fork process with --fork option.
+This means that once you start up rct-fork, you do not have to start up rct-fork-client manually.
+
+demo/fork-demo.sh shows rct-fork example.
+
+!!WARNING!!
+We are only meant to run xmpfilter/rct-complete/rct-doc!
+If you want to run other programs, use original ruby_fork/ruby_fork_client.
+XXX
+  # '
+
+  DEFAULT_SETTINGS = {
+    :requires => [],
+    :code => [],
+    :extra_paths => [],
+    :port => PORT,
+  }
+
+  def self.add_env_args(opts, settings)
+    opts.separator ''
+    opts.separator 'Process environment options:'
+
+    opts.separator ''
+    opts.on('-e CODE', 'Execute CODE in parent process.',
+            'May be specified multiple times.') do |code|
+      settings[:code] << code
+    end
+
+    opts.separator ''
+    opts.on('-I DIRECTORY', 'Adds DIRECTORY to $LOAD_PATH.',
+            'May be specified multiple times.') do |dir|
+      settings[:extra_paths] << dir
+    end
+
+    opts.separator ''
+    opts.on('-r LIBRARY', 'Require LIBRARY in the parent process.',
+            'May be specified multiple times.') do |lib|
+      settings[:requires] << lib
+    end
+  end
+
+  def self.daemonize(io = File.open('/dev/null', 'r+'))
+    fork and exit!
+    Process.setsid
+    fork and exit!
+
+    # Rcodetools version does not have to reopen IOs because they are already reopened.
+#     STDIN.reopen io
+#     STDOUT.reopen io
+#     STDERR.reopen io
+
+    yield if block_given?
+  end
+
+  def self.parse_client_args(args)
+    settings = Marshal.load Marshal.dump(DEFAULT_SETTINGS)
+
+    opts = OptionParser.new do |opts|
+      opts.banner = "Usage: #{$0} [options]\n#{USAGE_HELP}"
+
+      opts.separator ''
+      opts.on('-p', '--port PORT',
+              'Listen for connections on PORT.',
+              "Default: #{settings[:port]}") do |port|
+        settings[:port] = port.to_i
+              end
+
+      opts.separator ''
+      opts.on('-h', '--help', 'You\'re looking at it.') do
+        $stderr.puts opts
+        exit 1
+      end
+
+      add_env_args opts, settings
+    end
+
+    opts.parse! args
+
+    return settings
+  end
+
+  def self.parse_server_args(args)
+    settings = Marshal.load Marshal.dump(DEFAULT_SETTINGS)
+
+    opts = OptionParser.new do |opts|
+      opts.banner = "Usage: #{$0} [options]\n#{USAGE_HELP}"
+
+      opts.separator ''
+      opts.on('-p', '--port PORT',
+              'Listen for connections on PORT.',
+              "Default: #{settings[:port]}") do |port|
+        settings[:port] = port.to_i
+      end
+
+      opts.separator ''
+      opts.on('-h', '--help', 'You\'re looking at it.') do
+        $stderr.puts opts
+        exit 1
+      end
+
+      add_env_args opts, settings
+    end
+
+    opts.parse! args
+
+    return settings
+  end
+
+  def self.start_client(args = ARGV)
+    trap 'INT' do exit 1 end # Exit gracefully
+
+    settings = parse_client_args args
+
+    args = Marshal.dump [settings, ARGV]
+
+    socket = TCPSocket.new 'localhost', settings[:port]
+
+    socket.puts args.length
+    socket.write args
+    socket.close_write
+
+    until socket.eof?
+      $stdout.puts socket.gets
+    end
+  end
+
+  def self.start_server(args = ARGV)
+    write_pwd
+    settings = parse_server_args args
+    setup_environment settings
+
+    server = TCPServer.new 'localhost', settings[:port]
+
+    $stderr.puts "#{$0} Running as PID #{$$} on #{settings[:port]}"
+
+    loop do
+      Thread.new server.accept do |socket|
+        begin
+          args_length = socket.gets.to_i
+          args = socket.read args_length
+          settings, argv = Marshal.load args
+
+          fork do
+            daemonize socket do
+              ARGV.replace argv
+              setup_environment settings
+              socket.close
+            end
+          end
+
+          socket.close # close my copy.
+        rescue => e
+          socket.close if socket
+        end
+      end
+    end
+  rescue Interrupt, SystemExit
+    File.unlink PWD_FILE
+  rescue Exception => e
+    File.unlink PWD_FILE
+    puts "Failed to catch #{e.class}:#{e.message}"
+    puts "\t#{e.backtrace.join "\n\t"}"
+  end
+
+  def self.setup_environment(settings)
+    settings[:extra_paths].map! { |dir| dir.split ':' }
+    settings[:extra_paths].flatten!
+    settings[:extra_paths].each { |dir| $:.unshift dir }
+
+    settings[:requires].each { |file| require file }
+
+    settings[:code].each { |code| eval code }
+  end
+
+end
+
+end

data/lib/rcodetools/fork_config.rb

@@ -0,0 +1,26 @@
+
+module Rcodetools
+
+module Fork
+  PORT = 9085
+  # Contains $PWD of rct-fork server. Exists only while running.
+  PWD_FILE = File.expand_path "~/.rct-fork.pwd"
+
+  def self.chdir_fork_directory
+    if run?
+      Dir.chdir File.read(PWD_FILE)
+    else
+      raise "rct-fork is not running."
+    end
+  end
+
+  def self.write_pwd
+    open(PWD_FILE, "w"){|f| f.print Dir.pwd }
+  end
+
+  def self.run?
+    File.file? PWD_FILE
+  end
+end
+  
+end

data/lib/rcodetools/options.rb

@@ -1,5 +1,6 @@
 require 'optparse'
 
+module Rcodetools
 # Domain specific OptionParser extensions
 module OptionHandler
   def set_banner
@@ -15,6 +16,15 @@ module OptionHandler
     on("--column=COLUMN", "Current column number.") do |n|
       options[:column] = n.to_i
     end
+    on("-t TEST", "--test=TEST",
+       "Execute test script. ",
+       "TEST is TESTSCRIPT, TESTSCRIPT@TESTMETHOD, or TESTSCRIPT@LINENO.",
+       "You must specify --filename option.") do |t|
+      options[:test_script], options[:test_method] = t.split(/@/)
+    end
+    on("--filename=FILENAME", "Filename of standard input.") do |f|
+      options[:filename] = f
+    end
   end
 
   def handle_interpreter(options)
@@ -36,7 +46,15 @@ module OptionHandler
     on("-e EXPR", "--eval=EXPR", "--stub=EXPR", "Evaluate EXPR after execution.") do |expr|
       options[:evals] << expr
     end
-
+    on("--fork", "Use rct-fork-client if rct-fork is running.") do 
+      options[:detect_rct_fork] = true
+    end
+    on("--rbtest", "Use rbtest.") do
+      options[:use_rbtest] = true
+    end
+    on("--detect-rbtest", "Use rbtest if '=begin test_*' blocks exist.") do
+      options[:detect_rbtest] = true
+    end
   end
 
   def handle_misc(options)
@@ -79,6 +97,15 @@ def set_extra_opts(options)
   end
 end
 
+def check_opts(options)
+  if options[:test_script]
+    unless options[:filename]
+      $stderr.puts "You must specify --filename as well as -t(--test)."
+      exit 1
+    end
+  end
+end
+
 DEFAULT_OPTIONS = {
   :interpreter       => "ruby",
   :options => ["hoge"],
@@ -92,4 +119,10 @@ DEFAULT_OPTIONS = {
   :use_parentheses   => true,
   :column            => nil,
   :output_stdout     => true,
+  :test_script       => nil,
+  :test_method       => nil,
+  :detect_rct_fork   => false,
+  :use_rbtest        => false,
+  :detect_rbtest     => false,
   }
+end                             # /Rcodetools