appl 1.6.2 → 1.13

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 3006d9d18efb0699ffb9cce15b9f5ebad26dbe0d62e723b982ef010f0667d2fd
-  data.tar.gz: f13bdd180f26807607895846f19130a3e927b1cbb97bdc54beab2fc6f2d62762
+  metadata.gz: 9e3306b330c4d69ef88e6b75511d7b0ab1e030f990aac1800305dcfa4afd0f65
+  data.tar.gz: eff477635d40b6ff9c443b0fe1256107c85d31bf6aa7c0a2088f26ffa239111c
 SHA512:
-  metadata.gz: 76f086e3cacbd25034ce77d242c0eae9d1b8c161f02a7cce354796f9d344751ce9425613357e945f9ef50e854ff7bbd84f8255b111cdecd21acc53b0be0b214c
-  data.tar.gz: 701155765e67cf6519b5cb91a8b528e65b14f2175bc6dd53dbb76d232c7a6c41bfa8a0e7467eb2bbed373fbde3ca9437e65f73a763658ba430487565e31d9e87
+  metadata.gz: 6ae84d8de622e2e2b4763ef8fbda40b9210edd326d48358707364f4a4c99b0fbee05c1ed1dc5b31d83d3f7429e74922a81af5eb22de7572a1a3c6ad7bec99925
+  data.tar.gz: ab2ea5f6b9f7850bd62e741201cc10bdaa1c1c6be549c0a45fa435bb7ee55779fabfade33a0801fd931d7313d0b90f3a991b1ec38ee6749db19562ee6969afe2

data/doc/demoappl

@@ -46,9 +46,9 @@ class DemoAppl < Application
   define_option "V", :version,                    "show version information"
   alias_option  "V", "version"
 
-  UNKNOWN = "Sorry, unknown option"
-  STOPOPT = "no more options"
-  UNPROCA = "Warning: unprocessed arguments left"
+  STOPOPT = "Stop option processing"
+  UNKNOWN = "Not a valid option: `%s'."
+  UNPROCA = "Warning. Unprocessed arguments: %s"
 
   def run
     puts inspect

data/doc/demofan

@@ -0,0 +1,90 @@
+#!/usr/bin/env ruby
+
+#
+#  demofan  -- Test the Application class with commands
+#
+
+require "applfan"
+
+
+class DemoFan < ApplicationFan
+
+  NAME      = "demofan"
+  VERSION   = "1.0"
+  SUMMARY   = "Test the Application class with commands"
+  COPYRIGHT = "(C) 2020 Bertram Scharpf"
+  LICENSE   = "For internal use only"
+  AUTHOR    = "Bertram Scharpf <software@bertram-scharpf.de>"
+
+  DESCRIPTION = <<~EOT
+    This is an example how to define an Application subclass
+    with commands inside.
+  EOT
+
+  attr_bang :verbose
+  define_option "v", :verbose!,                               "verbose mode"
+
+  define_option "h", :help,                         "show this options list"
+  alias_option  "h", "help"
+  define_option "V", :version,                    "show version information"
+  alias_option  "V", "version"
+
+  def run
+    super do |cmd|
+      cmd.verbose! if @verbose
+    end
+  end
+
+  class Init < Command
+    NAME        = "init"
+    SUMMARY     = "Initialize"
+    DESCRIPTION = <<~EOT
+      Initialization of nothing.
+    EOT
+    define_option "h", :help,                       "show init's options list"
+    alias_option  "h", "help"
+    def verbose! ; end
+    def run
+      puts "Initializing...done."
+    end
+  end
+
+  class Run < Command
+    NAME        = "run"
+    SUMMARY     = "Run a job"
+    DESCRIPTION = <<~EOT
+      Running nothing.
+    EOT
+    define_option "h", :help,                        "show run's options list"
+    alias_option  "h", "help"
+    def verbose! ; @verbose = true ; end
+    def run
+      if @verbose then
+        puts "Starting..."
+        puts "Running..."
+        puts "Done."
+      else
+        puts "Running...done."
+      end
+    end
+  end
+
+  class Cleanup < Command
+    NAME        = "cleanup"
+    SUMMARY     = "Cleanup"
+    DESCRIPTION = <<~EOT
+      Cleanup of nothing.
+    EOT
+    define_option "h", :help,                    "show cleanup's options list"
+    alias_option  "h", "help"
+    def verbose! ; end
+    def run
+      puts "Cleaning up...done."
+    end
+  end
+
+end
+
+
+DemoFan.run
+

