80 lines
1.3 KiB
Text
80 lines
1.3 KiB
Text
|
#!/bin/rc
|
||
|
|
||
|
rfork e
|
||
|
|
||
|
if(! ~ $#* 1){
|
||
|
echo 'usage: patch/apply patch-name' >[1=2]
|
||
|
exit usage
|
||
|
}
|
||
|
|
||
|
if(! test -d /n/sources/patch){
|
||
|
rfork n
|
||
|
9fs sources
|
||
|
}
|
||
|
|
||
|
if(! test -d /n/sources/patch/$1){
|
||
|
echo 'no such patch' /n/sources/patch/$1 >[1=2]
|
||
|
exit nopatch
|
||
|
}
|
||
|
|
||
|
builtin cd /n/sources/patch/$1 || exit nopatch
|
||
|
if(! patch/okay .){
|
||
|
echo 'bad patch: '$status >[1=2]
|
||
|
exit badpatch
|
||
|
}
|
||
|
|
||
|
if(! echo >.tmp || ! rm .tmp){
|
||
|
echo no write permission >[1=2]
|
||
|
exit 'no write permission'
|
||
|
}
|
||
|
|
||
|
echo -n merge... >[1=2]
|
||
|
fn xxx {
|
||
|
if(! test -f $1)
|
||
|
cp $2 $2.new
|
||
|
if not
|
||
|
ape/diff3 -m $1 $2.orig $2 >$2.new
|
||
|
if(grep -s '^<<<<' $2.new){
|
||
|
echo conflicts merging $1';' see `{pwd}^/$2.new >[1=2]
|
||
|
|
||
|
touch failed
|
||
|
}
|
||
|
}
|
||
|
rm -f failed
|
||
|
cat files | sed 's/^/xxx /' | rc
|
||
|
if(test -f failed){
|
||
|
echo exiting without changes >[1=2]
|
||
|
exit failed
|
||
|
}
|
||
|
|
||
|
echo -n backup... >[1=2]
|
||
|
fn xxx {
|
||
|
# echo cp $1 $2.backup
|
||
|
cp $1 $2.backup
|
||
|
}
|
||
|
cat files | sed 's/^/xxx /' |rc
|
||
|
|
||
|
echo -n copy... >[1=2]
|
||
|
fn xxx {
|
||
|
# echo cp $2.new $1
|
||
|
cp $2.new $1 || touch failed
|
||
|
}
|
||
|
cat files | sed 's/^/xxx /' | rc
|
||
|
|
||
|
fn xxx {
|
||
|
# echo cp $2.backup $1
|
||
|
cp $2.backup $1
|
||
|
}
|
||
|
|
||
|
if(test -f failed){
|
||
|
echo copying failed, restoring backups >[1=2]
|
||
|
cat files | sed 's/^/xxx /' | rc
|
||
|
exit failed
|
||
|
}
|
||
|
|
||
|
echo >[1=2]
|
||
|
|
||
|
echo to update sources: >[1=2]
|
||
|
cat files | awk '{print " update " $1 }' >[1=2]
|
||
|
|