@@ -220,11 +220,11 @@
 				set rootDirectory $val
 			}
 			"--name" {
 				set fsName $val
 			}
-			"--output" {
+			"--output" - "--header" {
 				# Ignored, handled as part of some other process
 			}
 			default {
 				printHelp stderr [list "Invalid option: $arg $val"]
 				exit 1
@@ -267,7 +267,17 @@
 
 proc ::xvfs::setOutputVariable {variable} {
 	uplevel #0 { package require minirivet }
 	tailcall ::minirivet::setOutputVariable $variable
 }
+
+proc ::xvfs::staticIncludeHeaderData {headerData} {
+	set ::xvfs::xvfsCoreH $headerData
+}
+
+proc ::xvfs::staticIncludeHeader {pathToHeaderFile} {
+	set fd [open $pathToHeaderFile]
+	::xvfs::staticIncludeHeaderData [read $fd]
+	close $fd
+}
 
 package provide xvfs 1