mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-30 05:57:52 +00:00
Code Issues Releases Wiki Activity

Ugly, but necessary, macros for creating definitions used in new perl

Browse Source 
interface to dns_c_* library.
This commit is contained in:
James Brister 2000-06-16 20:45:26 +00:00
parent 7beeb415ca
commit 51f90e94e4
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
conftools/perllib/dnsconf/DNSConf-macros.h Normal file
View File

@ -0,0 +1,39 @@
#define CONCAT(a,b) a ## b
#define DNSCONF_SET_STRING(FIELD) \
void CONCAT(DNSConf_set, FIELD)(DNSConf *cfg, const char *arg) { \
\
DBGPRINT("inside DNSConf_set" #FIELD "\n"); \
\
if (!DNSConf_initctx(cfg)) \
return; \
\
if (arg == NULL) { \
DBGPRINT("null pointer\n"); \
CONCAT(dns_c_ctx_unset, FIELD)(cfg->confctx); \
} else if (*arg == '\0') { \
DBGPRINT("empty string\n"); \
CONCAT(dns_c_ctx_unset, FIELD)(cfg->confctx); \
} else \
CONCAT(dns_c_ctx_set, FIELD)(cfg->confctx, arg); \
}
#define DNSCONF_GET_STRING(FIELD) \
char * CONCAT(DNSConf_get, FIELD)(DNSConf *cfg) { \
char *result = NULL; \
isc_result_t tmpres; \
\
if (cfg == NULL || cfg->confctx == NULL) \
return NULL; \
\
tmpres = CONCAT(dns_c_ctx_get, FIELD)(cfg->confctx, &result); \
if (tmpres == ISC_R_NOTFOUND) \
return NULL; \
\
return result; \
} \
#define STRING_FIELD_DEFS(FIELD) \
DNSCONF_GET_STRING(FIELD) DNSCONF_SET_STRING(FIELD)
#define INT_FIELD_DEFS(FIELD)