src/src/macro_predef.c

   1 /*************************************************
   2 *     Exim - an Internet mail transport agent    *
   3 *************************************************/
   4
   5 /* Copyright (c) Jeremy Harris 2017 */
   6 /* See the file NOTICE for conditions of use and distribution. */
   7
   8 /* Create a static data structure with the predefined macros, to be
   9 included in the main Exim build */
  10
  11 #include "exim.h"
  12 #include "macro_predef.h"
  13
  14 tree_node * tree_macros = NULL;
  15 unsigned m_number = 1;
  16
  17 /* Global dummy variables */
  18
  19 void fn_smtp_receive_timeout(const uschar * name, const uschar * str) {}
  20 uschar * syslog_facility_str;
  21
  22 /******************************************************************************/
  23
  24 void
  25 builtin_macro_create_var(const uschar * name, const uschar * val)
  26 {
  27 macro_create(name, val, FALSE);
  28 }
  29
  30
  31 void
  32 builtin_macro_create(const uschar * name)
  33 {
  34 builtin_macro_create_var(name, US"y");
  35 }
  36
  37
  38 /* restricted snprintf */
  39 void
  40 spf(uschar * buf, int len, const uschar * fmt, ...)
  41 {
  42 va_list ap;
  43 va_start(ap, fmt);
  44
  45 while (*fmt && len > 1)
  46   if (*fmt == '%' && fmt[1] == 'T')
  47     {
  48     uschar * s = va_arg(ap, uschar *);
  49     while (*s && len-- > 1)
  50       *buf++ = toupper(*s++);
  51     fmt += 2;
  52     }
  53   else
  54     {
  55     *buf++ = *fmt++; len--;
  56     }
  57 *buf = '\0';
  58 va_end(ap);
  59 }
  60
  61 void
  62 options_from_list(optionlist * opts, unsigned nopt,
  63   const uschar * section, uschar * group)
  64 {
  65 int i;
  66 const uschar * s;
  67 uschar buf[64];
  68
  69 /* The 'previously-defined-substring' rule for macros in config file
  70 lines is done thus for these builtin macros: we know that the table
  71 we source from is in strict alpha order, hence the builtins portion
  72 of the macros list is in reverse-alpha (we prepend them) - so longer
  73 macros that have substrings are always discovered first during
  74 expansion. */
  75
  76 for (i = 0; i < nopt; i++)  if (*(s = US opts[i].name) && *s != '*')
  77   {
  78   if (group)
  79     spf(buf, sizeof(buf), CUS"_OPT_%T_%T_%T", section, group, s);
  80   else
  81     spf(buf, sizeof(buf), CUS"_OPT_%T_%T", section, s);
  82   builtin_macro_create(buf);
  83   }
  84 }
  85
  86
  87 /******************************************************************************/
  88
  89
  90 /* Create compile-time feature macros */
  91 static void
  92 features(void)
  93 {
  94 /* Probably we could work out a static initialiser for wherever
  95 macros are stored, but this will do for now. Some names are awkward
  96 due to conflicts with other common macros. */
  97
  98 #ifdef SUPPORT_CRYPTEQ
  99   builtin_macro_create(US"_HAVE_CRYPTEQ");
 100 #endif
 101 #if HAVE_ICONV
 102   builtin_macro_create(US"_HAVE_ICONV");
 103 #endif
 104 #if HAVE_IPV6
 105   builtin_macro_create(US"_HAVE_IPV6");
 106 #endif
 107 #ifdef HAVE_SETCLASSRESOURCES
 108   builtin_macro_create(US"_HAVE_SETCLASSRESOURCES");
 109 #endif
 110 #ifdef SUPPORT_PAM
 111   builtin_macro_create(US"_HAVE_PAM");
 112 #endif
 113 #ifdef EXIM_PERL
 114   builtin_macro_create(US"_HAVE_PERL");
 115 #endif
 116 #ifdef EXPAND_DLFUNC
 117   builtin_macro_create(US"_HAVE_DLFUNC");
 118 #endif
 119 #ifdef USE_TCP_WRAPPERS
 120   builtin_macro_create(US"_HAVE_TCPWRAPPERS");
 121 #endif
 122 #ifdef SUPPORT_TLS
 123   builtin_macro_create(US"_HAVE_TLS");
 124 # ifdef USE_GNUTLS
 125   builtin_macro_create(US"_HAVE_GNUTLS");
 126 # else
 127   builtin_macro_create(US"_HAVE_OPENSSL");
 128 # endif
 129 #endif
 130 #ifdef SUPPORT_TRANSLATE_IP_ADDRESS
 131   builtin_macro_create(US"_HAVE_TRANSLATE_IP_ADDRESS");
 132 #endif
 133 #ifdef SUPPORT_MOVE_FROZEN_MESSAGES
 134   builtin_macro_create(US"_HAVE_MOVE_FROZEN_MESSAGES");
 135 #endif
 136 #ifdef WITH_CONTENT_SCAN
 137   builtin_macro_create(US"_HAVE_CONTENT_SCANNING");
 138 #endif
 139 #ifndef DISABLE_DKIM
 140   builtin_macro_create(US"_HAVE_DKIM");
 141 #endif
 142 #ifndef DISABLE_DNSSEC
 143   builtin_macro_create(US"_HAVE_DNSSEC");
 144 #endif
 145 #ifndef DISABLE_EVENT
 146   builtin_macro_create(US"_HAVE_EVENT");
 147 #endif
 148 #ifdef SUPPORT_I18N
 149   builtin_macro_create(US"_HAVE_I18N");
 150 #endif
 151 #ifndef DISABLE_OCSP
 152   builtin_macro_create(US"_HAVE_OCSP");
 153 #endif
 154 #ifndef DISABLE_PRDR
 155   builtin_macro_create(US"_HAVE_PRDR");
 156 #endif
 157 #ifdef SUPPORT_PROXY
 158   builtin_macro_create(US"_HAVE_PROXY");
 159 #endif
 160 #ifdef SUPPORT_SOCKS
 161   builtin_macro_create(US"_HAVE_SOCKS");
 162 #endif
 163 #ifdef TCP_FASTOPEN
 164   builtin_macro_create(US"_HAVE_TCP_FASTOPEN");
 165 #endif
 166 #ifdef EXPERIMENTAL_LMDB
 167   builtin_macro_create(US"_HAVE_LMDB");
 168 #endif
 169 #ifdef SUPPORT_SPF
 170   builtin_macro_create(US"_HAVE_SPF");
 171 #endif
 172 #ifdef EXPERIMENTAL_SRS
 173   builtin_macro_create(US"_HAVE_SRS");
 174 #endif
 175 #ifdef EXPERIMENTAL_BRIGHTMAIL
 176   builtin_macro_create(US"_HAVE_BRIGHTMAIL");
 177 #endif
 178 #ifdef EXPERIMENTAL_DANE
 179   builtin_macro_create(US"_HAVE_DANE");
 180 #endif
 181 #ifdef EXPERIMENTAL_DCC
 182   builtin_macro_create(US"_HAVE_DCC");
 183 #endif
 184 #ifdef EXPERIMENTAL_DMARC
 185   builtin_macro_create(US"_HAVE_DMARC");
 186 #endif
 187 #ifdef EXPERIMENTAL_DSN_INFO
 188   builtin_macro_create(US"_HAVE_DSN_INFO");
 189 #endif
 190
 191 #ifdef LOOKUP_LSEARCH
 192   builtin_macro_create(US"_HAVE_LOOKUP_LSEARCH");
 193 #endif
 194 #ifdef LOOKUP_CDB
 195   builtin_macro_create(US"_HAVE_LOOKUP_CDB");
 196 #endif
 197 #ifdef LOOKUP_DBM
 198   builtin_macro_create(US"_HAVE_LOOKUP_DBM");
 199 #endif
 200 #ifdef LOOKUP_DNSDB
 201   builtin_macro_create(US"_HAVE_LOOKUP_DNSDB");
 202 #endif
 203 #ifdef LOOKUP_DSEARCH
 204   builtin_macro_create(US"_HAVE_LOOKUP_DSEARCH");
 205 #endif
 206 #ifdef LOOKUP_IBASE
 207   builtin_macro_create(US"_HAVE_LOOKUP_IBASE");
 208 #endif
 209 #ifdef LOOKUP_LDAP
 210   builtin_macro_create(US"_HAVE_LOOKUP_LDAP");
 211 #endif
 212 #ifdef EXPERIMENTAL_LMDB
 213   builtin_macro_create(US"_HAVE_LOOKUP_LMDB");
 214 #endif
 215 #ifdef LOOKUP_MYSQL
 216   builtin_macro_create(US"_HAVE_LOOKUP_MYSQL");
 217 #endif
 218 #ifdef LOOKUP_NIS
 219   builtin_macro_create(US"_HAVE_LOOKUP_NIS");
 220 #endif
 221 #ifdef LOOKUP_NISPLUS
 222   builtin_macro_create(US"_HAVE_LOOKUP_NISPLUS");
 223 #endif
 224 #ifdef LOOKUP_ORACLE
 225   builtin_macro_create(US"_HAVE_LOOKUP_ORACLE");
 226 #endif
 227 #ifdef LOOKUP_PASSWD
 228   builtin_macro_create(US"_HAVE_LOOKUP_PASSWD");
 229 #endif
 230 #ifdef LOOKUP_PGSQL
 231   builtin_macro_create(US"_HAVE_LOOKUP_PGSQL");
 232 #endif
 233 #ifdef LOOKUP_REDIS
 234   builtin_macro_create(US"_HAVE_LOOKUP_REDIS");
 235 #endif
 236 #ifdef LOOKUP_SQLITE
 237   builtin_macro_create(US"_HAVE_LOOKUP_SQLITE");
 238 #endif
 239 #ifdef LOOKUP_TESTDB
 240   builtin_macro_create(US"_HAVE_LOOKUP_TESTDB");
 241 #endif
 242 #ifdef LOOKUP_WHOSON
 243   builtin_macro_create(US"_HAVE_LOOKUP_WHOSON");
 244 #endif
 245
 246 #ifdef TRANSPORT_APPENDFILE
 247 # ifdef SUPPORT_MAILDIR
 248   builtin_macro_create(US"_HAVE_TRANSPORT_APPEND_MAILDIR");
 249 # endif
 250 # ifdef SUPPORT_MAILSTORE
 251   builtin_macro_create(US"_HAVE_TRANSPORT_APPEND_MAILSTORE");
 252 # endif
 253 # ifdef SUPPORT_MBX
 254   builtin_macro_create(US"_HAVE_TRANSPORT_APPEND_MBX");
 255 # endif
 256 #endif
 257
 258 #ifdef WITH_CONTENT_SCAN
 259 features_malware();
 260 #endif
 261
 262 features_crypto();
 263 }
 264
 265
 266 static void
 267 options(void)
 268 {
 269 options_main();
 270 options_routers();
 271 options_transports();
 272 options_auths();
 273 }
 274
 275 static void
 276 params(void)
 277 {
 278 #ifndef DISABLE_DKIM
 279 params_dkim();
 280 #endif
 281 }
 282
 283
 284 static unsigned
 285 macro_dump(macro_item * m)
 286 {
 287 int left = 0, right = 0;
 288 tree_node * t;
 289 macro_item_64 * m64;
 290
 291 /* fprintf(stderr, "%s %p\n", __FUNCTION__, m); */
 292
 293 if (!m) return 0;
 294 /* fprintf(stderr, "%s '%s' l %p r %p\n", __FUNCTION__, m->tnode.name, m->tnode.left, m->tnode.left); */
 295 if ((t = m->tnode.left)) left = macro_dump(tnode_to_mitem(m->tnode.left));
 296 if ((t = m->tnode.right)) right = macro_dump(tnode_to_mitem(m->tnode.right));
 297
 298 printf ("static macro_item_64 p%u = { ", m->m_number);
 299 printf(" .command_line=FALSE,"
 300        " .namelen=%d,"
 301        " .replen=%d,"
 302        " .m_number=%u,"
 303        " .tnode={",
 304         Ustrlen(m->tnode.name), Ustrlen(m->tnode.data.ptr), m->m_number);
 305 printf(left  ? " .left=&p%d.tnode,"  : " .left=NULL,",  left);
 306 printf(right ? " .right=&p%d.tnode," : " .right=NULL,", right);
 307 printf(
 308         " .data.ptr=\"%s\","
 309         " .balance=%d,"
 310         " .name=\"%s\"}};\n",
 311         CS m->tnode.data.ptr,
 312         m->tnode.balance,
 313         CS m->tnode.name);
 314
 315 if (Ustrlen(m->tnode.name) +1 > sizeof(m64->tnode.name))
 316   {
 317   printf("#error macro name too long for macro_item_64\n");
 318   exit(1);
 319   }
 320 return m->m_number;
 321 }
 322
 323
 324
 325 int
 326 main(void)
 327 {
 328 unsigned idx;
 329
 330 printf("#include \"exim.h\"\n");
 331 features();
 332 options();
 333 params();
 334
 335 idx = macro_dump(tnode_to_mitem(tree_macros));
 336 printf("tree_node * tree_macros = (tree_node *) &p%u.tnode;\n", idx);
 337 printf("unsigned m_number = %u;\n", m_number);
 338 exit(0);
 339 }