ref: 2d83ae8fb215c12f56e860f04217d5117dc44b43
dir: /rc/bin/patch/create/
#!/bin/rc rfork e fn xchmod { chmod $* >[2]/dev/null } if(~ $#* 0 1 2){ echo 'usage: patch/create name email file... [< description]' >[1=2] exit usage } if(! echo $1 | grep -s '^[a-z_0-9.\-]+$'){ echo 'bad name: [a-z0-9._\-]+ only' >[1=2] exit usage } if(! echo $2 | grep -s '^(-|[A-Za-z0-9.\-+]+@[A-Za-z0-9.\-+]+)$'){ echo 'bad email: [a-z0-9.-+] only; use ''-'' to not leave an email address.' >[1=2] exit usage } if(! test -d /n/sources/patch){ rfork n 9fs sources } patch=$1 email=$2 shift shift d=/n/sources/patch/$patch if(! mkdir $d){ echo mkdir $d failed >[1=2] exit mkdir } if(! ~ $email -){ echo $email >$d/email } xchmod o-w $d >$d/readme >$d/files >$d/notes 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 } @{builtin cd $d && xchmod ug+rw * && xchmod a+r *} 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 $d