[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

[xsubpp PATCH 5.005_63]



Currently xsubpp has a buggy precessing of continuation lines

This test .xs file

MODULE = Test   PACKAGE = Test

void
foo(X,\
    Y)
int X
int Y

generates buggy C code

XS(XS_Test_foo)
{
    dXSARGS;
    if (items != 2)
        Perl_croak(aTHX_ "Usage: Test::foo(X,\   <==========
    Y)");
    {
        int     X = (int)SvIV(ST(0));
        int;                                   <============

        foo(X, \
    Y);
    }
    XSRETURN_EMPTY;
}



Here is a patch

*** perl5.005_63_ORIG/lib/ExtUtils/xsubpp	Fri Dec 31 10:31:46 1999
--- perl5.005_63_P/lib/ExtUtils/xsubpp	Wed Jan 12 09:31:53 2000
***************
*** 871,877 ****
  	$lastline_no = $.;
  	my $tmp_line;
  	$lastline .= $tmp_line
! 	    while ($lastline =~ /\\$/ && defined($tmp_line = <$FH>));
  	    
  	chomp $lastline;
  	$lastline =~ s/^\s+$//;
--- 871,877 ----
  	$lastline_no = $.;
  	my $tmp_line;
  	$lastline .= $tmp_line
! 	    while ($lastline =~ s/\\$// && defined($tmp_line = <$FH>));
  	    
  	chomp $lastline;
  	$lastline =~ s/^\s+$//;

-- 
Helmut Jarausch
Lehrstuhl fuer Numerische Mathematik
Institute of Technology, RWTH Aachen
D 52056 Aachen, Germany


[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]