Check-in [69535ebd14]
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[]) {