tb 0.2 → 0.3

data/sample/poi-xls2csv.rb

@@ -2,29 +2,33 @@
 
 # sample/poi-xls2csv.rb - XLS to CSV convert using Apache POI with JRuby.
 #
-# 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.
 
 $KCODE = 'u'
 
@@ -382,7 +386,7 @@ def convert_book(filename, input, csvgen)
   end
 end
 
-Tb.csv_stream_output(STDOUT) {|csvgen|
+Tb.csv_stream_output($stdout) {|csvgen|
   argv = ARGV.empty? ? ['-'] : ARGV
   argv.each {|filename|
     if filename == '-'

data/sample/poi-xls2csv.sh

@@ -5,26 +5,30 @@
 # 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:
+# 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.
 
 # Ubuntu libjakarta-poi-java package installs /usr/share/java/jakarta-poi.jar.
 

data/sample/tbplot

@@ -1,45 +1,41 @@
 #!/usr/bin/env ruby
 #
-# 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.
 
 # plot a graph using gnuplot.
 
 # usage:
-#   tbplot [-x field] [-y field] [--shape field] [--color field] [--size field] [--facet-x field] [--facet-y field] filename 
+#   tbplot [-x field,...] [-y field,...] [--shape field] [--color field] [--size field] [--facet-x field] [--facet-y field] filename 
 
 $:.unshift '/home/akr/ruby/tb/lib'
 
-require 'optparse'
-require 'tempfile'
-require 'time'
-require 'tb'
-
-def err(msg)
-  STDERR.puts msg
-  exit false
-end
+require 'tb/cmdtop'
 
 def gnuplot_escape_string(string)
   string = string.dup.force_encoding("ascii-8bit") if string.respond_to? :force_encoding
@@ -123,6 +119,24 @@ class ValueChecker
   end
 end
 
+class AxisScale
+  # create an AxisScale object.
+  #
+  #   AxisScale.new("fieldname")
+  #   AxisScale.new("logscale(fieldname)")
+  def initialize(desc)
+    @desc = desc
+    if /\Alogscale\((.*)\)\z/ =~ desc
+      @field = $1
+      @logscale = true
+    else
+      @field = desc
+      @logscale = false
+    end
+  end
+  attr_reader :desc, :field, :logscale
+end
+
 $x_field = nil
 $y_field = nil
 $shape_field = nil
@@ -132,117 +146,150 @@ $facet_x_field = nil
 $facet_y_field = nil
 $max_size = nil
 
-op = OptionParser.new
-op.def_option('-x FIELD', 'x-field') {|f| $x_field = f }
-op.def_option('-y FIELD', 'y-field') {|f| $y_field = f }
-op.def_option('--shape=FIELD', 'shape-field') {|f| $shape_field = f }
-op.def_option('--color=FIELD', 'color-field') {|f| $color_field = f }
-op.def_option('--size=FIELD', 'size-field') {|f| $size_field = f }
-op.def_option('--facet-x=FIELD', 'facet-x-field') {|f| $facet_x_field = f }
-op.def_option('--facet-y=FIELD', 'facet-y-field') {|f| $facet_y_field = f }
-op.def_option('--shapecolor=FIELD', 'shape-field and color-field') {|f| $shape_field = $color_field = f }
-op.def_option('--max-size=MAX-SIZE', 'maximum point size') {|v| $max_size = v.to_f }
+def main_body(argv)
+  op = OptionParser.new
+  op.def_option('-x FIELD,...', 'x-fields') {|f| $x_field = split_field_list_argument(f).map {|ff| AxisScale.new(ff) } }
+  op.def_option('-y FIELD,...', 'y-fields') {|f| $y_field = split_field_list_argument(f).map {|ff| AxisScale.new(ff) } }
+  op.def_option('--shape=FIELD', 'shape-field') {|f| $shape_field = f }
+  op.def_option('--color=FIELD', 'color-field') {|f| $color_field = f }
+  op.def_option('--size=FIELD', 'size-field') {|f| $size_field = f }
+  op.def_option('--facet-x=FIELD', 'facet-x-field') {|f| $facet_x_field = f }
+  op.def_option('--facet-y=FIELD', 'facet-y-field') {|f| $facet_y_field = f }
+  op.def_option('--shapecolor=FIELD', 'shape-field and color-field') {|f| $shape_field = $color_field = f }
+  op.def_option('--max-size=MAX-SIZE', 'maximum point size') {|v| $max_size = v.to_f }
 
-op.parse!(ARGV)
+  op.parse!(argv)
 
-if !$max_size
-  if $size_field
-    $max_size = 100.0
-  else
-    $max_size = 1.0
+  if !$max_size
+    if $size_field
+      $max_size = 100.0
+    else
+      $max_size = 1.0
+    end
   end
-end
 
-tmps = {}
+  tmps = {}
+
+  argv = ARGV.empty? ? ['-'] : ARGV
+  r = Tb::CatReader.open(argv)
 
-argv = ARGV.empty? ? ['-'] : ARGV
-Tb::CatReader.open(argv) {|r|
-  header0 = r.header
-  header = header0.dup
-  [$x_field, $y_field, $shape_field, $color_field, $size_field, $facet_x_field, $facet_y_field].each {|f|
-    if f && !header.include?(f)
-      err("field not found: #{f.inspect}")
-    end
-  }
-  header -= [$x_field, $y_field, $shape_field, $color_field, $size_field, $facet_x_field, $facet_y_field].compact
-  if !$x_field
-    if header.empty?
-      err("x-field not found")
-    end
-    $x_field = header.shift
-  end
-  if !$y_field
-    if header.empty?
-      err("y-field not found")
-    end
-    $y_field = header.shift
-  end
   checkers = {}
-  uniq_fields = [$x_field, $y_field, $shape_field, $color_field, $size_field, $facet_x_field, $facet_y_field].compact.uniq
-  r.each {|ary|
-    next if uniq_fields.any? {|f| ary[r.index_from_field(f)].nil? }
-    vs = {}
-    uniq_fields.each {|f|
-      v = ary[r.index_from_field(f)]
-      checkers[f] ||= ValueChecker.new
-      vs[f] = checkers[f].check(v)
+  uniq_fields = nil
+  r.with_header {|header0|
+    header = header0.dup
+    fields = [$shape_field, $color_field, $size_field, $facet_x_field, $facet_y_field]
+    fields.concat $x_field.map {|as| as.field } if $x_field
+    fields.concat $y_field.map {|as| as.field } if $y_field
+    fields.each {|f|
+      if f && !header.include?(f)
+        err("field not found: #{f.inspect}")
+      end
     }
-    x = vs[$x_field]
-    y = vs[$y_field]
-
-    shape_value = color_value = nil
-    size = 1
-    facet_x_field = facet_y_field = nil
-    if $shape_field
-      shape = vs[$shape_field]
-    end
-    if $color_field
-      color = vs[$color_field]
-    end
-    if $size_field
-      size = vs[$size_field]
-    end
-    if $facet_x_field
-      facet_x = vs[$facet_x_field]
+    header -= fields.compact
+    if !$x_field
+      if header.empty?
+        err("x-field not found")
+      end
+      $x_field = [AxisScale.new(header.shift)]
     end
-    if $facet_y_field
-      facet_y = vs[$facet_y_field]
+    if !$y_field
+      if header.empty?
+        err("y-field not found")
+      end
+      $y_field = [AxisScale.new(header.shift)]
     end
-    key1 = [facet_x, facet_y]
-    key2 = [shape, color]
-    tmps[key1] ||= {}
-    tmps[key1][key2] ||= Tempfile.new('tbplot')
-    tmps[key1][key2].puts "#{x} #{y} #{size}"
+    uniq_fields = [$shape_field, $color_field, $size_field, $facet_x_field, $facet_y_field].compact.uniq
+  }.each {|pairs|
+    $x_field.each {|x_scale|
+      x_field = x_scale.field
+      $y_field.each {|y_scale|
+        y_field = y_scale.field
+        next if uniq_fields.any? {|f| pairs[f].nil? }
+        next if pairs[x_field].nil?
+        vs = {}
+        checkers[x_field] ||= ValueChecker.new
+        vs[x_field] = checkers[x_field].check(pairs[x_field])
+        checkers[y_field] ||= ValueChecker.new
+        vs[y_field] = checkers[y_field].check(pairs[y_field])
+        uniq_fields.each {|f|
+          checkers[f] ||= ValueChecker.new
+          vs[f] = checkers[f].check(pairs[f])
+        }
+        x = vs[x_field]
+        y = vs[y_field]
+
+        size = 1
+        if $shape_field
+          shape = vs[$shape_field]
+        end
+        if $color_field
+          color = vs[$color_field]
+        end
+        if $size_field
+          size = vs[$size_field]
+        end
+        if $facet_x_field
+          facet_x = vs[$facet_x_field]
+        end
+        if $facet_y_field
+          facet_y = vs[$facet_y_field]
+        end
+        key1 = [facet_x, facet_y, x_scale, y_scale]
+        key2 = [shape, color]
+        tmps[key1] ||= {}
+        tmps[key1][key2] ||= Tempfile.new('tbplot')
+        tmps[key1][key2].puts "#{x} #{y} #{size}"
+      }
+    }
   }
+
   tmps.each {|k1, h| h.each {|k2, v| v.close } }
   gnuplot_command = ''
-  if 0 < checkers[$x_field].time || 0 < checkers[$y_field].time
-    gnuplot_command << 'set timefmt "%Y-%m-%dT%H:%M:%SZ"' << "\n"
-  end
-  if 0 < checkers[$x_field].time
-    gnuplot_command << "set xdata time\n"
-    gnuplot_command << "set format x #{gnuplot_escape_string(checkers[$x_field].tic_format)}\n"
-  end
-  if 0 < checkers[$y_field].time
-    gnuplot_command << "set ydata time\n"
-    gnuplot_command << "set format y #{gnuplot_escape_string(checkers[$y_field].tic_format)}\n"
-  end
-  gnuplot_command << "set xlabel #{gnuplot_escape_string($x_field)}\n"
-  gnuplot_command << "set ylabel #{gnuplot_escape_string($y_field)}\n"
-  if $size_field
-    pointsize = $max_size / checkers[$size_field].numeric_max
-    gnuplot_command << "set pointsize #{pointsize}\n"
-  end
-  if $facet_x_field || $facet_y_field
-    xsize = $facet_x_field ? 1.0 / checkers[$facet_x_field].values.size : 1.0
-    ysize = $facet_y_field ? 1.0 / checkers[$facet_y_field].values.size : 1.0
+  gnuplot_command << 'set timefmt "%Y-%m-%dT%H:%M:%SZ"' << "\n"
+  use_multiplot = false
+  if $facet_x_field || $facet_y_field || 1 < $x_field.length || 1 < $y_field.length
+    use_multiplot = true
+    x_numgraph = ($facet_x_field ? checkers[$facet_x_field].values.size : 1) * $x_field.length
+    y_numgraph = ($facet_y_field ? checkers[$facet_y_field].values.size : 1) * $y_field.length
+    xsize = 1.0 / x_numgraph
+    ysize = 1.0 / y_numgraph
     gnuplot_command << "set multiplot\n"
     gnuplot_command << "set size #{xsize},#{ysize}\n"
   end
-  tmps.each {|(facet_x, facet_y), h|
-    if $facet_x_field || $facet_y_field
-      xorigin = $facet_x_field ? (checkers[$facet_x_field].categorical_index(facet_x)-1.0)/checkers[$facet_x_field].values.size : 0
-      yorigin = $facet_y_field ? 1.0-(checkers[$facet_y_field].categorical_index(facet_y)-0.0)/checkers[$facet_y_field].values.size : 0
+
+  tmps.each {|(facet_x, facet_y, x_scale, y_scale), h|
+    x_field = x_scale.field
+    y_field = y_scale.field
+    gnuplot_command << (x_scale.logscale ? "set" : "unset") << " logscale x\n"
+    gnuplot_command << (y_scale.logscale ? "set" : "unset") << " logscale y\n"
+    if 0 < checkers[x_field].time
+      gnuplot_command << "set xdata time\n"
+      gnuplot_command << "set format x #{gnuplot_escape_string(checkers[x_field].tic_format)}\n"
+    end
+    if 0 < checkers[y_field].time
+      gnuplot_command << "set ydata time\n"
+      gnuplot_command << "set format y #{gnuplot_escape_string(checkers[y_field].tic_format)}\n"
+    end
+    gnuplot_command << "set xlabel #{gnuplot_escape_string(x_field)}\n"
+    gnuplot_command << "set ylabel #{gnuplot_escape_string(y_field)}\n"
+    if $size_field
+      pointsize = $max_size / checkers[$size_field].numeric_max
+      gnuplot_command << "set pointsize #{pointsize}\n"
+    end
+
+    if use_multiplot
+      x_graphindex = 0.0
+      if $facet_x_field
+        x_graphindex += (checkers[$facet_x_field].categorical_index(facet_x)-1) * $x_field.length
+      end
+      x_graphindex += $x_field.index(x_scale)
+      xorigin = x_graphindex / x_numgraph
+      y_graphindex = 0.0
+      if $facet_y_field
+        y_graphindex += (checkers[$facet_y_field].categorical_index(facet_y)-1) * $y_field.length
+      end
+      y_graphindex += $y_field.index(y_scale)
+      yorigin = (y_numgraph - y_graphindex - 1) / y_numgraph
       gnuplot_command << "set origin #{xorigin},#{yorigin}\n"
     end
     gnuplot_command << 'plot '
@@ -282,12 +329,23 @@ Tb::CatReader.open(argv) {|r|
     }
     gnuplot_command << "\n"
   }
-  if $facet_x_field || $facet_y_field
+  if use_multiplot
     gnuplot_command << "unset multiplot\n"
   end
   gnuplot_command << "pause mouse any\n"
   tmp_gnuplot_command = Tempfile.new(['tbplot', '.gp'])
   tmp_gnuplot_command << gnuplot_command
   tmp_gnuplot_command.close
+  #puts gnuplot_command; sleep 100
   system('gnuplot', tmp_gnuplot_command.path)
-}
+end
+
+
+def main(argv)
+  main_body(argv)
+rescue SystemExit
+  $stderr.puts $!.message if $!.message != 'exit'
+  raise
+end
+
+main(ARGV)