#!/bin/rc rfork e if(~ $#* 0 1){ echo 'usage: patch/create name file... [< description]' >[1=2] exit usage } if(! echo $1 | grep -s '^[a-z_0-9.\-]+$'){ echo bad name exit usage } if(! test -d /n/sources/patch){ rfork n 9fs sources } patch=$1 d=/n/sources/patch/$patch if(! mkdir $d){ echo mkdir $d failed >[1=2] exit mkdir } chmod o-w $d >$d/readme >$d/files >$d/notes shift for(i in $*){ i=`{cleanname -d `{pwd} $i} if(! test -f $i){ echo error: cannot find $i >[1=2] rm -rf $d exit oops } short=`{basename $i} uniq=$short n=0 while(test -f $d/$uniq){ uniq=$short.$n n=`{echo 1+$n | hoc} } cp $i $d/$uniq if(test -f /n/sources/plan9/$i){ if(cmp -s /n/sources/plan9/$i $i) echo warning: new file $i does not differ from sources >[1=2] cp /n/sources/plan9/$i $d/$uniq.orig } if not echo warning: new file $i not on sources >[1=2] echo $i $uniq >>$d/files chmod ug+rw $d/* chmod a+r $d/* } if(~ `{cat /proc/$pid/fd | awk 'NR==2{print $NF}'} */dev/cons; test -w /dev/consctl){ >/dev/consctl { echo holdon cat >$d/readme } } if not cat >$d/readme if(! test -s $d/readme){ echo 'no description given; aborting' >[1=2] rm -rf $d exit oops } echo >[1=2] please run patch/email $patch your-email-address echo >[1=2] so that 9trouble can mail you if there are questions. thanks. echo >[1=2] the email address will not be readable by other sources users. echo >[1=2] echo $d