#!/bin/rc

if (! ~ $#* 1){
	echo usage: prsrc r3src.tar
	exit 'usage'
}

rfork en

if (! fs/tarfs $1)
	exit $status
cd /n/tapefs

{
#	These files are referenced in the commentry but
#	do not appear in the plan9june2k.tar archive
#
#	echo sys/src/cmd/exportfs/exportsrv.c
#	echo sys/src/9/pc/9pcdisk.c  # generated file

	echo sys/include/a.out.h
	echo sys/src/9/pc/dat.h
	echo sys/src/boot/pc/dat.h
	echo sys/src/9/pc/cga.c
	echo sys/src/9/pc/clock.c
	echo sys/src/9/pc/dat.h
	echo sys/src/9/pc/devarch.c
	echo sys/src/9/port/devcons.c
	echo sys/src/9/pc/devether.c
	echo sys/src/9/pc/devether.c
	echo sys/src/9/pc/devfloppy.c
	echo sys/src/9/pc/devlpt.c
	echo sys/src/9/pc/devvga.c
	echo sys/src/9/pc/fns.h
	echo sys/src/9/pc/i8253.c
	echo sys/src/9/pc/i8259.c
	echo sys/src/9/pc/io.h
	echo sys/src/9/pc/kbd.c
	echo sys/src/9/pc/main.c
	echo sys/src/9/pc/mem.h
	echo sys/src/9/pc/memory.c
	echo sys/src/9/pc/mmu.c
	echo sys/src/9/pc/ns16552.h
	echo sys/src/9/pc/segment.h
	echo sys/src/9/pc/trap.c
	echo sys/src/9/pc/vgas3.c
	echo sys/src/9/port/alarm.c
	echo sys/src/9/port/alloc.c
	echo sys/src/9/port/allocb.c
	echo sys/src/9/port/auth.c
	echo sys/src/9/port/cache.c
	echo sys/src/9/port/chan.c
	echo sys/src/9/port/dev.c
	echo sys/src/9/port/devcons.c
	echo sys/src/9/port/devkprof.c
	echo sys/src/9/port/devmnt.c
	echo sys/src/9/port/devmouse.c
	echo sys/src/9/port/devns16552.c
	echo sys/src/9/port/devpipe.c
	echo sys/src/9/port/devproc.c
	echo sys/src/9/port/devroot.c
	echo sys/src/9/port/fault.c
	echo sys/src/9/port/page.c
	echo sys/src/9/port/pgrp.c
	echo sys/src/9/port/portdat.h
	echo sys/src/9/port/portfns.h
	echo sys/src/9/port/proc.c
	echo sys/src/9/port/qio.c
	echo sys/src/9/port/qlock.c
	echo sys/src/9/port/segment.c
	echo sys/src/9/port/swap.c
	echo sys/src/9/port/sysfile.c
	echo sys/src/9/port/sysproc.c
	echo sys/src/9/port/taslock.c
	echo sys/src/9/port/tod.c
	echo sys/src/9/port/xalloc.c
	echo sys/src/boot/pc/boot.c
	echo sys/src/boot/pc/clock.c
	echo sys/src/boot/pc/conf.c
	echo sys/src/boot/pc/console.c
	echo sys/src/boot/pc/dat.h
	echo sys/src/boot/pc/devfloppy.c
	echo sys/src/boot/pc/dosboot.c
	echo sys/src/boot/pc/ether8003.c
	echo sys/src/boot/pc/fns.h
	echo sys/src/boot/pc/io.h
	echo sys/src/boot/pc/kbd.c
	echo sys/src/boot/pc/lib.h
	echo sys/src/boot/pc/load.c
	echo sys/src/boot/pc/trap.c
	echo sys/src/boot/pc/ureg.h
	echo sys/src/libc/port/cleanname.c
	echo sys/src/libc/port/pool.c
} | 
	@{
	while (f=`{read}){
		fold -w 100 $f |
			awk '{printf("%-5d %s\n", NR, $0)}' |
			pr -h $f -f -e8 -2 -l78 -w200
	}
	} |
		aux/postprint -s9 -pl -l75 |
		tee /fd/3 |[3]
	awk '
		/^%%Pages: [0-9]/	{ num += $2}
		END 			{ print "pages:", num > "/fd/2" }
	'