rbfind 2.4 → 2.8.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: cc576c9c24d5acd2c31b95e55bfd40b306c1510060c06c2a5d00140c1fca77dd
-  data.tar.gz: e2a95604bf31b4290d71b0c93da8bff1cde417407cf6c22c79872cf4132c6de3
+  metadata.gz: eb4aa5b122fc89b6358e4da1e8df29ec7942e04e826f51d9a0f8816cdc718156
+  data.tar.gz: 7d31b7146665a01a6fe8229751a2b6d866ff36fc4779de79ba766391f2ab4d4e
 SHA512:
-  metadata.gz: 671c10d123f2a025f4ee3b0f0b08cbe2a74ef830a0b8f56cd7485470c68051902db9ace56b00a5f479d36ceefb802d133ddd43aa5cc025286a49405ce4860e79
-  data.tar.gz: 39a4b9cd0565455b010228a68fefd7d021e81953cdd23c150555a83fef577a342282f42b6476c6f1e97287d9e99b659349284eae55244fbfff01edf40a2d724c
+  metadata.gz: a07828435433ee962a54d2d9447fa5fcd171a3e1c8bcc28ecc338fcabc5a8e89dd753cbc2b9938e5e9dc5fba186be681555ead5a198bba924ba3b75d4ca52696
+  data.tar.gz: 238e1a4a07b9fbe4e7b33b9eb3ee438d52057ab81f735ed30672ef9123e144c9cac4d4c8f75c6f9b2107079233f75b4268da8770e7910ce2f9d07956b16931f5

data/bin/rbfind

@@ -32,14 +32,20 @@ module RbFind
       [ %w(--colored   -c), nil,  "force color on -p or default output"],
       [ %w(--depth     -d), nil,  "yield directory after its contents"],
       [ %w(--maxdepth  -m), :num, "maxium step depth"],
+      [ %w(--anydepth  -M), nil,  "no maxium step depth"],
       [ %w(--follow    -y), nil,  "follow symbolic links"],
-      [ %w(--nosort    -S), nil,  "unsorted"],
-      [ %w(--sort-by   -s), :str, "sort expression ('n' is name)"],
-      [ %w(--reverse   -R), :str, "reverse sort"],
+      [ %w(--nosort    -U), nil,  "unsorted"],
+      [ %w(--sort-by   -s), :str, "sort expression"],
+      [ %w(--reverse   -R), nil,  "reverse the sort"],
+      [ %w(--time      -t), nil,  "sort by time, newest first"],
+      [ %w(--size      -S), nil,  "sort by size, largest first"],
+      [ %w(--dirs      -F), nil,  "sort directories before files"],
       [ %w(--require   -r), :rb,  "require library"],
       [ %w(--puts-path -p), nil,  "do 'puts path/cpath' on true block"],
       [ %w(--ls-l      -P), nil,  "do 'ls -l' style output on true block"],
-      [ %w(--wider     -+), nil,  "widen fields in long output format (--ls-l)"],
+      [ %w(--long      -Q), nil,  "alternate long format on true block"],
+      [ %w(--ino       -J), nil,  "show inodes and number of hard links"],
+      [ %w(--wider     -+), nil,  "widen fields in long output format"],
       [ %w(--slash     -/), nil,  "append a slash to directory names"],
       [ %w(--lines     -l), :blk, "surround block by 'lines { |$_,$.| ... }'"],
       [ %w(--reallines -L), :blk, "same as -l but stop at any null character"],
@@ -48,14 +54,15 @@ module RbFind
       [ %w(--binary    -b), nil,  "grep even binary files"],
       [ %w(--no-vcs    -C), nil,  "prune version control dirs (CVS/.svn/.git)"],
       [ %w(--no-swap   -W), nil,  "ignore Vim swapfiles"],
-      [ %w(--skip      -k), :lst, "filenames to skip"],
-      [ %w(--demand    -D), :lst, "skip all filenames but these"],
+      [ %w(--skip      -k), :rgx, "filenames to skip"],
+      [ %w(--demand    -D), :rgx, "skip all filenames but these"],
       [ %w(--ext       -e), :lst, "skip all filename extensions but these"],
       [ %w(--visible   -I), nil,  "skip all hidden (starting with .dot)"],
