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     ! 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: }