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     12   }
    13     13   
    14     14   proc ::vfs::kitdll::Unmount {local} {
    15     15   	vfs::filesystem unmount $local
    16     16   }
    17     17   
    18     18   # Implementation
    19         -
    20         -## Filesystem Data
    21         -proc ::vfs::kitdll::data::getData {hashkey file {start 0} {end "end"}} {
    22         -	if {![info exists ::vfs::kitdll::data($file)]} {
    23         -		return -code error "Invalid operation"
    24         -	}
    25         -
    26         -	return [string range $::vfs::kitdll::data($file) $start $end]
    27         -}
    28         -
    29     19   ## VFS and Chan I/O
    30     20   ### Dispatchers
    31     21   proc ::vfs::kitdll::vfshandler {hashkey subcmd args} {
    32     22   	set cmd $args
    33     23   	set cmd [linsert $cmd 0 "::vfs::kitdll::vfsop_${subcmd}" $hashkey]
    34     24   
    35     25   	return [eval $cmd]