Differences From Artifact [58587901f4]:
- File kitdll/buildsrc/kitdll-0.0/vfs_kitdll.tcl — part of check-in [57bb916b04] at 2010-09-26 04:51:46 on branch trunk — Removed extraneous code in VFS code (kitdll) (user: rkeene, size: 7243) [annotate] [blame] [check-ins using]
To Artifact [6c31406284]:
- File
kitdll/buildsrc/kitdll-0.0/vfs_kitdll.tcl
— part of check-in
[b11b735302]
at
2010-09-29 23:15:37
on branch trunk
— Created GNU autoconf script for KitDLL
Made KitDLL build a shared object
Added test driver (user: rkeene, size: 7232) [annotate] [blame] [check-ins using]
1 2 3 | #! /usr/bin/env tcl package require vfs | < > | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
#! /usr/bin/env tcl
package require vfs
namespace eval ::vfs::kitdll {}
# Convience functions
proc ::vfs::kitdll::Mount {hashkey local} {
vfs::filesystem mount $local [list ::vfs::kitdll::vfshandler $hashkey]
catch {
vfs::RegisterMount $local [list ::vfs::kitdll::Unmount]
}
}
proc ::vfs::kitdll::Unmount {local} {
vfs::filesystem unmount $local
}
# Implementation
|
| ︙ | ︙ |