Return to getfnam.c CVS log

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

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

1.1     ! root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
        !             2: 
        !             3:  *     ***********************************
        !             4:  *     ***********************************
        !             5:  *     ********* GET A FILE NAME *********
        !             6:  *     *** R. B. Drake WH 8C-005 X4163 ***
        !             7:  *     **** Fri Aug 24 17:28:41 1979 *****
        !             8:  *     ***********************************
        !             9:  *     ***********************************
        !            10:  * When the user types a command which needs a filename such as
        !            11:  * "old" or "save" or "load", and no default filename currently
        !            12:  * exists, this routine is called to prompt the user for one
        !            13: 
        !            14: */
        !            15: /*   "@(#) getfnam.c:  V 1.1  12/21/80" */
        !            16: 
        !            17: #include "bas.h"
        !            18: extern char filnam[];
        !            19: getfnam()
        !            20: {
        !            21:        int i;
        !            22:        while(expr[0] == '\0' && filnam[0] == '\0')
        !            23:        {
        !            24:                printf("Filename ?");
        !            25:                fgets(filnam,40,stdin);
        !            26:                i = strlen(filnam);
        !            27:                postb(filnam);
        !            28:                if(i>=40)
        !            29:                {
        !            30:                        printf("NAME TOO LONG, TRY AGAIN\n");
        !            31:                        filnam[0]='\0';
        !            32:                        continue;
        !            33:                }
        !            34:                break;
        !            35:        }
        !            36:        return(0);
        !            37: }

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