+      [ %w(--all       -a), nil,  "all, including hidden (starting with .dot)"],
       [ %w(--nodirs    -N), nil,  "skip directories"],
       [ %w(--begin     -B), :blk, "eval block before begin"],
       [ %w(--end       -E), :blk, "eval block after end"],
-      [ %w(--file      -f), :blk, "read block expression from file"],
+      [ %w(--file      -f), :nam, "read block expression from file"],
       [ %w(--encoding  -K), :str, "encoding extern[:intern] (same as ruby -E)"],
     ]
 
@@ -79,14 +86,20 @@ module RbFind
           when '--colored'   then @color = true
           when '--depth'     then @params[ :depth_first] = true
           when '--maxdepth'  then @params[ :max_depth] = arg.to_i
+          when '--anydepth'  then @params[ :max_depth] = nil
           when '--follow'    then @params[ :follow] = true
           when '--nosort'    then @params[ :sort] = false
-          when '--sort-by'   then @params[ :sort] = instance_eval "proc { |n| #{arg} }"
+          when '--sort-by'   then @params[ :sort] = instance_eval "proc { #{arg} }"
+          when '--time'      then @params[ :sort] = proc { mtime } ; @params[ :reverse] = true
+          when '--size'      then @params[ :sort] = proc { size  } ; @params[ :reverse] = true
+          when '--dirs'      then @params[ :dirs] = true
           when '--reverse'   then @params[ :reverse] = true
           when '--require'   then require arg
           when '--puts-path' then @puts = true
-          when '--ls-l'      then @puts = true ; @wd = 6
-          when '--wider'     then @wd = @wd ? @wd.succ : 4
+          when '--ls-l'      then @puts = :ls  ; @wds = 6 ; @wd = 6
+          when '--long'      then @puts = :alt ; @wds = 7 ; @wd = 4
+          when '--ino'       then @puts = :ino ; @wds = 8 ; @wd = 2
+          when '--wider'     then @wd and @wd += 2.succ ; @wds and @wds += @puts != :ls ? 4 : 3
           when '--slash'     then @slash = true
           when '--lines'     then @lines = :plain ;                 @block = arg
           when '--reallines' then @lines = :plain ; @real = true ;  @block = arg
@@ -99,6 +112,7 @@ module RbFind
           when '--demand'    then @demand = arg
           when '--ext'       then @ext = arg
           when '--visible'   then @visible = true
+          when '--all'       then @visible = false
           when '--nodirs'    then @nodirs = true
           when '--begin'     then @blkbegin = arg
           when '--end'       then @blkend   = arg
@@ -150,11 +164,17 @@ module RbFind
           end
           if @puts then
             @block = "( #@block ) and "
-            @block << if @wd then
-              "spcsep stype+modes, user.w#@wd, group.w#@wd, size.w#@wd, " +
-                "mtime.lsish, #{opath} + #{co ? 'carrow' : 'arrow'}.to_s"
-            else
-              "puts #{opath}"
+            @block << case @puts
+              when :ls then
+                "spcsep stype+modes, user.w#@wd,  group.w#@wd,  size.w#@wds, " +
+                  "mtime.lsish, #{opath} + #{co ? 'carrow' : 'arrow'}.to_s"
+              when :alt then
+                "spcsep stype+modes, user!.w#@wd, group!.w#@wd, size.w_#@wds, " +
+                  "mtime.long,  #{opath} + #{co ? 'carrow' : 'arrow'}.to_s"
+              when :ino then
+                "spcsep ino.w#@wds, nlink.w#@wd, #{opath}"
+              else
+                "puts #{opath}"
             end
           end
 
@@ -246,7 +266,7 @@ module RbFind
         $ rbfind -d -m3 -- /mnt/data
         $ rbfind 'filesize > 10.MiB and colsep size.to_hib, path'
 
-        $ rbfind -S "name =~ /^\.*/ ; $'.downcase"
+        $ rbfind -U "name =~ /^\.*/ ; $'.downcase"
         $ rbfind -B '$s=0' -E 'puts $s.to_h' 'filesize {|s|$s+=s}'
         $ rbfind 'puts path if ext == ".rb"'
         $ rbfind -p 'ext == ".rb"'
