holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests 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 ( $ ) {
if ( $object ) {
#
# 'compile' as opposed to 'check'
#
my $line = $_[0];
unless ( $line =~ /^\s*$/ ) {
@ -164,6 +167,10 @@ sub emit_unindented( $ ) {
print $object "$_[0]\n" if $object;
}
#
# Write passed message to the object with no indentation or added newline.
#
sub emit_as_is( $ ) {
print $object "$_[0]" if $object;
}
@ -172,7 +179,11 @@ sub emit_as_is( $ ) {
# Write a progress_message2 command to the output file.
#
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 {
@ -213,10 +224,6 @@ sub pop_indent() {
$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
#