Changeset 2257 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Conf.pm

Timestamp:

Aug 30, 2017, 5:07:37 PM (7 years ago)

Author:

Bruno Cornec

Message:

Remove mentions of YAML 1.0 for now as creating incorrect syntax

File:

• devel/pb-modules/lib/ProjectBuilder/Conf.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/Conf.pm

@@ -92 +92 @@
 
   $ cat $HOME/.pbrc.yml
-  --- %YAML 1.0
+  ---
     pbver:
       - pb: 3
@@ -540 +540 @@
 confess "Will not erase existing $dest while transforming $orig" if (-f $dest);
 open(DEST,"> $dest") || confess "Unable to write into $dest";
-print DEST "--- %YAML 1.0\n";
-my $parambkp = "";
+print DEST "---\n";
 my $pbconfverbkp = $PBCONFVER;
 # We force migration from v0 to v1
 $PBCONFVER = 0;
 my $lh0;
+my $lh1;
 $lh0 = pb_conf_cache($orig,$lh0);
+pb_log(2,"lh0:\n",Dumper($lh0),"\n");
 $PBCONFVER = $pbconfverbkp;
 
@@ -554 +555 @@
         # Keep comments
         print DEST $_;
+    } elsif ($_ =~ /^\s*$/) {
+        # Replace empty lines by comments
+        print DEST "#\n";;
     } else {
         if (/^\s*([A-z0-9-_]+)\s+(.+)$/) {
             # Handle parameters
-            my ($param,$var) = ($1, $2);
-            print DEST "  $param:\n" if ($param ne $parambkp);
-            print DEST "    $lh0->{$param} $lh0->{$param}->{$var}\n";
-            $parambkp = $param;
+            my ($param,$void) = ($1, $2);
+            if (not defined $lh1->{$param}) {
+                pb_log(2,"Converting parameter $param\n");
+                print DEST "$param:\n";
+                foreach my $k (keys %{$lh0->{$param}}) {
+                    pb_log(2,"Handling key $k\n");
+                    print DEST "  $k: $lh0->{$param}->{$k}\n";
+                }
+                $lh1->{$param} = 1;
+            }
         } else {
-            pb_log(0,"Unable to handle line $_\n");
+            pb_log(0,"Unable to convert line $_\n");
         }
     }