Return to include.c CVS log

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

Annotation of 43BSD/ingres/source/monitor/include.c, revision 1.1.1.1

1.1       root        1: # include      "monitor.h"
                      2: # include      <ingres.h>
                      3: # include      <aux.h>
                      4: # include      <sccs.h>
                      5: 
                      6: SCCSID(@(#)include.c   8.1     12/31/84)
                      7: 
                      8: 
                      9: 
                     10: /*
                     11: **  INCLUDE FILE
                     12: **
                     13: **     A file name, which must follow the \i, is read and inserted
                     14: **     into the text stream at this location.  It may include all of
                     15: **     the standard control functions.  Includes may be nested.
                     16: **
                     17: **     If the parameter is 0, the file name is taken from the input;
                     18: **     otherwise it is taken directly from the parameter.  In this
                     19: **     mode, errors are not printed.
                     20: **
                     21: **     Prompts are turned off during the include.
                     22: */
                     23: 
                     24: include(filename)
                     25: char   *filename;
                     26: {
                     27:        int                     savendf;
                     28:        FILE                    *saveinp;
                     29:        register char           *f;
                     30:        register FILE           *b;
                     31:        extern char             *getfilenm();
                     32: 
                     33:        f = filename;
                     34:        if (f == 0)
                     35:                f = getfilenm();
                     36:        if (sequal(f, "-"))
                     37:        {
                     38:                /* read keyboard */
                     39:                b = stdin;
                     40:        }
                     41:        else if (*f == 0)
                     42:        {
                     43:                /* back up one level (EOF on next read) */
                     44:                GiveEof = TRUE;
                     45:                return;
                     46:        }
                     47:        else
                     48:        {
                     49:                /* read file */
                     50:                if ((b = fopen(f, "r")) == NULL)
                     51:                {
                     52:                        if (filename == 0)
                     53:                                printf("Cannot open \"%s\"\n", f);
                     54:                        return;
                     55:                }
                     56:        }
                     57: 
                     58:        /* check for too deep */
                     59:        if (Idepth >= 5)
                     60:        {
                     61:                printf("Include nested too deep\n");
                     62:                if (b)
                     63:                        fclose(b);
                     64:                return;
                     65:        }
                     66:        Idepth++;
                     67: 
                     68:        /* get input from alternate file */
                     69:        savendf = Nodayfile;
                     70:        if (b == stdin)
                     71:        {
                     72:                Nodayfile = Userdflag;
                     73:                prompt("<<input>>");
                     74:        }
                     75:        else
                     76:                Nodayfile = -1;
                     77:        saveinp = Input;
                     78:        Input = b;
                     79:        monitor(TRUE);
                     80: 
                     81:        /* done -- restore old file */
                     82:        Input = saveinp;
                     83:        Nodayfile = savendf;
                     84:        Idepth--;
                     85: }

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