Return to parser.c CVS log

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

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

1.1       root        1: # include      <ingres.h>
                      2: # include      <range.h>
                      3: # include      <tree.h>
                      4: # include      <func.h>
                      5: # include      <pv.h>
                      6: # include      "parser.h"
                      7: # include      <sccs.h>
                      8: 
                      9: SCCSID(@(#)parser.c    7.1     2/5/81)
                     10: 
                     11: short                  tTparser[100];
                     12: 
                     13: extern int             parser();
                     14: extern int             par_init();
                     15: 
                     16: struct fn_def          ParserFn =
                     17:                        {
                     18:                                "PARSER",
                     19:                                parser,
                     20:                                par_init,
                     21:                                NULL,
                     22:                                NULL,
                     23:                                0,
                     24:                                tTparser,
                     25:                                100,
                     26:                                'P',
                     27:                                0
                     28:                        };
                     29: 
                     30: DESC   Reldesc;
                     31: struct atstash         Attable[MAXATT];/* attrib stash space, turned into a list later */
                     32: struct atstash         *Freeatt;       /* free list of attrib stash */
                     33: QTREE  *Tidnode;       /* pointer to tid node of targ list
                     34:                                           for REPLACE, DELETE */
                     35: QTREE  *Lastree;       /* pointer to root node of tree */
                     36: extern struct atstash  Faketid;        /* atstash structure for TID node */
                     37: #ifdef DISTRIB
                     38: extern struct atstash  Fakesid;        /* atstash structure for SID node */
                     39: #endif
                     40: 
                     41: int                    Rsdmno;         /* result domain number */
                     42: int                    Opflag;         /* operator flag contains query mode */
                     43: char                   *Relspec;       /* ptr to storage structure of result relation */
                     44: char                   *Indexspec;     /* ptr to stor strctr of index */
                     45: char                   *Indexname;     /* ptr to name of index */
                     46: char                   Trfrmt;         /* format for type checking */
                     47: char                   Trfrml;         /* format length for type checking */
                     48: char                   *Trname;        /* pointer to attribute name */
                     49: int                    Agflag;         /* how many aggs in this qry */
                     50: int                    Equel;          /* indicates EQUEL preprocessor on */
                     51: int                    Ingerr;         /* set to error num if a query returns
                     52:                                           an error from processes below */
                     53: int                    Patflag;        /* signals a pattern match reduction */
                     54: int                    Qlflag;         /* set when processing a qual */
                     55: int                    Noupdt;         /* INGRES user override of no update restriction */
                     56: int                    Err_fnd;        /* no actions done if 1 */
                     57: int                    Err_current;    /* 1 if error found in current statement */
                     58: int                    yyline;         /* line counter */
                     59: int                    Dcase;          /* default case mapping */
                     60: int                    Permcomd;
                     61: int                    Qrymod;         /* qrymod on in database flag */
                     62: 
                     63: 
                     64: /*
                     65: **  PARSER -- the actual main routine
                     66: **
                     67: **     Trace Flags:
                     68: **             Parser ~~ 64
                     69: */
                     70: 
                     71: parser()
                     72: {
                     73: 
                     74: # ifdef        xPTR1
                     75:        tTfp(64, 0, "Parser %d\n", getpid());
                     76: # endif
                     77: 
                     78:        if (startgo() < 0)
                     79:        {
                     80:                endgo();
                     81:                return (-1);
                     82:        }
                     83: 
                     84:        if (yyparse())          /* yyparse returns 1 in case of error */
                     85:        {
                     86:                endgo();
                     87:                return (-2);
                     88:        }
                     89: 
                     90:        if (endgo() < 0)
                     91:                return (-3);
                     92: 
                     93:        return(0);
                     94: }

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