[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp Texinfo/Parser.pm t/results/coverage...
From: |
Patrice Dumas |
Subject: |
texinfo/tp Texinfo/Parser.pm t/results/coverage... |
Date: |
Thu, 17 Mar 2011 20:19:08 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 11/03/17 20:19:07
Modified files:
tp/Texinfo : Parser.pm
tp/t/results/coverage_braces: empty_images.pl
Log message:
Eror out for empty @image file argument.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.221&r2=1.222
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/coverage_braces/empty_images.pl?cvsroot=texinfo&r1=1.3&r2=1.4
Patches:
Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.221
retrieving revision 1.222
diff -u -b -r1.221 -r1.222
--- Texinfo/Parser.pm 16 Mar 2011 23:35:23 -0000 1.221
+++ Texinfo/Parser.pm 17 Mar 2011 20:19:07 -0000 1.222
@@ -3892,6 +3892,14 @@
}
}
}
+ } elsif ($current->{'parent'}->{'cmdname'} eq 'image') {
+ my $image = $current->{'parent'};
+ if (address@hidden>{'args'}}
+ or address@hidden>{'extra'}->{'brace_command_contents'}}
+ or
!defined($image->{'extra'}->{'brace_command_contents'}->[0])) {
+ $self->line_error(
+ $self->__("address@hidden missing filename argument"),
$line_nr);
+ }
}
$self->_register_global_command($current->{'parent'}->{'cmdname'},
$current->{'parent'}, $line_nr);
Index: t/results/coverage_braces/empty_images.pl
===================================================================
RCS file:
/sources/texinfo/texinfo/tp/t/results/coverage_braces/empty_images.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- t/results/coverage_braces/empty_images.pl 6 Mar 2011 14:44:00 -0000
1.3
+++ t/results/coverage_braces/empty_images.pl 17 Mar 2011 20:19:07 -0000
1.4
@@ -163,7 +163,26 @@
';
-$result_errors{'empty_images'} = [];
+$result_errors{'empty_images'} = [
+ {
+ 'error_line' => ':1: @image missing filename argument
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@image missing filename argument',
+ 'type' => 'error'
+ },
+ {
+ 'error_line' => ':3: @image missing filename argument
+',
+ 'file_name' => '',
+ 'line_nr' => 3,
+ 'macro' => '',
+ 'text' => '@image missing filename argument',
+ 'type' => 'error'
+ }
+];
1;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- texinfo/tp Texinfo/Parser.pm t/results/coverage...,
Patrice Dumas <=