summaryrefslogtreecommitdiffstats
path: root/wordwrap.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--wordwrap.pl29
1 files changed, 29 insertions, 0 deletions
diff --git a/wordwrap.pl b/wordwrap.pl
new file mode 100644
index 0000000..807c628
--- /dev/null
+++ b/wordwrap.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+#
+# wordwrap.pl --- does word wrap
+#
+while (<>) {
+ if (/^#/) { # don't word wrap comments
+ print;
+ next;
+ }
+ next if (/^$/); # skip blank lines
+ $linelen = 0;
+ @words = split;
+ while (defined($word = shift @words)) {
+ $word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#;
+ $word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#;
+ $word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#;
+ if ($linelen > 0) {
+ printf(" ");
+ }
+ $len = length($word) + 1;
+ $linelen += $len;
+ if ($linelen > 78) {
+ printf("\\\n ");
+ $linelen = 1+$len;
+ }
+ printf("%s", $word);
+ }
+ printf("\n");
+}