#!/bin/rc
#
# command: /bin/boddle /n/juke/plan_9/sys/src/9/port /sts/lib/pcdist/src/9/port
# srcdir: /n/juke/plan_9/sys/src/9/port
# version: 816406807
# date: Tue Nov 14 22:40:07 EST 1995
#
myname=$0
doextract=no

fn usage{
	echo $myname: usage: $myname '[-X] [src-directory]' >[1=2]
	exit usage
}

fn sigint{
	rm -rf 816406807
	exit interrupt
}

while(~ $1 -*){
	switch($1){
	case -X
		doextract=yes
	case -*
		usage
	}
	shift
}

switch($#*){
case 0
	srcdir=/sys/src/9/port
case 1
	srcdir=$1
case *
	usage
}

if(! ~ $doextract yes){
	echo This shell file contains a bundle of diffs representing changes
	echo to original source files in the Plan 9 distribution. It will run
	echo against the files in
	echo ' ' $srcdir
	echo '(unless overridden by the optional source directory argument)'
	echo and create a directory 816406807 containing the updated files.
	echo It will NOT automatically update the original files.
	echo
	echo Invoke with argument -X to perform the actual extraction.
	exit 0
}

rm -rf 816406807
mkdir 816406807

target=816406807/devfloppy.c
echo -n '816406807/devfloppy.c: '
if(! test -f $srcdir/devfloppy.c || ! test -r $srcdir/devfloppy.c){
	echo $srcdir/devfloppy.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/devfloppy.c}
if(! ~ 3c640e0118744  $sum(1)^$sum(2)){
	echo $srcdir/devfloppy.c is not the original distribution file
	exit original
}
cp $srcdir/devfloppy.c 816406807/devfloppy.c
ed 816406807/devfloppy.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM devfloppy.c'
867c
		if((fl.stat[0]&Codemask)==Cmdexec && fl.stat[1]==Overrun){
			DPRINT("DMA overrun: retry\n");
		} else
			dp->confused = 1;
.
846c
	floppyexec((char*)a, dp->len, cmd==Fread);
.
833c
	fl.cmd[fl.ncmd++] = cmd | (dp->t->heads > 1 ? Fmulti : 0);
.
831d
806c
		if(tries++ > 20)
.
803c
	/* retry on error (until it gets ridiculous) */
.
598a
			if(tries > 1000){
				DPRINT("floppyresult: %d stats\n", i);
				fldump();
				fl.confused = 1;
				return -1;
			}
			microdelay(8);	/* for machine independence */
.
586,591d
561,562c
			microdelay(8);	/* for machine independence */
.
552a
			if((inb(Pmsr)&(Ffrom|Fready)) == Fready)
				break;
.
538d
wq
//GO.SYSIN DD VADIM devfloppy.c
sum=`{sum < 816406807/devfloppy.c}
if(~ 8e68c46918924  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/devfloppy.c checksum error creating updated file
	exit checksum
}
target=816406807/devip.c
echo -n '816406807/devip.c: '
if(! test -f $srcdir/devip.c || ! test -r $srcdir/devip.c){
	echo $srcdir/devip.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/devip.c}
if(! ~ 0ce114ad21976  $sum(1)^$sum(2)){
	echo $srcdir/devip.c is not the original distribution file
	exit original
}
cp $srcdir/devip.c 816406807/devip.c
ed 816406807/devip.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM devip.c'
732d
709a
		case Close_wait:
.
680a
	case Close_wait:
.
wq
//GO.SYSIN DD VADIM devip.c
sum=`{sum < 816406807/devip.c}
if(~ e3966b9921995  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/devip.c checksum error creating updated file
	exit checksum
}
target=816406807/net.c
echo -n '816406807/net.c: '
if(! test -f $srcdir/net.c || ! test -r $srcdir/net.c){
	echo $srcdir/net.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/net.c}
if(! ~ ca641f6c5404  $sum(1)^$sum(2)){
	echo $srcdir/net.c is not the original distribution file
	exit original
}
cp $srcdir/net.c 816406807/net.c
ed 816406807/net.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM net.c'
93c
		devdir(c, q, "data", streamlen(c), o, perm, dp);
