file-seperated classes. interactive CLI.
This commit is contained in:
Denis Knauf
parent
ec3a936b36
commit
ad6f53bab3
1
.gitignore
vendored
1
.gitignore
vendored
|
|
@ -6,3 +6,4 @@
|
||||||
/pkg/
|
/pkg/
|
||||||
/spec/reports/
|
/spec/reports/
|
||||||
/tmp/
|
/tmp/
|
||||||
|
*.sw[o-t]
|
||||||
|
|
|
||||||
111
lib/dencli.rb
111
lib/dencli.rb
|
|
@ -4,6 +4,11 @@ class DenCli
|
||||||
class UnknownCommand < UsageError
|
class UnknownCommand < UsageError
|
||||||
end
|
end
|
||||||
|
|
||||||
|
require_relative 'dencli/cmd'
|
||||||
|
require_relative 'dencli/sub'
|
||||||
|
require_relative 'dencli/interactive'
|
||||||
|
require_relative 'dencli/version'
|
||||||
|
|
||||||
class <<self
|
class <<self
|
||||||
# Helper Function for generate Regular Expressions of string,
|
# Helper Function for generate Regular Expressions of string,
|
||||||
# which matches all strings which has parts fron beginning of the given string.
|
# which matches all strings which has parts fron beginning of the given string.
|
||||||
|
|
@ -47,107 +52,7 @@ class DenCli
|
||||||
alias g gen_aliases
|
alias g gen_aliases
|
||||||
end
|
end
|
||||||
|
|
||||||
class CMD
|
attr_reader :subs
|
||||||
attr_reader :parent, :name, :desc, :exe
|
|
||||||
def initialize parent, name, desc, exe
|
|
||||||
raise "Proc expected, instead of: #{exe.inspect}" unless Proc === exe
|
|
||||||
@parent, @name, @desc, @exe = parent, name, desc, exe
|
|
||||||
end
|
|
||||||
|
|
||||||
def _full_cmd post
|
|
||||||
parent._full_cmd [@name]+post
|
|
||||||
end
|
|
||||||
|
|
||||||
def full_cmd
|
|
||||||
_full_cmd []
|
|
||||||
end
|
|
||||||
|
|
||||||
def call *a
|
|
||||||
@exe.call *a
|
|
||||||
end
|
|
||||||
|
|
||||||
def help
|
|
||||||
"#{parent.full_cmd.join ' '} #{name}\n#{ desc}"
|
|
||||||
end
|
|
||||||
|
|
||||||
def inspect
|
|
||||||
"#<%s:0x%x %s @name=%p @desc=%p @parent=<%s:0x%x %s> @exe=<arity=%d>>" % [
|
|
||||||
self.class.name, self.object_id, self.full_cmd,
|
|
||||||
@name, @desc, @parent.class.name, @parent.class.object_id, @parent.full_cmd,
|
|
||||||
@exe.arity
|
|
||||||
]
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
class Sub
|
|
||||||
attr_reader :parent, :name, :desc, :subs
|
|
||||||
def initialize parent, name, desc
|
|
||||||
@parent, @name, @desc, @subs, @aliases = parent, name, desc, {}, {}
|
|
||||||
end
|
|
||||||
|
|
||||||
def _full_cmd post
|
|
||||||
parent._full_cmd [@name]+post
|
|
||||||
end
|
|
||||||
|
|
||||||
def full_cmd
|
|
||||||
_full_cmd []
|
|
||||||
end
|
|
||||||
|
|
||||||
def [] k
|
|
||||||
@aliases[k]
|
|
||||||
end
|
|
||||||
|
|
||||||
def help n = nil, *a
|
|
||||||
if n.nil?
|
|
||||||
r = "#{full_cmd.join ' '}: #{desc}\n\n"
|
|
||||||
m = @subs.map {|k,_| k.length }.max
|
|
||||||
@subs.each do |k, c|
|
|
||||||
r += " % -#{m}s %s\n" % [k, c.desc] unless k.nil?
|
|
||||||
end
|
|
||||||
r
|
|
||||||
elsif @aliases.has_key? n
|
|
||||||
@aliases[n].help *a
|
|
||||||
else
|
|
||||||
raise UnknownCommand, "unknown command: #{_full_cmd( [n])[1..-1].join ' '}, available for #{full_cmd[1..-1].join' '}: #{@subs.keys.inspect}"
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
def call *a
|
|
||||||
n, *a = *a
|
|
||||||
if @aliases.has_key? n
|
|
||||||
@aliases[n].call *a
|
|
||||||
else
|
|
||||||
raise UnknownCommand, "unknown command: #{_full_cmd( [n])[1..-1].join ' '}, available for #{full_cmd[1..-1].join' '}: #{@subs.keys.inspect}"
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
def _add name, min, obj, aliases
|
|
||||||
name = name.to_s unless name.nil?
|
|
||||||
@subs[name] = obj
|
|
||||||
DenCli.gen_aliases( name, min) {|a| @aliases[a] = obj }
|
|
||||||
if aliases
|
|
||||||
[*aliases].each {|a| @aliases[a] = obj }
|
|
||||||
end
|
|
||||||
obj
|
|
||||||
end
|
|
||||||
private :_add
|
|
||||||
|
|
||||||
def sub name, desc, min: nil, aliases: nil, &exe
|
|
||||||
r = _add name, min, Sub.new( self, name, desc), aliases
|
|
||||||
block_given? ? yield( r) : r
|
|
||||||
end
|
|
||||||
|
|
||||||
def cmd name, desc, min: nil, aliases: nil, &exe
|
|
||||||
_add name, min, CMD.new( self, name, desc, exe), aliases
|
|
||||||
end
|
|
||||||
|
|
||||||
def inspect
|
|
||||||
"#<%s:0x%x %s @name=%p @desc=%p @subs={%s} @aliases={%s} @parent=<%s:0x%x %s>>" % [
|
|
||||||
self.class.name, self.object_id, self.full_cmd,
|
|
||||||
@name, @desc, @subs.keys.join(', '), @aliases.keys.join(', '), @parent.class.name, @parent.class.object_id, @parent.full_cmd
|
|
||||||
]
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
def initialize progname, desc
|
def initialize progname, desc
|
||||||
@subs = Sub.new self, progname, desc
|
@subs = Sub.new self, progname, desc
|
||||||
|
|
@ -180,4 +85,8 @@ class DenCli
|
||||||
def [] k
|
def [] k
|
||||||
@subs[k]
|
@subs[k]
|
||||||
end
|
end
|
||||||
|
|
||||||
|
def interactive *args, **opts
|
||||||
|
Interactive.new self, *args, **opts
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
|
||||||
31
lib/dencli/cmd.rb
Normal file
31
lib/dencli/cmd.rb
Normal file
|
|
@ -0,0 +1,31 @@
|
||||||
|
require_relative '../dencli'
|
||||||
|
|
||||||
|
class DenCli::CMD
|
||||||
|
attr_reader :parent, :name, :desc, :exe, :completion
|
||||||
|
|
||||||
|
def initialize parent, name, desc, exe
|
||||||
|
raise "Proc expected, instead of: #{exe.inspect}" unless Proc === exe
|
||||||
|
@parent, @name, @desc, @exe = parent, name, desc, exe
|
||||||
|
completion {|*a| [] }
|
||||||
|
end
|
||||||
|
|
||||||
|
def _full_cmd( post) parent._full_cmd [@name]+post end
|
||||||
|
def full_cmd() _full_cmd [] end
|
||||||
|
def call( *a) @exe.call *a end
|
||||||
|
def help() "#{parent.full_cmd.join ' '} #{name}\n#{ desc}" end
|
||||||
|
|
||||||
|
def complete( *pre, str) @completion.call *pre, str end
|
||||||
|
|
||||||
|
def completion &exe
|
||||||
|
@completion = exe
|
||||||
|
self
|
||||||
|
end
|
||||||
|
|
||||||
|
def inspect
|
||||||
|
"#<%s:0x%x %s @name=%p @desc=%p @parent=<%s:0x%x %s> @exe=<arity=%d>>" % [
|
||||||
|
self.class.name, self.object_id, self.full_cmd,
|
||||||
|
@name, @desc, @parent.class.name, @parent.class.object_id, @parent.full_cmd,
|
||||||
|
@exe.arity
|
||||||
|
]
|
||||||
|
end
|
||||||
|
end
|
||||||
133
lib/dencli/interactive.rb
Normal file
133
lib/dencli/interactive.rb
Normal file
|
|
@ -0,0 +1,133 @@
|
||||||
|
require_relative '../dencli'
|
||||||
|
|
||||||
|
class DenCli::Interactive
|
||||||
|
attr_reader :cl, :prompt, :cur, :histfile
|
||||||
|
|
||||||
|
def initialize cl, prompt, histfile: nil
|
||||||
|
require 'readline'
|
||||||
|
@cl, self.prompt = cl, prompt
|
||||||
|
@cur = cl.subs
|
||||||
|
cur.instance_variable_set :@name, ''
|
||||||
|
|
||||||
|
@histfile =
|
||||||
|
case histfile
|
||||||
|
when nil then nil
|
||||||
|
when Pathname then histfile
|
||||||
|
else Pathname.new histfile.to_s
|
||||||
|
end
|
||||||
|
read_history if @histfile
|
||||||
|
|
||||||
|
Readline.vi_editing_mode rescue NotImplementedError
|
||||||
|
Readline.completion_append_character = " "
|
||||||
|
Readline.completion_proc = method :complete
|
||||||
|
|
||||||
|
prepare_sub cl.subs
|
||||||
|
cl.cmd :exit, "exit", min: 2 do
|
||||||
|
exit 0
|
||||||
|
end
|
||||||
|
cl.subs.aliases['?'] = cl.subs.subs['help']
|
||||||
|
cl.subs.subs.delete 'cli'
|
||||||
|
|
||||||
|
stty_save = %x`stty -g`.chomp
|
||||||
|
trap "INT" do
|
||||||
|
system "stty", stty_save
|
||||||
|
Readline.refresh_line
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def history_file file = nil
|
||||||
|
file =
|
||||||
|
case file
|
||||||
|
when Pathname then file
|
||||||
|
when nil then @histfile
|
||||||
|
else Pathname.new file.to_s
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def read_history file = nil
|
||||||
|
file = history_file file
|
||||||
|
return unless file and file.exist?
|
||||||
|
file.each_line do |line|
|
||||||
|
Readline::HISTORY.push line.chomp
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def write_history file = nil
|
||||||
|
file = history_file file
|
||||||
|
return unless file
|
||||||
|
file.open 'w+' do |f|
|
||||||
|
Readline::HISTORY.each do |line|
|
||||||
|
f.puts line
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def prompt= s
|
||||||
|
@prompt = s.to_s
|
||||||
|
end
|
||||||
|
|
||||||
|
def complete s
|
||||||
|
ws = words Readline.line_buffer
|
||||||
|
@cur.complete *ws[0...-1], s
|
||||||
|
end
|
||||||
|
|
||||||
|
def sub *args, cur: nil
|
||||||
|
args.inject( cur || @cur) do |r, a|
|
||||||
|
return nil unless r.is_a? DenCli::Sub
|
||||||
|
r[a]
|
||||||
|
end
|
||||||
|
end
|
||||||
|
private :sub
|
||||||
|
|
||||||
|
def words line = nil
|
||||||
|
r = line.split " "
|
||||||
|
r.push '' if ' ' == line[-1]
|
||||||
|
r
|
||||||
|
end
|
||||||
|
private :words
|
||||||
|
|
||||||
|
def prepare_sub c
|
||||||
|
c.subs.values.each do |n|
|
||||||
|
case n
|
||||||
|
when DenCli::Sub
|
||||||
|
n.cmd :exit, "<- #{n.parent.full_cmd.join ' '} - #{n.parent.desc[3..-1]}", min: 2 do
|
||||||
|
@cur = n.parent
|
||||||
|
end
|
||||||
|
n.cmd '', "", min: 2, aliases: [nil] do
|
||||||
|
@cur = n
|
||||||
|
end
|
||||||
|
n.subs.delete ''
|
||||||
|
n.aliases['?'] = n.subs['help']
|
||||||
|
prepare_sub n
|
||||||
|
when DenCli::CMD
|
||||||
|
else raise "Unsupported sub-type: #{x}"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def read
|
||||||
|
line = Readline.readline( "#{prompt}#{cur.full_cmd.join ' '}> ", true)
|
||||||
|
return nil if line.nil?
|
||||||
|
Readline::HISTORY.pop if /^\s*$/ =~ line
|
||||||
|
if 0 < Readline::HISTORY.length-2 and Readline::HISTORY[Readline::HISTORY.length-2] == line
|
||||||
|
Readline::HISTORY.pop
|
||||||
|
end
|
||||||
|
line.split " "
|
||||||
|
end
|
||||||
|
|
||||||
|
def step
|
||||||
|
line = read
|
||||||
|
return nil if line.nil?
|
||||||
|
begin
|
||||||
|
cur.call *line
|
||||||
|
rescue ::UsageError
|
||||||
|
STDERR.puts "! #$!"
|
||||||
|
end
|
||||||
|
true
|
||||||
|
end
|
||||||
|
|
||||||
|
def run
|
||||||
|
while step
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
74
lib/dencli/sub.rb
Normal file
74
lib/dencli/sub.rb
Normal file
|
|
@ -0,0 +1,74 @@
|
||||||
|
require_relative '../dencli'
|
||||||
|
|
||||||
|
class DenCli::Sub
|
||||||
|
attr_reader :parent, :name, :desc, :subs, :aliases
|
||||||
|
|
||||||
|
def initialize parent, name, desc
|
||||||
|
@parent, @name, @desc, @subs, @aliases = parent, name, "-> #{desc}", {}, {}
|
||||||
|
end
|
||||||
|
|
||||||
|
def _full_cmd( post) parent._full_cmd [@name]+post end
|
||||||
|
def full_cmd() _full_cmd [] end
|
||||||
|
def []( k) @aliases[k] end
|
||||||
|
|
||||||
|
def help n = nil, *a
|
||||||
|
if n.nil?
|
||||||
|
r = "#{full_cmd.join ' '}: #{desc}\n\n"
|
||||||
|
m = @subs.map {|k,_| k.length }.max
|
||||||
|
@subs.each do |k, c|
|
||||||
|
r += " % -#{m}s %s\n" % [k, c.desc] unless k.nil?
|
||||||
|
end
|
||||||
|
r
|
||||||
|
elsif @aliases.has_key? n
|
||||||
|
@aliases[n].help *a
|
||||||
|
else
|
||||||
|
raise UnknownCommand, "unknown command: #{_full_cmd( [n])[1..-1].join ' '}, available for #{full_cmd[1..-1].join' '}: #{@subs.keys.join ' '}"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def call *a
|
||||||
|
n, *a = *a
|
||||||
|
if @aliases.has_key? n
|
||||||
|
@aliases[n].call *a
|
||||||
|
else
|
||||||
|
raise UnknownCommand, "unknown command: #{_full_cmd( [n])[1..-1].join ' '}, available for #{full_cmd[1..-1].join' '}: #{@subs.keys.join ' '}"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def _add name, min, obj, aliases
|
||||||
|
name = name.to_s unless name.nil?
|
||||||
|
@subs[name] = obj
|
||||||
|
DenCli.gen_aliases( name, min) {|a| @aliases[a] = obj }
|
||||||
|
if aliases
|
||||||
|
[*aliases].each {|a| @aliases[a] = obj }
|
||||||
|
end
|
||||||
|
obj
|
||||||
|
end
|
||||||
|
private :_add
|
||||||
|
|
||||||
|
def sub name, desc, min: nil, aliases: nil, &exe
|
||||||
|
r = _add name, min, DenCli::Sub.new( self, name, desc), aliases
|
||||||
|
block_given? ? yield( r) : r
|
||||||
|
end
|
||||||
|
|
||||||
|
def cmd name, desc, min: nil, aliases: nil, &exe
|
||||||
|
_add name, min, DenCli::CMD.new( self, name, desc, exe), aliases
|
||||||
|
end
|
||||||
|
|
||||||
|
def complete *pre, str
|
||||||
|
if pre.empty?
|
||||||
|
@subs.keys.grep /\A#{Regexp.escape str}/
|
||||||
|
elsif sub = @subs[pre[0]]
|
||||||
|
sub.complete *pre[1..-1], str
|
||||||
|
else
|
||||||
|
STDOUT.print "\a"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def inspect
|
||||||
|
"#<%s:0x%x %s @name=%p @desc=%p @subs={%s} @aliases={%s} @parent=<%s:0x%x %s>>" % [
|
||||||
|
self.class.name, self.object_id, self.full_cmd,
|
||||||
|
@name, @desc, @subs.keys.join(', '), @aliases.keys.join(', '), @parent.class.name, @parent.class.object_id, @parent.full_cmd
|
||||||
|
]
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
@ -1,3 +1,3 @@
|
||||||
class DenCli
|
class DenCli
|
||||||
VERSION = '0.1.0'
|
VERSION = '0.2.0'
|
||||||
end
|
end
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue