code: plan9front

ref: 365e63b36a413703f5fcd0ed5ccbd79c3a53afbf
dir: /sys/doc/prfile/

#!/bin/rc

switch($#*){
	case 1
		outfile = $1
		infile = $1.ms
	case *
		outfile = $1
		shift
		infile = $*
}

FONTS='.FP lucidasans'

MACS ='.de BT
.nr PX \\n(.s
.nr PF \\n(.f
.nr Bt 1
.ft 1
.ps \\n(PS
''lt \\n(LTu
.po \\n(POu
.if \\n%>0 .tl \(ts\\*(LF\(ts\\*(CF\(ts\\*(RF\(ts
.ft \\n(PF
.ps \\n(PX
..
.de PT
.lt \\n(LLu
.pc %
.nr PN \\n%
.nr Ps \\n(PS-1
.if \\n(Bt>0  .if e .tl @\\n%     \s\\n(Ps\\*(Au\s0@@@
.if \\n(Bt>0  .if o .tl @@@\f2\\*(Tl\\f1     \\n%@
.lt \\n(.lu
..'


macros = -ms

switch($outfile){
case 8½ acme gfx panel sam
	macros = ($macros -mpictures)
}

switch($outfile){
case 9 comp 8½ utf acme
	macros = ($macros -mnihongo)
}

fn assemble{
	switch($1){
	case 9
		pageno = 1
		title = 'Plan 9 From Bell Labs'
		author = 'INTRODUCTION'
	case README
		pageno = 23
		title = '\s-1README\s0'
		author = 'INTRODUCTION'
	case names
		pageno = 29
		title = 'The Use of Name Spaces in Plan 9'
		author = 'INTRODUCTION'
	case net
		pageno = 35
		title = 'The Organization of Networks in Plan 9'
		author = 'INTRODUCTION'
	case comp
		pageno = 49
		title = 'How to Use the Plan 9 C Compiler'
		author = 'PROGRAMMING'
	case ape
		pageno = 63
		title = 'APE \(em The ANSI/POSIX Environment'
		author = 'PROGRAMMING'
	case ug
		pageno = 67
		title = 'Alef User''s Guide'
		author = 'PROGRAMMING'
	case alef
		pageno = 103
		title = 'Alef Language Reference Manual'
		author = 'PROGRAMMING'
	case acidpaper
		pageno = 141
		title = 'Acid: A Debugger Built From A Language'
		author = 'PROGRAMMING'
	case acid
		pageno = 155
		title = 'Acid Manual'
		author = 'PROGRAMMING'
	case mk
		pageno = 181
		title = 'Maintaining Files on Plan 9 with Mk'
		author = 'PROGRAMMING'
	case mkfiles
		pageno = 195
		title = 'Plan 9 Mkfiles'
		author = 'PROGRAMMING'
	case asm
		pageno = 203
		title = 'A Manual for the Plan 9 assembler'
		author = 'PROGRAMMING'
	case 8½
		pageno = 211
		title = '8½, the Plan 9 Window System'
		author = 'USER INTERFACES'
	case rc
		pageno = 221
		title = 'Rc \(em The Plan 9 Shell'
		author = 'USER INTERFACES'
	case sam
		pageno = 237
		title = 'The Text Editor Sam'
		author = 'USER INTERFACES'
	case acme	# actually done in acme/mkfile
		pageno = 267
		title = 'The Text Editor Sam'
		author = 'USER INTERFACES'
	case utf
		pageno = 283
		title = 'Hello World, or \f1\S''12''Καλημέρα κόσμε\fP\S''0'', or \f(Jpこんにちは 世界\fP'
		author = 'IMPLEMENTATION'
	case compiler
		pageno = 295
		title = 'Plan 9 C Compilers'
		author = 'IMPLEMENTATION'
	case libmach
		pageno = 305
		title = 'Adding Application Support for a New Architecture'
		author = 'IMPLEMENTATION'
	case fs
		pageno = 313
		title = 'The Plan 9 File Server'
		author = 'IMPLEMENTATION'
	case il
		pageno = 321
		title = 'The IL Protocol'
		author = 'IMPLEMENTATION'
	case sleep
		pageno = 327
		title = 'Process Sleep and Wakeup on a Shared-memory Multiprocessor'
		author = 'IMPLEMENTATION'
	case gfx
		pageno = 333
		title = 'Raster Graphics in Plan 9'
		author = 'MISCELLANY'
	case panel
		pageno = 343
		title = 'A Quick Introduction to the Panel Library'
		author = 'MISCELLANY'
	case lp
		pageno = 363
		title = 'A Guide to the Lp Printer Spooler'
		author = 'MISCELLANY'
	case troff
		pageno = 371
		title = 'Troff User''s Manual'
		author = 'MISCELLANY'
	case spin
		pageno = 411
		title = 'Using SPIN'
		author = 'MISCELLANY'
	case port
		pageno = 439
		title = 'The Various Ports'
		author = 'INSTALLATION'
	case install
		pageno = 447
		title = 'Installing the Plan 9 Distribution'
		author = 'INSTALLATION'
	case *
		echo $1 page number not known >[2=1]
		exit page
	}
	echo $FONTS
	echo .pn $pageno
	echo .ds Tl "$title
	echo .ds Au "$author
	echo $MACS
	pic $infile | tbl | eqn
}

assemble $outfile | troff $macros | lp -m.9 -dstdout > $outfile.bs