Return to parser.c CVS log

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

Annotation of 43BSD/ingres/source/parser/parser.c, revision 1.1

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

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