OLD | NEW |
1 /* | 1 /* |
2 ** 2008 April 10 | 2 ** 2008 April 10 |
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 1113 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1124 if( objc<2 ){ | 1124 if( objc<2 ){ |
1125 Tcl_WrongNumArgs(interp, 1, objv, "SUB-COMMAND ..."); | 1125 Tcl_WrongNumArgs(interp, 1, objv, "SUB-COMMAND ..."); |
1126 return TCL_ERROR; | 1126 return TCL_ERROR; |
1127 } | 1127 } |
1128 if( Tcl_GetIndexFromObj(interp, objv[1], strs, "sub-command", 0, &iSub) ){ | 1128 if( Tcl_GetIndexFromObj(interp, objv[1], strs, "sub-command", 0, &iSub) ){ |
1129 return TCL_ERROR; | 1129 return TCL_ERROR; |
1130 } | 1130 } |
1131 | 1131 |
1132 switch( (enum VL_enum)iSub ){ | 1132 switch( (enum VL_enum)iSub ){ |
1133 case VL_ANNOTATE: { | 1133 case VL_ANNOTATE: { |
1134 int rc; | |
1135 char *zVfs; | 1134 char *zVfs; |
1136 char *zMsg; | 1135 char *zMsg; |
1137 if( objc!=4 ){ | 1136 if( objc!=4 ){ |
1138 Tcl_WrongNumArgs(interp, 3, objv, "VFS"); | 1137 Tcl_WrongNumArgs(interp, 3, objv, "VFS"); |
1139 return TCL_ERROR; | 1138 return TCL_ERROR; |
1140 } | 1139 } |
1141 zVfs = Tcl_GetString(objv[2]); | 1140 zVfs = Tcl_GetString(objv[2]); |
1142 zMsg = Tcl_GetString(objv[3]); | 1141 zMsg = Tcl_GetString(objv[3]); |
1143 rc = sqlite3_vfslog_annotate(zVfs, zMsg); | 1142 rc = sqlite3_vfslog_annotate(zVfs, zMsg); |
1144 if( rc!=SQLITE_OK ){ | 1143 if( rc!=SQLITE_OK ){ |
1145 Tcl_AppendResult(interp, "failed", 0); | 1144 Tcl_AppendResult(interp, "failed", 0); |
1146 return TCL_ERROR; | 1145 return TCL_ERROR; |
1147 } | 1146 } |
1148 break; | 1147 break; |
1149 } | 1148 } |
1150 case VL_FINALIZE: { | 1149 case VL_FINALIZE: { |
1151 int rc; | |
1152 char *zVfs; | 1150 char *zVfs; |
1153 if( objc!=3 ){ | 1151 if( objc!=3 ){ |
1154 Tcl_WrongNumArgs(interp, 2, objv, "VFS"); | 1152 Tcl_WrongNumArgs(interp, 2, objv, "VFS"); |
1155 return TCL_ERROR; | 1153 return TCL_ERROR; |
1156 } | 1154 } |
1157 zVfs = Tcl_GetString(objv[2]); | 1155 zVfs = Tcl_GetString(objv[2]); |
1158 rc = sqlite3_vfslog_finalize(zVfs); | 1156 rc = sqlite3_vfslog_finalize(zVfs); |
1159 if( rc!=SQLITE_OK ){ | 1157 if( rc!=SQLITE_OK ){ |
1160 Tcl_AppendResult(interp, "failed", 0); | 1158 Tcl_AppendResult(interp, "failed", 0); |
1161 return TCL_ERROR; | 1159 return TCL_ERROR; |
1162 } | 1160 } |
1163 break; | 1161 break; |
1164 }; | 1162 }; |
1165 | 1163 |
1166 case VL_NEW: { | 1164 case VL_NEW: { |
1167 int rc; | |
1168 char *zVfs; | 1165 char *zVfs; |
1169 char *zParent; | 1166 char *zParent; |
1170 char *zLog; | 1167 char *zLog; |
1171 if( objc!=5 ){ | 1168 if( objc!=5 ){ |
1172 Tcl_WrongNumArgs(interp, 2, objv, "VFS PARENT LOGFILE"); | 1169 Tcl_WrongNumArgs(interp, 2, objv, "VFS PARENT LOGFILE"); |
1173 return TCL_ERROR; | 1170 return TCL_ERROR; |
1174 } | 1171 } |
1175 zVfs = Tcl_GetString(objv[2]); | 1172 zVfs = Tcl_GetString(objv[2]); |
1176 zParent = Tcl_GetString(objv[3]); | 1173 zParent = Tcl_GetString(objv[3]); |
1177 zLog = Tcl_GetString(objv[4]); | 1174 zLog = Tcl_GetString(objv[4]); |
(...skipping 33 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1211 | 1208 |
1212 return TCL_OK; | 1209 return TCL_OK; |
1213 } | 1210 } |
1214 | 1211 |
1215 int SqlitetestOsinst_Init(Tcl_Interp *interp){ | 1212 int SqlitetestOsinst_Init(Tcl_Interp *interp){ |
1216 Tcl_CreateObjCommand(interp, "vfslog", test_vfslog, 0, 0); | 1213 Tcl_CreateObjCommand(interp, "vfslog", test_vfslog, 0, 0); |
1217 return TCL_OK; | 1214 return TCL_OK; |
1218 } | 1215 } |
1219 | 1216 |
1220 #endif /* SQLITE_TEST */ | 1217 #endif /* SQLITE_TEST */ |
OLD | NEW |