开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > MySQL数据库 > 查看源码
tcl_env.c
资源名称：mysql-4.1.16-win-src.zip　[点击查看]
上传用户：romrleung
上传日期：2022-05-23
资源大小：18897k
文件大小：30k
源码类别：

MySQL数据库

开发平台：

Visual C++

tcl_env.c：源码内容
  1. /*-
  2.  * See the file LICENSE for redistribution information.
  3.  *
  4.  * Copyright (c) 1999-2002
  5.  * Sleepycat Software.  All rights reserved.
  6.  */
  8. #include "db_config.h"
  10. #ifndef lint
  11. static const char revid[] = "$Id: tcl_env.c,v 11.84 2002/08/06 06:21:03 bostic Exp $";
  12. #endif /* not lint */
  14. #ifndef NO_SYSTEM_INCLUDES
  15. #include <sys/types.h>
  17. #include <stdlib.h>
  18. #include <string.h>
  19. #include <tcl.h>
  20. #endif
  22. #include "db_int.h"
  23. #include "dbinc/tcl_db.h"
  25. /*
  26.  * Prototypes for procedures defined later in this file:
  27.  */
  28. static void _EnvInfoDelete __P((Tcl_Interp *, DBTCL_INFO *));
  29. static int  env_DbRemove __P((Tcl_Interp *, int, Tcl_Obj * CONST*, DB_ENV *));
  30. static int  env_DbRename __P((Tcl_Interp *, int, Tcl_Obj * CONST*, DB_ENV *));
  32. /*
  33.  * PUBLIC: int env_Cmd __P((ClientData, Tcl_Interp *, int, Tcl_Obj * CONST*));
  34.  *
  35.  * env_Cmd --
  36.  * Implements the "env" command.
  37.  */
  38. int
  39. env_Cmd(clientData, interp, objc, objv)
  40. ClientData clientData; /* Env handle */
  41. Tcl_Interp *interp; /* Interpreter */
  42. int objc; /* How many arguments? */
  43. Tcl_Obj *CONST objv[]; /* The argument objects */
  44. {
  45. static char *envcmds[] = {
  46. #if CONFIG_TEST
  47. "attributes",
  48. "lock_detect",
  49. "lock_id",
  50. "lock_id_free",
  51. "lock_id_set",
  52. "lock_get",
  53. "lock_stat",
  54. "lock_timeout",
  55. "lock_vec",
  56. "log_archive",
  57. "log_compare",
  58. "log_cursor",
  59. "log_file",
  60. "log_flush",
  61. "log_get",
  62. "log_put",
  63. "log_stat",
  64. "mpool",
  65. "mpool_stat",
  66. "mpool_sync",
  67. "mpool_trickle",
  68. "mutex",
  69. "rep_elect",
  70. "rep_flush",
  71. "rep_limit",
  72. "rep_process_message",
  73. "rep_request",
  74. "rep_start",
  75. "rep_stat",
  76. "rpcid",
  77. "test",
  78. "txn_checkpoint",
  79. "txn_id_set",
  80. "txn_recover",
  81. "txn_stat",
  82. "txn_timeout",
  83. "verbose",
  84. #endif
  85. "close",
  86. "dbremove",
  87. "dbrename",
  88. "txn",
  89. NULL
  90. };
  91. enum envcmds {
  92. #if CONFIG_TEST
  93. ENVATTR,
  94. ENVLKDETECT,
  95. ENVLKID,
  96. ENVLKFREEID,
  97. ENVLKSETID,
  98. ENVLKGET,
  99. ENVLKSTAT,
  100. ENVLKTIMEOUT,
  101. ENVLKVEC,
  102. ENVLOGARCH,
  103. ENVLOGCMP,
  104. ENVLOGCURSOR,
  105. ENVLOGFILE,
  106. ENVLOGFLUSH,
  107. ENVLOGGET,
  108. ENVLOGPUT,
  109. ENVLOGSTAT,
  110. ENVMP,
  111. ENVMPSTAT,
  112. ENVMPSYNC,
  113. ENVTRICKLE,
  114. ENVMUTEX,
  115. ENVREPELECT,
  116. ENVREPFLUSH,
  117. ENVREPLIMIT,
  118. ENVREPPROCMESS,
  119. ENVREPREQUEST,
  120. ENVREPSTART,
  121. ENVREPSTAT,
  122. ENVRPCID,
  123. ENVTEST,
  124. ENVTXNCKP,
  125. ENVTXNSETID,
  126. ENVTXNRECOVER,
  127. ENVTXNSTAT,
  128. ENVTXNTIMEOUT,
  129. ENVVERB,
  130. #endif
  131. ENVCLOSE,
  132. ENVDBREMOVE,
  133. ENVDBRENAME,
  134. ENVTXN
  135. };
  136. DBTCL_INFO *envip, *logcip;
  137. DB_ENV *dbenv;
  138. DB_LOGC *logc;
  139. Tcl_Obj *res;
  140. char newname[MSG_SIZE];
  141. int cmdindex, result, ret;
  142. u_int32_t newval;
  143. #if CONFIG_TEST
  144. u_int32_t otherval;
  145. #endif
  147. Tcl_ResetResult(interp);
  148. dbenv = (DB_ENV *)clientData;
  149. envip = _PtrToInfo((void *)dbenv);
  150. result = TCL_OK;
  151. memset(newname, 0, MSG_SIZE);
  153. if (objc <= 1) {
  154. Tcl_WrongNumArgs(interp, 1, objv, "command cmdargs");
  155. return (TCL_ERROR);
  156. }
  157. if (dbenv == NULL) {
  158. Tcl_SetResult(interp, "NULL env pointer", TCL_STATIC);
  159. return (TCL_ERROR);
  160. }
  161. if (envip == NULL) {
  162. Tcl_SetResult(interp, "NULL env info pointer", TCL_STATIC);
  163. return (TCL_ERROR);
  164. }
  166. /*
  167.  * Get the command name index from the object based on the berkdbcmds
  168.  * defined above.
  169.  */
  170. if (Tcl_GetIndexFromObj(interp, objv[1], envcmds, "command",
  171.     TCL_EXACT, &cmdindex) != TCL_OK)
  172. return (IS_HELP(objv[1]));
  173. res = NULL;
  174. switch ((enum envcmds)cmdindex) {
  175. #if CONFIG_TEST
  176. case ENVLKDETECT:
  177. result = tcl_LockDetect(interp, objc, objv, dbenv);
  178. break;
  179. case ENVLKSTAT:
  180. result = tcl_LockStat(interp, objc, objv, dbenv);
  181. break;
  182. case ENVLKTIMEOUT:
  183. result = tcl_LockTimeout(interp, objc, objv, dbenv);
  184. break;
  185. case ENVLKID:
  186. /*
  187.  * No args for this.  Error if there are some.
  188.  */
  189. if (objc > 2) {
  190. Tcl_WrongNumArgs(interp, 2, objv, NULL);
  191. return (TCL_ERROR);
  192. }
  193. _debug_check();
  194. ret = dbenv->lock_id(dbenv, &newval);
  195. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  196.     "lock_id");
  197. if (result == TCL_OK)
  198. res = Tcl_NewLongObj((long)newval);
  199. break;
  200. case ENVLKFREEID:
  201. if (objc != 3) {
  202. Tcl_WrongNumArgs(interp, 3, objv, NULL);
  203. return (TCL_ERROR);
  204. }
  205. result = Tcl_GetLongFromObj(interp, objv[2], (long *)&newval);
  206. if (result != TCL_OK)
  207. return (result);
  208. ret = dbenv->lock_id_free(dbenv, newval);
  209. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  210.     "lock id_free");
  211. break;
  212. case ENVLKSETID:
  213. if (objc != 4) {
  214. Tcl_WrongNumArgs(interp, 4, objv, "current max");
  215. return (TCL_ERROR);
  216. }
  217. result = Tcl_GetLongFromObj(interp, objv[2], (long *)&newval);
  218. if (result != TCL_OK)
  219. return (result);
  220. result = Tcl_GetLongFromObj(interp, objv[3], (long *)&otherval);
  221. if (result != TCL_OK)
  222. return (result);
  223. ret = dbenv->lock_id_set(dbenv, newval, otherval);
  224. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  225.     "lock id_free");
  226. break;
  227. case ENVLKGET:
  228. result = tcl_LockGet(interp, objc, objv, dbenv);
  229. break;
  230. case ENVLKVEC:
  231. result = tcl_LockVec(interp, objc, objv, dbenv);
  232. break;
  233. case ENVLOGARCH:
  234. result = tcl_LogArchive(interp, objc, objv, dbenv);
  235. break;
  236. case ENVLOGCMP:
  237. result = tcl_LogCompare(interp, objc, objv);
  238. break;
  239. case ENVLOGCURSOR:
  240. snprintf(newname, sizeof(newname),
  241.     "%s.logc%d", envip->i_name, envip->i_envlogcid);
  242. logcip = _NewInfo(interp, NULL, newname, I_LOGC);
  243. if (logcip != NULL) {
  244. ret = dbenv->log_cursor(dbenv, &logc, 0);
  245. if (ret == 0) {
  246. result = TCL_OK;
  247. envip->i_envlogcid++;
  248. /*
  249.  * We do NOT want to set i_parent to
  250.  * envip here because log cursors are
  251.  * not "tied" to the env.  That is, they
  252.  * are NOT closed if the env is closed.
  253.  */
  254. Tcl_CreateObjCommand(interp, newname,
  255.     (Tcl_ObjCmdProc *)logc_Cmd,
  256.     (ClientData)logc, NULL);
  257. res =
  258.     Tcl_NewStringObj(newname, strlen(newname));
  259. _SetInfoData(logcip, logc);
  260. } else {
  261. _DeleteInfo(logcip);
  262. result = _ErrorSetup(interp, ret, "log cursor");
  263. }
  264. } else {
  265. Tcl_SetResult(interp,
  266.     "Could not set up info", TCL_STATIC);
  267. result = TCL_ERROR;
  268. }
  269. break;
  270. case ENVLOGFILE:
  271. result = tcl_LogFile(interp, objc, objv, dbenv);
  272. break;
  273. case ENVLOGFLUSH:
  274. result = tcl_LogFlush(interp, objc, objv, dbenv);
  275. break;
  276. case ENVLOGGET:
  277. result = tcl_LogGet(interp, objc, objv, dbenv);
  278. break;
  279. case ENVLOGPUT:
  280. result = tcl_LogPut(interp, objc, objv, dbenv);
  281. break;
  282. case ENVLOGSTAT:
  283. result = tcl_LogStat(interp, objc, objv, dbenv);
  284. break;
  285. case ENVMPSTAT:
  286. result = tcl_MpStat(interp, objc, objv, dbenv);
  287. break;
  288. case ENVMPSYNC:
  289. result = tcl_MpSync(interp, objc, objv, dbenv);
  290. break;
  291. case ENVTRICKLE:
  292. result = tcl_MpTrickle(interp, objc, objv, dbenv);
  293. break;
  294. case ENVMP:
  295. result = tcl_Mp(interp, objc, objv, dbenv, envip);
  296. break;
  297. case ENVREPELECT:
  298. result = tcl_RepElect(interp, objc, objv, dbenv);
  299. break;
  300. case ENVREPFLUSH:
  301. result = tcl_RepFlush(interp, objc, objv, dbenv);
  302. break;
  303. case ENVREPLIMIT:
  304. result = tcl_RepLimit(interp, objc, objv, dbenv);
  305. break;
  306. case ENVREPPROCMESS:
  307. result = tcl_RepProcessMessage(interp, objc, objv, dbenv);
  308. break;
  309. case ENVREPREQUEST:
  310. result = tcl_RepRequest(interp, objc, objv, dbenv);
  311. break;
  312. case ENVREPSTART:
  313. result = tcl_RepStart(interp, objc, objv, dbenv);
  314. break;
  315. case ENVREPSTAT:
  316. result = tcl_RepStat(interp, objc, objv, dbenv);
  317. break;
  318. case ENVRPCID:
  319. /*
  320.  * No args for this.  Error if there are some.
  321.  */
  322. if (objc > 2) {
  323. Tcl_WrongNumArgs(interp, 2, objv, NULL);
  324. return (TCL_ERROR);
  325. }
  326. /*
  327.  * !!! Retrieve the client ID from the dbp handle directly.
  328.  * This is for testing purposes only.  It is dbp-private data.
  329.  */
  330. res = Tcl_NewLongObj(dbenv->cl_id);
  331. break;
  332. case ENVTXNCKP:
  333. result = tcl_TxnCheckpoint(interp, objc, objv, dbenv);
  334. break;
  335. case ENVTXNSETID:
  336. if (objc != 4) {
  337. Tcl_WrongNumArgs(interp, 4, objv, "current max");
  338. return (TCL_ERROR);
  339. }
  340. result = Tcl_GetLongFromObj(interp, objv[2], (long *)&newval);
  341. if (result != TCL_OK)
  342. return (result);
  343. result = Tcl_GetLongFromObj(interp, objv[3], (long *)&otherval);
  344. if (result != TCL_OK)
  345. return (result);
  346. ret = dbenv->txn_id_set(dbenv, newval, otherval);
  347. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  348.     "lock id_free");
  349. break;
  350. case ENVTXNRECOVER:
  351. result = tcl_TxnRecover(interp, objc, objv, dbenv, envip);
  352. break;
  353. case ENVTXNSTAT:
  354. result = tcl_TxnStat(interp, objc, objv, dbenv);
  355. break;
  356. case ENVTXNTIMEOUT:
  357. result = tcl_TxnTimeout(interp, objc, objv, dbenv);
  358. break;
  359. case ENVMUTEX:
  360. result = tcl_Mutex(interp, objc, objv, dbenv, envip);
  361. break;
  362. case ENVATTR:
  363. result = tcl_EnvAttr(interp, objc, objv, dbenv);
  364. break;
  365. case ENVTEST:
  366. result = tcl_EnvTest(interp, objc, objv, dbenv);
  367. break;
  368. case ENVVERB:
  369. /*
  370.  * Two args for this.  Error if different.
  371.  */
  372. if (objc != 4) {
  373. Tcl_WrongNumArgs(interp, 2, objv, NULL);
  374. return (TCL_ERROR);
  375. }
  376. result = tcl_EnvVerbose(interp, dbenv, objv[2], objv[3]);
  377. break;
  378. #endif
  379. case ENVCLOSE:
  380. /*
  381.  * No args for this.  Error if there are some.
  382.  */
  383. if (objc > 2) {
  384. Tcl_WrongNumArgs(interp, 2, objv, NULL);
  385. return (TCL_ERROR);
  386. }
  387. /*
  388.  * Any transactions will be aborted, and an mpools
  389.  * closed automatically.  We must delete any txn
  390.  * and mp widgets we have here too for this env.
  391.  * NOTE: envip is freed when we come back from
  392.  * this function.  Set it to NULL to make sure no
  393.  * one tries to use it later.
  394.  */
  395. _debug_check();
  396. ret = dbenv->close(dbenv, 0);
  397. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  398.     "env close");
  399. _EnvInfoDelete(interp, envip);
  400. envip = NULL;
  401. break;
  402. case ENVDBREMOVE:
  403. result = env_DbRemove(interp, objc, objv, dbenv);
  404. break;
  405. case ENVDBRENAME:
  406. result = env_DbRename(interp, objc, objv, dbenv);
  407. break;
  408. case ENVTXN:
  409. result = tcl_Txn(interp, objc, objv, dbenv, envip);
  410. break;
  411. }
  412. /*
  413.  * Only set result if we have a res.  Otherwise, lower
  414.  * functions have already done so.
  415.  */
  416. if (result == TCL_OK && res)
  417. Tcl_SetObjResult(interp, res);
  418. return (result);
  419. }
  421. /*
  422.  * PUBLIC: int tcl_EnvRemove __P((Tcl_Interp *, int, Tcl_Obj * CONST*,
  423.  * PUBLIC:      DB_ENV *, DBTCL_INFO *));
  424.  *
  425.  * tcl_EnvRemove --
  426.  */
  427. int
  428. tcl_EnvRemove(interp, objc, objv, dbenv, envip)
  429. Tcl_Interp *interp; /* Interpreter */
  430. int objc; /* How many arguments? */
  431. Tcl_Obj *CONST objv[]; /* The argument objects */
  432. DB_ENV *dbenv; /* Env pointer */
  433. DBTCL_INFO *envip; /* Info pointer */
  434. {
  435. static char *envremopts[] = {
  436. #if CONFIG_TEST
  437. "-overwrite",
  438. "-server",
  439. #endif
  440. "-data_dir",
  441. "-encryptaes",
  442. "-encryptany",
  443. "-force",
  444. "-home",
  445. "-log_dir",
  446. "-tmp_dir",
  447. "-use_environ",
  448. "-use_environ_root",
  449. NULL
  450. };
  451. enum envremopts {
  452. #if CONFIG_TEST
  453. ENVREM_OVERWRITE,
  454. ENVREM_SERVER,
  455. #endif
  456. ENVREM_DATADIR,
  457. ENVREM_ENCRYPT_AES,
  458. ENVREM_ENCRYPT_ANY,
  459. ENVREM_FORCE,
  460. ENVREM_HOME,
  461. ENVREM_LOGDIR,
  462. ENVREM_TMPDIR,
  463. ENVREM_USE_ENVIRON,
  464. ENVREM_USE_ENVIRON_ROOT
  465. };
  466. DB_ENV *e;
  467. u_int32_t cflag, enc_flag, flag, forceflag, sflag;
  468. int i, optindex, result, ret;
  469. char *datadir, *home, *logdir, *passwd, *server, *tmpdir;
  471. result = TCL_OK;
  472. cflag = flag = forceflag = sflag = 0;
  473. home = NULL;
  474. passwd = NULL;
  475. datadir = logdir = tmpdir = NULL;
  476. server = NULL;
  477. enc_flag = 0;
  479. if (objc < 2) {
  480. Tcl_WrongNumArgs(interp, 2, objv, "?args?");
  481. return (TCL_ERROR);
  482. }
  484. i = 2;
  485. while (i < objc) {
  486. if (Tcl_GetIndexFromObj(interp, objv[i], envremopts, "option",
  487.     TCL_EXACT, &optindex) != TCL_OK) {
  488. result = IS_HELP(objv[i]);
  489. goto error;
  490. }
  491. i++;
  492. switch ((enum envremopts)optindex) {
  493. #if CONFIG_TEST
  494. case ENVREM_SERVER:
  495. /* Make sure we have an arg to check against! */
  496. if (i >= objc) {
  497. Tcl_WrongNumArgs(interp, 2, objv,
  498.     "?-server name?");
  499. result = TCL_ERROR;
  500. break;
  501. }
  502. server = Tcl_GetStringFromObj(objv[i++], NULL);
  503. cflag = DB_CLIENT;
  504. break;
  505. #endif
  506. case ENVREM_ENCRYPT_AES:
  507. /* Make sure we have an arg to check against! */
  508. if (i >= objc) {
  509. Tcl_WrongNumArgs(interp, 2, objv,
  510.     "?-encryptaes passwd?");
  511. result = TCL_ERROR;
  512. break;
  513. }
  514. passwd = Tcl_GetStringFromObj(objv[i++], NULL);
  515. enc_flag = DB_ENCRYPT_AES;
  516. break;
  517. case ENVREM_ENCRYPT_ANY:
  518. /* Make sure we have an arg to check against! */
  519. if (i >= objc) {
  520. Tcl_WrongNumArgs(interp, 2, objv,
  521.     "?-encryptany passwd?");
  522. result = TCL_ERROR;
  523. break;
  524. }
  525. passwd = Tcl_GetStringFromObj(objv[i++], NULL);
  526. enc_flag = 0;
  527. break;
  528. case ENVREM_FORCE:
  529. forceflag |= DB_FORCE;
  530. break;
  531. case ENVREM_HOME:
  532. /* Make sure we have an arg to check against! */
  533. if (i >= objc) {
  534. Tcl_WrongNumArgs(interp, 2, objv,
  535.     "?-home dir?");
  536. result = TCL_ERROR;
  537. break;
  538. }
  539. home = Tcl_GetStringFromObj(objv[i++], NULL);
  540. break;
  541. #if CONFIG_TEST
  542. case ENVREM_OVERWRITE:
  543. sflag |= DB_OVERWRITE;
  544. break;
  545. #endif
  546. case ENVREM_USE_ENVIRON:
  547. flag |= DB_USE_ENVIRON;
  548. break;
  549. case ENVREM_USE_ENVIRON_ROOT:
  550. flag |= DB_USE_ENVIRON_ROOT;
  551. break;
  552. case ENVREM_DATADIR:
  553. if (i >= objc) {
  554. Tcl_WrongNumArgs(interp, 2, objv,
  555.     "-data_dir dir");
  556. result = TCL_ERROR;
  557. break;
  558. }
  559. datadir = Tcl_GetStringFromObj(objv[i++], NULL);
  560. break;
  561. case ENVREM_LOGDIR:
  562. if (i >= objc) {
  563. Tcl_WrongNumArgs(interp, 2, objv,
  564.     "-log_dir dir");
  565. result = TCL_ERROR;
  566. break;
  567. }
  568. logdir = Tcl_GetStringFromObj(objv[i++], NULL);
  569. break;
  570. case ENVREM_TMPDIR:
  571. if (i >= objc) {
  572. Tcl_WrongNumArgs(interp, 2, objv,
  573.     "-tmp_dir dir");
  574. result = TCL_ERROR;
  575. break;
  576. }
  577. tmpdir = Tcl_GetStringFromObj(objv[i++], NULL);
  578. break;
  579. }
  580. /*
  581.  * If, at any time, parsing the args we get an error,
  582.  * bail out and return.
  583.  */
  584. if (result != TCL_OK)
  585. goto error;
  586. }
  588. /*
  589.  * If dbenv is NULL, we don't have an open env and we need to open
  590.  * one of the user.  Don't bother with the info stuff.
  591.  */
  592. if (dbenv == NULL) {
  593. if ((ret = db_env_create(&e, cflag)) != 0) {
  594. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  595.     "db_env_create");
  596. goto error;
  597. }
  598. if (server != NULL) {
  599. _debug_check();
  600. ret = e->set_rpc_server(e, NULL, server, 0, 0, 0);
  601. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  602.     "set_rpc_server");
  603. if (result != TCL_OK)
  604. goto error;
  605. }
  606. if (datadir != NULL) {
  607. _debug_check();
  608. ret = e->set_data_dir(e, datadir);
  609. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  610.     "set_data_dir");
  611. if (result != TCL_OK)
  612. goto error;
  613. }
  614. if (logdir != NULL) {
  615. _debug_check();
  616. ret = e->set_lg_dir(e, logdir);
  617. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  618.     "set_log_dir");
  619. if (result != TCL_OK)
  620. goto error;
  621. }
  622. if (tmpdir != NULL) {
  623. _debug_check();
  624. ret = e->set_tmp_dir(e, tmpdir);
  625. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  626.     "set_tmp_dir");
  627. if (result != TCL_OK)
  628. goto error;
  629. }
  630. if (passwd != NULL) {
  631. ret = e->set_encrypt(e, passwd, enc_flag);
  632. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  633.     "set_encrypt");
  634. }
  635. if (sflag != 0 && (ret = e->set_flags(e, sflag, 1)) != 0) {
  636. _debug_check();
  637. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  638.     "set_flags");
  639. if (result != TCL_OK)
  640. goto error;
  641. }
  642. } else {
  643. /*
  644.  * We have to clean up any info associated with this env,
  645.  * regardless of the result of the remove so do it first.
  646.  * NOTE: envip is freed when we come back from this function.
  647.  */
  648. _EnvInfoDelete(interp, envip);
  649. envip = NULL;
  650. e = dbenv;
  651. }
  653. flag |= forceflag;
  654. /*
  655.  * When we get here we have parsed all the args.  Now remove
  656.  * the environment.
  657.  */
  658. _debug_check();
  659. ret = e->remove(e, home, flag);
  660. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  661.     "env remove");
  662. error:
  663. return (result);
  664. }
  666. static void
  667. _EnvInfoDelete(interp, envip)
  668. Tcl_Interp *interp; /* Tcl Interpreter */
  669. DBTCL_INFO *envip; /* Info for env */
  670. {
  671. DBTCL_INFO *nextp, *p;
  673. /*
  674.  * Before we can delete the environment info, we must close
  675.  * any open subsystems in this env.  We will:
  676.  * 1.  Abort any transactions (which aborts any nested txns).
  677.  * 2.  Close any mpools (which will put any pages itself).
  678.  * 3.  Put any locks and close log cursors.
  679.  * 4.  Close the error file.
  680.  */
  681. for (p = LIST_FIRST(&__db_infohead); p != NULL; p = nextp) {
  682. /*
  683.  * Check if this info structure "belongs" to this
  684.  * env.  If so, remove its commands and info structure.
  685.  * We do not close/abort/whatever here, because we
  686.  * don't want to replicate DB behavior.
  687.  *
  688.  * NOTE:  Only those types that can nest need to be
  689.  * itemized in the switch below.  That is txns and mps.
  690.  * Other types like log cursors and locks will just
  691.  * get cleaned up here.
  692.  */
  693.  if (p->i_parent == envip) {
  694. switch (p->i_type) {
  695. case I_TXN:
  696. _TxnInfoDelete(interp, p);
  697. break;
  698. case I_MP:
  699. _MpInfoDelete(interp, p);
  700. break;
  701. default:
  702. Tcl_SetResult(interp,
  703.     "_EnvInfoDelete: bad info type",
  704.     TCL_STATIC);
  705. break;
  706. }
  707. nextp = LIST_NEXT(p, entries);
  708. (void)Tcl_DeleteCommand(interp, p->i_name);
  709. _DeleteInfo(p);
  710. } else
  711. nextp = LIST_NEXT(p, entries);
  712. }
  713. (void)Tcl_DeleteCommand(interp, envip->i_name);
  714. _DeleteInfo(envip);
  715. }
  717. #if CONFIG_TEST
  718. /*
  719.  * PUBLIC: int tcl_EnvVerbose __P((Tcl_Interp *, DB_ENV *, Tcl_Obj *,
  720.  * PUBLIC:    Tcl_Obj *));
  721.  *
  722.  * tcl_EnvVerbose --
  723.  */
  724. int
  725. tcl_EnvVerbose(interp, dbenv, which, onoff)
  726. Tcl_Interp *interp; /* Interpreter */
  727. DB_ENV *dbenv; /* Env pointer */
  728. Tcl_Obj *which; /* Which subsystem */
  729. Tcl_Obj *onoff; /* On or off */
  730. {
  731. static char *verbwhich[] = {
  732. "chkpt",
  733. "deadlock",
  734. "recovery",
  735. "rep",
  736. "wait",
  737. NULL
  738. };
  739. enum verbwhich {
  740. ENVVERB_CHK,
  741. ENVVERB_DEAD,
  742. ENVVERB_REC,
  743. ENVVERB_REP,
  744. ENVVERB_WAIT
  745. };
  746. static char *verbonoff[] = {
  747. "off",
  748. "on",
  749. NULL
  750. };
  751. enum verbonoff {
  752. ENVVERB_OFF,
  753. ENVVERB_ON
  754. };
  755. int on, optindex, ret;
  756. u_int32_t wh;
  758. if (Tcl_GetIndexFromObj(interp, which, verbwhich, "option",
  759.     TCL_EXACT, &optindex) != TCL_OK)
  760. return (IS_HELP(which));
  762. switch ((enum verbwhich)optindex) {
  763. case ENVVERB_CHK:
  764. wh = DB_VERB_CHKPOINT;
  765. break;
  766. case ENVVERB_DEAD:
  767. wh = DB_VERB_DEADLOCK;
  768. break;
  769. case ENVVERB_REC:
  770. wh = DB_VERB_RECOVERY;
  771. break;
  772. case ENVVERB_REP:
  773. wh = DB_VERB_REPLICATION;
  774. break;
  775. case ENVVERB_WAIT:
  776. wh = DB_VERB_WAITSFOR;
  777. break;
  778. default:
  779. return (TCL_ERROR);
  780. }
  781. if (Tcl_GetIndexFromObj(interp, onoff, verbonoff, "option",
  782.     TCL_EXACT, &optindex) != TCL_OK)
  783. return (IS_HELP(onoff));
  784. switch ((enum verbonoff)optindex) {
  785. case ENVVERB_OFF:
  786. on = 0;
  787. break;
  788. case ENVVERB_ON:
  789. on = 1;
  790. break;
  791. default:
  792. return (TCL_ERROR);
  793. }
  794. ret = dbenv->set_verbose(dbenv, wh, on);
  795. return (_ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  796.     "env set verbose"));
  797. }
  798. #endif
  800. #if CONFIG_TEST
  801. /*
  802.  * PUBLIC: int tcl_EnvAttr __P((Tcl_Interp *, int, Tcl_Obj * CONST*, DB_ENV *));
  803.  *
  804.  * tcl_EnvAttr --
  805.  * Return a list of the env's attributes
  806.  */
  807. int
  808. tcl_EnvAttr(interp, objc, objv, dbenv)
  809. Tcl_Interp *interp; /* Interpreter */
  810. int objc; /* How many arguments? */
  811. Tcl_Obj *CONST objv[]; /* The argument objects */
  812. DB_ENV *dbenv; /* Env pointer */
  813. {
  814. int result;
  815. Tcl_Obj *myobj, *retlist;
  817. result = TCL_OK;
  819. if (objc > 2) {
  820. Tcl_WrongNumArgs(interp, 2, objv, NULL);
  821. return (TCL_ERROR);
  822. }
  823. retlist = Tcl_NewListObj(0, NULL);
  824. /*
  825.  * XXX
  826.  * We peek at the dbenv to determine what subsystems
  827.  * we have available in this env.
  828.  */
  829. myobj = Tcl_NewStringObj("-home", strlen("-home"));
  830. if ((result = Tcl_ListObjAppendElement(interp,
  831.     retlist, myobj)) != TCL_OK)
  832. goto err;
  833. myobj = Tcl_NewStringObj(dbenv->db_home, strlen(dbenv->db_home));
  834. if ((result = Tcl_ListObjAppendElement(interp,
  835.     retlist, myobj)) != TCL_OK)
  836. goto err;
  837. if (CDB_LOCKING(dbenv)) {
  838. myobj = Tcl_NewStringObj("-cdb", strlen("-cdb"));
  839. if ((result = Tcl_ListObjAppendElement(interp,
  840.     retlist, myobj)) != TCL_OK)
  841. goto err;
  842. }
  843. if (CRYPTO_ON(dbenv)) {
  844. myobj = Tcl_NewStringObj("-crypto", strlen("-crypto"));
  845. if ((result = Tcl_ListObjAppendElement(interp,
  846.     retlist, myobj)) != TCL_OK)
  847. goto err;
  848. }
  849. if (LOCKING_ON(dbenv)) {
  850. myobj = Tcl_NewStringObj("-lock", strlen("-lock"));
  851. if ((result = Tcl_ListObjAppendElement(interp,
  852.     retlist, myobj)) != TCL_OK)
  853. goto err;
  854. }
  855. if (LOGGING_ON(dbenv)) {
  856. myobj = Tcl_NewStringObj("-log", strlen("-log"));
  857. if ((result = Tcl_ListObjAppendElement(interp,
  858.     retlist, myobj)) != TCL_OK)
  859. goto err;
  860. }
  861. if (MPOOL_ON(dbenv)) {
  862. myobj = Tcl_NewStringObj("-mpool", strlen("-mpool"));
  863. if ((result = Tcl_ListObjAppendElement(interp,
  864.     retlist, myobj)) != TCL_OK)
  865. goto err;
  866. }
  867. if (RPC_ON(dbenv)) {
  868. myobj = Tcl_NewStringObj("-rpc", strlen("-rpc"));
  869. if ((result = Tcl_ListObjAppendElement(interp,
  870.     retlist, myobj)) != TCL_OK)
  871. goto err;
  872. }
  873. if (TXN_ON(dbenv)) {
  874. myobj = Tcl_NewStringObj("-txn", strlen("-txn"));
  875. if ((result = Tcl_ListObjAppendElement(interp,
  876.     retlist, myobj)) != TCL_OK)
  877. goto err;
  878. }
  879. Tcl_SetObjResult(interp, retlist);
  880. err:
  881. return (result);
  882. }
  884. /*
  885.  * PUBLIC: int tcl_EnvTest __P((Tcl_Interp *, int, Tcl_Obj * CONST*, DB_ENV *));
  886.  *
  887.  * tcl_EnvTest --
  888.  */
  889. int
  890. tcl_EnvTest(interp, objc, objv, dbenv)
  891. Tcl_Interp *interp; /* Interpreter */
  892. int objc; /* How many arguments? */
  893. Tcl_Obj *CONST objv[]; /* The argument objects */
  894. DB_ENV *dbenv; /* Env pointer */
  895. {
  896. static char *envtestcmd[] = {
  897. "abort",
  898. "copy",
  899. NULL
  900. };
  901. enum envtestcmd {
  902. ENVTEST_ABORT,
  903. ENVTEST_COPY
  904. };
  905. static char *envtestat[] = {
  906. "electinit",
  907. "electsend",
  908. "electvote1",
  909. "electvote2",
  910. "electwait1",
  911. "electwait2",
  912. "none",
  913. "predestroy",
  914. "preopen",
  915. "postdestroy",
  916. "postlog",
  917. "postlogmeta",
  918. "postopen",
  919. "postsync",
  920. "subdb_lock",
  921. NULL
  922. };
  923. enum envtestat {
  924. ENVTEST_ELECTINIT,
  925. ENVTEST_ELECTSEND,
  926. ENVTEST_ELECTVOTE1,
  927. ENVTEST_ELECTVOTE2,
  928. ENVTEST_ELECTWAIT1,
  929. ENVTEST_ELECTWAIT2,
  930. ENVTEST_NONE,
  931. ENVTEST_PREDESTROY,
  932. ENVTEST_PREOPEN,
  933. ENVTEST_POSTDESTROY,
  934. ENVTEST_POSTLOG,
  935. ENVTEST_POSTLOGMETA,
  936. ENVTEST_POSTOPEN,
  937. ENVTEST_POSTSYNC,
  938. ENVTEST_SUBDB_LOCKS
  939. };
  940. int *loc, optindex, result, testval;
  942. result = TCL_OK;
  943. loc = NULL;
  945. if (objc != 4) {
  946. Tcl_WrongNumArgs(interp, 2, objv, "abort|copy location");
  947. return (TCL_ERROR);
  948. }
  950. /*
  951.  * This must be the "copy" or "abort" portion of the command.
  952.  */
  953. if (Tcl_GetIndexFromObj(interp, objv[2], envtestcmd, "command",
  954.     TCL_EXACT, &optindex) != TCL_OK) {
  955. result = IS_HELP(objv[2]);
  956. return (result);
  957. }
  958. switch ((enum envtestcmd)optindex) {
  959. case ENVTEST_ABORT:
  960. loc = &dbenv->test_abort;
  961. break;
  962. case ENVTEST_COPY:
  963. loc = &dbenv->test_copy;
  964. break;
  965. default:
  966. Tcl_SetResult(interp, "Illegal store location", TCL_STATIC);
  967. return (TCL_ERROR);
  968. }
  970. /*
  971.  * This must be the location portion of the command.
  972.  */
  973. if (Tcl_GetIndexFromObj(interp, objv[3], envtestat, "location",
  974.     TCL_EXACT, &optindex) != TCL_OK) {
  975. result = IS_HELP(objv[3]);
  976. return (result);
  977. }
  978. switch ((enum envtestat)optindex) {
  979. case ENVTEST_ELECTINIT:
  980. DB_ASSERT(loc == &dbenv->test_abort);
  981. testval = DB_TEST_ELECTINIT;
  982. break;
  983. case ENVTEST_ELECTSEND:
  984. DB_ASSERT(loc == &dbenv->test_abort);
  985. testval = DB_TEST_ELECTSEND;
  986. break;
  987. case ENVTEST_ELECTVOTE1:
  988. DB_ASSERT(loc == &dbenv->test_abort);
  989. testval = DB_TEST_ELECTVOTE1;
  990. break;
  991. case ENVTEST_ELECTVOTE2:
  992. DB_ASSERT(loc == &dbenv->test_abort);
  993. testval = DB_TEST_ELECTVOTE2;
  994. break;
  995. case ENVTEST_ELECTWAIT1:
  996. DB_ASSERT(loc == &dbenv->test_abort);
  997. testval = DB_TEST_ELECTWAIT1;
  998. break;
  999. case ENVTEST_ELECTWAIT2:
  1000. DB_ASSERT(loc == &dbenv->test_abort);
  1001. testval = DB_TEST_ELECTWAIT2;
  1002. break;
  1003. case ENVTEST_NONE:
  1004. testval = 0;
  1005. break;
  1006. case ENVTEST_PREOPEN:
  1007. testval = DB_TEST_PREOPEN;
  1008. break;
  1009. case ENVTEST_PREDESTROY:
  1010. testval = DB_TEST_PREDESTROY;
  1011. break;
  1012. case ENVTEST_POSTLOG:
  1013. testval = DB_TEST_POSTLOG;
  1014. break;
  1015. case ENVTEST_POSTLOGMETA:
  1016. testval = DB_TEST_POSTLOGMETA;
  1017. break;
  1018. case ENVTEST_POSTOPEN:
  1019. testval = DB_TEST_POSTOPEN;
  1020. break;
  1021. case ENVTEST_POSTDESTROY:
  1022. testval = DB_TEST_POSTDESTROY;
  1023. break;
  1024. case ENVTEST_POSTSYNC:
  1025. testval = DB_TEST_POSTSYNC;
  1026. break;
  1027. case ENVTEST_SUBDB_LOCKS:
  1028. DB_ASSERT(loc == &dbenv->test_abort);
  1029. testval = DB_TEST_SUBDB_LOCKS;
  1030. break;
  1031. default:
  1032. Tcl_SetResult(interp, "Illegal test location", TCL_STATIC);
  1033. return (TCL_ERROR);
  1034. }
  1036. *loc = testval;
  1037. Tcl_SetResult(interp, "0", TCL_STATIC);
  1038. return (result);
  1039. }
  1040. #endif
  1042. /*
  1043.  * env_DbRemove --
  1044.  * Implements the ENV->dbremove command.
  1045.  */
  1046. static int
  1047. env_DbRemove(interp, objc, objv, dbenv)
  1048. Tcl_Interp *interp; /* Interpreter */
  1049. int objc; /* How many arguments? */
  1050. Tcl_Obj *CONST objv[]; /* The argument objects */
  1051. DB_ENV *dbenv;
  1052. {
  1053. static char *envdbrem[] = {
  1054. "-auto_commit",
  1055. "-txn",
  1056. "--",
  1057. NULL
  1058. };
  1059. enum envdbrem {
  1060. TCL_EDBREM_COMMIT,
  1061. TCL_EDBREM_TXN,
  1062. TCL_EDBREM_ENDARG
  1063. };
  1064. DB_TXN *txn;
  1065. u_int32_t flag;
  1066. int endarg, i, optindex, result, ret, subdblen;
  1067. u_char *subdbtmp;
  1068. char *arg, *db, *subdb, msg[MSG_SIZE];
  1070. txn = NULL;
  1071. result = TCL_OK;
  1072. subdbtmp = NULL;
  1073. db = subdb = NULL;
  1074. endarg = 0;
  1075. flag = 0;
  1077. if (objc < 2) {
  1078. Tcl_WrongNumArgs(interp, 2, objv, "?args? filename ?database?");
  1079. return (TCL_ERROR);
  1080. }
  1082. /*
  1083.  * We must first parse for the environment flag, since that
  1084.  * is needed for db_create.  Then create the db handle.
  1085.  */
  1086. i = 2;
  1087. while (i < objc) {
  1088. if (Tcl_GetIndexFromObj(interp, objv[i], envdbrem,
  1089.     "option", TCL_EXACT, &optindex) != TCL_OK) {
  1090. arg = Tcl_GetStringFromObj(objv[i], NULL);
  1091. if (arg[0] == '-') {
  1092. result = IS_HELP(objv[i]);
  1093. goto error;
  1094. } else
  1095. Tcl_ResetResult(interp);
  1096. break;
  1097. }
  1098. i++;
  1099. switch ((enum envdbrem)optindex) {
  1100. case TCL_EDBREM_COMMIT:
  1101. flag |= DB_AUTO_COMMIT;
  1102. break;
  1103. case TCL_EDBREM_TXN:
  1104. if (i >= objc) {
  1105. Tcl_WrongNumArgs(interp, 2, objv, "?-txn id?");
  1106. result = TCL_ERROR;
  1107. break;
  1108. }
  1109. arg = Tcl_GetStringFromObj(objv[i++], NULL);
  1110. txn = NAME_TO_TXN(arg);
  1111. if (txn == NULL) {
  1112. snprintf(msg, MSG_SIZE,
  1113.     "env dbremove: Invalid txn %sn", arg);
  1114. Tcl_SetResult(interp, msg, TCL_VOLATILE);
  1115. return (TCL_ERROR);
  1116. }
  1117. break;
  1118. case TCL_EDBREM_ENDARG:
  1119. endarg = 1;
  1120. break;
  1121. }
  1122. /*
  1123.  * If, at any time, parsing the args we get an error,
  1124.  * bail out and return.
  1125.  */
  1126. if (result != TCL_OK)
  1127. goto error;
  1128. if (endarg)
  1129. break;
  1130. }
  1131. if (result != TCL_OK)
  1132. goto error;
  1133. /*
  1134.  * Any args we have left, (better be 1 or 2 left) are
  1135.  * file names. If there is 1, a db name, if 2 a db and subdb name.
  1136.  */
  1137. if ((i != (objc - 1)) || (i != (objc - 2))) {
  1138. /*
  1139.  * Dbs must be NULL terminated file names, but subdbs can
  1140.  * be anything.  Use Strings for the db name and byte
  1141.  * arrays for the subdb.
  1142.  */
  1143. db = Tcl_GetStringFromObj(objv[i++], NULL);
  1144. if (i != objc) {
  1145. subdbtmp =
  1146.     Tcl_GetByteArrayFromObj(objv[i++], &subdblen);
  1147. if ((ret = __os_malloc(dbenv, subdblen + 1,
  1148.     &subdb)) != 0) {
  1149. Tcl_SetResult(interp,
  1150.     db_strerror(ret), TCL_STATIC);
  1151. return (0);
  1152. }
  1153. memcpy(subdb, subdbtmp, subdblen);
  1154. subdb[subdblen] = '';
  1155. }
  1156. } else {
  1157. Tcl_WrongNumArgs(interp, 2, objv, "?args? filename ?database?");
  1158. result = TCL_ERROR;
  1159. goto error;
  1160. }
  1161. ret = dbenv->dbremove(dbenv, txn, db, subdb, flag);
  1162. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  1163.     "env dbremove");
  1164. error:
  1165. if (subdb)
  1166. __os_free(dbenv, subdb);
  1167. return (result);
  1168. }
  1170. /*
  1171.  * env_DbRename --
  1172.  * Implements the ENV->dbrename command.
  1173.  */
  1174. static int
  1175. env_DbRename(interp, objc, objv, dbenv)
  1176. Tcl_Interp *interp; /* Interpreter */
  1177. int objc; /* How many arguments? */
  1178. Tcl_Obj *CONST objv[]; /* The argument objects */
  1179. DB_ENV *dbenv;
  1180. {
  1181. static char *envdbmv[] = {
  1182. "-auto_commit",
  1183. "-txn",
  1184. "--",
  1185. NULL
  1186. };
  1187. enum envdbmv {
  1188. TCL_EDBMV_COMMIT,
  1189. TCL_EDBMV_TXN,
  1190. TCL_EDBMV_ENDARG
  1191. };
  1192. DB_TXN *txn;
  1193. u_int32_t flag;
  1194. int endarg, i, newlen, optindex, result, ret, subdblen;
  1195. u_char *subdbtmp;
  1196. char *arg, *db, *newname, *subdb, msg[MSG_SIZE];
  1198. txn = NULL;
  1199. result = TCL_OK;
  1200. subdbtmp = NULL;
  1201. db = newname = subdb = NULL;
  1202. endarg = 0;
  1203. flag = 0;
  1205. if (objc < 2) {
  1206. Tcl_WrongNumArgs(interp, 3, objv,
  1207.     "?args? filename ?database? ?newname?");
  1208. return (TCL_ERROR);
  1209. }
  1211. /*
  1212.  * We must first parse for the environment flag, since that
  1213.  * is needed for db_create.  Then create the db handle.
  1214.  */
  1215. i = 2;
  1216. while (i < objc) {
  1217. if (Tcl_GetIndexFromObj(interp, objv[i], envdbmv,
  1218.     "option", TCL_EXACT, &optindex) != TCL_OK) {
  1219. arg = Tcl_GetStringFromObj(objv[i], NULL);
  1220. if (arg[0] == '-') {
  1221. result = IS_HELP(objv[i]);
  1222. goto error;
  1223. } else
  1224. Tcl_ResetResult(interp);
  1225. break;
  1226. }
  1227. i++;
  1228. switch ((enum envdbmv)optindex) {
  1229. case TCL_EDBMV_COMMIT:
  1230. flag |= DB_AUTO_COMMIT;
  1231. break;
  1232. case TCL_EDBMV_TXN:
  1233. if (i >= objc) {
  1234. Tcl_WrongNumArgs(interp, 2, objv, "?-txn id?");
  1235. result = TCL_ERROR;
  1236. break;
  1237. }
  1238. arg = Tcl_GetStringFromObj(objv[i++], NULL);
  1239. txn = NAME_TO_TXN(arg);
  1240. if (txn == NULL) {
  1241. snprintf(msg, MSG_SIZE,
  1242.     "env dbrename: Invalid txn %sn", arg);
  1243. Tcl_SetResult(interp, msg, TCL_VOLATILE);
  1244. return (TCL_ERROR);
  1245. }
  1246. break;
  1247. case TCL_EDBMV_ENDARG:
  1248. endarg = 1;
  1249. break;
  1250. }
  1251. /*
  1252.  * If, at any time, parsing the args we get an error,
  1253.  * bail out and return.
  1254.  */
  1255. if (result != TCL_OK)
  1256. goto error;
  1257. if (endarg)
  1258. break;
  1259. }
  1260. if (result != TCL_OK)
  1261. goto error;
  1262. /*
  1263.  * Any args we have left, (better be 2 or 3 left) are
  1264.  * file names. If there is 2, a db name, if 3 a db and subdb name.
  1265.  */
  1266. if ((i != (objc - 2)) || (i != (objc - 3))) {
  1267. /*
  1268.  * Dbs must be NULL terminated file names, but subdbs can
  1269.  * be anything.  Use Strings for the db name and byte
  1270.  * arrays for the subdb.
  1271.  */
  1272. db = Tcl_GetStringFromObj(objv[i++], NULL);
  1273. if (i == objc - 2) {
  1274. subdbtmp =
  1275.     Tcl_GetByteArrayFromObj(objv[i++], &subdblen);
  1276. if ((ret = __os_malloc(dbenv, subdblen + 1,
  1277.     &subdb)) != 0) {
  1278. Tcl_SetResult(interp,
  1279.     db_strerror(ret), TCL_STATIC);
  1280. return (0);
  1281. }
  1282. memcpy(subdb, subdbtmp, subdblen);
  1283. subdb[subdblen] = '';
  1284. }
  1285. subdbtmp =
  1286.     Tcl_GetByteArrayFromObj(objv[i++], &newlen);
  1287. if ((ret = __os_malloc(dbenv, newlen + 1,
  1288.     &newname)) != 0) {
  1289. Tcl_SetResult(interp,
  1290.     db_strerror(ret), TCL_STATIC);
  1291. return (0);
  1292. }
  1293. memcpy(newname, subdbtmp, newlen);
  1294. newname[newlen] = '';
  1295. } else {
  1296. Tcl_WrongNumArgs(interp, 3, objv,
  1297.     "?args? filename ?database? ?newname?");
  1298. result = TCL_ERROR;
  1299. goto error;
  1300. }
  1301. ret = dbenv->dbrename(dbenv, txn, db, subdb, newname, flag);
  1302. result = _ReturnSetup(interp, ret, DB_RETOK_STD(ret),
  1303.     "env dbrename");
  1304. error:
  1305. if (subdb)
  1306. __os_free(dbenv, subdb);
  1307. if (newname)
  1308. __os_free(dbenv, newname);
  1309. return (result);
  1310. }