sys/fmtio/chrupr.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	<ctype.h>

# CHRUPR -- Convert char to upper case.

char procedure chrupr (ch)

char	ch

begin
	if (IS_LOWER (ch))
	    return (TO_UPPER (ch))
	else
	    return (ch)
end