sys/etc/btoi.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.

# BTOI -- Convert boolean to integer.

int procedure btoi (boolean_value)

bool	boolean_value

begin
	if (boolean_value)
	    return (YES)
	else
	    return (NO)
end