git.oblomov.eu Git - wine/blob - libs/wpp/wpp.c

   1 /*
   2  * Exported functions of the Wine preprocessor
   3  *
   4  * Copyrignt 1998 Bertho A. Stultiens
   5  * Copyright 2002 Alexandre Julliard
   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 <time.h>
  26 #include <stdlib.h>
  27
  28 #include "wpp_private.h"
  29 #include "wine/wpp.h"
  30
  31 int ppdebug;
  32
  33 static void add_special_defines(void)
  34 {
  35     time_t now = time(NULL);
  36     pp_entry_t *ppp;
  37     char buf[32];
  38
  39     strftime(buf, sizeof(buf), "\"%b %d %Y\"", localtime(&now));
  40     pp_add_define( pp_xstrdup("__DATE__"), pp_xstrdup(buf) );
  41
  42     strftime(buf, sizeof(buf), "\"%H:%M:%S\"", localtime(&now));
  43     pp_add_define( pp_xstrdup("__TIME__"), pp_xstrdup(buf) );
  44
  45     ppp = pp_add_define( pp_xstrdup("__FILE__"), pp_xstrdup("") );
  46     ppp->type = def_special;
  47
  48     ppp = pp_add_define( pp_xstrdup("__LINE__"), pp_xstrdup("") );
  49     ppp->type = def_special;
  50 }
  51
  52
  53 /* add a define to the preprocessor list */
  54 void wpp_add_define( const char *name, const char *value )
  55 {
  56     if (!value) value = "";
  57     pp_add_define( pp_xstrdup(name), pp_xstrdup(value) );
  58 }
  59
  60
  61 /* undefine a previously added definition */
  62 void wpp_del_define( const char *value )
  63 {
  64     pp_del_define( value );
  65 }
  66
  67
  68 /* add a command-line define of the form NAME=VALUE */
  69 void wpp_add_cmdline_define( const char *value )
  70 {
  71     char *str = pp_xstrdup(value);
  72     char *p = strchr( str, '=' );
  73     if (p) *p++ = 0;
  74     else p = "";
  75     pp_add_define( str, pp_xstrdup(p) );
  76 }
  77
  78
  79 /* set the various debug flags */
  80 void wpp_set_debug( int lex_debug, int parser_debug, int msg_debug )
  81 {
  82     pp_flex_debug   = lex_debug;
  83     ppdebug         = parser_debug;
  84     pp_status.debug = msg_debug;
  85 }
  86
  87
  88 /* set the pedantic mode */
  89 void wpp_set_pedantic( int on )
  90 {
  91     pp_status.pedantic = on;
  92 }
  93
  94
  95 /* the main preprocessor parsing loop */
  96 int wpp_parse( const char *input, FILE *output )
  97 {
  98     int ret;
  99
 100     add_special_defines();
 101
 102     if (!input) ppin = stdin;
 103     else if (!(ppin = fopen(input, "rt")))
 104     {
 105         fprintf(stderr,"Could not open %s\n", input);
 106         exit(2);
 107     }
 108
 109     pp_status.input = input;
 110
 111     ppout = output;
 112     fprintf(ppout, "# 1 \"%s\" 1\n", input ? input : "");
 113
 114     ret = ppparse();
 115
 116     if (input) fclose(ppin);
 117     return ret;
 118 }
 119
 120
 121 /* parse into a temporary file */
 122 int wpp_parse_temp( const char *input, const char *output_base, char **output_name )
 123 {
 124     FILE *output;
 125     int ret, fd;
 126     char *temp_name;
 127
 128     if (!output_base || !output_base[0]) output_base = "wpptmp";
 129
 130     temp_name = pp_xmalloc( strlen(output_base) + 8 );
 131     strcpy( temp_name, output_base );
 132     strcat( temp_name, ".XXXXXX" );
 133
 134     if((fd = mkstemps( temp_name, 0 )) == -1)
 135     {
 136         fprintf(stderr, "Could not generate a temp name from %s\n", temp_name);
 137         exit(2);
 138     }
 139
 140     if (!(output = fdopen(fd, "wt")))
 141     {
 142         fprintf(stderr,"Could not open fd %s for writing\n", temp_name);
 143         exit(2);
 144     }
 145
 146     *output_name = temp_name;
 147     ret = wpp_parse( input, output );
 148     fclose( output );
 149     return ret;
 150 }