Check-in [2e1961564b]
Overview
Comment:Removed Tcl implementation of getData
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2e1961564be1fbf7663675f823808beb46127e1b
User & Date: rkeene on 2010-09-26 04:51:28
Other Links: manifest | tags
Context
2010-09-26
04:51
Updated to create loadable filesystem by including C-Tcl interface when creating C version of directory tree (dir2c) check-in: e4de9a2934 user: rkeene tags: trunk
04:51
Removed Tcl implementation of getData check-in: 2e1961564b user: rkeene tags: trunk
04:51
Implemented vfs::kitdll::data::getData

Fixed references to Tcl_SetResult() to use TCL_STATIC as freeProc check-in: a85a20ac7a user: rkeene tags: trunk

Changes

Modified kitdll/buildsrc/kitdll-0.0/vfs_kitdll.tcl from [3533698919] to [7fbf4669d3].

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
12
13
14
15
16
17
18










19
20
21
22
23
24
25







-
-
-
-
-
-
-
-
-
-







}

proc ::vfs::kitdll::Unmount {local} {
	vfs::filesystem unmount $local
}

# Implementation

## Filesystem Data
proc ::vfs::kitdll::data::getData {hashkey file {start 0} {end "end"}} {
	if {![info exists ::vfs::kitdll::data($file)]} {
		return -code error "Invalid operation"
	}

	return [string range $::vfs::kitdll::data($file) $start $end]
}

## VFS and Chan I/O
### Dispatchers
proc ::vfs::kitdll::vfshandler {hashkey subcmd args} {
	set cmd $args
	set cmd [linsert $cmd 0 "::vfs::kitdll::vfsop_${subcmd}" $hashkey]

	return [eval $cmd]