Lines Matching defs:driver
12 * A simple database driver that calls a Tcl procedure to define
57 tcldb_driver_t *driver = isc_mem_get(mctx, sizeof(tcldb_driver_t));
58 if (driver == NULL)
60 driver->mctx = mctx;
61 driver->interp = Tcl_CreateInterp();
63 tclres = Tcl_EvalFile(driver->interp, (char *) "lookup.tcl");
69 driver->interp->result);
73 *driverp = driver;
77 isc_mem_put(mctx, driver, sizeof(tcldb_driver_t));
84 tcldb_driver_t *driver = *driverp;
85 Tcl_DeleteInterp(driver->interp);
86 isc_mem_put(driver->mctx, driver, sizeof(tcldb_driver_t));
116 tcldb_driver_t *driver = (tcldb_driver_t *) dbdata;
122 tclres = Tcl_Eval(driver->interp, cmd);
129 zone, driver->interp->result);
133 if (strcmp(driver->interp->result, "NXDOMAIN") == 0) {
138 tclres = Tcl_SplitList(driver->interp, driver->interp->result,
147 tclres = Tcl_SplitList(driver->interp, rrv[i],
171 zone, driver->interp->result);
186 tcldb_driver_t *driver = (tcldb_driver_t *) driverdata;
190 Tcl_SetVar2(driver->interp, (char *) "dbargs", (char *) zone, list, 0);
200 * This driver does not support zone transfer, so allnodes() is NULL.
212 * Initialize the tcldb driver.