@@ -345,7 +365,7 @@ module RbFind
 
     def show
       puts "arguments:"
-      @args.each { |a| puts_val a }.any?              or puts_val "(none)"
+      @args.each { |a| puts_val a }.any?             or puts_val "(none)"
       puts "parameters:"
       @params.each { |k,v| puts_val k, "=", v }.any? or puts_val "(none)"
       puts "block:"
@@ -447,8 +467,9 @@ class Integer
   # convenient formatting, right justification
   def method_missing sym, *args
     case sym.to_s   # .to_s for Ruby 1.8
-      when /\Aw_?(\d+)/ then "%#{$1}d" % self
-      else                   super
+      when /\Aw(\d+)/  then "%#{$1}d" % self
+      when /\Aw_(\d+)/ then to_g.rjust $1.to_i
+      else                  super
     end
   end
 end
@@ -483,6 +504,20 @@ class NilClass
   end
 end
 
+class TrueClass
+  def <=> oth
+    oth == true ? 0 : oth == false ? 1 : nil
+  end
+  include Enumerable
+end
+
+class FalseClass
+  def <=> oth
+    oth == false ? 0 : oth == true ? -1 : nil
+  end
+  include Enumerable
+end
+
 class Proc
   def to_s
     "#<%s:0x%08x>" % [ self.class, object_id]

data/lib/rbfind.rb

@@ -8,7 +8,7 @@ require "rbfind/csv"
 
 module RbFind
 
-  VERSION = "2.4".freeze
+  VERSION = "2.8.1".freeze
 
 =begin rdoc
 
@@ -241,7 +241,7 @@ Reverse sort:
 
 Sort without case sensitivity and preceding dot:
 
