Return to call.c CVS log

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

Annotation of researchv10no/cmd/basic/bite/src/call.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ***********************************
                      4:  *     ***********************************
                      5:  *     *** CALL (OVERLAY) A SUBROUTINE ***
                      6:  *     *** R. B. Drake WH 8C-005 X4163 ***
                      7:  *     **** Wed Aug 29 16:40:29 1979 *****
                      8:  *     ***********************************
                      9:  *     ***********************************
                     10:  * Calling sequence:
                     11:  *  
                     12:  *     call name,line#
                     13:  *  
                     14:  * "call" lokks at line "line#" and if that line contains "rem name"
                     15:  * it does a gosub to that line. If that line does not contain "rem name"
                     16:  * it searches the current directory for a file "name.b" and loads or
                     17:  * overlays it according to the line numbers that exist in the file.
                     18:  * then it executes a gosub line#.
                     19: 
                     20: */
                     21: /*   "@(#) call.c:  V 1.1  12/21/80" */
                     22: 
                     23: #include "bas.h"
                     24: static int li;
                     25: static char file[15],Line[15];
                     26: call()
                     27: {
                     28:        int cur;
                     29:        FILE *pathopen(),*fp;
                     30:        char *prncpy(),*pt;
                     31:        char name[15];
                     32:        extern char *expr;
                     33:        cur=inst.thing.linno;
                     34:        pt=prncpy(file,expr);
                     35:        if(*pt++ != ',')
                     36:        {
                     37:                error(cur,8);
                     38:                return(-1);
                     39:        }
                     40:        pt=prncpy(Line,pt);
                     41:        li=atoi(Line);
                     42:        if(ch()) return(0);
                     43:        strcpy(name,file);
                     44:        postb(name);
                     45:        if((fp=pathopen(name)) == 0)
                     46:        {
                     47:                error(cur,4);
                     48:                return(-1);
                     49:        }
                     50:        while(bed(fp) == 0);
                     51:        fclose(fp);
                     52:        if(ch()) return(0);
                     53:        error(cur,43);
                     54:        return(-1);
                     55: }
                     56: ch()
                     57: {
                     58:        char *ptr;
                     59:        fetch(li,&ptr);
                     60:        if(!strcmp(file,expr))
                     61:        {
                     62:                expr=Line;
                     63:                if(gosub() == -1) return(0);
                     64:                return(1);
                     65:        }
                     66:        return(0);
                     67: }

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