tb 0.2 → 0.3

data/lib/tb/cmd_json.rb

@@ -1,60 +0,0 @@
-# Copyright (C) 2011 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 << 'json'
-
-def (Tb::Cmd).op_json
-  op = OptionParser.new
-  op.banner = 'Usage: tb json [OPTS] [TABLE]'
-  define_common_option(op, "hNo", "--no-pager")
-  op
-end
-
-def (Tb::Cmd).main_json(argv)
-  require 'json'
-  op_json.parse!(argv)
-  exit_if_help('json')
-  argv = ['-'] if argv.empty?
-  with_output {|out|
-    out.print "["
-    sep = nil
-    argv.each {|filename|
-      sep = ",\n\n" if sep
-      tablereader_open(filename) {|tblreader|
-        tblreader.each {|ary|
-          out.print sep if sep
-          header = tblreader.header
-          h = {}
-          ary.each_with_index {|e, i|
-            h[header[i]] = e if !e.nil?
-          }
-          out.print JSON.pretty_generate(h)
-          sep = ",\n"
-        }
-      }
-    }
-    out.puts "]"
-  }
-end
-

data/lib/tb/cmd_pnm.rb

@@ -1,43 +0,0 @@
-# Copyright (C) 2011 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 << 'pnm'
-
-def (Tb::Cmd).op_pnm
-  op = OptionParser.new
-  op.banner = 'Usage: tb pnm [OPTS] [TABLE]'
-  define_common_option(op, "hNo", "--no-pager")
-  op
-end
-
-def (Tb::Cmd).main_pnm(argv)
-  op_pnm.parse!(argv)
-  exit_if_help('pnm')
-  argv = ['-'] if argv.empty?
-  tbl = Tb::CatReader.open(argv, Tb::Cmd.opt_N) {|creader| build_table(creader) }
-  with_output {|out|
-    tbl.generate_pnm(out)
-  }
-end
-

data/lib/tb/cmd_pp.rb

@@ -1,70 +0,0 @@
-# Copyright (C) 2011 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 << 'pp'
-
-def (Tb::Cmd).op_pp
-  op = OptionParser.new
-  op.banner = 'Usage: tb pp [OPTS] [TABLE]'
-  define_common_option(op, "hNo", "--no-pager")
-  op
-end
-
-def (Tb::Cmd).main_pp(argv)
-  op_pp.parse!(argv)
-  exit_if_help('pp')
-  argv.unshift '-' if argv.empty?
-  with_output {|out|
-    argv.each {|filename|
-      tablereader_open(filename) {|tblreader|
-        tblreader.each {|ary|
-          a = []
-          ary.each_with_index {|v, i|
-            next if v.nil?
-            a << [tblreader.field_from_index_ex(i), v]
-          }
-          q = PP.new(out, 79)
-          q.guard_inspect_key {
-            q.group(1, '{', '}') {
-              q.seplist(a, nil, :each) {|kv|
-                k, v = kv
-                q.group {
-                  q.pp k
-                  q.text '=>'
-                  q.group(1) {
-                    q.breakable ''
-                    q.pp v
-                  }
-                }
-              }
-            }
-          }
-          q.flush
-          out << "\n"
-        }
-      }
-    }
-  }
-end
-

data/lib/tb/cmd_tsv.rb

@@ -1,43 +0,0 @@
-# Copyright (C) 2011 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 << 'tsv'
-
-def (Tb::Cmd).op_tsv
-  op = OptionParser.new
-  op.banner = 'Usage: tb tsv [OPTS] [TABLE]'
-  define_common_option(op, "hNo", "--no-pager")
-  op
-end
-
-def (Tb::Cmd).main_tsv(argv)
-  op_tsv.parse!(argv)
-  exit_if_help('tsv')
-  argv = ['-'] if argv.empty?
-  tbl = Tb::CatReader.open(argv, Tb::Cmd.opt_N) {|creader| build_table(creader) }
-  with_output {|out|
-    tbl_generate_tsv(tbl, out)
-  }
-end
-

data/lib/tb/cmd_yaml.rb

@@ -1,47 +0,0 @@
-# Copyright (C) 2011 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 << 'yaml'
-
-def (Tb::Cmd).op_yaml
-  op = OptionParser.new
-  op.banner = 'Usage: tb yaml [OPTS] [TABLE]'
-  define_common_option(op, "hNo", "--no-pager")
-  op
-end
-
-def (Tb::Cmd).main_yaml(argv)
-  require 'yaml'
-  op_yaml.parse!(argv)
-  exit_if_help('yaml')
-  argv = ['-'] if argv.empty?
-  tbl = Tb::CatReader.open(argv, Tb::Cmd.opt_N) {|creader| build_table(creader) }
-  ary = tbl.map {|rec| rec.to_h }
-  with_output {|out|
-    YAML.dump(ary, out)
-    out.puts
-  }
-end
-
-