Return to print.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Annotation of OpenXM_contrib2/asir2000/builtin/print.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/print.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
                      2: #include "ca.h"
                      3: #include "parse.h"
                      4:
                      5: void Pprint();
                      6:
                      7: struct ftab print_tab[] = {
                      8:        {"print",Pprint,-2},
                      9:        {0,0,0},
                     10: };
                     11:
                     12: void Pprint(arg,rp)
                     13: NODE arg;
                     14: pointer *rp;
                     15: {
                     16:        printexpr(CO,ARG0(arg));
                     17:        if ( argc(arg) == 2 )
                     18:                switch ( QTOS((Q)ARG1(arg)) ) {
                     19:                        case 0:
                     20:                                break;
                     21:                        case 2:
                     22:                                fflush(asir_out); break;
                     23:                                break;
                     24:                        case 1: default:
                     25:                                putc('\n',asir_out); break;
                     26:                }
                     27:        else
                     28:                putc('\n',asir_out);
                     29:        *rp = 0;
                     30: }