Import sources from 2011-03-30 iso image - rc

1 files changed, 157 insertions, 0 deletions

diff --git a/rc/bin/yesterday b/rc/bin/yesterday
new file mode 100755
index 000000000..0daad30c9
--- /dev/null
+++ b/rc/bin/yesterday
@@ -0,0 +1,157 @@
+#!/bin/rc
+
+rfork e
+
+
+smon='s/Jan/01/
+	s/Feb/02/
+	s/Mar/03/
+	s/Apr/04/
+	s/May/05/
+	s/Jun/06/
+	s/Jul/07/
+	s/Aug/08/
+	s/Sep/09/
+	s/Oct/10/
+	s/Nov/11/
+	s/Dec/12/'
+
+fn usage {
+	echo 'usage: yesterday [-abcCdDs] [-[[[yy]yy]mm]dd] [-n daysago] file ...' >[1=2]
+	exit 'usage'
+}
+
+fn Xcp {
+	echo cp $1 $2
+	cp $1 $2
+}
+
+fn Xdiff {
+	echo diff $1 $2
+	diff $1 $2
+}
+fn Xdiffn {
+	echo diff -n $1 $2
+	diff -n $1 $2
+}
+fn Xadiff {
+	echo /acme/bin/adiff $1 $2
+	/acme/bin/adiff $1 $2
+}
+
+fn Xcarefulcp {
+	if(! cmp -s $1 $2) Xcp $1 $2
+}
+
+fn Xecho {
+	echo $1
+}
+
+fn Xbind {
+	echo bind $1 $2
+	bind $1 $2
+}
+
+year=`{date|sed 's/.* //'}
+copy=Xecho
+last=()
+defdump=dump
+while(! ~ $#* 0 && ~ $1 -* && ! ~ $1 --){
+	switch($1){
+	case -a
+		copy=Xadiff
+		shift
+	case -b
+		copy=Xbind
+		shift
+	case -c
+		copy=Xcp
+		shift
+	case -d
+		copy=Xdiff
+		shift
+	case -D
+		copy=Xdiffn
+		shift
+	case -C
+		copy=Xcarefulcp
+		shift
+	case -s
+		defdump=snap
+		shift
+	case -n*
+		if(~ $1 -n){
+			if(~ $#* 1)
+				usage
+			shift
+			days=$1
+		}
+		if not
+			days=`{echo $1 | sed 's/^-.//'}
+		last=`{date `{hoc -e `{date -n} ^ '-'$days'*60*60*24'} | \
+				sed -e 's%... (...) (..) ..:..:.. ... (....)%\3/\1\2%' -e 'y/ /0/' -e $smon}
+		shift
+	case -?
+		mon=`{date|sed -e 's/^....(...).*/\1/' -e $smon}
+		last=$year/$mon ^`{echo $1|sed 's/^-/0/'}
+		shift
+	case -??
+		mon=`{date|sed -e 's/^....(...).*/\1/' -e $smon}
+		last=$year/$mon ^`{echo $1|sed 's/^-//'}
+		shift
+	case -????
+		last=$year/ ^ `{echo $1|sed 's/^-//'}
+		shift
+	case -??????
+		last=`{echo $year|sed 's/..$//'} ^ `{echo $1|sed 's/^-(..)/\1\//'}
+		shift
+	case -????????
+		last=`{echo $1|sed 's/^-(....)/\1\//'}
+		shift
+	case *
+		usage
+	}
+}
+if(! ~ $#* 0 && ~ $1 --)
+	shift
+
+if(~ $#* 0)
+	usage
+
+dir=`{pwd}
+if(! ~ $status ''){
+	echo 'yesterday: can''t find directory' >[1=2]
+	exit 'pwd failed'
+}
+
+for(i){
+	xpath=`{cleanname -d $dir -- $i}
+	xdump=$defdump
+	dumppath=$xpath
+	if(~ $xpath /n/*/*){
+		xdump=`{echo $xpath | sed 's:/n/([^/]+)/.*:\1'$defdump':'}
+		dumppath=`{echo $xpath | sed 's:/n/[^/]+(/.*):\1:'}
+	}
+	if(! test -e /n/$xdump/$year)
+		9fs $xdump
+
+	if(~ $#last 0){
+		xlast=`{ls /n/$xdump/$year|sed -n '$p'}
+		switch($defdump){
+		case snap
+			xlast=`{ls $xlast|sed -n '$p'}
+		}
+	}
+	if not
+		xlast=/n/$xdump/$last
+
+	if(! test -e $xlast){
+		echo 'yesterday:' \
+			`{echo $xlast|sed 's/.n.'$defdump'.(....).(..)(..)/\1 \2 \3/'} \
+			'is not a backup day for' $xdump >[1=2]
+		exit 'bad date'
+	}
+	
+	$copy $xlast^$dumppath $xpath
+}
+exit ''