trepanning 0.1.6 → 1.93.32

data/app/default.rb

@@ -1,4 +1,4 @@
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2011, 2015 Rocky Bernstein <rockyb@rubyforge.net>
 # A place for the default settings
 class Trepan
 
@@ -9,7 +9,7 @@ class Trepan
   DEFAULT_SETTINGS = {
     :cmdproc_opts    => {},    # Default Trepan::CmdProcessor settings
     :core_opts       => {},    # Default Trepan::Core settings
-    :delete_restore  => true,  # Delete restore profile after reading? 
+    :delete_restore  => true,  # Delete restore profile after reading?
     :initial_dir     => nil,   # If --cd option was given, we save it here.
     :nx              => false, # Don't run user startup file (e.g. .trepanrc)
 
@@ -17,7 +17,7 @@ class Trepan
     # (out-of-process debugging)
     :port            => 1955,
     :post_mortem     => false,
-    :host            => 'localhost', 
+    :host            => 'localhost',
 
     :restart_argv    => RubyVM::OS_ARGV,
                                # Command run when "restart" is given.
@@ -26,12 +26,13 @@ class Trepan
 
   # Default settings for Trepan run from the command line.
   DEFAULT_CMDLINE_SETTINGS = {
+    :basename => false,
     :cmdfiles => [],  # Initialization command files to run
     :client   => false, # Attach to out-of-process program?
     :nx       => false, # Don't run user startup file (e.g. .trepanrc)
     :output   => nil,
     :port     => DEFAULT_SETTINGS[:port],
-    :host     => DEFAULT_SETTINGS[:host], 
+    :host     => DEFAULT_SETTINGS[:host],
     :server   => false, # Out-of-process debugging?
     :readline => true,  # Try to use GNU Readline?
     # Note that at most one of :server or :client can be true.
@@ -39,14 +40,14 @@ class Trepan
 
   DEFAULT_DEBUG_STR_SETTINGS = {
     :core_opts => {
-      :cmdproc_opts => {:different => false}},
+      :cmdproc_opts => {:different => true, :highlight => true}},
     :hide_stack => true,
   } unless defined?(DEFAULT_DEBUG_STR_SETTINGS)
 
-  CMD_INITFILE_BASE = 
+  CMD_INITFILE_BASE =
     if RUBY_PLATFORM =~ /mswin/
       # Of course MS Windows has to be different
-      HOME_DIR     =  (ENV['HOME'] || 
+      HOME_DIR     =  (ENV['HOME'] ||
                        ENV['HOMEDRIVE'].to_s + ENV['HOMEPATH'].to_s).to_s
       'trepan.ini'
     else

data/app/markdown.rb

@@ -0,0 +1,191 @@
+# -*- coding: utf-8 -*-
+# Copyright (C) 2015 Rocky Bernstein <rockyb@rubyforge.net>
+
+begin require 'term/ansicolor'; rescue LoadError; end
+require 'redcarpet'
+require 'redcarpet/render_strip'
+
+module Redcarpet
+
+    module Render
+
+        class Terminal < StripDown
+
+            attr_accessor :width
+            attr_accessor :try_ansi
+
+            def strip_term_sequence(text)
+                # to be completed...
+                text
+            end
+
+            # reflow text so lines are not
+            # longer than @width. prefix
+            # is used only after the first line
+            # as this is what we want in lists.
+            def reflow(text, prefix='')
+                lines = []
+                line_len = 0
+                line = ''
+                width = @width - prefix.size
+                text.split.each do |word|
+                    word_size = strip_term_sequence(word).size
+                    if (line_len + word_size) >= width
+                        lines << line
+                        line = prefix + word + ' '
+                        line_len = prefix.size + word_size + 1
+                    else
+                        line += word + ' '
+                        line_len += word_size + 1
+                    end
+                end
+                lines << line
+                lines.join("\n") + "\n"
+            end
+
+            def ansi?
+                defined?(Term::ANSIColor) and try_ansi
+            end
+
+            def header(title, level)
+                if ansi?
+                    Term::ANSIColor.bold + title + Term::ANSIColor.reset + "\n\n"
+                else
+                    sep = (level == 1) ? '=' : '-'
+                    title + "\n" + (sep * title.size) + "\n"
+                end
+            end
+
+            def codespan(text)
+                if ansi?
+                    Term::ANSIColor.underline + text + Term::ANSIColor.reset + "\n"
+                else
+                    "'" + text + "'"
+                end
+            end
+            def triple_emphasis(text)
+                if ansi?
+                    Term::ANSIColor.bold + text + Term::ANSIColor.reset
+                else
+                    '***' + text + '***'
+                end
+            end
+
+            def block_code(code, lang)
+                code + "\n"
+            end
+
+            def double_emphasis(text)
+                if ansi?
+                    Term::ANSIColor.bold + text + Term::ANSIColor.reset
+                else
+                    '**' + text + '**'
+                end
+            end
+
+            def emphasis(text)
+                if ansi?
+                    Term::ANSIColor.italic + text + Term::ANSIColor.reset
+                else
+                    '*' + text + '*'
+                end
+            end
+
+            def underline(text)
+                if ansi?
+                    Term::ANSIColor.italic + text + Term::ANSIColor.reset
+                else
+                    '_' + text + '_'
+                end
+            end
+
+            def strikethrough(text)
+                if ansi?
+                    Term::ANSIColor.striketrhough + text + Term::ANSIColor.reset
+                else
+                    '_' + text + '_'
+                end
+            end
+
+            def linebreak
+                "\n"
+            end
+
+            def paragraph(text)
+                reflow(text) + "\n"
+            end
+
+            def list(content, list_type)
+                case list_type
+                when :ordered
+                    @list_count = 0
+                    "#{content}\n"
+                when :unordered
+                    "\n#{content}\n"
+                end
+            end
+
+            def list_item(content, list_type)
+                prefix = ''
+                case list_type
+                when :ordered
+                    @list_count ||= 0
+                    @list_count += 1
+                    prefix = "#{@list_count}. "
+                when :unordered
+                    prefix = "* "
+                end
+                text = reflow(content, ' ' * prefix.size)
+                text += "\n" if text =~ /\n./
+                prefix + text
+            end
+        end
+    end
+end
+
+class Trepan
+    module Markdown
+        def render(text, width=80, try_ansi=true)
+            @renderer ||= Redcarpet::Render::Terminal.new()
+            @renderer.width = width
+            @renderer.try_ansi = try_ansi
+            @markdown ||= Redcarpet::Markdown.new(@renderer, extensions = {})
+            @markdown.render(text)
+        end
+        module_function :render
+    end
+end
+
+if __FILE__ == $0
+    include Trepan::Markdown
+    string = <<EOF
+# HI
+This is a paragraph
+
+**This** is another *paragraph*.
+EOF
+    [[80, true],
+     [80, false],
+     [15, true],
+     [15, false]].each do | width, try_ansi|
+        puts render(string, width, try_ansi)
+        puts '-' * 60
+    end
+puts
+string = <<EOF
+If the first non-blank character of a line starts with `#`,
+the command is ignored.
+
+* first
+* second
+* third
+
+1. first
+1. second
+1. third
+
+## See also
+foo
+EOF
+puts render(string, 50, false)
+end

data/app/options.rb

@@ -1,14 +1,14 @@
 #!/usr/bin/env ruby
 # -*- coding: utf-8 -*-
-# Copyright (C) 2010, 2011 Rocky Bernstein <rockyb@rubyforge.net>
+# Copyright (C) 2010-2011, 2013, 2015 Rocky Bernstein <rockyb@rubyforge.net>
 #=== Summary
-# Parses command-line options. 
+# Parses command-line options.
 
 require 'optparse'
 class Trepan
   require_relative 'default'
 
-  VERSION = '0.1.6'
+  VERSION = '1.93.32'
   PROGRAM = 'trepan'
 
   def self.show_version
@@ -18,7 +18,7 @@ class Trepan
   def self.copy_default_options
     options = {}
     DEFAULT_CMDLINE_SETTINGS.each do |key, value|
-      begin 
+      begin
         options[key] = value.clone
       rescue TypeError
         options[key] = value
@@ -28,106 +28,111 @@ class Trepan
   end
 
   def self.setup_options(options, stdout=$stdout, stderr=$stderr)
-    OptionParser.new do |opts|
-      opts.banner = <<EOB
+      options[:highlight] = :term
+      OptionParser.new do |opts|
+          opts.banner = <<EOB
 #{show_version}
 Usage: #{PROGRAM} [options] [[--] <script.rb> <script.rb parameters>]
 EOB
-      opts.separator ''
-      opts.separator 'Options:'
-      opts.on('--client',
-              'Connect to out-of-process program') do
-        if options[:server]
-          stderr.puts '--server option previously given. --client option ignored.'
-        else
-          options[:client] = true
-        end
-      end
-      opts.on('-c', '--command FILE', String, 
-              'Execute debugger commands from FILE') do |cmdfile| 
-        if File.readable?(cmdfile)
-          options[:cmdfiles] << cmdfile
-        elsif File.exists?(cmdfile)
-            stderr.puts "Command file '#{cmdfile}' is not readable. Option ignored."
-        else
-          stderr.puts "Command file '#{cmdfile}' does not exist."
-        end
-      end
-      opts.on('--cd DIR', String, 'Change current directory to DIR') do |dir| 
-        if File.directory?(dir)
-          if File.executable?(dir)
-            options[:chdir] = dir
-          else
-            stderr.puts "Can't cd to #{dir}. Option --cd ignored."
+          opts.separator ''
+          opts.separator 'Options:'
+          opts.on('--basename',
+                  'Show basename only on source file listings') do
+              options[:basename] = true
+          end
+          opts.on('--client',
+                  'Connect to out-of-process program') do
+              if options[:server]
+                  stderr.puts '--server option previously given. --client option ignored.'
+              else
+                  options[:client] = true
+              end
+          end
+          opts.on('-c', '--command FILE', String,
+                  'Execute debugger commands from FILE') do |cmdfile|
+              if File.readable?(cmdfile)
+                  options[:cmdfiles] << cmdfile
+              elsif File.exists?(cmdfile)
+                  stderr.puts "Command file '#{cmdfile}' is not readable. Option ignored."
+              else
+                  stderr.puts "Command file '#{cmdfile}' does not exist."
+              end
+          end
+          opts.on('--cd DIR', String, 'Change current directory to DIR') do |dir|
+              if File.directory?(dir)
+                  if File.executable?(dir)
+                      options[:chdir] = dir
+                  else
+                      stderr.puts "Can't cd to #{dir}. Option --cd ignored."
+                  end
+              else
+                  stderr.puts "\"#{dir}\" is not a directory. Option --cd ignored."
+              end
+          end
+          opts.on('-d', '--debug', "Set $DEBUG=true") {$DEBUG = true}
+          opts.on('--[no-]highlight',
+                  'Use [no] syntax highlight output') do |v|
+              options[:highlight] = ((v) ? :term : nil)
+          end
+          opts.on('-h', '--host NAME', String,
+                  'Host or IP used in TCP connections for --server or --client. ' +
+                  "Default is #{DEFAULT_SETTINGS[:host].inspect}.") do
+              |name_or_ip|
+              options[:host] = name_or_ip
+          end
+          opts.on('-I', '--include PATH', String, 'Add PATH to $LOAD_PATH') do
+              |path|
+              $LOAD_PATH.unshift(path)
+          end
+          opts.on('--nx',
+                  "Do not run debugger initialization file #{CMD_INITFILE}") do
+              options[:nx] = true
+          end
+          opts.on('-p', '--port NUMBER', Integer,
+                  'Port number used in TCP connections for --server or --client. ' +
+                  "Default is #{DEFAULT_SETTINGS[:port]}.") do
+              |num|
+              options[:port] = num
+          end
+          # opts.on('-m', '--post-mortem', 'Activate post-mortem mode') do
+          #   options[:post_mortem] = true
+          # end
+          opts.on('--[no-]readline',
+                  'Try [not] GNU Readline') do |v|
+              options[:readline] = v
+          end
+          opts.on('-r', '--require SCRIPT', String,
+                  'Require the library, before executing your script') do |name|
+              if name == 'debug'
+                  stderr.puts "ruby-debug is not compatible with Ruby's 'debug' library. This option is ignored."
+              else
+                  require name
+              end
+          end
+          opts.on('-s', '--server',
+                  'Set up for out-of-process debugging') do
+              if options[:client]
+                  stderr.puts '--client option previously given. --server option ignored.'
+              else
+                  options[:server] = true
+              end
+          end
+          opts.on('-x', '--trace', 'Turn on line tracing') do
+              options[:traceprint] = true
+              options[:nx] = true
+          end
+          opts.separator ''
+          opts.on_tail('-?', '--help', 'Show this message') do
+              options[:help] = true
+              stdout.puts opts
+              exit
+          end
+          opts.on_tail('-v', '--version',
+                       'print the version') do
+              options[:version] = true
+              stdout.puts show_version
           end
-        else
-          stderr.puts "\"#{dir}\" is not a directory. Option --cd ignored."
-        end
-      end
-      opts.on('-d', '--debug', "Set $DEBUG=true") {$DEBUG = true}
-      opts.on('--[no-]highlight',
-              'Use [no] syntax highlight output') do |v|
-        options[:highlight] = ((v) ? :term : nil)
-      end
-      opts.on('-h', '--host NAME', String, 
-              'Host or IP used in TCP connections for --server or --client. ' + 
-              "Default is #{DEFAULT_SETTINGS[:host].inspect}.") do 
-        |name_or_ip| 
-        options[:host] = name_or_ip
-      end
-      opts.on('-I', '--include PATH', String, 'Add PATH to $LOAD_PATH') do 
-        |path|
-        $LOAD_PATH.unshift(path)
-      end
-      opts.on('--nx',
-              "Do not run debugger initialization file #{CMD_INITFILE}") do
-        options[:nx] = true
-      end
-      opts.on('-p', '--port NUMBER', Integer, 
-              'Port number used in TCP connections for --server or --client. ' + 
-              "Default is #{DEFAULT_SETTINGS[:port]}.") do 
-        |num| 
-        options[:port] = num
-      end
-      # opts.on('-m', '--post-mortem', 'Activate post-mortem mode') do 
-      #   options[:post_mortem] = true
-      # end
-      opts.on('--[no-]readline',
-              'Try [not] GNU Readline') do |v|
-        options[:readline] = v
-      end
-      opts.on('-r', '--require SCRIPT', String,
-              'Require the library, before executing your script') do |name|
-        if name == 'debug'
-          stderr.puts "ruby-debug is not compatible with Ruby's 'debug' library. This option is ignored."
-        else
-          require name
-        end
-      end
-      opts.on('-s', '--server',
-              'Set up for out-of-process debugging') do
-        if options[:client]
-          stderr.puts '--client option previously given. --server option ignored.'
-        else
-          options[:server] = true
-        end
-      end
-      opts.on('-x', '--trace', 'Turn on line tracing') do
-        options[:traceprint] = true
-        options[:nx] = true
-      end
-      opts.separator ''
-      opts.on_tail('-?', '--help', 'Show this message') do
-        options[:help] = true
-        stdout.puts opts
-        exit 
-      end
-      opts.on_tail('-v', '--version', 
-                   'print the version') do
-        options[:version] = true
-        stdout.puts show_version
       end
-    end
   end
 end