Return to print.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / builtin |
File: [local] / OpenXM_contrib2 / asir2000 / builtin / print.c (download)
Revision 1.1, Fri Dec 3 07:39:07 1999 UTC (24 years, 5 months ago) by noro
Initial revision |
/* $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 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; }