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 |