Return to belse.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/belse.c, revision 1.1

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     ////////////////////////////////////////
        !             4:  *     ////////////////////////////////////////
        !             5:  *     /// ELSE and ENDIF for STRUCTURED IF ///
        !             6:  *     //// J. P. Hawkins WH X4610 8C-001 /////
        !             7:  *     /////// Mon Sep 17 21:28:50 1979 ///////
        !             8:  *     ////////////////////////////////////////
        !             9:  *     ////////////////////////////////////////
        !            10: 
        !            11:  * These statements, like "next" are markers whose codes
        !            12:  * are searched by an "if" statement with nothing following
        !            13:  * the "then" to implement a structured "if".
        !            14:  *
        !            15:  * These Commands are NOT EXECUTIBLE, and return the appropriate
        !            16:  * error if an attempt is made to do so.
        !            17:  */
        !            18: /*   "@(#) belse.c:  V 1.1  12/21/80" */
        !            19: 
        !            20: #include       "bas.h"
        !            21: _else()
        !            22: {
        !            23:        error(inst.thing.linno, 44); /* ELSE WITH NO IF */
        !            24:        return(-1);
        !            25: }
        !            26: 
        !            27: _endif()
        !            28: {
        !            29:        error(inst.thing.linno, 45); /* ENDIF WITH NO IF */
        !            30:        return(-1);
        !            31: }

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