| OLD | NEW |
| 1 /* | 1 /* |
| 2 ** 2010 August 28 | 2 ** 2010 August 28 |
| 3 ** | 3 ** |
| 4 ** The author disclaims copyright to this source code. In place of | 4 ** The author disclaims copyright to this source code. In place of |
| 5 ** a legal notice, here is a blessing: | 5 ** a legal notice, here is a blessing: |
| 6 ** | 6 ** |
| 7 ** May you do good and not evil. | 7 ** May you do good and not evil. |
| 8 ** May you find forgiveness for yourself and forgive others. | 8 ** May you find forgiveness for yourself and forgive others. |
| 9 ** May you share freely, never taking more than you give. | 9 ** May you share freely, never taking more than you give. |
| 10 ** | 10 ** |
| (...skipping 274 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 285 Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC); | 285 Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC); |
| 286 #endif | 286 #endif |
| 287 return TCL_OK; | 287 return TCL_OK; |
| 288 } | 288 } |
| 289 | 289 |
| 290 int Sqlitetestrtree_Init(Tcl_Interp *interp){ | 290 int Sqlitetestrtree_Init(Tcl_Interp *interp){ |
| 291 Tcl_CreateObjCommand(interp, "register_cube_geom", register_cube_geom, 0, 0); | 291 Tcl_CreateObjCommand(interp, "register_cube_geom", register_cube_geom, 0, 0); |
| 292 Tcl_CreateObjCommand(interp, "register_circle_geom",register_circle_geom,0,0); | 292 Tcl_CreateObjCommand(interp, "register_circle_geom",register_circle_geom,0,0); |
| 293 return TCL_OK; | 293 return TCL_OK; |
| 294 } | 294 } |
| OLD | NEW |