Re: [9fans] correcting old failures, and NJ vs MA

[Boyd Roberts <boyd@strakt.com>]

david presotto wrote:
> I'm happy just composing du -a, grep, sed, and `{}.

#!/bin/rc

dot=`{pwd}
incs=-I^($dot/Plan9 $dot/Include)
cpp=(pcc -I/sys/include $incs -E)
line='^#line [0-9]+ "'
mkfile=mkfile
mkdeps=mkdeps
except=$dot/Plan9/except

# refuse to deal with unecessary/replaced files/directories
fn except {
	echo $1 | grep -s -f $except && echo $1: ignored >[1=2]
}

# generate a prototype mkfile
fn mkproto {
	echo '</$objtype/mkfile'
	echo 'CC=$CC -p'
	echo 'CFLAGS='$"incs
	echo '<'$mkdeps
	echo '</sys/src/cmd/mkone'
	echo '</sys/src/cmd/mklib'
	echo '</sys/src/cmd/mksyslib'
}

# indent mkfile dependancies
fn mkindent {
	tr ' ' '
' | sed -e 's/$/ \\/' -e '2,$s/^/	/' -e '$s/ \\$//'
}

for (d in `{du | awk '{print substr($2, 3)}'}) {
	if (! except $d) @{
		cd $d
		echo $d $all >[1=2]

		rm -f $mkdeps

		all=`{ls *.c >[2] /dev/null}

		for (c in $all) {
			if (! except $d/$c) {
				o=`{basename $c .c}^'.$O'
				ofiles=($ofiles $o)
			}
		}
		
		if (! ~ $ofiles '') {
			echo 'OFILES= '$"ofiles | mkindent
			ofiles=()
		} >> $mkdeps

		for (c in $all) {
			if (! except $d/$c) {
				echo $c >[1=2]
	
				o=`{basename $c .c}^'.$O'
				hfiles=()
	
				for (h in `{$cpp $c | sed -n -e 's;'$line'(.*\.h)"$;\1;p' | sort -u}) {
					switch ($h) {
					case $d/*
						hfiles=($hfiles `{basename $h})
	
					case $dot/*
						hfiles=($hfiles $h)
					}
				}
	
				if (! ~ $hfiles '') {
					{
						echo
						echo $o': '$"hfiles | mkindent
				} >> $mkdeps

				hfiles=()
				}
			}
		}

		if (test -f $mkdeps) {
			if (! test -f $mkfile) {
				mkproto > $mkfile
			}
		}	
	}
}