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

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.