Ejemplos de Labort en C++ (Cpp)

Ejemplo n.º 1

Archivo: Ftruncate.c Proyecto: 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));
}

Ejemplo n.º 2

Archivo: lisp515.c Proyecto: 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));
}

Ejemplo n.º 3

Archivo: Fbutlast.c Proyecto: 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));
}

Ejemplo n.º 4

Archivo: Fgetf.c Proyecto: 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));
}

Ejemplo n.º 5

Archivo: Fimport.c Proyecto: 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));
}

Ejemplo n.º 6

Archivo: Fuse_package.c Proyecto: 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));
}

Ejemplo n.º 7

Archivo: Fdigit_char_p.c Proyecto: 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));
}

Ejemplo n.º 8

Archivo: Ffresh_line.c Proyecto: 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));
}

Ejemplo n.º 9

Archivo: lisp529.c Proyecto: 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));
}

Ejemplo n.º 10

Archivo: Fgentemp.c Proyecto: 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));
}

Ejemplo n.º 11

Archivo: lisp182.c Proyecto: 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));
}

Ejemplo n.º 12

Archivo: Fread.c Proyecto: 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));
}

Ejemplo n.º 13

Archivo: Fread_char.c Proyecto: 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));
}

Ejemplo n.º 14

Archivo: lisp196.c Proyecto: 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));
}