Return to go.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / monitor

Annotation of 42BSD/ingres/source/monitor/go.c, revision 1.1.1.1

1.1       root        1: # include      "monitor.h"
                      2: # include      <ingres.h>
                      3: # include      <aux.h>
                      4: # include      <resp.h>
                      5: # include      <symbol.h>
                      6: # include      <pv.h>
                      7: # include      <pipes.h>
                      8: # include      <setjmp.h>
                      9: # include      <sccs.h>
                     10: 
                     11: SCCSID(@(#)go.c        7.1     2/5/81)
                     12: 
                     13: 
                     14: 
                     15: /*
                     16: **  PROCESS QUERY
                     17: **
                     18: **     The appropriate messages are printed, and the query is scanned.
                     19: **     Tokens are passed to the parser.  A parser response is then
                     20: **     expected.
                     21: **
                     22: **     Trace Flags:
                     23: **             5
                     24: */
                     25: 
                     26: # define       QRYTRAP         "{querytrap}"
                     27: 
                     28: jmp_buf                GoJmpBuf;
                     29: 
                     30: go()
                     31: {
                     32:        FILE            *iop;
                     33:        auto char       c;
                     34:        register char   *p;
                     35:        extern int      fgetc();
                     36:        pb_t            pb;
                     37:        extern char     *macro();
                     38: 
                     39:        clrline(1);
                     40:        fflush(Qryiop);
                     41:        if ((iop = fopen(Qbname, "r")) == NULL)
                     42:                syserr("go: open 1");
                     43:        if (Nodayfile >= 0)
                     44:                printf("Executing . . .\n\n");
                     45: 
                     46: #      ifdef xMTM
                     47:        if (tTf(76, 1))
                     48:                timtrace(3, 0);
                     49: #      endif
                     50: 
                     51:        if (!Nautoclear)
                     52:                Autoclear = 1;
                     53: 
                     54:        /* arrange to call the parser */
                     55:        initp();
                     56:        call_setup(&pb, mdPARSER, NULL);
                     57:        pb_prime(&pb, PB_REG);
                     58:        pb.pb_proc = 1;         /**** PARSER MUST BE IN PROC ONE ****/
                     59:        send_off(&pb, 0, NULL);
                     60:        pb_tput(PV_EOF, "", 0, &pb);
                     61:        macinit(fgetc, iop, 1);
                     62:        while ((c = macgetch()) > 0)
                     63:                pb_put(&c, 1, &pb);
                     64:        pb_flush(&pb);
                     65:        fclose(iop);
                     66: 
                     67:        /* wait for the response */
                     68:        setjmp(GoJmpBuf);
                     69:        readinput(&pb);
                     70: 
                     71:        if (Resp.resp_tups >= 0)
                     72:                macdefine("{tuplecount}", locv(Resp.resp_tups), TRUE);
                     73:        
                     74:        if (Error_id == 0 && (p = macro(QRYTRAP)) != NULL)
                     75:                trapquery(&Resp, p);
                     76:        
                     77:        resetp();
                     78: 
                     79:        mcall("{continuetrap}");
                     80: 
                     81: #      ifdef xMTM
                     82:        if (tTf(76, 1))
                     83:                timtrace(4, 0);
                     84: #      endif
                     85:        prompt("\ncontinue");
                     86: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.