From mboxrd@z Thu Jan  1 00:00:00 1970
Message-ID: <09991bd9249961f910017b26dc302230@plan9.escet.urjc.es>
To: 9fans@cse.psu.edu
From: Fco.J.Ballesteros <nemo@plan9.escet.urjc.es>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="upas-rrwyugvddqtsivyzbklcozvwyi"
Subject: [9fans] suggestion: avoiding out of date binaries
Date: Sun, 18 May 2003 03:50:28 +0200
Topicbox-Message-UUID: b1d3f16e-eacb-11e9-9e20-41e7f4b1d025

This is a multi-part message in MIME format.
--upas-rrwyugvddqtsivyzbklcozvwyi
Content-Disposition: inline
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit

Hi,

	I just got bitten recently by a couple of out of date binaries.
All I had to do to `fix' what seemed to be a bug was to recompile a
couple of programs.

What about automating recompilation of out of date programs?
My system is very much up to date wrt sources and it seems
that all of my /386/bin is out of date, sic.

The silly script I attach does pretty well for me to detect out of date
binaries. It would be a matter of recompiling those ones detected after
source code gets changed. I know this would make us pull new binaries
often, but at least it's better for safety.

Even better would be to instruct our mkfiles to compile only thing out
of date and then simply run `mk' in the whole cmd tree; but I dont
know of a clean way of doing it. The only way I know would be to
use of a script like this in `update' targets added to every mkfile.

--upas-rrwyugvddqtsivyzbklcozvwyi
Content-Disposition: inline
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit

#!/bin/rc
#
# -q: faster, but you wont know why it's out of date
# -i: to ignore a file you know has changed (eg /sys/include/libc.h)

rfork e

fn usage {
	echo usage: outofdate [-q] [-i ignore] file... >[1=2]
	exit usage
}

fn newer {
	m1=`{mtime $1 | awk '{print $1}'}
	m2=$2
	test $m1 -gt $m2
}

ignored=()
quiet=no
while(~ $1 -*){
	switch($1){
	case -q
		quiet=yes
	case -i
		if (~ $2 '')
			usage
		ignored=`{cat $2}
		shift
	case -*
		usage
	}
	shift
}
if (~ $#* 0)
	usage

updated=''
for (file in $*){
	if (~ `{file $file} *'plan 9 executable'*) {
		srcs=`{nm -a $file | grep ' z ' | sed -e 's/^.* z //' |
			 grep -v '^$' | sort | uniq}
		fupdated=''
		ftime=`{mtime $file | awk '{print $1}'}
		for (s in $srcs) {
			if (! ~ $fupdated outofdate || ! ~ $quiet yes)
			if (test -f $s)
			if (! ~ $s $ignored)
			if (newer $s $ftime){
				fupdated=outofdate
				updated=outofdate
				if (~ $quiet yes)
					echo $file
				if not
					echo $file: $s
			}
		}
	}
}
exit $updated
--upas-rrwyugvddqtsivyzbklcozvwyi--