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

keep lines under 80 columns

Browse Source
This commit is contained in:
Brian Wellington 2000-11-18 01:39:20 +00:00
parent 6fd4ab217e
commit 055934c9dd
2 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/sdb/tcl/tcldb.c
View File

@ -15,7 +15,7 @@
* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/ */
/* $Id: tcldb.c,v 1.3 2000/11/18 00:32:14 gson Exp $ */ /* $Id: tcldb.c,v 1.4 2000/11/18 01:39:20 bwelling Exp $ */
#include <config.h> #include <config.h>
@ -123,7 +123,8 @@ tcldb_lookup(const char *zone, const char *name, void *dbdata,
goto fail; goto fail;
} }
tclres = Tcl_SplitList(driver->interp, driver->interp->result, &rrc, &rrv); tclres = Tcl_SplitList(driver->interp, driver->interp->result,
&rrc, &rrv);
if (tclres != TCL_OK) if (tclres != TCL_OK)
goto malformed; goto malformed;
@ -131,14 +132,16 @@ tcldb_lookup(const char *zone, const char *name, void *dbdata,
isc_result_t tmpres; isc_result_t tmpres;
int fieldc; /* Field count */ int fieldc; /* Field count */
char **fieldv; /* Field vector */ char **fieldv; /* Field vector */
tclres = Tcl_SplitList(driver->interp, rrv[i], &fieldc, &fieldv); tclres = Tcl_SplitList(driver->interp, rrv[i],
&fieldc, &fieldv);
if (tclres != TCL_OK) { if (tclres != TCL_OK) {
tmpres = ISC_R_FAILURE; tmpres = ISC_R_FAILURE;
goto failrr; goto failrr;
} }
if (fieldc != 3) if (fieldc != 3)
goto malformed; goto malformed;
tmpres = dns_sdb_putrr(lookup, fieldv[0], atoi(fieldv[1]), fieldv[2]); tmpres = dns_sdb_putrr(lookup, fieldv[0], atoi(fieldv[1]),
fieldv[2]);
Tcl_Free((char *) fieldv); Tcl_Free((char *) fieldv);
failrr: failrr:
if (tmpres != ISC_R_SUCCESS) if (tmpres != ISC_R_SUCCESS)
@ -151,7 +154,8 @@ tcldb_lookup(const char *zone, const char *name, void *dbdata,
malformed: malformed:
isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL, isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
DNS_LOGMODULE_SDB, ISC_LOG_ERROR, DNS_LOGMODULE_SDB, ISC_LOG_ERROR,
"zone '%s': malformed return value from tcl lookup function: %s", "zone '%s': "
"malformed return value from tcl lookup function: %s",
zone, driver->interp->result); zone, driver->interp->result);
result = ISC_R_FAILURE; result = ISC_R_FAILURE;
fail: fail:

14
contrib/sdb/tcldb.c
View File

@ -15,7 +15,7 @@
* WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/ */
/* $Id: tcldb.c,v 1.3 2000/11/18 00:32:14 gson Exp $ */ /* $Id: tcldb.c,v 1.4 2000/11/18 01:39:20 bwelling Exp $ */
#include <config.h> #include <config.h>
@ -123,7 +123,8 @@ tcldb_lookup(const char *zone, const char *name, void *dbdata,
goto fail; goto fail;
} }
tclres = Tcl_SplitList(driver->interp, driver->interp->result, &rrc, &rrv); tclres = Tcl_SplitList(driver->interp, driver->interp->result,
&rrc, &rrv);
if (tclres != TCL_OK) if (tclres != TCL_OK)
goto malformed; goto malformed;
@ -131,14 +132,16 @@ tcldb_lookup(const char *zone, const char *name, void *dbdata,
isc_result_t tmpres; isc_result_t tmpres;
int fieldc; /* Field count */ int fieldc; /* Field count */
char **fieldv; /* Field vector */ char **fieldv; /* Field vector */
tclres = Tcl_SplitList(driver->interp, rrv[i], &fieldc, &fieldv); tclres = Tcl_SplitList(driver->interp, rrv[i],
&fieldc, &fieldv);
if (tclres != TCL_OK) { if (tclres != TCL_OK) {
tmpres = ISC_R_FAILURE; tmpres = ISC_R_FAILURE;
goto failrr; goto failrr;
} }
if (fieldc != 3) if (fieldc != 3)
goto malformed; goto malformed;
tmpres = dns_sdb_putrr(lookup, fieldv[0], atoi(fieldv[1]), fieldv[2]); tmpres = dns_sdb_putrr(lookup, fieldv[0], atoi(fieldv[1]),
fieldv[2]);
Tcl_Free((char *) fieldv); Tcl_Free((char *) fieldv);
failrr: failrr:
if (tmpres != ISC_R_SUCCESS) if (tmpres != ISC_R_SUCCESS)
@ -151,7 +154,8 @@ tcldb_lookup(const char *zone, const char *name, void *dbdata,
malformed: malformed:
isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL, isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
DNS_LOGMODULE_SDB, ISC_LOG_ERROR, DNS_LOGMODULE_SDB, ISC_LOG_ERROR,
"zone '%s': malformed return value from tcl lookup function: %s", "zone '%s': "
"malformed return value from tcl lookup function: %s",
zone, driver->interp->result); zone, driver->interp->result);
result = ISC_R_FAILURE; result = ISC_R_FAILURE;
fail: fail: