OLD | NEW |
1 /* | 1 /* |
2 ** 2010 May 05 | 2 ** 2010 May 05 |
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 1390 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1401 Tcl_WrongNumArgs(interp, 1, objv, "VFSNAME ?-noshm BOOL? ?-default BOOL? ?-mxp
athname INT? ?-szosfile INT? ?-iversion INT?"); | 1401 Tcl_WrongNumArgs(interp, 1, objv, "VFSNAME ?-noshm BOOL? ?-default BOOL? ?-mxp
athname INT? ?-szosfile INT? ?-iversion INT?"); |
1402 return TCL_ERROR; | 1402 return TCL_ERROR; |
1403 } | 1403 } |
1404 | 1404 |
1405 int Sqlitetestvfs_Init(Tcl_Interp *interp){ | 1405 int Sqlitetestvfs_Init(Tcl_Interp *interp){ |
1406 Tcl_CreateObjCommand(interp, "testvfs", testvfs_cmd, 0, 0); | 1406 Tcl_CreateObjCommand(interp, "testvfs", testvfs_cmd, 0, 0); |
1407 return TCL_OK; | 1407 return TCL_OK; |
1408 } | 1408 } |
1409 | 1409 |
1410 #endif | 1410 #endif |
OLD | NEW |