C++ (Cpp) Labort 예제들

예제 #1

파일: Ftruncate.c 프로젝트: plops/clicc

void Ftruncate(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		LOAD_SMALLFIXNUM(1, ARG(1));
		case 2:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	truncate1(ARG(0));
}

예제 #2

파일: lisp515.c 프로젝트: hoelzl/Clicc

void Fget_macro_character(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		COPY(SYMVAL(Slisp, 454), ARG(1));	/* *READTABLE* */
		case 2:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	get_macro_character1(ARG(0));
}

예제 #3

파일: Fbutlast.c 프로젝트: hoelzl/Clicc

void Fbutlast(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		LOAD_FIXNUM(ARG(1), 1, ARG(1));
		case 2:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	butlast1(ARG(0));
}

예제 #4

파일: Fgetf.c 프로젝트: hoelzl/Clicc

void Fgetf(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 2:
		LOAD_NIL(ARG(2));
		case 3:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	getf1(ARG(0));
}

예제 #5

파일: Fimport.c 프로젝트: plops/clicc

void Fimport(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		COPY(SYMVAL(Slisp, 343), ARG(1));	/* *PACKAGE* */
		case 2:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	import1(ARG(0));
}

예제 #6

파일: Fuse_package.c 프로젝트: hoelzl/Clicc

void Fuse_package(CL_FORM *base, int nargs)
{
    switch(nargs)
    {
    case 1:
        COPY(SYMVAL(Slisp, 353), ARG(1));	/* *PACKAGE* */
    case 2:
        break;
    default:
        Labort(TOO_MANY_ARGS);
    }
    use_package1(ARG(0));
}

예제 #7

파일: Fdigit_char_p.c 프로젝트: hoelzl/Clicc

void Fdigit_char_p(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		LOAD_FIXNUM(ARG(1), 10, ARG(1));
		case 2:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	digit_char_p1(ARG(0));
}

예제 #8

파일: Ffresh_line.c 프로젝트: plops/clicc

void Ffresh_line(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 0:
		LOAD_NIL(ARG(0));
		case 1:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	fresh_line1(ARG(0));
}

예제 #9

파일: lisp529.c 프로젝트: plops/clicc

void Fmake_dispatch_macro_character(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		LOAD_NIL(ARG(1));
		case 2:
		COPY(SYMVAL(Slisp, 449), ARG(2));	/* *READTABLE* */
		case 3:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	make_dispatch_macro_character1(ARG(0));
}

예제 #10

파일: Fgentemp.c 프로젝트: hoelzl/Clicc

void Fgentemp(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 0:
		LOAD_SMSTR((CL_FORM *)&KClisp[64], ARG(0));	/* T */
		case 1:
		COPY(SYMVAL(Slisp, 353), ARG(1));	/* *PACKAGE* */
		case 2:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	gentemp1(ARG(0));
}

예제 #11

파일: lisp182.c 프로젝트: hoelzl/Clicc

void Fmake_string_input_stream(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 1:
		LOAD_FIXNUM(ARG(1), 0, ARG(1));
		case 2:
		COPY(ARG(0), ARG(2));
		Flength(ARG(2));
		case 3:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	make_string_input_stream1(ARG(0));
}

예제 #12

파일: Fread.c 프로젝트: hoelzl/Clicc

void Fread(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 0:
		COPY(SYMVAL(Slisp, 60), ARG(0));	/* *STANDARD-INPUT* */
		case 1:
		LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1));	/* T */
		case 2:
		LOAD_NIL(ARG(2));
		case 3:
		LOAD_NIL(ARG(3));
		case 4:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	read1(ARG(0));
}

예제 #13

파일: Fread_char.c 프로젝트: plops/clicc

void Fread_char(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 0:
		LOAD_NIL(ARG(0));
		case 1:
		LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1));	/* T */
		case 2:
		LOAD_NIL(ARG(2));
		case 3:
		LOAD_NIL(ARG(3));
		case 4:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	read_char1(ARG(0));
}

예제 #14

파일: lisp196.c 프로젝트: plops/clicc

void Fmake_string_output_stream(CL_FORM *base, int nargs)
{
	switch(nargs)
	{
		case 0:
		LOAD_SMALLFIXNUM(10, ARG(0));
		LOAD_SYMBOL(SYMBOL(Slisp, 99), ARG(1));	/* ELEMENT-TYPE */
		LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(2));	/* CHARACTER */
		LOAD_SYMBOL(SYMBOL(Slisp, 100), ARG(3));	/* ADJUSTABLE */
		LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4));	/* T */
		LOAD_SYMBOL(SYMBOL(Slisp, 101), ARG(5));	/* FILL-POINTER */
		LOAD_SMALLFIXNUM(0, ARG(6));
		Fmake_array(ARG(0), 7);
		case 1:
		break;
		default:
		Labort(TOO_MANY_ARGS);
	}
	make_string_output_stream1(ARG(0));
}