@@ -1,9 +1,11 @@
 #! /usr/bin/env tclsh
 
 namespace eval ::xvfs {}
 
+set ::xvfs::_xvfsDir [file dirname [info script]]
+
 # Functions
 proc ::xvfs::_emitLine {line} {
 	::minirivet::_emitOutput "${line}\n"
 }
 
@@ -244,7 +246,12 @@
 	set ::xvfs::outputFiles [processDirectory $fsName $rootDirectory]
 
 	set ::xvfs::fsName $fsName
 	set ::xvfs::rootDirectory $rootDirectory
 }
+
+proc ::xvfs::run {} {
+	::minirivet::parse [file join $::xvfs::_xvfsDir xvfs.c.rvt]
+}
+
 
 package provide xvfs 1