.
wq
//GO.SYSIN DD VADIM net.c
sum=`{sum < 816406807/net.c}
if(~ ff69e5715415  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/net.c checksum error creating updated file
	exit checksum
}
target=816406807/pgrp.c
echo -n '816406807/pgrp.c: '
if(! test -f $srcdir/pgrp.c || ! test -r $srcdir/pgrp.c){
	echo $srcdir/pgrp.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/pgrp.c}
if(! ~ 48d9958a2575  $sum(1)^$sum(2)){
	echo $srcdir/pgrp.c is not the original distribution file
	exit original
}
cp $srcdir/pgrp.c 816406807/pgrp.c
ed 816406807/pgrp.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM pgrp.c'
178c
		if(TK2MS(m->ticks - ticks) > 60000){
			print("%s\n", reason);
			ticks = m->ticks;
		}
.
173a
	static ulong ticks;
.
wq
//GO.SYSIN DD VADIM pgrp.c
sum=`{sum < 816406807/pgrp.c}
if(~ ce769e2b2661  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/pgrp.c checksum error creating updated file
	exit checksum
}
target=816406807/portdat.h
echo -n '816406807/portdat.h: '
if(! test -f $srcdir/portdat.h || ! test -r $srcdir/portdat.h){
	echo $srcdir/portdat.h unreadable
	exit unreadable
}
sum=`{sum < $srcdir/portdat.h}
if(! ~ 6853e48917559  $sum(1)^$sum(2)){
	echo $srcdir/portdat.h is not the original distribution file
	exit original
}
cp $srcdir/portdat.h 816406807/portdat.h
ed 816406807/portdat.h >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM portdat.h'
107a
#define M_RHANGUP 3
.
wq
//GO.SYSIN DD VADIM portdat.h
sum=`{sum < 816406807/portdat.h}
if(~ e32eb89b17579  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/portdat.h checksum error creating updated file
	exit checksum
}
target=816406807/portfns.h
echo -n '816406807/portfns.h: '
if(! test -f $srcdir/portfns.h || ! test -r $srcdir/portfns.h){
	echo $srcdir/portfns.h unreadable
	exit unreadable
}
sum=`{sum < $srcdir/portfns.h}
if(! ~ d8a0e8db8353  $sum(1)^$sum(2)){
	echo $srcdir/portfns.h is not the original distribution file
	exit original
}
cp $srcdir/portfns.h 816406807/portfns.h
ed 816406807/portfns.h >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM portfns.h'
266a
ulong		streamlen(Chan*);
.
wq
//GO.SYSIN DD VADIM portfns.h
sum=`{sum < 816406807/portfns.h}
if(~ bef2f1608378  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/portfns.h checksum error creating updated file
	exit checksum
}
target=816406807/proc.c
echo -n '816406807/proc.c: '
if(! test -f $srcdir/proc.c || ! test -r $srcdir/proc.c){
	echo $srcdir/proc.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/proc.c}
if(! ~ d4143c7915168  $sum(1)^$sum(2)){
	echo $srcdir/proc.c is not the original distribution file
	exit original
}
cp $srcdir/proc.c 816406807/proc.c
ed 816406807/proc.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM proc.c'
322c
			p->mp = m;
.
wq
//GO.SYSIN DD VADIM proc.c
sum=`{sum < 816406807/proc.c}
if(~ 9b69b12a15168  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/proc.c checksum error creating updated file
	exit checksum
}
target=816406807/qlock.c
echo -n '816406807/qlock.c: '
if(! test -f $srcdir/qlock.c || ! test -r $srcdir/qlock.c){
	echo $srcdir/qlock.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/qlock.c}
if(! ~ 712d99c91434  $sum(1)^$sum(2)){
	echo $srcdir/qlock.c is not the original distribution file
	exit original
}
cp $srcdir/qlock.c 816406807/qlock.c
ed 816406807/qlock.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM qlock.c'
104a
	qunlock(&l->x);
.
103d
wq
//GO.SYSIN DD VADIM qlock.c
sum=`{sum < 816406807/qlock.c}
if(~ 505425b41434  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/qlock.c checksum error creating updated file
	exit checksum
}
target=816406807/stil.c
echo -n '816406807/stil.c: '
if(! test -f $srcdir/stil.c || ! test -r $srcdir/stil.c){
	echo $srcdir/stil.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/stil.c}
