extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-02-17 02:00:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

Allow ?IF, ?ELSE and ?ENDIF in copied files

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-03-17 09:33:40 -07:00
parent 8262cff71a
commit 29dd342118
1 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1601,6 +1601,15 @@ sub copy( $ ) {
}
}
unless( $save_ifstack == @ifstack ) {
my $lastref = $ifstack[-1];
$currentlinenumber = 'EOF';
$currentfilename = $file;
fatal_error qq(Missing "?END" to match ?IF at line number $lastref->[2])
}
$ifstack = $save_ifstack;
close IF;
}
}
@ -1615,7 +1624,7 @@ sub copy1( $ ) {
if ( $script || $debug ) {
my ( $do_indent, $here_documents ) = ( 1, '');
my $save_ifstack = $ifstack;
open_file( $_[0] );
while ( $currentfile ) {
@ -1624,6 +1633,13 @@ sub copy1( $ ) {
chomp;
if ( /^\s*\?(IF\s+|ELSE|ENDIF)(.*)$/ ) {
$omitting = process_conditional( $omitting, $1, $2 );
next;
}
next if $omitting;
if ( /^${here_documents}\s*$/ ) {
if ( $script ) {
print $script $here_documents if $here_documents;
@ -1706,6 +1722,15 @@ sub copy1( $ ) {
}
}
unless( $save_ifstack == @ifstack ) {
my $lastref = $ifstack[-1];
$currentlinenumber = 'EOF';
$currentfilename = $_[0];
fatal_error qq(Missing "?END" to match ?IF at line number $lastref->[2])
}
$ifstack = $save_ifstack;
close_file;
}
}
@ -1734,6 +1759,8 @@ sub copy2( $$ ) {
}
unless ( $empty ) {
my $save_ifstack = $ifstack;
emit <<EOF;
################################################################################
# Functions imported from $file
@ -1743,7 +1770,15 @@ EOF
emit( $_ ) unless /^\s*$/;
while ( <IF> ) {
if ( /^\s*\?(IF\s+|ELSE|ENDIF)(.*)$/ ) {
$omitting = process_conditional( $omitting, $1, $2 );
next;
}
next if $omitting;
chomp;
if ( /^\s*$/ ) {
unless ( $lastlineblank ) {
print $script "\n" if $script;
@ -1771,6 +1806,15 @@ EOF
}
}
unless( $save_ifstack == @ifstack ) {
my $lastref = $ifstack[-1];
$currentlinenumber = 'EOF';
$currentfilename = $file;
fatal_error qq(Missing "?END" to match ?IF at line number $lastref->[2])
}
$ifstack = $save_ifstack;
close IF;
unless ( $lastlineblank ) {