)rv comment
set u = 'UNIX'
special keypunch
set un = 'UNIX'
set DEC = 'Digitital Equipment Corporation'
set p = ' )l2w5ri1p '
no control list
paragraph indent 0
indents (8,0) (12,0) 
set i = ' )w3l2r ~ !par.1 )i1 '
set sw = ' !i(-!par.1!) '
set head = ' !count(pt,1,1,integer)  )l2w5r@ !par.1 )l-@i1-u '
set note = '!head(''note !par.1'')'
set pt = ' )l2w5r ~~ !count(pt) )i1 ')
set syn = '!head(''synopsis !par.1'')'
set desc = '!head(''description !par.1'')'
set files = '!head(''files !par.1'')'
set bugs = '!head(''Bugs'') '
set diag = '!head(''Diagnostics'') '
set examples = '!head(''examples !par.1'')'
define manual
! )rv comment 
! set udate = '!filedate(*/*/*,mm,dd,yy)'
! page 1
! title
! )@ !null('!par.2!',,'UBC~!par.2')
!  !udate )-@ Page~~~ )gm !par.1 )-ml2e
! go
! )s !null('!par.2!',,'!head(Description) ')
 
define name
! )rv comment 
! set u.name = '!par.1!'
! call null('!par.3','set section = ''I'' ','set section = ''!par.3'' ')
! call null('!par.4','set udate = ''!filedate(*/*/*,mm,dd,yy)'' ','set udate = ''!par.4!'' ')
! call exist(u.contents,' ','page 1')
! title
! )@ !par.5!!par.1!(!section!-UBC) !udate )-@ Page~~~ )gl2e
! go
! )s !head(NAME) !par.1 - !par.2 
! !exist(u.contents,'!u.contents(''!par.1!'',2)!',' ')
 
set unix.head = '!head(''!par.1'')'
set synopsys = '!syn'
set unix.file = '!i(''!par.1'')'
set see = '!head(''see also'') '
define unix.writeup
!call name('!unix.name!','!unix.title','!unix.type')
set lib = ' !files !unix.file(-l!par.1!) contains the object for )@ "!u.name!". )-@ '
set wlib = ' !files !unix.file(-lw) contains the object for )@ "!u.name!". )-@ '
define string.bug
! !bugs since "!u.name!" accepts a string argument which is supposed to be
! null terminated it will blow up if the trailing null byte is missing.
