franz/lam9.c
/* This routine will execute any of the termcap functions used by the lisp
/* program. If the feature is not include in the terminal defined it will
/* ignore the call.
/*		option	: feature to execute
/*		line	: line if is nessery
/*		colum	: colum if is nessaery
/*									*/
This routine will execute any of the termcap functions used by the lisp
program. If the feature is not include in the terminal defined it will
ignore the call.
option  : feature to execute
line    : line if is nessery
colum   : colum if is nessaery
This routine will execute any of the termcap functions used by the lisp program . If the feature is not include in the terminal defined it will ignore the call . option : feature to execute line : line if is nessery colum : colum if is nessaery
lispval
Ltcx()
{
	register struct argent *mylbot = lbot;
	int line, column;
	switch(np-lbot) {
	case 1:
		line = column = 0;
		break;
	case 2:
		error("Wrong number of Arguments to Termcapexecute",FALSE);
		break;
	case 3:
		line = mylbot[1].val->i;
		column = mylbot[2].val->i;
	}
	return(inewint(show((char *) mylbot->val,&line,&column)));
}
lispval Ltcx ( ) { register struct argent * mylbot = lbot ; int line , column ; switch ( np - lbot ) { case 1 : line = column = 0 ; break ; case 2 : error ( " " , FALSE ) ; break ; case 3 : line = mylbot [ 1 ] . val -> i ; column = mylbot [ 2 ] . val -> i ; } return ( inewint ( show ( ( char * ) mylbot -> val , & line , & column ) ) ) ; }
This routine will execute any of the termcap functions used by the lisp
program.
This routine will execute any of the termcap functions used by the lisp program .