appl 1.10 → 1.12

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 1688b3e222470fd0e8d460eb628e5cd0d367f6310657f55fe465f004b7d09974
-  data.tar.gz: 2377f5d01f50f75922cd10fef21d17ef123cfec1d8bce0cf8873283cd73df2ac
+  metadata.gz: 840b8916d8f8d5b79f0f87bdee61772a9f6e00bffa3cc3c69aeaad93b7b950fe
+  data.tar.gz: 570c63f80082520339691d6fe3c1aad68a953e7eee90866b21dfe50c9705af80
 SHA512:
-  metadata.gz: 4c4a1b091ac1e4bdab240d55627eb78811fddeb0962b30aef7185f2fe466809a3d8cbf847387b1aa1ab07e782770e7b4e3507821682557e7388915d2cc1b1056
-  data.tar.gz: ee2e1d53b6f6c32a8be5d48e7f1489104d3f316d58a67f82318f0f21b16d038676812a063d5500d80663050963d086ad9bbcdff00b810d299d3ac731c0abba3b
+  metadata.gz: d634ae0936e200f45b741a8ed2dce2900c7ad548993e08da923104b1f95612c0a2e94b72482d41a5041b754f68a6231a8e101986771052ee24818d5273d475e8
+  data.tar.gz: 0ed10689b122791eef9c7f8468881a8449740e0858209f5d0867241b67b64f1ef4f26db7703c7586a3f06371075b66a6f577f2056effcf5907b7862dc6b2628f

data/lib/appl.rb

@@ -5,7 +5,7 @@
 
 class Application
 
-  APPL_VERSION = "1.10".freeze
+  APPL_VERSION = "1.12".freeze
 
   OPTIONS_ENV = nil
 

metadata

@@ -1,30 +1,27 @@
 --- !ruby/object:Gem::Specification
 name: appl
 version: !ruby/object:Gem::Version
-  version: '1.10'
+  version: '1.12'
 platform: ruby
 authors:
 - Bertram Scharpf
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2020-06-16 00:00:00.000000000 Z
+date: 2020-11-19 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/applfan.rb
-- lib/intar.rb
 homepage: http://www.bertram-scharpf.de/software/appl
 licenses:
 - BSD-2-Clause
@@ -45,7 +42,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements:
 - Just Ruby
-rubygems_version: 3.0.6
+rubygems_version: 3.0.8
 signing_key:
 specification_version: 4
 summary: Easy option parsing

data/bin/intar

@@ -1,136 +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
-
-  attr_writer :show, :prompt, :histmax
-  def histfile=   f ; @histfile   = nil_if_none f ; end
-  def configfile= f ; @configfile = nil_if_none f ; end
-  attr_bang :quiet, :bw, :catch_exit, :histall
-
-  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",     "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",
-                                       "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
-    if @quiet then
-      Intar.show = 0
-    elsif @show then
-      Intar.show = Integer @show
-    end
-    Intar.prompt = @prompt if @prompt
-    Intar.colour = false if @bw
-    Intar.catch_exit = (Intar.catch_exit||0) + 3 if @catch_exit
-    Intar.histhid = false if @histall
-    Intar.histfile = @histfile if @histfile
-    Intar.histmax = Integer @histmax if @histmax
-
-    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
-