1
2
3
4
5
6
7
8
9
|
#----------------------------------------------------------------------
# Virtual File System for Verision Control Systems
#
# Copyright (c) 2014, Peter Spjuth
#
# License for vcsvfs package: Same as for Tcl
#----------------------------------------------------------------------
package require vfs
|
|
|
1
2
3
4
5
6
7
8
9
|
#----------------------------------------------------------------------
# Virtual File System for Version Control Systems
#
# Copyright (c) 2014, Peter Spjuth
#
# License for vcsvfs package: Same as for Tcl
#----------------------------------------------------------------------
package require vfs
|
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
|
# TBD: Find the mountpoint
#dict unset mpoints $mountpoint
#vfs::filesystem unmount $mountpoint
}
# Create a Virtual File System showing a revision of a GIT checkout
#
# dir: Directory in an SVN checkout
# rev: Revision to mount
#
# Returns: path to the generated VFS
proc vcsvfs::git::mount {dir rev} {
variable ::vcsvfs::mpoints
set dir [file normalize $dir]
|
|
|
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
|
# TBD: Find the mountpoint
#dict unset mpoints $mountpoint
#vfs::filesystem unmount $mountpoint
}
# Create a Virtual File System showing a revision of a GIT checkout
#
# dir: Directory in an GIT checkout
# rev: Revision to mount
#
# Returns: path to the generated VFS
proc vcsvfs::git::mount {dir rev} {
variable ::vcsvfs::mpoints
set dir [file normalize $dir]
|