compilers/lcc/cpp/.svn/text-base/unix.c.svn-base

   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
  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
  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 *
 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