Check-in [69535ebd14]
Overview
SHA1:69535ebd1437a7b82d4f6c75f84310168ecbe0bd
Date: 2010-09-30 17:35:49
User: rkeene
Comment:Fixed issue with reading binary files from KitDLL VFS
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2010-10-01
04:41
[83003c57a9] Updated to link DLL and wish/tclsh against tkbase.res.o from Wish if building Tk (user: rkeene, tags: trunk)
2010-09-30
17:35
[69535ebd14] Fixed issue with reading binary files from KitDLL VFS (user: rkeene, tags: trunk)
16:47
[9cf7d99fe3] Updated to configure KitDLL correctly if asked to build (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[]) {