Exemplo n.º 1
0
void rt_charGE(CL_FORM *base)
{
	COPY(ARG(0), ARG(2));
	Fchar_code(ARG(2));
	COPY(ARG(1), ARG(3));
	Fchar_code(ARG(3));
	Fge(ARG(2), 2);
	COPY(ARG(2), ARG(0));
}
Exemplo n.º 2
0
void rt_char_equal(CL_FORM *base)
{
	COPY(ARG(0), ARG(2));
	Fchar_upcase(ARG(2));
	Fchar_code(ARG(2));
	COPY(ARG(1), ARG(3));
	Fchar_upcase(ARG(3));
	Fchar_code(ARG(3));
	Fnumeql(ARG(2), 2);
	COPY(ARG(2), ARG(0));
}
Exemplo n.º 3
0
void Fchar_int(CL_FORM *base)
{
	Fchar_code(ARG(0));
}