Return to branch.c CVS log

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

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

1.1     ! root        1: # include      "monitor.h"
        !             2: # include      <ingres.h>
        !             3: # include      <aux.h>
        !             4: #include       <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)branch.c    8.1     12/31/84)
        !             7: 
        !             8: 
        !             9: 
        !            10: /*
        !            11: **  BRANCH
        !            12: **
        !            13: **     The "filename" following the \b op must match the "filename"
        !            14: **     which follows some \k command somewhere in this same file.
        !            15: **     The input pointer is placed at that point if possible.  If
        !            16: **     the label does not exist, an error is printed and the next
        !            17: **     character read is an EOF.
        !            18: **
        !            19: **     Trace Flags:
        !            20: **             33
        !            21: */
        !            22: 
        !            23: branch()
        !            24: {
        !            25:        register char   c;
        !            26:        register int    i;
        !            27:        extern char     getch();
        !            28: 
        !            29: #      ifdef xMTR2
        !            30:        if (tTf(33, -1))
        !            31:                printf(">>branch: ");
        !            32: #      endif
        !            33: 
        !            34:        /* see if conditional */
        !            35:        while ((c = getch()) > 0)
        !            36:                if (c != ' ' && c != '\t')
        !            37:                        break;
        !            38:        if (c == '?')
        !            39:        {
        !            40:                /* got a conditional; evaluate it */
        !            41:                Oneline = TRUE;
        !            42:                macinit(getch, 0, 0);
        !            43:                i = expr();
        !            44: 
        !            45:                if (i <= 0)
        !            46:                {
        !            47:                        /* no branch */
        !            48: #                      ifdef xMTR2
        !            49:                        if (tTf(33, 0))
        !            50:                                printf("no branch\n");
        !            51: #                      endif
        !            52:                        getfilenm();
        !            53:                        return;
        !            54:                }
        !            55:        }
        !            56:        else
        !            57:        {
        !            58:                ungetc(c, Input);
        !            59:        }
        !            60: 
        !            61:        /* get the target label */
        !            62:        if (branchto(getfilenm()) == 0)
        !            63:                if (branchto(macro("{default}")) == 0)
        !            64:                {
        !            65:                        GiveEof = TRUE;
        !            66:                        printf("Cannot branch\n");
        !            67:                }
        !            68:        return;
        !            69: }
        !            70: 
        !            71: 
        !            72: branchto(label)
        !            73: char   *label;
        !            74: {
        !            75:        char            target[100];
        !            76:        register char   c;
        !            77: 
        !            78:        smove(label, target);
        !            79:        if (rewind(Input))
        !            80:        {
        !            81:                printf("Cannot branch on a terminal\n");
        !            82:                return (1);
        !            83:        }
        !            84: 
        !            85:        /* search for the label */
        !            86:        while ((c = getch()) > 0)
        !            87:        {
        !            88:                if (c != '\\')
        !            89:                        continue;
        !            90:                if (getescape(0) != C_MARK)
        !            91:                        continue;
        !            92:                if (sequal(getfilenm(), target))
        !            93:                        return;
        !            94:        }
        !            95: }

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