-    s = proc { |x| x =~ /^\.?/ ; $'.downcase }
+    s = proc { name =~ /^\.?/ ; $'.downcase }
     RbFind.run sort: s do
       puts path
     end
@@ -270,141 +270,119 @@ Sort without case sensitivity and preceding dot:
 
     private
 
-    def initialize max_depth: nil, depth_first: nil, follow: nil,
-                            sort: true, reverse: false, error: nil, &block
-      @max_depth = max_depth
-      @depth_first = depth_first
-      @follow = follow
-      @sort = sort_parser sort, reverse
-      @error = error
-      @block = block
-
-      ostat = $stdout.stat
-      @ostat = ostat if ostat.file?
-
-      @wd, @start, @count = Dir.getwd, Time.now, 0
-    end
+    Params = Struct.new :max_depth, :depth_first, :follow,
+                            :sort, :dirs, :reverse, :error, :block
 
-    def sort_parser st, rev
-      r = case st
-        when Proc                then proc { |l| l.sort_by! &st }
-        when nil, false, nil, "" then proc { }
-        else                          proc { |l| l.sort! }
+    def initialize max_depth: nil, depth_first: nil, follow: nil,
+                            sort: true, dirs: false, reverse: false, error: nil, &block
+      @params = Params.new max_depth, depth_first, follow,
+                  (sort_parser sort), dirs, reverse, error, block
+      @start = Time.instance_eval { @start = Time.now }
+      Time.instance_eval { @start = Time.now }
+      @count, @depth = 0, 0
+    end
+
+    def sort_parser st
+      case st
+        when Proc       then proc { |l| l.sort_by! { |e| e.instance_eval &st } }
+        when String     then proc { |l| l.sort_by! { |e| e.instance_eval st  } }
+        when nil, false then proc { }
+        else                 proc { |l| l.sort_by! { |e| e.name } }
       end
-      rev ? proc { |l| r.call l ; l.reverse! } : r
     end
 
     public
 
-    attr_reader :wd, :start, :count, :depth
-
     def run *args
-      @levels, @depth = [], 0
       args.flatten!
       args.compact!
       if args.empty? then
         visit_dir Dir::CUR_DIR
       else
         args.each { |base|
-          handle_error do
-            File.lstat base rescue raise "`#{base}` doesn't exist."
-            visit_depth base
-          end
+          e = Entry.new base, self
+          enter e if handle_error do e.stat end
         }
       end
-    ensure
-      @levels = @depth = nil
     end
 
-    private
+    attr_reader :start, :count
+    attr_reader :depth
+    attr_reader :current
 
-    def join_path
-      (File.join @levels).freeze
-    end
+    private
 
-    def visit filename
+    def step_depth
       @depth += 1
-      visit_depth filename
+      yield
     ensure
       @depth -= 1
     end
 
-    def visit_depth filename
-      @levels.push filename.dup.freeze
-      p_, @path = @path, join_path
-      if @depth_first then
+    def enter elem
+      c_, @current = @current, elem
+      @count += 1
+      if @params.depth_first then
         enter_dir
-        call_block or raise "#{self.class}: prune doesn't work with :depth_first."
+        begin
+          call_block
+        rescue Prune
+          handle_error do
+            raise "#{self.class}: prune with :depth_first is pointless."
+          end
+        end
       else
-        call_block and enter_dir
+        begin
+          call_block
+          enter_dir if @current.path
+        rescue Prune
+        end
       end
-      @count += 1
     ensure
-      @path = p_
-      @levels.pop
+      @current = c_
     end
 
-    def enter_dir
-      return unless File.directory? @path
-      if File.symlink? @path then
-        return unless @follow and handle_error do
-          d = @path.dup
-          while d != Dir::CUR_DIR do
-            d, = File.split d
-            raise "cyclic recursion in #@path" if File.identical? d, @path
-          end
-          true
-        end
+    def visit_dir dir
+      return if @params.max_depth and @params.max_depth <= @depth
+      list = (Dir.new dir).children.map { |f| Entry.new f, self }
+      @params.sort.call list
+      list.reverse! if @params.reverse
+      if @params.dirs then
+        list = list.partition { |e| e.rstat.directory? rescue nil }
+        list.reverse! if @params.depth_first
+        list.flatten!
       end
-      handle_error do
-        visit_dir @path
+      step_depth do
+        list.each { |e| enter e }
       end
     end
 
-    def visit_dir dir
-      return if @max_depth and @max_depth == @depth
-      list = (Dir.new dir).children
-      @sort.call list
-      list.each { |f| visit f }
-    ensure
+    def enter_dir
+      return unless @current.stat.directory? || (@params.follow &&
+                    @current.symlink? && @current.rstat.directory?)
+      handle_error do
+        @current.cyclic? and
+          raise "Cyclic recursion in #{@current.path}"
+        visit_dir @current.path
+      end
     end
 
     def call_block
-      e = Entry.new @levels.last, @path, self
       handle_error do
-        $_, $. = e.name, count
         begin
-          e.instance_eval &@block
+          $_, $. = @current.name, @count
+          @current.instance_eval &@params.block
         rescue Done
         end
-        if !(e.name.equal? @levels.last) && e.name != @levels.last then
-          if e.name then
-            e.name == (File.basename e.name) or
-              raise "#{self.class}: rename to `#{e.name}' may not be a path."
-            e.name.freeze
-            @levels.pop
-            @levels.push e.name
-            p, @path = @path, join_path
-            File.rename p, @path
-          else
-            if e.dir? then
-              Dir.rmdir @path
-            else
-              File.unlink @path
-            end
-          end
-        end
-        true
       end
-    rescue Prune
     end
 
     def handle_error
       yield
     rescue
-      case @error
-        when Proc   then @error.call
-        when String then instance_eval @error
+      case @params.error
+        when Proc   then @params.error.call
+        when String then instance_eval @params.error
         else             raise
       end
       nil
@@ -417,21 +395,35 @@ Sort without case sensitivity and preceding dot:
 
     attr_reader :path, :name
 
-    def initialize name, path, walk
-      @name, @path, @walk = name, path, walk
+    def initialize filename, walk
+      @walk = walk
+      @prev, @name = walk.current, filename.dup.freeze
+      @path = join_path @name
+    end
+
+    protected
+    attr_reader :prev
+    private
+    def join_path name
+      @prev ? (File.join @prev.path, name).freeze : name
     end
+    def reset
+      @fullpath = @stat = @rstat = @ostat = @colors = nil
+    end
+    public
 
+    def count ; @walk.count ; end
     def depth ; @walk.depth ; end
     def now   ; @walk.start ; end
 
-    def fullpath ; @fullpath ||= File.absolute_path @path, @walk.wd ; end
+    def fullpath ; @fullpath ||= File.absolute_path @path ; end
 
     def stat  ; @stat  ||= File.lstat @path ; end
     def rstat ; @rstat ||= File.stat  @path ; end
 
 
     private
-    def append_slash s ; (File.directory? s) ? (File.join s, "") : s ; end
+    def append_slash s ; directory? ? (File.join s, "") : s ; end
     public
 
     def path!     ; append_slash path     ; end
@@ -461,7 +453,23 @@ Sort without case sensitivity and preceding dot:
     end
     public
 
-    def dir? ; stat.directory? ; end
+    def directory? ; stat.directory? ; end
+    alias dir? directory?
+
+    def symlink? ; stat.symlink? ; end
+
+    def cyclic?
+      e = self
+      loop do
+        e = e.prev
+        e or break
+        if File.identical? e.path, @path then
+          return true
+        end
+      end
+      false
+    end
+
 
     def aage ; @walk.start - stat.atime ; end
     def mage ; @walk.start - stat.mtime ; end
@@ -516,10 +524,10 @@ Sort without case sensitivity and preceding dot:
     end
 
 
-    def readlink ; File.readlink @path if stat.symlink? ; end
+    def readlink ; File.readlink @path if symlink? ; end
 
     def broken_link?
-      return unless stat.symlink?
+      return unless symlink?
       rstat
       false
     rescue
@@ -529,7 +537,7 @@ Sort without case sensitivity and preceding dot:
 
     ARROW = " -> "
     def arrow
-      ARROW + (File.readlink @path) if stat.symlink?
+      ARROW + (File.readlink @path) if symlink?
     end
 
 
@@ -584,7 +592,8 @@ Sort without case sensitivity and preceding dot:
     # nothing will be done.
     #
     def open &block
-      @ostat and @ostat.identical? @path and
+      @ostat ||= $stdout.stat
+      @ostat.identical? @path and
         raise "Refusing to open output file."
       File.open @path, &block if file?
     end
@@ -694,10 +703,27 @@ Sort without case sensitivity and preceding dot:
     include Csv
 
 
-    def rename newname ; @name = newname ; end
+    def rename newname
+      @name = newname
+      newname == (File.basename newname) or
+        raise "Rename to `#{newname}' may not be a path."
+      p = join_path newname
+      (File.exist? p) and raise "Rename to `#{p}` would overwrite."
+      File.rename @path, p
+      @name, @path = newname.dup.freeze, p
+      reset
+    end
     alias mv rename
 
-    def rm ; @name = nil ; end
+    def rm
+      if directory? then
+        Dir.rmdir @path
+      else
+        File.unlink @path
+      end
+      @name = @path = nil
+      reset
+    end
 
 
     def cname      ; color name      ; end

data/lib/rbfind/humansiz.rb

@@ -5,7 +5,7 @@
 
 =begin rdoc
 
-Human readable sizes, times, and modes.
+Human readable sizes and times.
 
 Examples:
 
@@ -136,12 +136,23 @@ class Time
   #   file.stat.mtime.lsish    #=> " 1. Apr 2008    "
   #
   def lsish
-    strftime "#{PERC_DAY}. %b " +
-              (year == Time.now.year ? "%H:%M:%S" : "%Y    ")
+    strftime "%e. %b " + (year == Time.start.year ? "%H:%M:%S" : "%Y    ")
   end
 
-  # Windows has no "%e".
-  PERC_DAY = Time.now.strftime("%e") =~ /\d/ ? "%e" : "%d"   # :nodoc:
+  def long
+    s = Time.start
+    if year == s.year && month == s.month && day == s.day then
+      strftime "==%H:%M:%S"
+    else
+      strftime "%Y-%m-%d"
+    end
+  end
+
+  class <<self
+    def start
+      @start ||= Time.now
+    end
+  end
 
 end
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rbfind
 version: !ruby/object:Gem::Version
-  version: '2.4'
+  version: 2.8.1
 platform: ruby
 authors:
 - Bertram Scharpf
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2020-11-07 00:00:00.000000000 Z
+date: 2021-03-19 00:00:00.000000000 Z
 dependencies: []
 description: |
   A replacement for the standard UNIX command find.