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] |