Return to load.c CVS log

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

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

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ***********************************
                      4:  *     ***********************************
                      5:  *     ************** LOAD ***************
                      6:  *     *** R. B. Drake WH 8C-005 X4163 ***
                      7:  *     **** Sun Aug 26 10:48:06 1979 *****
                      8:  *     ***********************************
                      9:  *     ***********************************
                     10:  * This routine is used to load "BITE" programs form a UNIX file
                     11:  * the filenames must be suffixed ".b" which is appended automatically
                     12:  * by the "save" routine if the user leaves it off
                     13: 
                     14: */
                     15: /*   "@(#) load.c:  V 1.1  12/21/80" */
                     16: 
                     17: #include "bas.h"
                     18: 
                     19: 
                     20: char filnam[40];
                     21: load()
                     22: {
                     23: FILE *fp,*pathopen();
                     24:        if(expr[0] == '\0' && filnam[0] == '\0')
                     25:                getfnam();
                     26:        if(expr[0] != 0)
                     27:        {
                     28:                if(strlen(expr) > 40)
                     29:                {
                     30:                        error(inst.thing.linno,4);
                     31:                        return(-1);
                     32:                }
                     33:                strcpy(filnam,expr);
                     34: 
                     35:        }
                     36:        postb(filnam);  /* attach .b postfix if not there */
                     37:        if((fp = pathopen(filnam)) == 0)
                     38:                return(-1);
                     39: 
                     40:        while(bed(fp) == 0);
                     41:        fclose(fp);
                     42:        fetch(0,&lbdptr); /* set txtbuf to first line */
                     43:        return(0);
                     44: }

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