Diff

Differences From Artifact [58587901f4]:

To Artifact [6c31406284]:


1
2
3
4
5
6
7
8
9
10

11


12
13
14
15
16
17
18
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
#package require kitdll

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]
		vfs::RegisterMount $local [list ::vfs::kitdll::Unmount]
	}
}

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

# Implementation