if(! ~ b06c4bad15929  $sum(1)^$sum(2)){
	echo $srcdir/stil.c is not the original distribution file
	exit original
}
cp $srcdir/stil.c 816406807/stil.c
ed 816406807/stil.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM stil.c'
721,723d
713a
		if(ipc->src == 0)
			ipc->src = ipgetsrc(ih->dst);
		hnputl(ih->src, ipc->src);
.
706a
		hnputl(ih->src, nhgetl(inih->dst));
.
wq
//GO.SYSIN DD VADIM stil.c
sum=`{sum < 816406807/stil.c}
if(~ 918ba6d015970  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/stil.c checksum error creating updated file
	exit checksum
}
target=816406807/stream.c
echo -n '816406807/stream.c: '
if(! test -f $srcdir/stream.c || ! test -r $srcdir/stream.c){
	echo $srcdir/stream.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/stream.c}
if(! ~ aeef146c21397  $sum(1)^$sum(2)){
	echo $srcdir/stream.c is not the original distribution file
	exit original
}
cp $srcdir/stream.c 816406807/stream.c
ed 816406807/stream.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM stream.c'
1264c
	devdir(c, c->qid, name, streamlen(c), eve, perm, &dir);
.
1262a
	return n;
}
void
streamstat(Chan *c, char *db, char *name, long perm)
{
	Dir dir;
.
1247c
	ulong n;
.
1243d
1240,1241c
ulong
streamlen(Chan *c)
.
1203c
	if(q->flag & QHUNGUP){
.
1026a
			if(left != n)
				break;
.
919a
	} else if(bp->type == M_RHANGUP){
		freeb(bp);
		q->flag |= QHUNGUP;
		awaken = 1;
.
wq
//GO.SYSIN DD VADIM stream.c
sum=`{sum < 816406807/stream.c}
if(~ e29ab8c321554  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/stream.c checksum error creating updated file
	exit checksum
}
target=816406807/tcpif.c
echo -n '816406807/tcpif.c: '
if(! test -f $srcdir/tcpif.c || ! test -r $srcdir/tcpif.c){
	echo $srcdir/tcpif.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/tcpif.c}
if(! ~ 065d21342064  $sum(1)^$sum(2)){
	echo $srcdir/tcpif.c is not the original distribution file
	exit original
}
cp $srcdir/tcpif.c 816406807/tcpif.c
ed 816406807/tcpif.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM tcpif.c'
42c
		if(newstate == Closed)
			bp->type = M_HANGUP;
		else
			bp->type = M_RHANGUP;
.
wq
//GO.SYSIN DD VADIM tcpif.c
sum=`{sum < 816406807/tcpif.c}
if(~ 4d59e2fd2122  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/tcpif.c checksum error creating updated file
	exit checksum
}
target=816406807/tcpoutput.c
echo -n '816406807/tcpoutput.c: '
if(! test -f $srcdir/tcpoutput.c || ! test -r $srcdir/tcpoutput.c){
	echo $srcdir/tcpoutput.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/tcpoutput.c}
if(! ~ 24820f345782  $sum(1)^$sum(2)){
	echo $srcdir/tcpoutput.c is not the original distribution file
	exit original
}
cp $srcdir/tcpoutput.c 816406807/tcpoutput.c
ed 816406807/tcpoutput.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM tcpoutput.c'
274c
	return 25;
.
271c
	if(n <= 4)
.
219c
	tcb->cwind = x;
.
217c
	tcb->ssthresh = MAX(tcb->ssthresh, x);
.
215a
	x = MIN(tcb->mss, DEF_MSS);
.
205a
	int x;
.
202a
/*
 *  This used to set cwind to tcb->mss.  I've changed it to
 *  MIN(tcb->mss, DEF_MSS) to deal with slow dial up line servers.
 *  The reasoning is that in those cases the size of the outstanding
 *  data is important, not just the number of packets. -- presotto
 */
.
142a
			if(x > (10000/MSPTICK))
				x = 10000/MSPTICK;
			tcb->timer.start = x;
.
141c
			x = backoff(tcb->backoff) *
.
18a
	int x;
.
wq
//GO.SYSIN DD VADIM tcpoutput.c
sum=`{sum < 816406807/tcpoutput.c}
if(~ 42a427a86143  $sum(1)^$sum(2))
	echo
if not{
	echo 816406807/tcpoutput.c checksum error creating updated file
	exit checksum
}