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 |
}
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]
|
< < < < < < < < < < |
12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
}
proc ::vfs::kitdll::Unmount {local} {
vfs::filesystem unmount $local
}
# Implementation
## 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]
|