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

Add some comments to Common.pl

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5597 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-20 18:18:22 +00:00
parent 792901b42d
commit 9289a037d6
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
New/Shorewall/Common.pm
View File

@ -141,6 +141,9 @@ sub finalize_object() {
# #
sub emit ( $ ) { sub emit ( $ ) {
if ( $object ) { if ( $object ) {
#
# 'compile' as opposed to 'check'
#
my $line = $_[0]; my $line = $_[0];
unless ( $line =~ /^\s*$/ ) { unless ( $line =~ /^\s*$/ ) {
@ -164,6 +167,10 @@ sub emit_unindented( $ ) {
print $object "$_[0]\n" if $object; print $object "$_[0]\n" if $object;
} }
#
# Write passed message to the object with no indentation or added newline.
#
sub emit_as_is( $ ) { sub emit_as_is( $ ) {
print $object "$_[0]" if $object; print $object "$_[0]" if $object;
} }
@ -172,7 +179,11 @@ sub emit_as_is( $ ) {
# Write a progress_message2 command to the output file. # Write a progress_message2 command to the output file.
# #
sub save_progress_message( $ ) { sub save_progress_message( $ ) {
emit "\nprogress_message2 $_[0]\n" if $object; emit "\nprogress_message2 @_\n" if $object;
}
sub save_progress_message_short( $ ) {
emit "progress_message $_[0]" if $object;
} }
sub progress_message { sub progress_message {
@ -213,10 +224,6 @@ sub pop_indent() {
$indent = substr( $indent , 0 , ( length $indent ) - 4 ); $indent = substr( $indent , 0 , ( length $indent ) - 4 );
} }
sub save_progress_message_short( $ ) {
emit "progress_message $_[0]" if $object;
}
# #
# Functions for copying files into the object # Functions for copying files into the object
# #