The previous fix for chaining to absolute paths broke chaining to relative paths...

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 3996b60622e4a6433c4737c48584a261893631d2..956dd7d9bf7f247751168115a6f54ac775edd840 100755 (executable)
--- a/mr
+++ b/mr
@@ -1179,11 +1179,43 @@ sub loadconfig {
        close $in unless ref $f eq 'GLOB';
 
        my $section;
        close $in unless ref $f eq 'GLOB';
 
        my $section;

+
+       # Keep track of the current line in the config file;
+       # when a file is included track the current line from the include.

        my $line=0;
        my $line=0;

+       my $included=undef;
+       my $includeline=0;
+       my $nextline = sub {
+               if ($included) {
+                       $includeline++;
+                       $included--;
+               }
+               else {
+                       $included=undef;
+                       $includeline=0;
+                       $line++;
+               }
+               my $l=shift @lines;
+               chomp $l;
+               return $l
+       };
+       my $lineerror = sub {
+               my $msg=shift;
+               if (defined $included) {
+                       die "mr: $f line $line include line $includeline: $msg\n";
+               }
+               else {
+                       die "mr: $f line $line: $msg\n";
+               }
+       };
+

        while (@lines) {
        while (@lines) {

-               $_=shift @lines;
-               $line++;
-               chomp;
+               $_=$nextline->();
+
+               if (! $trusted && /[[:cntrl:]]/) {
+                       trusterror("mr: illegal control character", $f, $line, $bootstrap_url);
+               }
+

                next if /^\s*\#/ || /^\s*$/;
                if (/^\[([^\]]*)\]\s*$/) {
                        $section=$1;
                next if /^\s*\#/ || /^\s*$/;
                if (/^\[([^\]]*)\]\s*$/) {
                        $section=$1;


@@ -1209,10 +1241,9 @@ sub loadconfig {
 
                        # continued value
                        while (@lines && $lines[0]=~/^\s(.+)/) {
 
                        # continued value
                        while (@lines && $lines[0]=~/^\s(.+)/) {

-                               shift(@lines);
-                               $line++;

                                $value.="\n$1";
                                chomp $value;
                                $value.="\n$1";
                                chomp $value;

+                               $nextline->();

                        }
 
                        if (! $trusted) {
                        }
 
                        if (! $trusted) {


@@ -1238,15 +1269,17 @@ sub loadconfig {
 
                        if ($parameter eq "include") {
                                print "mr: including output of \"$value\"\n" if $verbose;
 
                        if ($parameter eq "include") {
                                print "mr: including output of \"$value\"\n" if $verbose;

-                               unshift @lines, `$value`;
+                               my @inc=`$value`;

                                if ($?) {
                                        print STDERR "mr: include command exited nonzero ($?)\n";
                                }
                                if ($?) {
                                        print STDERR "mr: include command exited nonzero ($?)\n";
                                }

+                               $included += @inc;
+                               unshift @lines, @inc;

                                next;
                        }
 
                        if (! defined $section) {
                                next;
                        }
 
                        if (! defined $section) {

-                               die "$f line $.: parameter ($parameter) not in section\n";
+                               $lineerror->("parameter ($parameter) not in section");

                        }
                        if ($section eq 'ALIAS') {
                                $alias{$parameter}=$value;
                        }
                        if ($section eq 'ALIAS') {
                                $alias{$parameter}=$value;


@@ -1265,7 +1298,7 @@ sub loadconfig {
                                if ($parameter eq 'chain' &&
                                    length $dir && $section ne "DEFAULT") {
                                        my $chaindir="$section";
                                if ($parameter eq 'chain' &&
                                    length $dir && $section ne "DEFAULT") {
                                        my $chaindir="$section";

-                                       if ($chaindir !~ m!/!) {
+                                       if ($chaindir !~ m!^/!) {

                                                $chaindir=$dir.$chaindir;
                                        }
                                        if (-e "$chaindir/.mrconfig") {
                                                $chaindir=$dir.$chaindir;
                                        }
                                        if (-e "$chaindir/.mrconfig") {


@@ -1287,7 +1320,7 @@ sub loadconfig {
                        }
                }
                else {
                        }
                }
                else {

-                       die "$f line $line: parse error\n";
+                       $lineerror->("parse error");

                }
        }
 
                }
        }