Skip to content
Browse files

import version 2.02 from backpan

  • Loading branch information...
1 parent ecd4c16 commit b46b393c5d95d13b539e80d24e0e443763f760ef @fperrad committed with Aug 1, 2003
Showing with 12 additions and 5 deletions.
  1. +3 −0 Changes
  2. +8 −4 lexer.pm
  3. +1 −1 node.pm
View
3 Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension CORBA::IDL.
+2.02 Fri Aug 01 18:30:00 2003
+ - lexer.pm : better handling C-preprocessor
+
2.01 Fri Mar 14 12:30:00 2003
- lexer.pm : add patch for SUN C-preprocessor (thanks to Chad Elliott)
View
12 lexer.pm
@@ -20,9 +20,13 @@ sub Error {
$parser->YYData->{nb_error} = 1;
}
- print STDOUT '#',$parser->YYData->{filename},':',$parser->YYData->{lineno},'#Error: ',$msg
- if ( exists $parser->YYData->{verbose_error}
- and $parser->YYData->{verbose_error});
+ unless (exists $parser->YYData->{filename}) {
+ print STDOUT "#No parsed input : ",$msg;
+ } else {
+ print STDOUT '#',$parser->YYData->{filename},':',$parser->YYData->{lineno},'#Error: ',$msg
+ if ( exists $parser->YYData->{verbose_error}
+ and $parser->YYData->{verbose_error});
+ }
}
sub Warning {
@@ -380,7 +384,7 @@ sub _Lexer {
$parser->YYData->{curr_node} = undef,
last;
- s/^[\s\r\f\013]+//; # whitespaces
+ s/^[ \r\t\f\013]+//; # whitespaces
s/^\n//
and $parser->YYData->{lineno} ++,
$parser->YYData->{curr_node} = undef,
View
2 node.pm
@@ -7,7 +7,7 @@ use UNIVERSAL;
package node;
use vars qw($VERSION);
-$VERSION = '2.01';
+$VERSION = '2.02';
sub _Build {
my $proto = shift;

0 comments on commit b46b393

Please sign in to comment.
Something went wrong with that request. Please try again.