# C_CLGSTR -- Get string parameter from CL.

procedure c_clgstr (param, str)

char	param[ARB]
char	str[ARB]

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (param, sppstr, SZ_FNAME)
	call clgstr (sppstr, str, SZ_LINE)
	call strpak (str, str, SZ_LINE)
end


# C_CLGETR -- Get real parameter from CL.

procedure c_clgetr (param, rval)

char	param[ARB]
real	rval, clgetr()

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (param, sppstr, SZ_FNAME)
	rval = clgetr (sppstr)
end


# C_CLGETI -- Get integer parameter from CL.

procedure c_clgeti (param, ival)

char	param[ARB]
int	ival, clgeti()

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (param, sppstr, SZ_FNAME)
	ival = clgeti (sppstr)
end


# C_CLGETB -- Get boolean parameter from CL.

int procedure c_clgetb (param)

char	param[ARB]
bool	clgetb()

char	sppstr[SZ_FNAME]
common	/sppcom/ sppstr

begin
	call strupk (param, sppstr, SZ_FNAME)
	if (clgetb (sppstr))
	    return (YES)
	else
	    return (NO)
end