From 2b9e9f9e24d5a5cb95d2b88b70beaed1a1bf4f07 Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Tue, 4 Jun 2002 19:53:35 +0000
Subject: Break long lines by default.

---
 mkdep.pl | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

(limited to 'mkdep.pl')

diff --git a/mkdep.pl b/mkdep.pl
index 59034743..fcd7df80 100755
--- a/mkdep.pl
+++ b/mkdep.pl
@@ -86,6 +86,7 @@ sub insert_deps($) {
     my($line,$parm,$val);
     my($obj) = '.o';		# Defaults
     my($sep) = '/';
+    my($maxline) = 78;		# SMTP uses this value...
 
     while ( defined($line = <IN>) ) {
 	if ( $line =~ /^\s*\#\s*@([a-z0-9-]+):\s*\"([^\"]*)\"/ ) {
@@ -94,6 +95,8 @@ sub insert_deps($) {
 		$obj = $val;
 	    } elsif ( $parm eq 'path-separator' ) {
 		$sep = $val;
+	    } elsif ( $parm eq 'line-width' ) {
+		$maxline = $val+0;
 	    }
 	} elsif ( $line eq $barrier ) {
 	    last;		# Stop reading input at barrier line
@@ -102,7 +105,7 @@ sub insert_deps($) {
     }
     close(IN);
 
-    my $dfile, $ofile;
+    my $dfile, $ofile, $str, $sl, $len;
     my @deps, $dep;
 
     print OUT $barrier;
@@ -110,9 +113,19 @@ sub insert_deps($) {
     foreach $dfile ( sort(keys(%deps)) ) {
 	if ( $dfile =~ /\.[Cc]$/ ) {
 	    $ofile = $dfile; $ofile =~ s/\.[Cc]$//;
-	    print OUT convert_file($ofile,$sep), $obj, ':';
+	    $str = convert_file($ofile,$sep).$obj.':';
+	    $len = length($str);
+	    print OUT $str;
 	    foreach $dep ($dfile, alldeps($dfile)) {
-		print OUT ' ', convert_file($dep,$sep);
+		$str = convert_file($dep,$sep);
+		$sl = length($str)+1;
+		if ( $len+$sl > $maxline-2 ) {
+		    print OUT " \\\n ", $str;
+		    $len = $sl;
+		} else {
+		    print OUT ' ', $str;
+		    $len += $sl;
+		}
 	    }
 	    print OUT "\n";
 	}
-- 
cgit v1.2.1