Changeset 379 for trunk

Timestamp:

Jan 4, 2018, 3:35:29 PM (7 years ago)

Author:

g7moreau

Message:

• Add option --no-header for exportsw format txt

File:

• trunk/klask (modified) (6 diffs)

trunk/klask

@@ -3033 +3033 @@
    my $graph_shift  = 1;
    my $way          = 'all';
+   my $no_header;
 
    GetOptions(
-      'format|f=s' => \$format,
-      'modulo|m=i' => \$graph_modulo,
-      'shift|s=i'  => \$graph_shift,
-      'way|w=s'    => \$way,
+      'format|f=s'  => \$format,
+      'modulo|m=i'  => \$graph_modulo,
+      'shift|s=i'   => \$graph_shift,
+      'way|w=s'     => \$way,
+      'no-header|H' => \$no_header,
       );
 
@@ -3048 +3050 @@
    $format = 'txt' if not defined $possible_format{$format};
 
-   $possible_format{$format}->(modulo => $graph_modulo, shift => $graph_shift, way => $way, @ARGV);
+   $possible_format{$format}->(modulo => $graph_modulo, shift => $graph_shift, way => $way, 'no-header' => $no_header, @ARGV);
    return;
    }
@@ -3055 +3057 @@
 sub cmd_exportsw_txt {
    my %args = (
-      way   => 'all',
-      list  => 0,
+      'way'       => 'all',
+      'no-header' => undef,
       @_);
 
@@ -3080 +3082 @@
          }
 
-      print $tb_desc->title();
-      print $tb_desc->rule('-');
+      print $tb_desc->title()   unless $args{'no-header'};
+      print $tb_desc->rule('-') unless $args{'no-header'};
       print $tb_desc->body();
       $tb_desc->clear;
@@ -3113 +3115 @@
       my @colrange = map {scalar $tb_child->colrange($_)} (0 .. 4); # force scaler context
       $tb_child->add(map {' ' x $_} reverse @colrange);             # add empty line to force symetric table output
-      print $tb_child->title();
-      print $tb_child->rule('-');
+      print $tb_child->title()   unless $args{'no-header'};
+      print $tb_child->rule('-') unless $args{'no-header'};
       print $tb_child->body(0, $tb_child->body_height() - 1);       # remove last fake line
       $tb_child->clear;
@@ -3144 +3146 @@
       my @colrange = map {scalar $tb_parent->colrange($_)} (0 .. 4); # force scaler context
       $tb_parent->add(map {' ' x $_} reverse @colrange);             # add empty line to force symetric table output
-      print $tb_parent->title();
-      print $tb_parent->rule('-');
+      print $tb_parent->title()   unless $args{'no-header'};
+      print $tb_parent->rule('-') unless $args{'no-header'};
       print $tb_parent->body(0, $tb_parent->body_height() - 1);      # remove last fake line
       $tb_parent->clear;