sys/fmtio/pargb.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	<printf.h>

# PARGB -- Print a boolean operand (as a string).

procedure pargb (bval)

bool	bval

begin
	if (bval)
	    call pargstr ("yes")
	else
	    call pargstr ("no")
end