Overview
Comment: | Fixed issue with reading binary files from KitDLL VFS |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 69535ebd1437a7b82d4f6c75f84310168ecbe0bd |
User & Date: | rkeene on 2010-09-30 17:35:49 |
Other Links: | manifest | tags |
Context
2010-10-01
| ||
04:41 | Updated to link DLL and wish/tclsh against tkbase.res.o from Wish if building Tk check-in: 83003c57a9 user: rkeene tags: trunk | |
2010-09-30
| ||
17:35 | Fixed issue with reading binary files from KitDLL VFS check-in: 69535ebd14 user: rkeene tags: trunk | |
16:47 | Updated to configure KitDLL correctly if asked to build check-in: 9cf7d99fe3 user: rkeene tags: trunk | |
Changes
Modified kitdll/buildsrc/kitdll-0.0/vfs_kitdll_data.c from [3d239d88d7] to [e51d57abbf].
174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
if (end < start) {
Tcl_SetResult(interp, "Invalid arguments, start must be less than end", TCL_STATIC);
return(TCL_ERROR);
}
ret_str = Tcl_NewStringObj((const char *) finfo->data + start, (end - start));
Tcl_SetObjResult(interp, ret_str);
return(TCL_OK);
}
static int getChildren(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
|
| |
174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
if (end < start) {
Tcl_SetResult(interp, "Invalid arguments, start must be less than end", TCL_STATIC);
return(TCL_ERROR);
}
ret_str = Tcl_NewByteArrayObj(finfo->data + start, (end - start));
Tcl_SetObjResult(interp, ret_str);
return(TCL_OK);
}
static int getChildren(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
|