sys/etc/itob.x


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

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

# ITOB -- Convert integer to boolean.

bool procedure itob (integer_value)

int	integer_value

begin
	if (integer_value == NO)
	    return (false)
	else
	    return (true)
end