tools/winegcc.c

   1 /*
   2  * MinGW wrapper: makes gcc behave like MinGW.
   3  *
   4  * Copyright 2000 Manuel Novoa III
   5  * Copyright 2002 Dimitrie O. Paun
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "config.h"
  23 #include "wine/port.h"
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <stdarg.h>
  28 #include <string.h>
  29 #include <errno.h>
  30 #ifdef HAVE_SYS_WAIT_H
  31 #include <sys/wait.h>
  32 #endif
  33 #include <sys/stat.h>
  34 #ifdef HAVE_UNISTD_H
  35 # include <unistd.h>
  36 #endif
  37
  38 static char **tmp_files;
  39 static int nb_tmp_files;
  40 static int verbose = 0;
  41 static int keep_generated = 0;
  42
  43 void error(const char *s, ...)
  44 {
  45     va_list ap;
  46
  47     va_start(ap, s);
  48     fprintf(stderr, "Error: ");
  49     vfprintf(stderr, s, ap);
  50     fprintf(stderr, "\n");
  51     va_end(ap);
  52     exit(2);
  53 }
  54
  55 char *strmake(const char *fmt, ...)
  56 {
  57     int n, size = 100;
  58     char *p;
  59     va_list ap;
  60
  61     if ((p = malloc (size)) == NULL)
  62         error("Can not malloc %d bytes.", size);
  63
  64     while (1)
  65     {
  66         va_start(ap, fmt);
  67         n = vsnprintf (p, size, fmt, ap);
  68         va_end(ap);
  69         if (n > -1 && n < size) return p;
  70         size *= 2;
  71         if ((p = realloc (p, size)) == NULL)
  72             error("Can not realloc %d bytes.", size);
  73     }
  74 }
  75
  76 void spawn(char *const argv[])
  77 {
  78     int pid, status, wret, i;
  79
  80     if (verbose)
  81     {
  82         for(i = 0; argv[i]; i++) printf("%s ", argv[i]);
  83         printf("\n");
  84     }
  85
  86     if ((pid = fork()) == 0) execvp(argv[0], argv);
  87     else if (pid > 0)
  88     {
  89         while (pid != (wret = waitpid(pid, &status, 0)))
  90             if (wret == -1 && errno != EINTR) break;
  91
  92         if (pid == wret && WIFEXITED(status) && WEXITSTATUS(status) == 0) return;
  93         error("%s failed.", argv[0]);
  94     }
  95     perror("Error:");
  96     exit(3);
  97 }
  98
  99 int strendswith(const char *str, const char *end)
 100 {
 101     int l = strlen(str);
 102     int m = strlen(end);
 103
 104     return l >= m && strcmp(str + l - m, end) == 0;
 105 }
 106
 107 void clean_temp_files()
 108 {
 109     int i;
 110
 111     if (keep_generated) return;
 112
 113     for (i = 0; i < nb_tmp_files; i++)
 114         unlink(tmp_files[i]);
 115 }
 116
 117 char *get_temp_file(const char *suffix)
 118 {
 119     char *tmp = strmake("wgcc.XXXXXX%s", suffix);
 120     int fd = mkstemps( tmp, strlen(suffix) );
 121     if (fd == -1)
 122     {
 123         /* could not create it in current directory, try in /tmp */
 124         free(tmp);
 125         tmp = strmake("/tmp/wgcc.XXXXXX%s", suffix);
 126         fd = mkstemps( tmp, strlen(suffix) );
 127         if (fd == -1) error( "could not create temp file" );
 128     }
 129     close( fd );
 130     tmp_files = realloc( tmp_files, (nb_tmp_files+1) * sizeof(*tmp_files) );
 131     tmp_files[nb_tmp_files++] = tmp;
 132
 133     return tmp;
 134 }
 135
 136 char *get_obj_file(char **argv, int n)
 137 {
 138     char *tmpobj, **compargv;
 139     int i, j;
 140
 141     if (strendswith(argv[n], ".o")) return argv[n];
 142     if (strendswith(argv[n], ".a")) return argv[n];
 143
 144     tmpobj = get_temp_file(".o");
 145     compargv = malloc(sizeof(char*) * (n + 10));
 146     i = 0;
 147     compargv[i++] = BINDIR "/winegcc";
 148     compargv[i++] = "-c";
 149     compargv[i++] = "-o";
 150     compargv[i++] = tmpobj;
 151     for (j = 1; j <= n; j++)
 152         if (argv[j]) compargv[i++] = argv[j];
 153     compargv[i] = 0;
 154
 155     spawn(compargv);
 156
 157     return tmpobj;
 158 }
 159
 160
 161 int main(int argc, char **argv)
 162 {
 163     char **gcc_argv;
 164     int i, j;
 165     int linking = 1, cpp = 0, use_static_linking = 0;
 166     int use_stdinc = 1, use_stdlib = 1, use_msvcrt = 0, gui_app = 0;
 167
 168     atexit(clean_temp_files);
 169
 170     if (strendswith(argv[0], "++")) cpp = 1;
 171
 172     for ( i = 1 ; i < argc ; i++ )
 173     {
 174         if (argv[i][0] == '-')  /* option */
 175         {
 176             switch (argv[i][1])
 177             {
 178                 case 'c':        /* compile or assemble */
 179                 case 'S':        /* generate assembler code */
 180                 case 'E':        /* preprocess only */
 181                     if (argv[i][2] == 0) linking = 0;
 182                     break;
 183                 case 'M':        /* map file generation */
 184                     linking = 0;
 185                     break;
 186                 case 'm':
 187                     if (strcmp("-mno-cygwin", argv[i]) == 0)
 188                         use_msvcrt = 1;
 189                     else if (strcmp("-mwindows", argv[i]) == 0)
 190                         gui_app = 1;
 191                     break;
 192                 case 'n':
 193                     if (strcmp("-nostdinc", argv[i]) == 0)
 194                         use_stdinc = 0;
 195                     else if (strcmp("-nodefaultlibs", argv[i]) == 0)
 196                         use_stdlib = 0;
 197                     else if (strcmp("-nostdlib", argv[i]) == 0)
 198                         use_stdlib = 0;
 199                     break;
 200                 case 's':
 201                     if (strcmp("-static", argv[i]) == 0) use_static_linking = 1;
 202                     break;
 203                 case 'v':        /* verbose */
 204                     if (argv[i][2] == 0) verbose = 1;
 205                     break;
 206                 case 'V':
 207                     printf("winegcc v0.3\n");
 208                     exit(0);
 209                     break;
 210                 case 'W':
 211                     if (strncmp("-Wl,", argv[i], 4) == 0)
 212                     {
 213                         if (strstr(argv[i], "-static"))
 214                             use_static_linking = 1;
 215                     }
 216                     break;
 217                 case '-':
 218                     if (strcmp("-static", argv[i]+1) == 0)
 219                         use_static_linking = 1;
 220                     break;
 221             }
 222         }
 223     }
 224
 225     if (use_static_linking) error("Static linking is not supported.");
 226
 227     gcc_argv = malloc(sizeof(char*) * (argc + 20));
 228
 229     i = 0;
 230     if (linking)
 231     {
 232         int has_output_name = 0;
 233
 234         gcc_argv[i++] = BINDIR "/winewrap";
 235         if (gui_app) gcc_argv[i++] = "-mgui";
 236
 237         if (cpp) gcc_argv[i++] = "-C";
 238         for ( j = 1 ; j < argc ; j++ )
 239         {
 240             if ( argv[j][0] == '-' )
 241             {
 242                 switch (argv[j][1])
 243                 {
 244                 case 'L':
 245                 case 'o':
 246                     gcc_argv[i++] = argv[j];
 247                     argv[j] = 0;
 248                     if (!gcc_argv[i-1][2] && j + 1 < argc)
 249                     {
 250                         gcc_argv[i++] = argv[++j];
 251                         argv[j] = 0;
 252                     }
 253                     has_output_name = 1;
 254                     break;
 255                 case 'l':
 256                     gcc_argv[i++] = strcmp(argv[j], "-luuid") ? argv[j] : "-lwine_uuid";
 257                     argv[j] = 0;
 258                     break;
 259                 default:
 260                     ; /* ignore the rest */
 261                 }
 262             }
 263             else
 264             {
 265                 gcc_argv[i++] = get_obj_file(argv, j);
 266                 argv[j] = 0;
 267             }
 268
 269             /* Support the a.out default name, to appease configure */
 270             if (!has_output_name)
 271             {
 272                 gcc_argv[i++] = "-o";
 273                 gcc_argv[i++] = "a.out";
 274             }
 275         }
 276         if (use_stdlib && use_msvcrt) gcc_argv[i++] = "-lmsvcrt";
 277         if (gui_app) gcc_argv[i++] = "-lcomdlg32";
 278         gcc_argv[i++] = "-ladvapi32";
 279         gcc_argv[i++] = "-lshell32";
 280     }
 281     else
 282     {
 283         gcc_argv[i++] = cpp ? "g++" : "gcc";
 284
 285         gcc_argv[i++] = "-fshort-wchar";
 286         gcc_argv[i++] = "-fPIC";
 287         if (use_stdinc)
 288         {
 289             if (use_msvcrt)
 290             {
 291                 gcc_argv[i++] = "-I" INCLUDEDIR "/msvcrt";
 292                 gcc_argv[i++] = "-D__MSVCRT__";
 293             }
 294             gcc_argv[i++] = "-I" INCLUDEDIR "/windows";
 295         }
 296         gcc_argv[i++] = "-DWIN32";
 297         gcc_argv[i++] = "-D_WIN32";
 298         gcc_argv[i++] = "-D__WIN32";
 299         gcc_argv[i++] = "-D__WIN32__";
 300         gcc_argv[i++] = "-D__WINNT";
 301         gcc_argv[i++] = "-D__WINNT__";
 302
 303         gcc_argv[i++] = "-D__stdcall=__attribute__((__stdcall__))";
 304         gcc_argv[i++] = "-D__cdecl=__attribute__((__cdecl__))";
 305         gcc_argv[i++] = "-D__fastcall=__attribute__((__fastcall__))";
 306         gcc_argv[i++] = "-D_stdcall=__attribute__((__stdcall__))";
 307         gcc_argv[i++] = "-D_cdecl=__attribute__((__cdecl__))";
 308         gcc_argv[i++] = "-D_fastcall=__attribute__((__fastcall__))";
 309         gcc_argv[i++] = "-D__declspec(x)=__attribute__((x))";
 310
 311         /* Wine specific defines */
 312         gcc_argv[i++] = "-D__WINE__";
 313         gcc_argv[i++] = "-DWINE_UNICODE_NATIVE";
 314         gcc_argv[i++] = "-D__int8=char";
 315         gcc_argv[i++] = "-D__int16=short";
 316         gcc_argv[i++] = "-D__int32=int";
 317         gcc_argv[i++] = "-D__int64=long long";
 318
 319         for ( j = 1 ; j < argc ; j++ )
 320         {
 321             if (strcmp("-mno-cygwin", argv[j]) == 0)
 322                 ; /* ignore this option */
 323             else if (strcmp("-mwindows", argv[j]) == 0)
 324                 ; /* ignore this option */
 325             else if (strncmp("-Wl,", argv[j], 4) == 0)
 326                 ; /* do not pass linking options to compiler */
 327             else if (strcmp("-s", argv[j]) == 0)
 328                 ; /* ignore this option */
 329             else
 330                 gcc_argv[i++] = argv[j];
 331         }
 332     }
 333
 334     gcc_argv[i] = NULL;
 335
 336     spawn(gcc_argv);
 337
 338     return 0;
 339 }