Changeset 1694 in ProjectBuilder for devel/pb-modules/bin/pbdistrogetparam

Timestamp:

Feb 26, 2013, 6:37:21 AM (11 years ago)

Author:

Bruno Cornec

Message:

• pbdistrogetparam now works, is built & delivered, and has a new -a (all) option
• New function pb_conf_get_all to return the list of all parameters, also now used by pb_conf_print

File:

• devel/pb-modules/bin/pbdistrogetparam (modified) (4 diffs)

devel/pb-modules/bin/pbdistrogetparam

@@ -32 +32 @@
 =head1 SYNOPSIS
 
-pbdistrogetparam [-h][-v][-p project][-d distro-ver-arch] param
+pbdistrogetparam [-h][-v][-p project][-d distro-ver-arch] [param|-a]
 
 =head1 OPTIONS
@@ -53 +53 @@
 
 Name of the project you're working on (or use the env variable PBPROJ)
+
+=item B<-a|--all>
+
+Process all configuration parameters
 
 =back 
@@ -88 +92 @@
         "verbose|v+" => \$opts{'v'},
         "help|h" => \$opts{'h'},
+        "all|a" => \$opts{'a'},
         "project|p=s" => \$opts{'p'},
-        "distribution|d" => \$opts{'d'},
+        "distribution|d=s" => \$opts{'d'},
 );
+if (defined $opts{'h'}) {
+    pb_syntax(0,$opts{'h'}-1);
+}
+if (defined $opts{'man'}) {
+    pb_syntax(0,2);
+}
 if (defined $opts{'v'}) {
     $pbdebug = $opts{'v'};
@@ -99 +110 @@
 pb_env_init($opts{'p'},0,"none",0);
 my $pbos = pb_distro_get_context($dist);
-foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@ARGV))) {
+
+my @tab = @ARGV;
+@tab = pb_conf_get_all() if (defined $opts{'a'});
+
+my $i = 0;
+foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@tab))) {
+    print "$tab[$i] => " if ((defined $opts{'v'}) || (defined $opts{'a'}));
+    $i++;
     print "$r\n";
 }