Subversion Repositories planix.SVN

#!/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