19d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o#!/usr/bin/perl 29d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o# 39d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o# wordwrap.pl --- does word wrap 49d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o# 59d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'owhile (<>) { 69d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o if (/^#/) { # don't word wrap comments 79d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o print; 89d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o next; 99d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o } 109d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o next if (/^$/); # skip blank lines 119d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o $linelen = 0; 12e0ed7404719a9ddd2ba427a80db5365c8bad18c0JP Abgrall @words = split; 13e0ed7404719a9ddd2ba427a80db5365c8bad18c0JP Abgrall while (defined($word = shift @words)) { 14797f5ef14e92294b329e52971d467d7af5b2993eTheodore Ts'o $word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#; 15797f5ef14e92294b329e52971d467d7af5b2993eTheodore Ts'o $word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#; 16797f5ef14e92294b329e52971d467d7af5b2993eTheodore Ts'o $word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#; 179d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o if ($linelen > 0) { 189d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o printf(" "); 199d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o } 209d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o $len = length($word) + 1; 219d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o $linelen += $len; 229d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o if ($linelen > 78) { 239d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o printf("\\\n "); 249d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o $linelen = 1+$len; 259d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o } 269d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o printf("%s", $word); 279d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o } 289d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o printf("\n"); 299d564f73f594282d87209313ea59e4ca08727ab3Theodore Ts'o} 30