soltools/cpp/_unix.c

   1 #include <stdio.h>
   2 #include <stddef.h>
   3 #include <stdlib.h>
   4 #include <string.h>
   5 #include <ctype.h>
   6 #include <fcntl.h>
   7 #if (defined(_WIN32) || defined(_MSDOS) || defined(__IBMC__))
   8 #include <io.h>
   9 #else
  10 #include <unistd.h>
  11 #endif
  12
  13 #include "cpp.h"
  14
  15 extern int stgetopt(int, char *const *, const char *);
  16 extern char *optarg, rcsid[];
  17 extern int optind;
  18
  19 int Pflag = 0;                          /* print no line information */
  20 int Iflag = 0;                                                  /* print includes */
  21 int Mflag = 0;                          /* print macor expansion */
  22 int Aflag = 0;                          /* translate character sets */
  23 int Xflag = 0;                          /* print pragma for include/import */
  24 int Vflag = 0;                          /* verbose flag */
  25 int Cflag = 0;                          /* do not remove any comments */
  26 int Dflag = 0;                          /* add parameter check to delete op */
  27 int Cplusplus = 0;
  28
  29 extern void setup_kwtab(void);
  30
  31 void
  32     setup(int argc, char **argv)
  33 {
  34     int c, fd, i, n;
  35     char *fp, *dp;
  36     Tokenrow tr;
  37
  38     setup_kwtab();
  39     while ((c = stgetopt(argc, argv, "NOPV:I:D:U:F:A:X:u:l:+")) != -1)
  40         switch (c)
  41         {
  42             case 'N':
  43                 for (i = 0; i < NINCLUDE; i++)
  44                     if (includelist[i].always == 1)
  45                         includelist[i].deleted = 1;
  46                 break;
  47
  48             case 'I':
  49                 for (i = NINCLUDE - 2; i >= 0; i--)
  50                 {
  51                     if (includelist[i].file == NULL)
  52                     {
  53                         includelist[i].always = 1;
  54                         includelist[i].file = optarg;
  55                         break;
  56                     }
  57                 }
  58                 if (i < 0)
  59                     error(FATAL, "Too many -I directives");
  60                 break;
  61
  62             case 'D':
  63             case 'U':
  64             case 'A':
  65                 setsource("<cmdarg>", -1, -1, optarg, 0);
  66                 maketokenrow(3, &tr);
  67                 gettokens(&tr, 1);
  68                 doadefine(&tr, c);
  69                 unsetsource();
  70                 break;
  71
  72             case 'P':                   /* Lineinfo */
  73                 Pflag++;
  74                 break;
  75
  76             case 'V':
  77                 for (n = 0; (c = optarg[n]) != '\0'; n++)
  78                     switch (c)
  79                     {
  80                         case 'i':
  81                             Iflag++;
  82                             break;
  83
  84                         case 'm':
  85                             Mflag = 1;
  86                             break;
  87
  88                         case 'x':
  89                             Mflag = 2;
  90                             break;
  91
  92                         case 't':
  93                             Vflag++;
  94                             break;
  95
  96                         case 'v':
  97                             fprintf(stderr, "%s %s\n", argv[0], rcsid);
  98                             break;
  99
 100                         default:
 101                             error(WARNING, "Unknown verbose option %c", c);
 102                     }
 103                 break;
 104
 105             case 'X':
 106                 for (n = 0; (c = optarg[n]) != '\0'; n++)
 107                     switch (c)
 108                     {
 109                         case 'a':
 110                             Aflag++;
 111                             break;
 112
 113                         case 'i':
 114                             Xflag++;
 115                             break;
 116
 117                         case 'c':
 118                             Cflag++;
 119                             break;
 120
 121                         case 'd':
 122                             Dflag++;
 123                             break;
 124
 125                         case 'w':
 126                             dp = &optarg[n + 1];
 127                             n += strlen(dp);
 128                             while (isspace(*dp)) dp++;
 129
 130                             for (i = NINCLUDE - 1; i >= 0; i--)
 131                             {
 132                                 if (wraplist[i].file == NULL)
 133                                 {
 134                                     wraplist[i].file = dp;
 135                                     break;
 136                                 }
 137                             }
 138                             if (i < 0)
 139                                 error(WARNING, "Too many -Xw directives");
 140                             break;
 141
 142                         default:
 143                             error(WARNING, "Unknown extension option %c", c);
 144                     }
 145                 break;
 146
 147             case '+':
 148                 Cplusplus++;
 149                 break;
 150
 151             case 'u':                   /* -undef fuer GCC (dummy) */
 152             case 'l':                   /* -lang-c++ fuer GCC (dummy) */
 153                 break;
 154
 155             default:
 156                 break;
 157         }
 158     dp = ".";
 159     fp = "<stdin>";
 160     fd = 0;
 161     if (optind < argc)
 162     {
 163         if ((fp = strrchr(argv[optind], '/')) != NULL)
 164         {
 165             int len = fp - argv[optind];
 166
 167             dp = (char *) newstring((uchar *) argv[optind], len + 1, 0);
 168             dp[len] = '\0';
 169         }
 170         fp = (char *) newstring((uchar *) argv[optind], strlen(argv[optind]), 0);
 171         if ((fd = open(fp, O_RDONLY)) <= 0)
 172             error(FATAL, "Can't open input file %s", fp);
 173     }
 174
 175     if (optind + 1 < argc)
 176     {
 177         int fdo = creat(argv[optind + 1], 0666);
 178
 179         if (fdo < 0)
 180             error(FATAL, "Can't open output file %s", argv[optind + 1]);
 181
 182         dup2(fdo, 1);
 183     }
 184     includelist[NINCLUDE - 1].always = 0;
 185     includelist[NINCLUDE - 1].file = dp;
 186     setsource(fp, -1, fd, NULL, 0);
 187 }
 188
 189
 190 /* memmove is defined here because some vendors don't provide it at
 191    all and others do a terrible job (like calling malloc) */
 192
 193 #if !defined(__IBMC__) && !defined(_WIN32) && !defined(__GLIBC__)
 194
 195 void *
 196     memmove(void *dp, const void *sp, size_t n)
 197 {
 198     unsigned char *cdp, *csp;
 199
 200     if (n <= 0)
 201         return 0;
 202     cdp = dp;
 203     csp = (unsigned char *) sp;
 204     if (cdp < csp)
 205     {
 206         do
 207         {
 208             *cdp++ = *csp++;
 209         } while (--n);
 210     }
 211     else
 212     {
 213         cdp += n;
 214         csp += n;
 215         do
 216         {
 217             *--cdp = *--csp;
 218         } while (--n);
 219     }
 220     return 0;
 221 }
 222
 223 #endif
 224