libs/wpp/wpp.c

   1 /*
   2  * Exported functions of the Wine preprocessor
   3  *
   4  * Copyright 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 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 ppy_debug, pp_flex_debug;
  32
  33 struct define
  34 {
  35     struct define *next;
  36     char          *name;
  37     char          *value;
  38 };
  39
  40 static struct define *cmdline_defines;
  41
  42 static void add_cmdline_defines(void)
  43 {
  44     struct define *def;
  45
  46     for (def = cmdline_defines; def; def = def->next)
  47     {
  48         if (def->value) pp_add_define( def->name, def->value );
  49     }
  50 }
  51
  52 static void del_cmdline_defines(void)
  53 {
  54     struct define *def;
  55
  56     for (def = cmdline_defines; def; def = def->next)
  57     {
  58         if (def->value) pp_del_define( def->name );
  59     }
  60 }
  61
  62 static void add_special_defines(void)
  63 {
  64     time_t now = time(NULL);
  65     pp_entry_t *ppp;
  66     char buf[32];
  67
  68     strftime(buf, sizeof(buf), "\"%b %d %Y\"", localtime(&now));
  69     pp_add_define( "__DATE__", buf );
  70
  71     strftime(buf, sizeof(buf), "\"%H:%M:%S\"", localtime(&now));
  72     pp_add_define( "__TIME__", buf );
  73
  74     ppp = pp_add_define( "__FILE__", "" );
  75     if(ppp)
  76         ppp->type = def_special;
  77
  78     ppp = pp_add_define( "__LINE__", "" );
  79     if(ppp)
  80         ppp->type = def_special;
  81 }
  82
  83 static void del_special_defines(void)
  84 {
  85     pp_del_define( "__DATE__" );
  86     pp_del_define( "__TIME__" );
  87     pp_del_define( "__FILE__" );
  88     pp_del_define( "__LINE__" );
  89 }
  90
  91
  92 /* add a define to the preprocessor list */
  93 int wpp_add_define( const char *name, const char *value )
  94 {
  95     struct define *def;
  96
  97     if (!value) value = "";
  98
  99     for (def = cmdline_defines; def; def = def->next)
 100     {
 101         if (!strcmp( def->name, name ))
 102         {
 103             char *new_value = pp_xstrdup(value);
 104             if(!new_value)
 105                 return 1;
 106             free( def->value );
 107             def->value = new_value;
 108
 109             return 0;
 110         }
 111     }
 112
 113     def = pp_xmalloc( sizeof(*def) );
 114     if(!def)
 115         return 1;
 116     def->next  = cmdline_defines;
 117     def->name  = pp_xstrdup(name);
 118     if(!def->name)
 119     {
 120         free(def);
 121         return 1;
 122     }
 123     def->value = pp_xstrdup(value);
 124     if(!def->value)
 125     {
 126         free(def->name);
 127         free(def);
 128         return 1;
 129     }
 130     cmdline_defines = def;
 131     return 0;
 132 }
 133
 134
 135 /* undefine a previously added definition */
 136 void wpp_del_define( const char *name )
 137 {
 138     struct define *def;
 139
 140     for (def = cmdline_defines; def; def = def->next)
 141     {
 142         if (!strcmp( def->name, name ))
 143         {
 144             free( def->value );
 145             def->value = NULL;
 146             return;
 147         }
 148     }
 149 }
 150
 151
 152 /* add a command-line define of the form NAME=VALUE */
 153 int wpp_add_cmdline_define( const char *value )
 154 {
 155     char *p;
 156     char *str = pp_xstrdup(value);
 157     if(!str)
 158         return 1;
 159     p = strchr( str, '=' );
 160     if (p) *p++ = 0;
 161     wpp_add_define( str, p );
 162     free( str );
 163     return 0;
 164 }
 165
 166
 167 /* set the various debug flags */
 168 void wpp_set_debug( int lex_debug, int parser_debug, int msg_debug )
 169 {
 170     pp_flex_debug   = lex_debug;
 171     ppy_debug       = parser_debug;
 172     pp_status.debug = msg_debug;
 173 }
 174
 175
 176 /* set the pedantic mode */
 177 void wpp_set_pedantic( int on )
 178 {
 179     pp_status.pedantic = on;
 180 }
 181
 182
 183 /* the main preprocessor parsing loop */
 184 int wpp_parse( const char *input, FILE *output )
 185 {
 186     int ret;
 187
 188     pp_status.input = NULL;
 189     pp_status.line_number = 1;
 190     pp_status.char_number = 1;
 191     pp_status.state = 0;
 192
 193     ret = pp_push_define_state();
 194     if(ret)
 195         return ret;
 196     add_cmdline_defines();
 197     add_special_defines();
 198
 199     if (!input) pp_status.file = stdin;
 200     else if (!(pp_status.file = fopen(input, "rt")))
 201     {
 202         ppy_error("Could not open %s\n", input);
 203         del_special_defines();
 204         del_cmdline_defines();
 205         pp_pop_define_state();
 206         return 2;
 207     }
 208
 209     pp_status.input = input ? pp_xstrdup(input) : NULL;
 210
 211     ppy_out = output;
 212     pp_writestring("# 1 \"%s\" 1\n", input ? input : "");
 213
 214     ret = ppy_parse();
 215     /* If there were errors during processing, return an error code */
 216     if (!ret && pp_status.state) ret = pp_status.state;
 217
 218     if (input)
 219     {
 220         fclose(pp_status.file);
 221         free(pp_status.input);
 222     }
 223     /* Clean if_stack, it could remain dirty on errors */
 224     while (pp_get_if_depth()) pp_pop_if();
 225     del_special_defines();
 226     del_cmdline_defines();
 227     pp_pop_define_state();
 228     return ret;
 229 }