Changeset 375

Timestamp:

Jan 4, 2018, 2:14:35 PM (7 years ago)

Author:

g7moreau

Message:

• Begin support for more option in exportsw

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -3046 +3046 @@
    $format = 'txt' if not defined $possible_format{$format};
 
-   $possible_format{$format}->($graph_modulo, $graph_shift, @ARGV);
+   $possible_format{$format}->(modulo => $graph_modulo, shift => $graph_shift, @ARGV);
    return;
    }
@@ -3059 +3059 @@
    my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
 
-   {
+   if ($args{'way'} eq 'all' or $args{'way'} eq 'desc') {
       my %db_switch_global = %{$switch_connection->{'switch_db'}};
       my $arrow            = '0--------->>>>';
@@ -3145 +3145 @@
 #---------------------------------------------------------------
 sub cmd_exportsw_dot {
-   my $graph_modulo = shift;
-   my $graph_shift  = shift;
+   my %args = (
+      modulo   => 0,
+      shift    => 1,
+      @_);
+
+   my $graph_modulo = $args{'modulo'};
+   my $graph_shift  = $args{'shift'};
 
    my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");