1 #!/usr/bin/perl 2 # 3 # wordwrap.pl --- does word wrap 4 # 5 while (<>) { 6 if (/^#/) { # don't word wrap comments 7 print; 8 next; 9 } 10 next if (/^$/); # skip blank lines 11 $linelen = 0; 12 @words = split; 13 while (defined($word = shift @words)) { 14 $word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#; 15 $word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#; 16 $word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#; 17 if ($linelen > 0) { 18 printf(" "); 19 } 20 $len = length($word) + 1; 21 $linelen += $len; 22 if ($linelen > 78) { 23 printf("\\\n "); 24 $linelen = 1+$len; 25 } 26 printf("%s", $word); 27 } 28 printf("\n"); 29 } 30
