1 #include <stdio.h>
2 #include <stddef.h>
3 #include <stdlib.h>
4 #include <string.h>
5 #include "cpp.h"
6
7 extern int lcc_getopt(int, char *const *, const char *);
8 extern char *optarg, rcsid[];
9 extern int optind;
10 int verbose;
11 int Mflag; /* only print active include files */
12 char *objname; /* "src.$O: " */
13 int Cplusplus = 1;
14
15 void
setup(int argc,char ** argv)16 setup(int argc, char **argv)
17 {
18 int c, fd, i;
19 char *fp, *dp;
20 Tokenrow tr;
21 extern void setup_kwtab(void);
22 uchar *includeDirs[ NINCLUDE ] = { 0 };
23 int numIncludeDirs = 0;
24
25 setup_kwtab();
26 while ((c = lcc_getopt(argc, argv, "MNOVv+I:D:U:F:lg")) != -1)
27 switch (c) {
28 case 'N':
29 for (i=0; i<NINCLUDE; i++)
30 if (includelist[i].always==1)
31 includelist[i].deleted = 1;
32 break;
33 case 'I':
34 includeDirs[ numIncludeDirs++ ] = newstring( (uchar *)optarg, strlen( optarg ), 0 );
35 break;
36 case 'D':
37 case 'U':
38 setsource("<cmdarg>", -1, optarg);
39 maketokenrow(3, &tr);
40 gettokens(&tr, 1);
41 doadefine(&tr, c);
42 unsetsource();
43 break;
44 case 'M':
45 Mflag++;
46 break;
47 case 'v':
48 fprintf(stderr, "%s %s\n", argv[0], rcsid);
49 break;
50 case 'V':
51 verbose++;
52 break;
53 case '+':
54 Cplusplus++;
55 break;
56 default:
57 break;
58 }
59 dp = ".";
60 fp = "<stdin>";
61 fd = 0;
62 if (optind<argc) {
63 dp = basepath( argv[optind] );
64 fp = (char*)newstring((uchar*)argv[optind], strlen(argv[optind]), 0);
65 if ((fd = open(fp, 0)) <= 0)
66 error(FATAL, "Can't open input file %s", fp);
67 }
68 if (optind+1<argc) {
69 int fdo = creat(argv[optind+1], 0666);
70 if (fdo<0)
71 error(FATAL, "Can't open output file %s", argv[optind+1]);
72 dup2(fdo, 1);
73 }
74 if(Mflag)
75 setobjname(fp);
76 includelist[NINCLUDE-1].always = 0;
77 includelist[NINCLUDE-1].file = dp;
78
79 for( i = 0; i < numIncludeDirs; i++ )
80 appendDirToIncludeList( (char *)includeDirs[ i ] );
81
82 setsource(fp, fd, NULL);
83 }
84
85
basepath(char * fname)86 char *basepath( char *fname )
87 {
88 char *dp = ".";
89 char *p;
90 if ((p = strrchr(fname, '/')) != NULL) {
91 int dlen = p - fname;
92 dp = (char*)newstring((uchar*)fname, dlen+1, 0);
93 dp[dlen] = '\0';
94 }
95
96 return dp;
97 }
98
99 /* memmove is defined here because some vendors don't provide it at
100 all and others do a terrible job (like calling malloc) */
101 // -- ouch, that hurts -- ln
102 #ifndef MACOS_X /* always use the system memmove() on Mac OS X. --ryan. */
103 #ifdef memmove
104 #undef memmove
105 #endif
106 void *
memmove(void * dp,const void * sp,size_t n)107 memmove(void *dp, const void *sp, size_t n)
108 {
109 unsigned char *cdp, *csp;
110
111 if (n<=0)
112 return 0;
113 cdp = dp;
114 csp = (unsigned char *)sp;
115 if (cdp < csp) {
116 do {
117 *cdp++ = *csp++;
118 } while (--n);
119 } else {
120 cdp += n;
121 csp += n;
122 do {
123 *--cdp = *--csp;
124 } while (--n);
125 }
126 return 0;
127 }
128 #endif
129