rbfind 2.3 → 2.7

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0655e863af78b2081d7306e8823694ef7ad5c48625dbdd9c7f0f75fb8a85d4d7
-  data.tar.gz: 0ef05d8082c2487d7079176ea8373f31e392d41eb1dd269555c47832ff313689
+  metadata.gz: b57d2e44d4df6453083635d22ab01c92ea5b54fed8c121a313ac351048f16b51
+  data.tar.gz: 20518a97f6e446de75b6397a0e725a9f1c93d5c61f93743072a2b60e322c75a5
 SHA512:
-  metadata.gz: 915e2359d8bb0c7814c682f8247e71eb7db8742a8095c2cdbb44194252df0ba2636602443ca916055a3f260cece8de837118c565c76ca2bfb470dd2409749a94
-  data.tar.gz: f72fdc455e7ac5eba31060f3c96176f47985f7a4f41fd55d089dc78d7b713838365c5b949f537b7089b223829e63ac5ed64935af9a80a90639e31aa7ade67474
+  metadata.gz: 6ad6d7f05ad3de24d717dc7d274ea5dc75fd5ee81640c1de03bef875727a5f33ed80846ad7445a990ac925734a1dbed66312bac0686bcbb7d16bd1d33ae2d710
+  data.tar.gz: 9b97002d3fd98ffd891d5d10b6fc60087a18f2a2b828a0a0099554fa2f50fe0e562a3cd4a062602e9210508d389b733974ddeb9442e0636083cc4e98a8740777

data/bin/rbfind

@@ -33,13 +33,18 @@ module RbFind
       [ %w(--depth     -d), nil,  "yield directory after its contents"],
       [ %w(--maxdepth  -m), :num, "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 +53,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)"],
     ]
 
@@ -81,12 +87,17 @@ module RbFind
           when '--maxdepth'  then @params[ :max_depth] = arg.to_i
           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 +110,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
@@ -142,7 +154,7 @@ module RbFind
           @binary or @block = "not binary? and (#@block)"
 
         else
-          @block ||= if @args.last and not (File.exists? @args.last) then
+          @block ||= if @args.last and not (File.lstat @args.last rescue false) then
             @args.pop.dup
           else
             @puts ||= true
@@ -150,11 +162,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 +264,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 +363,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 +465,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 +502,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.3".freeze
+  VERSION = "2.7".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,121 @@ 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&.nonzero?, 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.exists? base or raise "`#{base}` doesn't exist."
-            visit_depth base
-          end
-        }
+        step_depth do
+          args.each { |base|
+            e = Entry.new base, self
+            enter e if handle_error do e.stat end
+          }
+        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 +397,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 +455,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 +526,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 +539,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
 
 
@@ -552,7 +562,11 @@ Sort without case sensitivity and preceding dot:
     # Check whether a directory contains an entry.
     #
     def contains? name
-      File.exists? File.join @path, name
+      p = File.join @path, name
+      File.lstat p
+      true
+    rescue
+      false
     end
 
     # :call-seq:
@@ -580,7 +594,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
@@ -690,10 +705,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
 

data/lib/rbfind/table.rb

@@ -42,7 +42,11 @@ module RbFind
       @rows.empty?
     end
 
-    def output head: false
+    def output head: false, ifempty: nil
+      if empty? and ifempty then
+        puts ifempty
+        return
+      end
       make_lines head: head do |l| puts l end
     end
 

metadata

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