File: [local] / OpenXM_contrib2 / asir2000 / builtin / print.c (download)
Revision 1.1.1.1 (vendor branch), Fri Dec 3 07:39:07 1999 UTC (24 years, 7 months ago) by noro
Branch: NORO
CVS Tags: RELEASE_20000124, RELEASE_1_1_2, ASIR2000 Changes since 1.1: +0 -0
lines
Imported asir2000 as OpenXM_contrib2/asir2000.
|
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $ */
#include "ca.h"
#include "parse.h"
void Pprint();
struct ftab print_tab[] = {
{"print",Pprint,-2},
{0,0,0},
};
void Pprint(arg,rp)
NODE arg;
pointer *rp;
{
printexpr(CO,ARG0(arg));
if ( argc(arg) == 2 )
switch ( QTOS((Q)ARG1(arg)) ) {
case 0:
break;
case 2:
fflush(asir_out); break;
break;
case 1: default:
putc('\n',asir_out); break;
}
else
putc('\n',asir_out);
*rp = 0;
}