tb 0.2 → 0.3

data/lib/tb/cmd_cross.rb

@@ -1,26 +1,30 @@
-# Copyright (C) 2011 Tanaka Akira  <akr@fsij.org>
+# Copyright (C) 2011-2012 Tanaka Akira  <akr@fsij.org>
 # 
 # Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
+# modification, are permitted provided that the following conditions
+# are met:
 # 
-#  1. Redistributions of source code must retain the above copyright notice, this
-#     list of conditions and the following disclaimer.
-#  2. Redistributions in binary form must reproduce the above copyright notice,
-#     this list of conditions and the following disclaimer in the documentation
-#     and/or other materials provided with the distribution.
-#  3. The name of the author may not be used to endorse or promote products
-#     derived from this software without specific prior written permission.
+#  1. Redistributions of source code must retain the above copyright
+#     notice, this list of conditions and the following disclaimer.
+#  2. Redistributions in binary form must reproduce the above
+#     copyright notice, this list of conditions and the following
+#     disclaimer in the documentation and/or other materials provided
+#     with the distribution.
+#  3. The name of the author may not be used to endorse or promote
+#     products derived from this software without specific prior
+#     written permission.
 # 
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-# EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
-# OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
-# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
-# OF SUCH DAMAGE.
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+# OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 Tb::Cmd.subcommands << 'cross'
 
@@ -29,7 +33,8 @@ Tb::Cmd.default_option[:opt_cross_compact] = false
 
 def (Tb::Cmd).op_cross
   op = OptionParser.new
-  op.banner = 'Usage: tb cross [OPTS] HKEY-FIELD1,... VKEY-FIELD1,... [TABLE ...]'
+  op.banner = "Usage: tb cross [OPTS] VKEY-FIELD1,... HKEY-FIELD1,... [TABLE ...]\n" +
+    "Create a cross table. (a.k.a contingency table, pivot table)"
   define_common_option(op, "ho", "--no-pager")
   op.def_option('-a AGGREGATION-SPEC[,NEW-FIELD]',
                 '--aggregate AGGREGATION-SPEC[,NEW-FIELD]') {|arg| Tb::Cmd.opt_cross_fields << arg }
@@ -40,10 +45,10 @@ end
 def (Tb::Cmd).main_cross(argv)
   op_cross.parse!(argv)
   exit_if_help('cross')
-  err('no hkey-fields given.') if argv.empty?
-  hkfs = split_field_list_argument(argv.shift)
   err('no vkey-fields given.') if argv.empty?
   vkfs = split_field_list_argument(argv.shift)
+  err('no hkey-fields given.') if argv.empty?
+  hkfs = split_field_list_argument(argv.shift)
   if Tb::Cmd.opt_cross_fields.empty?
     opt_cross_fields = [['count', 'count']]
   else
@@ -54,66 +59,103 @@ def (Tb::Cmd).main_cross(argv)
     }
   end
   argv = ['-'] if argv.empty?
