src/meta/pexpand.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *   Program to expand meta-file commands
 *
 *   cc pexpand.c expand.o mfio.o segment.o palloc.o syscalls.o misc.o
 */


#include  "meta.h"


char  *progname;

int  maxalloc = 0;              /* no limit */


main(argc, argv)

int  argc;
char  **argv;

{
 FILE  *fp;
 int  i;
 char  *cp;
 int  com;
 short  exlist[NCOMMANDS];      /* 1==expand, 0==pass, -1==discard */

#ifdef  CPM
 fixargs("pexpand", &argc, &argv);
#endif

 progname = *argv++;
 argc--;

 for (i = 0; i < NCOMMANDS; i++)
    exlist[i] = 0;

 while (argc && (**argv == '+' || **argv == '-'))  {
    i = (**argv == '+') ? 1 : -1;
    for (cp = *argv+1; *cp ; cp++)  {
       if ((com = comndx(*cp)) == -1 || *cp == PEOF) {
          sprintf(errmsg, "unknown option '%c'", *cp);
          error(WARNING, errmsg);
          }
       else
          exlist[com] = i;
       }
    argv++;
    argc--;
    }

 if (argc)
    while (argc)  {
       fp = efopen(*argv, "r");
       expand(fp, exlist);
       fclose(fp);
       argv++;
       argc--;
       }
 else
    expand(stdin, exlist);

 writeof(stdout);

 return(0);
 }
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* Program to expand meta-file commands
6			*
7			* cc pexpand.c expand.o mfio.o segment.o palloc.o syscalls.o misc.o
8			*/
9
10
11			#include "meta.h"
12
13
14
15			char *progname;
16
17			int maxalloc = 0; /* no limit */
18
19
20
21			main(argc, argv)
22
23			int argc;
24			char **argv;
25
26			{
27			FILE *fp;
28			int i;
29			char *cp;
30			int com;
31			short exlist[NCOMMANDS]; /* 1==expand, 0==pass, -1==discard */
32
33			#ifdef CPM
34			fixargs("pexpand", &argc, &argv);
35			#endif
36
37			progname = *argv++;
38			argc--;
39
40			for (i = 0; i < NCOMMANDS; i++)
41			exlist[i] = 0;
42
43			while (argc && (argv == '+' \|\| argv == '-')) {
44			i = (**argv == '+') ? 1 : -1;
45			for (cp = argv+1; cp ; cp++) {
46			if ((com = comndx(cp)) == -1 \|\| cp == PEOF) {
47			sprintf(errmsg, "unknown option '%c'", *cp);
48			error(WARNING, errmsg);
49			}
50			else
51			exlist[com] = i;
52			}
53			argv++;
54			argc--;
55			}
56
57			if (argc)
58			while (argc) {
59			fp = efopen(*argv, "r");
60			expand(fp, exlist);
61			fclose(fp);
62			argv++;
63			argc--;
64			}
65			else
66			expand(stdin, exlist);
67
68			writeof(stdout);
69
70			return(0);
71			}