예제 #1
0
파일: rt_charGE.c 프로젝트: plops/clicc
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));
}
예제 #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));
}
예제 #3
0
파일: Fchar_int.c 프로젝트: plops/clicc
void Fchar_int(CL_FORM *base)
{
	Fchar_code(ARG(0));
}