-  Tb::CatReader.open(argv, Tb::Cmd.opt_N) {|tblreader|
-    vkis = vkfs.map {|f| tblreader.index_from_field(f) }
-    hkis = hkfs.map {|f| tblreader.index_from_field(f) }
-    vset = {}
-    hset = {}
-    set = {}
-    tblreader.each {|ary|
-      vkvs = ary.values_at(*vkis)
-      hkvs = ary.values_at(*hkis)
-      vset[vkvs] = true if !vset.include?(vkvs)
-      hset[hkvs] = true if !hset.include?(hkvs)
-      if !set.include?([vkvs, hkvs])
-        set[[vkvs, hkvs]] = opt_cross_fields.map {|agg_spec, nf|
+  creader = Tb::CatReader.open(argv, Tb::Cmd.opt_N)
+  er = Tb::Enumerator.new {|y|
+    header = nil
+    hvs_hash = {}
+    hvs_list = nil
+    sorted = creader.extsort_by {|pairs|
+      hvs = hkfs.map {|f| pairs[f] }
+      hvs_hash[hvs] = true
+      vcv = vkfs.map {|f| smart_cmp_value(pairs[f]) }
+      vcv
+    }
+    sorted2 = sorted.with_header {|header0|
+      header = header0
+      (vkfs + hkfs).each {|f|
+        if !header0.include?(f)
+          err("field not found: #{f}")
+        end
+      }
+      hvs_list = hvs_hash.keys.sort_by {|hvs| hvs.map {|hv| smart_cmp_value(hv) } }
+      n = vkfs.length + hvs_list.length * opt_cross_fields.length
+      header1 = (1..n).map {|i| i.to_s }
+      y.set_header header1
+      hkfs.each_with_index {|hkf, i|
+        next if Tb::Cmd.opt_cross_compact && i == hkfs.length - 1
+        h1 = {}
+        j = vkfs.length
+        h1[j.to_s] = hkf
+        hvs_list.each {|hkvs|
+          opt_cross_fields.length.times {
+            j += 1
+            h1[j.to_s] = hkvs[i]
+          }
+        }
+        y.yield h1
+      }
+      h2 = {}
+      j = 0
+      vkfs.each {|vkf|
+        j += 1
+        h2[j.to_s] = vkf
+      }
+      hvs_list.each {|hkvs|
+        opt_cross_fields.each {|agg_spec, new_field|
+          j += 1
+          if Tb::Cmd.opt_cross_compact
+            h2[j.to_s] = hkvs[-1]
+          else
+            h2[j.to_s] = new_field
+          end
+        }
+      }
+      y.yield h2
+    }
+    boudary_p = lambda {|pairs1, pairs2|
+      vcv1 = vkfs.map {|f| smart_cmp_value(pairs1[f]) }
+      vcv2 = vkfs.map {|f| smart_cmp_value(pairs2[f]) }
+      vcv1 != vcv2
+    }
+    aggs = nil
+    before = lambda {|_|
+      aggs = {}
+    }
+    body = lambda {|pairs|
+      hvs = hkfs.map {|f| pairs[f] }
+      if !aggs.has_key?(hvs)
+        aggs[hvs] = opt_cross_fields.map {|agg_spec, nf|
           begin
-            ag = make_aggregator(agg_spec, tblreader.header)
+            make_aggregator(agg_spec, header)
           rescue ArgumentError
             err($!.message)
           end
-          ag.update(ary)
-          ag
-        }
-      else
-        set[[vkvs, hkvs]].each {|ag|
-          ag.update(ary)
         }
       end
+      ary = header.map {|f| pairs[f] }
+      aggs[hvs].each {|agg|
+        agg.update(ary)
+      }
     }
-    vary = vset.keys.sort_by {|a| a.map {|v| smart_cmp_value(v) } }
-    hary = hset.keys.sort_by {|a| a.map {|v| smart_cmp_value(v) } }
-    with_output {|out|
-      Tb.csv_stream_output(out) {|gen|
-        hkfs.each_with_index {|hkf, i|
-          next if Tb::Cmd.opt_cross_compact && i == hkfs.length - 1
-          row = [nil] * (vkfs.length - 1) + [hkf]
-          hary.each {|hkvs| opt_cross_fields.length.times { row << hkvs[i] } }
-          gen << row
-        }
-        if Tb::Cmd.opt_cross_compact
-          r = vkfs.dup
-          hary.each {|hkvs| r.concat([hkvs[-1]] * opt_cross_fields.length) }
-          gen << r
+    after = lambda {|last_pairs|
+      ary = vkfs.map {|f| last_pairs[f] }
+      hvs_list.each {|hvs|
+        if aggs.has_key? hvs
+          ary.concat(aggs[hvs].map {|agg| agg.finish })
         else
-          r = vkfs.dup
-          hary.each {|hkvs| r.concat opt_cross_fields.map {|agg_spec, new_field| new_field } }
-          gen << r
+          ary.concat([nil] * opt_cross_fields.length)
         end
-        vary.each {|vkvs|
-          row = vkvs.dup
-          hary.each {|hkvs|
-            ags = set[[vkvs, hkvs]]
-            if !ags
-              opt_cross_fields.length.times { row << nil }
-            else
-              ags.each {|ag| row << ag.finish }
-            end
-          }
-          gen << row
-        }
       }
+      pairs = {}
+      ary.each_with_index {|v, i|
+        pairs[(i+1).to_s] = v
+      }
+      y.yield pairs
     }
+    sorted2.each_group_element(boudary_p, before, body, after)
+  }
+  with_output {|out|
+    er.write_to_csv(out, false)
   }
 end
 

data/lib/tb/cmd_cut.rb

@@ -1,26 +1,30 @@
-# Copyright (C) 2011 Tanaka Akira  <akr@fsij.org>
+# Copyright (C) 2011-2012 Tanaka Akira  <akr@fsij.org>
 # 
 # Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
+# modification, are permitted provided that the following conditions
+# are met:
 # 
-#  1. Redistributions of source code must retain the above copyright notice, this
-#     list of conditions and the following disclaimer.
-#  2. Redistributions in binary form must reproduce the above copyright notice,
-#     this list of conditions and the following disclaimer in the documentation
-#     and/or other materials provided with the distribution.
-#  3. The name of the author may not be used to endorse or promote products
-#     derived from this software without specific prior written permission.
+#  1. Redistributions of source code must retain the above copyright
+#     notice, this list of conditions and the following disclaimer.
+#  2. Redistributions in binary form must reproduce the above
+#     copyright notice, this list of conditions and the following
+#     disclaimer in the documentation and/or other materials provided
+#     with the distribution.
+#  3. The name of the author may not be used to endorse or promote
+#     products derived from this software without specific prior
+#     written permission.
 # 
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-# EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
-# OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
-# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
-# OF SUCH DAMAGE.
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+# OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 Tb::Cmd.subcommands << 'cut'
 
@@ -28,7 +32,8 @@ Tb::Cmd.default_option[:opt_cut_v] = nil
 
 def (Tb::Cmd).op_cut
   op = OptionParser.new
-  op.banner = 'Usage: tb cut [OPTS] FIELD,... [TABLE]'
+  op.banner = "Usage: tb cut [OPTS] FIELD,... [TABLE]\n" +
+    "Select columns."
   define_common_option(op, "hNo", "--no-pager")
   op.def_option('-v', 'invert match') { Tb::Cmd.opt_cut_v = true }
   op
@@ -42,35 +47,35 @@ def (Tb::Cmd).main_cut(argv)
   argv = ['-'] if argv.empty?
   Tb::CatReader.open(argv, Tb::Cmd.opt_N) {|tblreader|
     if Tb::Cmd.opt_cut_v
-      h = {}
-      fs.each {|f| h[tblreader.index_from_field(f)] = true }
-      header = nil
-      if !Tb::Cmd.opt_N
-        header = []
-        tblreader.header.each_with_index {|f, i|
-          header << f if !h[i]
-        }
-      end
-      with_table_stream_output {|gen|
-        gen.output_header(header)
-        tblreader.each {|ary|
-          values = []
-          ary.each_with_index {|v, i|
-            values << v if !h[i]
-          }
-          gen << values
+      er = Tb::Enumerator.new {|y|
+        tblreader.with_header {|header0|
+          if header0
+            y.set_header header0 - fs
+          end
+        }.each {|pairs|
+          y.yield pairs.reject {|k, v| fs.include? k }
         }
       }
+      with_output {|out|
+        er.write_to_csv(out, !Tb::Cmd.opt_N)
+      }
     else
-      header = tblreader.header
-      is = []
-      is = fs.map {|f| tblreader.index_from_field_ex(f) }
-      with_table_stream_output {|gen|
-        gen.output_header(is.map {|i| tblreader.field_from_index_ex(i) })
-        tblreader.each {|ary|
-          gen << ary.values_at(*is)
+      er = Tb::Enumerator.new {|y|
+        tblreader.with_header {|header0|
+          if header0
+            fieldset = Tb::FieldSet.new(*header0)
+            fs.each {|f|
+              fieldset.index_from_field_ex(f)
+            }
+          end
+          y.set_header fs
+        }.each {|pairs|
+          y.yield pairs.reject {|k, v| !fs.include?(k) }
         }
       }
+      with_output {|out|
+        er.write_to_csv(out, !Tb::Cmd.opt_N)
+      }
     end
   }
 end

data/lib/tb/cmd_git_log.rb

@@ -0,0 +1,193 @@
+# Copyright (C) 2011-2012 Tanaka Akira  <akr@fsij.org>
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 
+#  1. Redistributions of source code must retain the above copyright
+#     notice, this list of conditions and the following disclaimer.
+#  2. Redistributions in binary form must reproduce the above
+#     copyright notice, this list of conditions and the following
+#     disclaimer in the documentation and/or other materials provided
+#     with the distribution.
+#  3. The name of the author may not be used to endorse or promote
+#     products derived from this software without specific prior
+#     written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+# OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Tb::Cmd.subcommands << 'git-log'
+
+Tb::Cmd.default_option[:opt_git_log_git_command] = nil
+Tb::Cmd.default_option[:opt_git_log_debug_git_log_file] = nil
+
+def (Tb::Cmd).op_git_log
+  op = OptionParser.new
+  op.banner = "Usage: tb git-log [OPTS] [GIT-DIR ...]\n" +
+    "Show the GIT log as a table."
+  define_common_option(op, "hNo", "--no-pager")
+  op.def_option('--git-command COMMAND', 'specify the git command (default: git)') {|command| Tb::Cmd.opt_git_log_git_command = command }
+  op.def_option('--debug-git-log-file FILE', 'specify the result git log (for debug)') {|filename| Tb::Cmd.opt_git_log_debug_git_log_file = filename }
+  op
+end
+
+Tb::Cmd::GIT_LOG_FORMAT_SPEC = [
+  %w[commit %H],
+  %w[tree %T],
+  %w[parents %P],
+  %w[author-name %an],
+  %w[author-email %ae],
+  %w[author-date %ai],
+  %w[committer-name %cn],
+  %w[committer-email %ce],
+  %w[committer-date %ci],
+  %w[ref-names %d],
+  %w[encoding %e],
+  %w[subject %s],
+  %w[body %b],
+  %w[raw-body %B],
+  %w[notes %N],
+  %w[reflog-selector %gD],
+  %w[reflog-subject %gs],
+]
+
+Tb::Cmd::GIT_LOG_PRETTY_FORMAT = 'format:%x01commit-separator%x01%n' +
+  Tb::Cmd::GIT_LOG_FORMAT_SPEC.map {|k, v| "#{k}:%w(0,0,1)#{v}%w(0,0,0)%n" }.join('') +
+  "end-commit%n"
+
+Tb::Cmd::GIT_LOG_HEADER = Tb::Cmd::GIT_LOG_FORMAT_SPEC.map {|k, v| k } + ['files']
+
+def (Tb::Cmd).git_log_with_git_log(dir)
+  if Tb::Cmd.opt_git_log_debug_git_log_file
+    File.open(Tb::Cmd.opt_git_log_debug_git_log_file) {|f|
+      yield f
+    }
+  else
+    git = Tb::Cmd.opt_git_log_git_command || 'git'
+    # depends Ruby 1.9.
+    command = [
+      git,
+      'log',
+      "--pretty=#{Tb::Cmd::GIT_LOG_PRETTY_FORMAT}",
+      '--decorate=full',
+        '--raw',
+        '--abbrev=40',
+        '.',
+        {:chdir=>dir}
+    ]
+    IO.popen(command) {|f|
+      yield f
+    }
+  end
+end
+
+def (Tb::Cmd).git_log_unescape_filename(filename)
+  if /\A"/ =~ filename
+    $'.chomp('"').gsub(/\\((\d\d\d)|[abtnvfr"\\])/) {
+      str = $1
+      if $2
+        [str.to_i(8)].pack("C")
+      else
+        case str
+        when 'a' then "\a"
+        when 'b' then "\b"
+        when 't' then "\t"
+        when 'n' then "\n"
+        when 'v' then "\v"
+        when 'f' then "\f"
+        when 'r' then "\r"
+        when '"' then '"'
+        when '\\' then "\\"
+        else
+          warn "unexpected escape: #{str.inspect}"
+        end
+      end
+    }
+  else
+    filename
+  end
+end
+
+def (Tb::Cmd).git_log_parse_commit(commit_info, files)
+  commit_info = commit_info.split(/\n(?=[a-z])/)
+  Tb.csv_stream_output(files_csv="") {|gen|
+    gen << %w[mode1 mode2 hash1 hash2 status filename]
+    files.split(/\n/).each {|file_line|
+      if /\A:(\d+) (\d+) ([0-9a-f]+) ([0-9a-f]+) (\S+)\t(.+)\z/ !~ file_line
+        warn "unexpected git-log output: #{file_line.inspect}"
+        next
+      end
+      mode1, mode2, hash1, hash2, status, filename = $1, $2, $3, $4, $5, $6
+      filename = git_log_unescape_filename(filename)
+      gen << [mode1, mode2, hash1, hash2, status, filename]
+    }
+  }
+  h = {}
+  commit_info.each {|s|
+    if /:/ !~ s
+      warn "unexpected git-log output: #{s.inspect}"
+      next
+    end
+    k = $`
+    v = $'.gsub(/\n /, "\n") # remove indent generated by %w(0,0,1)
+    case k
+    when /\A(?:author-date|committer-date)/
+      v = v.sub(/\A(\d+-\d\d-\d\d) (\d\d:\d\d:\d\d) ([-+]\d\d\d\d)\z/, '\1T\2\3')
+    when /\Aparents\z/
+      v = ['parent', *v.split(/ /)].map {|c| c + "\n" }.join("")
+    when /\Aref-names\z/
+      v = v.strip.gsub(/\A\(|\)\z/, '')
+      v = ['ref-name', *v.split(/, /)].map {|c| c + "\n" }.join("")
+    end
+    h[k] = v
+  }
+  h['files'] = files_csv
+  h
+end
+
+def (Tb::Cmd).git_log_each_commit(f)
+  while chunk = f.gets("\x01commit-separator\x01\n")
+    chunk.chomp!("\x01commit-separator\x01\n")
+    next if chunk.empty? # beginning of the output
+    if /\nend-commit\n/ !~ chunk
+      warn "unexpected git-log output: #{chunk.inspect}"
+      next
+    end
+    commit_info, files = $`, $'
+    files.sub!(/\A\n/, '')
+    h = git_log_parse_commit(commit_info, files)
+    yield h
+  end
+
+end
+
+def (Tb::Cmd).main_git_log(argv)
+  op_git_log.parse!(argv)
+  exit_if_help('git-log')
+  argv = ['.'] if argv.empty?
+  er = Tb::Enumerator.new {|y|
+    y.set_header Tb::Cmd::GIT_LOG_HEADER
+    argv.each {|dir|
+      git_log_with_git_log(dir) {|f|
+        f.set_encoding("ASCII-8BIT") if f.respond_to? :set_encoding
+        git_log_each_commit(f) {|h|
+          y.yield h
+        }
+      }
+    }
+  }
+  with_output {|out|
+    er.write_to_csv(out, !Tb::Cmd.opt_N)
+  }
+end
+