80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
}
}
puts "\t\{"
puts "\t\t.name = \"[sanitizeCString $outputFile]\","
puts "\t\t.type = $type,"
puts "\t\t.size = $size,"
puts "\t\t.data = $data"
puts "\t\},"
}
proc ::xvfs::processDirectory {fsName directory {subDirectory ""}} {
set subDirectories [list]
set outputFiles [list]
set workingDirectory [file join $directory $subDirectory]
|
|
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
}
}
puts "\t\{"
puts "\t\t.name = \"[sanitizeCString $outputFile]\","
puts "\t\t.type = $type,"
puts "\t\t.size = $size,"
puts "\t\t.data = (unsigned char *) $data"
puts "\t\},"
}
proc ::xvfs::processDirectory {fsName directory {subDirectory ""}} {
set subDirectories [list]
set outputFiles [list]
set workingDirectory [file join $directory $subDirectory]
|