Lines Matching refs:driver
21 * A simple database driver that calls a Tcl procedure to define
66 tcldb_driver_t *driver = isc_mem_get(mctx, sizeof(tcldb_driver_t));
67 if (driver == NULL)
69 driver->mctx = mctx;
70 driver->interp = Tcl_CreateInterp();
72 tclres = Tcl_EvalFile(driver->interp, (char *) "lookup.tcl");
78 driver->interp->result);
82 *driverp = driver;
86 isc_mem_put(mctx, driver, sizeof(tcldb_driver_t));
93 tcldb_driver_t *driver = *driverp;
94 Tcl_DeleteInterp(driver->interp);
95 isc_mem_put(driver->mctx, driver, sizeof(tcldb_driver_t));
113 tcldb_driver_t *driver = (tcldb_driver_t *) dbdata;
119 tclres = Tcl_Eval(driver->interp, cmd);
126 zone, driver->interp->result);
130 if (strcmp(driver->interp->result, "NXDOMAIN") == 0) {
135 tclres = Tcl_SplitList(driver->interp, driver->interp->result,
144 tclres = Tcl_SplitList(driver->interp, rrv[i],
168 zone, driver->interp->result);
183 tcldb_driver_t *driver = (tcldb_driver_t *) driverdata;
187 Tcl_SetVar2(driver->interp, (char *) "dbargs", (char *) zone, list, 0);
197 * This driver does not support zone transfer, so allnodes() is NULL.
208 * Initialize the tcldb driver.