Return to getfilenm.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / monitor

Annotation of 43BSD/ingres/source/monitor/getfilenm.c, revision 1.1

1.1     ! root        1: # include      "monitor.h"
        !             2: # include      <ingres.h>
        !             3: # include      <aux.h>
        !             4: # include      <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)getfilenm.c 8.1     12/31/84)
        !             7: 
        !             8: 
        !             9: 
        !            10: /*
        !            11: **  GET FILE NAME
        !            12: **
        !            13: **     This routine collects a file name up to a newline and returns a
        !            14: **     pointer to it.  Keep in mind that it is stored in a static
        !            15: **     buffer.
        !            16: **
        !            17: **     Trace Flags:
        !            18: **             40
        !            19: */
        !            20: 
        !            21: char *
        !            22: getfilenm()
        !            23: {
        !            24:        static char     filename[81];
        !            25:        register char   c;
        !            26:        register int    i;
        !            27:        register char   *p;
        !            28:        extern char     getch();
        !            29: 
        !            30:        Oneline = TRUE;
        !            31:        macinit(getch, 0, 0);
        !            32: 
        !            33:        /* skip initial spaces */
        !            34:        while ((c = macgetch()) == ' ' || c == '\t')
        !            35:                continue;
        !            36: 
        !            37:        i = 0;
        !            38:        for (p = filename; c > 0; )
        !            39:        {
        !            40:                if (i++ <= 80)
        !            41:                        *p++ = c;
        !            42:                c = macgetch();
        !            43:        }
        !            44:        *p = '\0';
        !            45:        Prompt = Newline = TRUE;
        !            46: 
        !            47: #      ifdef xMTR2
        !            48:        if (tTf(40, 0))
        !            49:                printf("filename \"%s\"\n", filename);
        !            50: #      endif
        !            51:        Oneline = FALSE;
        !            52:        getc(Input);
        !            53:        return (filename);
        !            54: }

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