rbfind 1.13 → 2.2

data/lib/rbfind/core.rb

@@ -0,0 +1,82 @@
+#
+#  rbfind/core.rb  --  Additional core functions
+#
+
+
+class Dir
+
+  SPECIAL_DIRS = %w(. ..)
+  CUR_DIR, SUPER_DIR = *SPECIAL_DIRS
+
+  method_defined? :each_child or def each_child
+    s = SPECIAL_DIRS.dup
+    each { |f|
+      next if s.delete f
+      yield f
+    }
+  end
+
+  method_defined? :children or def children
+    entries - SPECIAL_DIRS
+  end
+
+end
+
+
+class File
+
+  class Stat
+
+    def identical? oth
+      oth = self.class.new oth unless self.class === oth
+      dev == oth.dev and ino == oth.ino
+    end
+
+    def stype
+      case mode >> 12
+        when 001 then "p"
+        when 002 then "c"
+        when 004 then "d"
+        when 006 then "b"
+        when 010 then "-"
+        when 012 then "l"
+        when 014 then "s"
+        when 016 then "w"
+        else          "?"
+      end
+    end
+
+    def suffix
+      case mode >> 12
+        when 001 then "|"
+        when 002 then " "
+        when 004 then "/"
+        when 006 then " "
+        when 010 then executable? ? "*" : " "
+        when 012 then "@"
+        when 014 then "="
+        when 016 then "%"
+        else          "?"
+      end
+    end
+
+    def modes
+      r = ""
+      m = mode
+      3.times {
+        r.insert 0, ((m & 01).nonzero? ? "x" : "-")
+        r.insert 0, ((m & 02).nonzero? ? "w" : "-")
+        r.insert 0, ((m & 04).nonzero? ? "r" : "-")
+        m >>= 3
+      }
+      (m & 04).nonzero? and r[ 2] = r[ 2] == "x" ? "s" : "S"
+      (m & 02).nonzero? and r[ 5] = r[ 5] == "x" ? "s" : "S"
+      (m & 01).nonzero? and r[ 8] = r[ 8] == "x" ? "t" : "T"
+      r
+    end
+
+  end
+
+end
+
+

data/lib/rbfind/csv.rb

@@ -0,0 +1,54 @@
+#
+#  rbfind/csv.rb  --  Write CSV-like output
+#
+
+
+module RbFind
+
+  module Csv
+
+    # Windows has ":" in filenames ("C:\...")
+    COLON = File::ALT_SEPARATOR ? "|" : ":"   # :nodoc:
+
+    def colsep *args
+      csv COLON, *args
+    end
+    alias col_sep colsep
+
+    def tabsep *args
+      csv "\t", *args
+    end
+    alias tab_sep tabsep
+
+    def spcsep *args
+      csv " ", *args
+    end
+    alias spc_sep spcsep
+    alias space_sep spc_sep
+    alias spacesep spcsep
+    alias p spcsep
+
+    def csv sep, *args
+      e = args.join sep
+      Csv.putl e
+    end
+
+
+    @outfile = $stdout
+
+    class <<self
+      def putl l
+        @outfile << l << $/
+      end
+      def outfile out
+        o, @outfile = @outfile, out
+        yield
+      ensure
+        @outfile = o
+      end
+    end
+
+  end
+
+end
+

data/lib/{humansiz.rb → rbfind/humansiz.rb}

@@ -1,7 +1,7 @@
 #
-#  humansiz.rb  --  human readable sizes
+#  humansiz.rb  --  Numeric class extensions for human readable sizes
 #
-# Numeric class extensions for human readable sizes.
+
 
 =begin rdoc
 
@@ -20,6 +20,7 @@ Examples:
 
 =end
 
+
 class Numeric                   # sizes in bytes
 
   # :stopdoc:
@@ -82,18 +83,48 @@ class Numeric                   # sizes in bytes
 end
 
 
-class Numeric                   # time values
-  def s ; self      ; end
-  def m ; s    * 60 ; end
-  def h ; m    * 60 ; end
-  def d ; h    * 24 ; end
-  def w ; d    *  7 ; end
+class Integer
+  def to_g
+    s = to_s
+    l = []
+    while (t = s.slice! /\d{1,3}\z/) do l.unshift t end
+    l.join "_"
+  end
 end
 
 
+class Numeric
+  "smhdw".each_char { |c|
+    define_method c do Time.to_sec self, c end
+  }
+  def t ; Time.to_unit to_i ; end
+end
+
 
 class Time
 
