207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
+
+
+
+
-
+
+
+
+
+
|
vfs::filesystem posixerror $::vfs::posix(EACCES)
return -code error $::vfs::posix(EACCES)
}
set oldpwd [pwd]
cd [dict get $mpoints $root "origroot"]
set rev [dict get $mpoints $root rev]
# Which way of extracting file data is best?
# fossil finfo -p -r $rev $relative
# set sha [dict get $finfor sha]
# fossil artifact $sha
set data [exec fossil cat $relative -r $rev]
# fossil cat $relative -r $rev
# Read through a pipe to get a binary channel
set ch [open [list |fossil cat $relative -r $rev] rb]
set data [read $ch]
close $ch
cd $oldpwd
set chId [vcsvfs::CreateDataRefChan $data]
return [list $chId ""]
}
stat {
set res [dict create dev 0 ino 0 "mode" 0 nlink 0 uid 0 gid 0 \
|