Return to par.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / src / b

Annotation of 43BSD/contrib/B/src/b/par.h, revision 1.1.1.1

1.1       root        1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
                      2: /* $Header: par.h,v 1.1 84/07/04 17:57:16 timo Exp $ */
                      3: 
                      4: #include       <stdio.h>
                      5: #define        EQ      ==
                      6: #define        NE      !=
                      7: #define        EOS     '\0'
                      8: #define        ERR     (-1)
                      9: 
                     10: #ifdef MFILE
                     11: #define        MDOTS   "... "
                     12: #else
                     13: #define        MDOTS   ""
                     14: #endif
                     15: 
                     16: #define        ERM     {fprintf(stderr, "%s: ", pname); fprintf(stderr,
                     17: #define        MRE     ); exit(ERR); }
                     18: 
                     19: #ifdef lint
                     20: int __void__;  /* to tell `lint' not to care */
                     21: #define        VOID(x) (__void__ = (int)(x))
                     22: #else  lint
                     23: #define        VOID(x) (x)
                     24: #endif lint
                     25: 
                     26: FILE   *ifile;         /* input file */
                     27: char   *iname;         /* input name */
                     28: char   *pname;         /* program name */
                     29: 
                     30: main(pargc, pargv) char *pargv[];      {
                     31:        register int argc;
                     32:        register char **argv;
                     33: 
                     34:        pname = pargv[0];
                     35:        argc = pargc-1;
                     36:        argv = pargv+1;
                     37:        while (argc > 0 && argv[0][0] EQ '-' && argv[0][1] NE EOS)      {
                     38: #ifdef OPTIONS
                     39:                register int nop = options(argc, argv);
                     40:                if (nop EQ ERR)
                     41:                        ERM "options are [%s] [ file %s]\n",
                     42:                                OPTIONS, MDOTS
                     43:                        MRE
                     44:                argc -= nop;
                     45:                argv += nop;
                     46: #else
                     47:                ERM "parameters are [ file %s]\n", MDOTS MRE
                     48: #endif
                     49:        }
                     50: #ifndef        MFILE
                     51:        if (argc > 1)
                     52:                ERM "arg count\n" MRE
                     53: #endif
                     54:        do      {
                     55:                if (argc EQ 0 || (argv[0][0] EQ '-' && argv[0][1] EQ EOS))      {
                     56:                        iname = "standard input";
                     57:                        ifile = stdin;
                     58:                }
                     59:                else    {
                     60:                        iname = *argv;
                     61:                        ifile = fopen(iname, "r");
                     62: #ifndef        MFILE
                     63:                        if (ifile EQ NULL)
                     64:                                ERM "cannot open %s\n", iname MRE
                     65: #endif
                     66:                }
                     67:                process();
                     68:                if (ifile NE NULL && ifile NE stdin)
                     69:                        VOID(fclose(ifile));
                     70:        } while (++argv, --argc > 0);
                     71:        exit(0);
                     72: }
                     73: 

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