+  TIME_UNITS = [ "seconds", 60, "minutes", 60, "hours", 24, "days", 7, "weeks", ]
+  class <<self
+    def to_unit n
+      u = TIME_UNITS.each_slice 2 do |nam,val|
+        break nam if not val or n < val
+        n /= val
+      end
+      "#{n}#{u[0]}"
+    end
+    def to_sec num, unit
+      TIME_UNITS.each_slice 2 do |nam,val|
+        return num if nam.start_with? unit
+        num *= val
+      end
+      raise "No time unit: #{unit}."
+    end
+    def str_to_sec str
+      str =~ /(\d*) *(\w*)/
+      to_sec $1.to_i, $2
+    end
+  end
+
   # :call-seq:
   #    time.lsish()  -> str
   #

data/lib/rbfind/table.rb

@@ -0,0 +1,114 @@
+#
+#  rbfind/table.rb  --  Table for data
+#
+
+
+module RbFind
+
+  class Table
+
+    def initialize *heads
+      heads.flatten!
+      @heads = heads
+      @rows = []
+    end
+
+    def spawn
+      self.class.new *@heads
+    end
+
+    def add *row
+      row.flatten!
+      n = @heads.size
+      row[ 0, n] = row[ 0, n].map { |r| r.to_s }
+      @rows.push row
+    end
+
+    def sort_by! *nums
+      @rows.sort_by! { |x| nums.map { |i| x[i] } }
+    end
+
+    def empty?
+      @rows.empty?
+    end
+
+    def output head: false
+      make_lines head: head do |l| puts l end
+    end
+
+    def make_lines head: false
+      rs = @rows
+      rs.unshift heads_plain if head
+      w = calc_widths
+      rs.each { |r|
+        j = (w.zip @heads, r).map { |v,h,c|
+          case h
+            when />\z/  then c.rjust  v
+            when /\^\z/ then c.center v
+            when /<?\z/ then c.ljust  v
+          end
+        }
+        l = j.join " "
+        l.rstrip!
+        yield l
+      }
+      nil
+    end
+
+    def make_html table: nil, row: nil
+      @html = ""
+      tag :table, table, nl: 2 do
+        tag :tr, row, nl: 1 do
+          (@heads.zip heads_plain).each { |h,c|
+            tag :td, c.downcase, align: (html_align h) do @html << c end
+          }
+        end
+        @rows.each { |r|
+          tag :tr, table, nl: 1 do
+            (@heads.zip heads_plain, r).each { |h,g,c|
+              tag :td, g.downcase, align: (html_align h) do @html << c end
+            }
+          end
+        }
+      end
+      @html
+    ensure
+      @html = nil
+    end
+
+    private
+
+    def calc_widths
+      w = @heads.map { 0 }
+      @rows.each { |r|
+        w = (w.zip r).map { |i,c| j = c.length ; j > i ? j : i }
+      }
+      w
+    end
+
+    def heads_plain
+      @heads.map { |h| h.sub /\W\z/, "" }
+    end
+
+    def tag name, cls, nl: 0, align: nil
+      @html << "<#{name}"
+      @html << " style=\"text-align: " << align << ";\"" if align
+      @html << " class=\"" << cls << "\"" if cls
+      @html << ">"
+      @html << $/ if nl > 1
+      yield
+      @html << "</#{name}>"
+      @html << $/ if nl > 0
+    end
+
+    def html_align h
+      case h
+        when />/  then "right"
+        when /\^/ then "center"
+        when /<?/ then "left"
+      end
+    end
+
+  end
+
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rbfind
 version: !ruby/object:Gem::Version
-  version: '1.13'
+  version: '2.2'
 platform: ruby
 authors:
 - Bertram Scharpf
-autorequire: 
+autorequire:
 bindir: bin
 cert_chain: []
-date: 2020-05-07 00:00:00.000000000 Z
+date: 2020-10-19 00:00:00.000000000 Z
 dependencies: []
 description: |
   A replacement for the standard UNIX command find.
@@ -25,13 +25,16 @@ files:
 - LICENSE
 - README
 - bin/rbfind
-- lib/humansiz.rb
 - lib/rbfind.rb
+- lib/rbfind/core.rb
+- lib/rbfind/csv.rb
+- lib/rbfind/humansiz.rb
+- lib/rbfind/table.rb
 homepage: http://www.bertram-scharpf.de/software/rbfind
 licenses:
 - BSD-2-Clause
 metadata: {}
-post_install_message: 
+post_install_message:
 rdoc_options:
 - "--charset"
 - utf-8
@@ -51,8 +54,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: Ruby replacement for the standard Unix find tool
 test_files: []