data/lib/appl.rb

@@ -5,19 +5,24 @@
 
 class Application
 
-  APPL_VERSION = "1.6.2".freeze
+  APPL_VERSION = "1.13".freeze
 
   OPTIONS_ENV = nil
 
   STOPOPT = "stop option processing"
-  UNKNOWN = "Unknown option"
-  UNPROCA = "Warning: unprocessed arguments"
+  UNKNOWN = "Unknown option: `%s'."
+  UNPROCA = "Warning: unprocessed arguments: %s"
+
+  ALIASES = [].freeze
+
+  W_OPTS = 10
+  W_ARGS = 16
 
   class OptionError < StandardError ; end
   class Done        < Exception     ; end
 
-  def initialize args = nil
-    @args = args||self.class.cmdline_arguments
+  def initialize name = nil, args = nil
+    @name, @args = name, args
     self.class.each_option { |opt,desc,arg,dfl,act|
       begin
         send act, dfl if dfl
@@ -46,41 +51,29 @@ class Application
   end
 
   def help
-    c = self.class
-    puts c.version
-    puts
-    puts c::DESCRIPTION
-    puts
-    c.show_options
-    if block_given? then
-      puts
-      yield
-    end
+    self.class.help
     raise Done
   end
 
   def version
-    self.class.show_version
+    self.class.version
     raise Done
   end
 
-  VERSION = "0"
-  NAME    = "appl"
-  SUMMARY = "Dummy application"
-  DESCRIPTION = <<~EOT
-    This base class does nothing by default.
-  EOT
-
   def run
   end
 
-  def execute
-    run
+  def warn_unprocessed
     if @args.any? then
-      u = @args.join " "
-      puts "#{self.class::UNPROCA}: #{u}"
+      $stderr.puts self.class.root::UNPROCA % (@args.join " ")
     end
-    0
+  end
+
+  def execute
+    r = run
+    r = 0 unless Integer === r
+    warn_unprocessed
+    r
   rescue SignalException
     raise if @debug
     self.class.show_message $!.inspect
@@ -98,18 +91,11 @@ class Application
       exit e
     end
 
-    def version
-      if self::VERSION =~ %r/\s/ then
-        self::VERSION
-      else
-        "#{self::NAME} #{self::VERSION}  --  #{self::SUMMARY}"
-      end
-    end
-
     private
 
     def execute args = nil
-      i = new args
+      n = File.basename $0
+      i = new n, args||cmdline_arguments
       i.execute
     rescue Done
       0
@@ -119,7 +105,9 @@ class Application
     end
 
     def inherited sub
-      sub.instance_eval { @options, @aliases = {}, {} }
+      sub.name or return
+      o, a = @options.dup.to_h, @aliases.dup.to_h
+      sub.instance_eval { @options, @aliases = o, a }
     end
 
     def attr_bang *syms
@@ -162,16 +150,12 @@ class Application
     end
 
     def delete_option opt
-      self < Application or return
-      superclass.delete_option opt
-      @options.delete opt
       @aliases.reject! { |k,v| v == opt }
+      @options.delete opt
       nil
     end
 
     def unalias_option opt
-      self < Application or return
-      superclass.unalias_option opt
       @aliases.delete opt
       nil
     end
@@ -179,32 +163,12 @@ class Application
     protected
 
     def find_option_act opt
-      self < Application or return
-      @options[ opt] || @options[ @aliases[ opt]] ||
-        (superclass.find_option_act opt)
-    end
-
-    def all_options
-      if self < Application then
-        r = superclass.all_options
-        r.update @options
-      else
-        {}
-      end
-    end
-
-    def all_aliases
-      if self < Application then
-        r = superclass.all_aliases
-        r.update @aliases
-      else
-        {}
-      end
+      @options[ opt] || @options[ @aliases[ opt]]
     end
 
     def options_desc &block
       a = Hash.new do |h,k| h[ k] = [] end
-      all_aliases.each { |k,v|
+      @aliases.each { |k,v|
         a[ v].push k
       }
       each_option { |opt,desc,arg,dfl,|
@@ -213,14 +177,13 @@ class Application
           yield l, nil, nil, nil
         }
       }
-      yield "", nil, nil, self::STOPOPT
+      yield "", nil, nil, root::STOPOPT
     end
 
     public
 
     def each_option
-      o = all_options
-      o.each { |opt,(desc,arg,dfl,act)|
+      @options.each { |opt,(desc,arg,dfl,act)|
         case dfl
           when Symbol then dfl = const_get dfl
         end
@@ -230,7 +193,7 @@ class Application
 
     def option_act args, opt, rest
       dada = find_option_act opt
-      dada or raise OptionError, "#{self::UNKNOWN}: `#{opt}'."
+      dada or raise OptionError, root::UNKNOWN % opt
       desc, arg, dfl, act = *dada
       r = [ act]
       if arg then
@@ -246,12 +209,39 @@ class Application
         arg &&= "#{arg}"
         dfl &&= "[#{dfl}]"
         arg << dfl if arg && dfl
-        puts "  %-10s  %-12s  %s" % [ opt, arg, desc]
+        puts "  %-*s  %-*s  %s" % [ root::W_OPTS, opt, root::W_ARGS, arg, desc]
       end
     end
 
-    def show_version
-      puts version
+    def root
+      self
+    end
+
+    def all_names
+      [ self::NAME, *self::ALIASES].join "|"
+    end
+
+    def help
+      n = []
+      s = self
+      begin
+        l = s.all_names
+        n.unshift l
+        s = s.root
+      end while s != root
+      puts "#{n.join ' '}  --  #{self::SUMMARY}"
+      puts
+      puts self::DESCRIPTION
+      puts
+      show_options
+      if block_given? then
+        puts
+        yield
+      end
+    end
+
+    def version
+      puts "#{self::NAME} #{self::VERSION}  --  #{self::SUMMARY}"
       puts self::COPYRIGHT if const_defined? :COPYRIGHT
       puts "License: #{self::LICENSE}" if const_defined? :LICENSE
       a = []

data/lib/applfan.rb

@@ -0,0 +1,74 @@
+#
+#  lib/applfan.rb  --  ApplicationFan class
+#
+
+require "appl"
+
+
+class ApplicationFan < Application
+
+  AVAILCMDS = "Available commands (say -h after one for help)"
+  NOCOMMAND = "No command given. Say -h for a list."
+  UNKNWNCMD = "Unknown command: `%s'. Say -h for a list."
+
+  W_CMDS = 16
+
+  class CommandError < StandardError ; end
+
+  class <<self
+
+    attr_accessor :commands
+
+    def find_command name
+      @commands.find { |c| c::NAME == name or c::ALIASES.include? name }
+    end
+
+
+    def help
+      super do
+        if block_given? then
+          yield
+          puts
+        end
+        puts self::AVAILCMDS
+        puts
+        @commands.each { |c|
+          puts "  %-*s  %s" % [ self::W_CMDS, c.all_names, c::SUMMARY]
+        }
+      end
+    end
+
+    private
+
+    def inherited sub
+      sub.instance_eval do
+        @commands = []
+        const_set :Command, (
+          Class.new Application do
+            define_singleton_method :inherited do |c|
+              sub.commands.push c
+              super c
+            end
+            define_singleton_method :root do
+              sub.root
+            end
+          end
+        )
+      end
+      super
+    end
+
+  end
+
+  def run
+    c = @args.shift
+    c or raise CommandError, self.class::NOCOMMAND
+    cmd = self.class.find_command c
+    cmd or raise CommandError, self.class::UNKNWNCMD % c
+    sub = cmd.new c, (@args.slice! 0, @args.length)
+    yield sub if block_given?
+    sub.execute
+  end
+
+end
+

metadata

@@ -1,33 +1,32 @@
 --- !ruby/object:Gem::Specification
 name: appl
 version: !ruby/object:Gem::Version
-  version: 1.6.2
+  version: '1.13'
 platform: ruby
 authors:
 - Bertram Scharpf
-autorequire: 
+autorequire:
 bindir: bin
 cert_chain: []
-date: 2019-12-31 00:00:00.000000000 Z
+date: 2021-04-11 00:00:00.000000000 Z
 dependencies: []
 description: |
   A base class for command line applications doing options parsing
   and generating exit codes.
 email: "<software@bertram-scharpf.de>"
-executables:
-- intar
+executables: []
 extensions: []
 extra_rdoc_files: []
 files:
-- bin/intar
 - doc/demoappl
+- doc/demofan
 - lib/appl.rb
-- lib/intar.rb
+- lib/applfan.rb
 homepage: http://www.bertram-scharpf.de/software/appl
 licenses:
 - BSD-2-Clause
 metadata: {}
-post_install_message: 
+post_install_message:
 rdoc_options: []
 require_paths:
 - lib
@@ -43,8 +42,8 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements:
 - Just Ruby
-rubygems_version: 3.0.6
-signing_key: 
+rubygems_version: 3.0.8
+signing_key:
 specification_version: 4
 summary: Easy option parsing
 test_files: []

data/bin/intar

@@ -1,147 +0,0 @@
-#!/usr/local/bin/ruby
-
-#
-#  intar  --  Interactive Ruby evaluation
-#
-
-require "intar"
-require "appl"
-
-
-class IntarApp < Application
-
-  NAME      = "intar"
-  VERSION   = APPL_VERSION
-  SUMMARY   = "Interactive Ruby"
-  COPYRIGHT = "(C) 2008-2016 Bertram Scharpf <software@bertram-scharpf.de>"
-  LICENSE   = "BSD"
-  AUTHOR    = "Bertram Scharpf <software@bertram-scharpf.de>"
-
-  DESCRIPTION = <<~EOT
-    Prompt for Ruby statements, evaluate them. This is a replacement
-    for "irb". The underlying library may be entered from inside any
-    Ruby program.
-
-    Example:
-
-      $ intar -p '%(33 1)c%t%c%> '
-
-  EOT
-
-  def quiet!
-    Intar.show = nil
-  end
-  def show= s
-    Intar.show = s.to_i
-  end
-  def prompt= p
-    Intar.prompt = p if p
-  end
-  def bw!
-    Intar.colour = false
-  end
-  def catch_exit!
-    Intar.catch_exit = (Intar.catch_exit||0) + 3
-  end
-  def histall!
-    Intar.histhid = false
-  end
-  def histfile= h
-    Intar.histfile = nil_if_none h
-  end
-  def histmax= m
-    Intar.histmax = (Integer m rescue m.to_i)
-  end
-  def configfile= c
-    @configfile = nil_if_none c
-  end
-
-  define_option "p", :prompt=, "STR",
-                              "prompt - see source code for % escapes"
-  alias_option  "p", "prompt"
-
-  define_option "q", :quiet!,                     "don't show results"
-  alias_option  "q", "quiet"
-
-  define_option "S", :show=, "N", 1,  "show result line limit (0=all)"
-  alias_option  "S", "show"
-
-  define_option "r", :require, "FILE",                  "Ruby require"
-  alias_option  "r", "require"
-
-  define_option "bw", :bw!,                            "black & white"
-
-  define_option "c", :configfile=, "FILE", ".intarrc",
-                                        "config file, NONE means none"
-  alias_option  "c", "configfile"
-
-  define_option "H", :histfile=, "FILE", ".intar_history",
-                                       "history file, NONE means none"
-  alias_option  "H", "histfile"
-
-  define_option "m", :histmax=, "NUM",
-                                     "maximum history entries to save"
-  alias_option  "m", "histmax"
-
-  define_option "A", :histall!,
-                          "pass lines starting with blanks to history"
-  alias_option  "A", "histall"
-
-  define_option "E", :encoding=, "ENC",  "set encoding (like ruby -E)"
-  alias_option  "E", "encoding"
-
-  define_option "x", :catch_exit!,
-                     "On exit exception: Wait 3 seconds for interrupt"
-  alias_option  "x", "catchexit"
-  alias_option  "x", "catch-exit"
-
-  define_option "h", :help,                             "show options"
-  alias_option  "h", "help"
-  define_option "V", :version,                          "show version"
-  alias_option  "V", "version"
-
-  def run
-    # @debug = true      # Only development.
-    read_cfg
-    main = eval "self", TOPLEVEL_BINDING
-    Intar.open main do |i|
-      i.run *(@args.shift @args.length)
-    end
-  end
-
-  private
-
-  def encoding= ei
-    e, i = ei.split ":"
-    Encoding.default_external = e if e and not e.empty?
-    Encoding.default_internal = i if i and not i.empty?
-    [ $stdin, $stdout, $stderr].each do |io|
-      io.set_encoding e, i
-    end
-  end
-
-  def read_cfg
-    return unless @configfile
-    h = "~" unless @configfile[ File::SEPARATOR]
-    c = File.expand_path @configfile, h
-    return unless File.exists? c
-    load c
-  rescue Exception
-    $@.pop 2
-    e = $@.shift
-    puts "#{e}: #$! (#{$!.class})"
-    $@.each { |l| puts "\t#{l}" }
-    raise "Error in config file #{c}"
-  end
-
-  def nil_if_none var
-    case var
-      when "", "NONE" then nil
-      else                 var
-    end
-  end
-
-end
-
-IntarApp.run
-

data/lib/intar.rb

@@ -1,447 +0,0 @@
-#
-#  intar.rb  --  Interactive Ruby evaluation
-#
-
-
-=begin rdoc
-
-This could be opened not only by the Intar executable but also
-everywhere inside your Ruby program.
-
-= Example 1
-
-  require "intar"
-
-  Intar.prompt = "str(%(length)i):%03n%> "
-  a = "hello"
-  Intar.run a
-
-
-= Example 2
-
-  require "intar"
-
-  class C
-  end
-
-  class IntarC < Intar
-    @show     = 3
-    @prompt   = "%(33 1)c%t%c%> "
-    @histfile = ".intarc_history"
-
-    class <<self
-      def open
-        super C.new
-      end
-    end
-  end
-
-  IntarC.open do |ia| ia.run end
-
-=end
-
-
-require "readline"
-require "supplement"
-require "supplement/terminal"
-
-
-class Object
-  def intar_binding
-    binding
-  end
-end
-
-class Intar
-
-  class History
-
-    IND = "  "
-    IND_RE = /^#{IND}/
-
-    def initialize filename
-      @filename = filename
-      return unless @filename
-      h = "~" unless @filename[ File::SEPARATOR]
-      @filename = File.expand_path @filename, h
-      File.exists? @filename and File.open @filename do |h|
-        c = []
-        h.each { |l|
-          case l
-            when IND_RE then c.push $'
-            else             push c.join.chomp ; c.clear
-          end
-        }
-        push c.join.chomp
-      end
-      @num = Readline::HISTORY.length
-    end
-
-    def finish max
-      return unless @filename
-      @num.times { Readline::HISTORY.shift }
-      File.open @filename, "a" do |h|
-        a = []
-        while (c = Readline::HISTORY.shift) do a.push c end
-        if a.any? then
-          h.puts "# #{Time.now}"
-          a.each { |c|
-            c.each_line { |l| h.puts IND + l }
-            h.puts "-"
-          }
-          i = a.length
-          h.puts "# #{i} #{entry_str i} added"
-        end
-      end
-      n = File.open @filename do |h|
-        h.inject 0 do |i,l| i += 1 if l =~ IND_RE ; i end
-      end
-      i = max - n
-      if i < 0 then
-        f = nil
-        File.open @filename do |h|
-          h.each_line { |l|
-            f.push l if f
-            case l
-              when IND_RE then i += 1
-              else             f ||= [] if i >= 0
-            end
-          }
-        end
-        f and File.open @filename, "w" do |h| h.puts f end
-      end
-    rescue Errno
-      # Forget it if there isn't enough disk space.
-    end
-
-    def push l
-      Readline::HISTORY.push l unless l.empty?
-    end
-
-    private
-
-    def entry_str i
-      i == 1 ? "entry" : "entries"
-    end
-
-  end
-
-  class <<self
-
-    attr_accessor :prompt, :show, :shownil, :colour
-
-    attr_reader :histfile
-    def histfile= hf
-      @histfile = hf
-      if @history then
-        @history.finish @histmax
-        @history = History.new @histfile
-      end
-    end
-
-    # Maximum number of history entries.
-    attr_accessor :histmax
-
-    # Whether to hide entries starting with whitespace.
-    attr_accessor :histhid
-
-    # Shell prefix and Pipe suffix
-    attr_accessor :sh_pref, :pi_suff
-
-    # Whether <code>Kernel#exit</code> should be caught.
-    attr_accessor :catch_exit
-
-    private
-
-    def inherited sub
-      sub.class_eval {
-        s = superclass
-        @prompt     = s.prompt
-        @show       = s.show
-        @shownil    = s.shownil
-        @colour     = s.colour
-        @histfile   = s.histfile
-        @histmax    = s.histmax
-        @histhid    = s.histhid
-        @sh_pref    = s.sh_pref
-        @pi_suff    = s.pi_suff
-        @catch_exit = s.catch_exit
-      }
-    end
-
-    def history_file
-      if @history then
-        yield
-      else
-        @history = History.new @histfile
-        begin
-          yield
-        ensure
-          @history.finish @histmax
-          @history = nil
-        end
-      end
-    end
-
-    public
-
-    private :new
-    def open obj
-      history_file do
-        i = new obj
-        yield i
-      end
-    end
-
-    def run obj
-      open obj do |i| i.run end
-    end
-
-    def hist_add l
-      return if @histhid and l == /\A[ \t]+/
-      lst = Readline::HISTORY[-1] if Readline::HISTORY.length > 0
-      @history.push l unless l == lst
-    end
-
-  end
-
-  self.prompt     = "%(32)c%i%c:%1c%03n%c%> "
-  self.show       = 1
-  self.shownil    = false
-  self.colour     = true
-  self.histfile   = nil
-  self.histmax    = 500
-  self.histhid    = true
-  self.sh_pref    = "."
-  self.pi_suff    = " |"
-  self.catch_exit = nil
-
-  private
-
-  def initialize obj
-    @obj = obj
-    @n = 0
-  end
-
-  OLDSET = <<~EOT
-    _, __, ___ = nil, nil, nil
-    proc { |r,n|
-      Array === __ or __ = []
-      Hash === ___ or ___ = {}
-      unless r.nil? or r.equal? __ or r.equal? ___ then
-        _ = r
-        __.delete r rescue nil
-        __.unshift r
-        ___[ n] = r
-      end
-    }
-  EOT
-
-  autoload :Etc,    "etc"
-  autoload :Socket, "socket"
-
-  def cur_prompt prev
-    t = Time.now
-    self.class.prompt.gsub /%(?:
-                               \(([^\)]+)?\)
-                             |
-                               ([+-]?[0-9]+(?:\.[0-9]+)?)
-                             )?(.)/nx do
-      case $3
-        when "s" then @obj.to_s
-        when "i" then $1 ? (@obj.send $1) : @obj.inspect
-        when "n" then "%#$2d" % @n
-        when "t" then t.strftime $1||"%X"
-        when "u" then Etc.getpwuid.name
-        when "h" then Socket.gethostname
-        when "w" then cwd_short
-        when "W" then File.basename cwd_short
-        when "c" then (colour *($1 || $2 || "").split.map { |x| x.to_i }).to_s
-        when ">" then prev ? "." : Process.uid == 0 ? "#" : ">"
-        when "%" then $3
-        else          $&
-      end
-    end
-  end
-
-  def colour *c
-    if self.class.colour then
-      s = c.map { |i| "%d" % i }.join ";"
-      "\e[#{s}m"
-    end
-  end
-
-  def switchcolour *c
-    s = colour *c
-    print s if s
-  end
-
-  def cwd_short
-    r = Dir.pwd
-    h = Etc.getpwuid.dir
-    r[ 0, h.length] == h and r[ 0, h.length] = "~"
-    r
-  end
-
-  def readline
-    r, @previous = @previous, nil
-    r or @n += 1
-    begin
-      cp = cur_prompt r
-      begin
-        l = Readline.readline cp
-      rescue Interrupt
-        puts "^C  --  #{$!.inspect}"
-        retry
-      end
-      return if l.nil?
-      if r then
-        r << $/ << l
-      else
-        r = l unless l.empty?
-      end
-      self.class.hist_add l
-      cp.strip!
-      cp.gsub! /\e\[[0-9]*(;[0-9]*)*m/, ""
-      @file = "#{self.class}/#{cp}"
-    end until r
-    r
-  end
-
-  # :stopdoc:
-  ARROW    = "=> "
-  ELLIPSIS = "..."
-  # :startdoc:
-
-  def display r
-    return if r.nil? and not self.class.shownil
-    show = (self.class.show or return)
-    i = ARROW.dup
-    i << r.inspect
-    if show > 0 then
-      siz, = $stdout.winsize
-      siz *= show
-      if i.length > siz then
-        i.cut! siz-ELLIPSIS.length
-        i << ELLIPSIS
-      end
-    end
-    puts i
-  end
-
-  def pager doit
-    if doit then
-      IO.popen ENV[ "PAGER"]||"more", "w" do |pg|
-        begin
-          stdout = $stdout.dup
-          $stdout.reopen pg
-          yield
-        ensure
-          $stdout.reopen stdout
-        end
-      end
-    else
-      yield
-    end
-  end
-
-  public
-
-  class Exit      < Exception ; end
-  class CmdFailed < Exception ; end
-
-  def run *precmds
-    bind = @obj.intar_binding
-    precmds.each { |l| eval l, bind }
-    oldset = eval OLDSET, bind
-    @cl = (eval "caller.length", bind) + 2  # 2 = eval + run()
-    while l = readline do
-      re_sh_pref = /\A#{Regexp.quote self.class.sh_pref}/
-      re_pi_suff = /#{Regexp.quote self.class.pi_suff}\z/
-      switchcolour
-      begin
-        pg = l.slice! re_pi_suff
-        r = pager pg do
-          unless l =~ re_sh_pref then
-            eval l, bind, @file
-          else
-            call_system $', bind
-          end
-        end
-        oldset.call r, @n
-        display r
-      rescue Exit
-        wait_exit and break
-      rescue CmdFailed
-        oldset.call $?, @n
-        switchcolour 33
-        puts "Exit code: #{$?.exitstatus}"
-      rescue LoadError
-        oldset.call $!, @n
-        show_exception
-      rescue SyntaxError
-        if l.end_with? $/ then
-          switchcolour 33
-          puts $!
-        else
-          @previous = l
-        end
-      rescue SystemExit
-        break if wait_exit
-        oldset.call $!, @n
-        show_exception
-      rescue Exception
-        oldset.call $!, @n
-        show_exception
-      ensure
-	switchcolour
-      end
-    end
-    puts
-  ensure
-    done
-  end
-
-  protected
-
-  def done
-  end
-
-  private
-
-  def wait_exit
-    c = self.class.catch_exit
-    c and c.times { print "." ; $stdout.flush ; sleep 1 }
-    true
-  rescue Interrupt
-    puts
-  end
-
-  def show_exception
-    unless $!.to_s.empty? then
-      switchcolour 31, 1
-      print $!
-      print " " unless $!.to_s =~ /\s\z/
-    end
-    switchcolour 31, 22
-    puts "(#{$!.class})"
-    switchcolour 33
-    bt = $@.dup
-    if bt.length > @cl then
-      bt.pop @cl
-    end
-    puts bt
-  end
-
-  def call_system l, bind
-    l.strip!
-    raise Exit if l.empty?
-    eot = "EOT0001"
-    eot.succ! while l[ eot]
-    l = eval "<<#{eot}\n#{l}\n#{eot}", bind, @file
-    system l or raise CmdFailed
-    nil
-  end
-
-end
-