wordwrap.pl revision e0ed7404719a9ddd2ba427a80db5365c8bad18c0 
1#!/usr/bin/perl
2#
3# wordwrap.pl --- does word wrap
4#
5while (<>) {
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