Return to f.c CVS log

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

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

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ******************************************
                      4:  *     ******************************************
                      5:  *     *** SIMILAR TO UNIX EDITOR 'f' COMMAND ***
                      6:  *     ****** R. B. Drake WH 8C-005 X4163 *******
                      7:  *     ******** Fri Aug 24 17:23:16 1979 ********
                      8:  *     ******************************************
                      9:  *     ******************************************
                     10: 
                     11: */
                     12: /*   "@(#) f.c:  V 1.1  12/21/80" */
                     13: 
                     14: /* print the current default filename */
                     15: extern char filnam[];
                     16: f()
                     17: {
                     18:        if(filnam[0] == '\0')
                     19:                printf("No current filename exists\n");
                     20:        else
                     21:        printf("Current filename is %s\n",filnam);
                     22:        return(0);
                     23: }

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