Return to b2syn.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / src / bsmall

Annotation of 43BSD/contrib/B/src/bsmall/b2syn.h, revision 1.1

1.1     ! root        1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
        !             2: /* $Header: b2syn.h,v 1.1 84/06/28 00:48:52 timo Exp $ */
        !             3: 
        !             4: /* bsyn.h: syntax */
        !             5: 
        !             6: /* General parsing routines */
        !             7: 
        !             8: #define Eotc '\0'
        !             9: #define Eouc '\036'
        !            10:                /* The character Eotc (end of text char)                */
        !            11:                /* is placed after the last read character in txbuf.    */
        !            12:                /* In general it follows a newline.                     */
        !            13:                /* If Eotc is encountered and more input is required,   */
        !            14:                /* getline() is called.                                 */
        !            15:                /* Eouc (end of unit char) is similar except the system */
        !            16:                /* never has to read beyond it.                         */
        !            17: 
        !            18: #define Char(tx) (*(tx))
        !            19: #define Eol(tx) (Char(tx) == '\n' || Char(tx) == Eouc)
        !            20: #define Ceol(tx) (Char(tx) == '\\' || Eol(tx))
        !            21: #define To_eol(tx) while (!Eol(tx)) tx++;
        !            22: #define Mark_unit_end(tx) *tx= Eouc;
        !            23: 
        !            24: #define Space(c) ((c) == ' ' || (c) == '\t')
        !            25: #define Skipsp(tx) while(Space(Char(tx))) tx++
        !            26: 
        !            27: #define Letter(c) ('a'<=c&&c<='z')
        !            28: #define Cap(c) ('A'<=c&&c<='Z')
        !            29: #define Dig(c) ('0'<=c&&c<='9')
        !            30: #define Keymark(c) (Cap(c) || Dig(c) || c=='\'' || c=='"')
        !            31: #define Tagmark(c) (Letter(c) || Dig(c) || c=='\'' || c=='"')
        !            32: #define Keytagmark(c) (Keymark(c) || Letter(c))
        !            33: #define Anytormark(c) (c=='+' || c=='-' || c=='*' || c=='/' || c=='#')
        !            34: #define Montormark(c) (c=='~' || Anytormark(c))
        !            35: #define Dyatormark(c) (Anytormark(c) || c=='^' || c=='<' || c=='>')
        !            36: 
        !            37: /* Procedure upto(); */
        !            38: /* Procedure need(); */
        !            39: /* Procedure nothing(); */
        !            40: /* Procedure thought(); */
        !            41: /* Procedure findceol(); */
        !            42: bool ateol();
        !            43: 
        !            44: value findkw();
        !            45: value keyword();
        !            46: /* Procedure reqkw(); */
        !            47: /* Procedure req(); */
        !            48: value tag();
        !            49: 
        !            50: bool atkw();
        !            51: bool find();
        !            52: intlet count();
        !            53: 
        !            54: txptr fcol();
        !            55: txptr lcol();
        !            56: extern intlet alino;
        !            57: extern txptr txstart, txend; /*TEMPORARY if possible*/
        !            58: 
        !            59: /* Procedure getline(); */
        !            60: intlet ilev();
        !            61: /* Procedure veli(); */
        !            62: /* Procedure inistreams(); */
        !            63: /* Procedure re_streams(); */
        !            64: /* Procedure open_stream(); */
        !            65: /* Procedure close_stream(); */

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