#!/usr/bin/tclsh
# ^- Unix-Kompatibilitaet

# Package vfs::mk4 fuer virtuelle Dateisysteme laden
package require vfs::mk4

# Arbeitspfad korrigieren (nur zur Sicherheit)
cd [file dirname [info script]]

# Statusausgabe
puts "Erstelle Programmdateien..."

# Fuer jede verfuegbare Runtime-Datei ...
foreach runtime [glob -nocomplain "runtime/*"] {
	puts "- Erstelle Programmdatei fuer [file tail $runtime]..."

	# Kopiere runtime in Ausgabe-Ordner
	file copy -force $runtime [file join "out" [file tail $runtime]]
	puts "  - Runtime-Datei kopiert."

	# Mounte Asugabe-Datei
	set Mountpoint [vfs::mk4::Mount [file join "out" [file tail $runtime]] "outfile"]
	puts "  - Ausgabe-Datei gemountet."

	# Fuer jedes Objekt in src/
	puts "  - Kopiere Quellcode..."
	foreach scriptfile [glob -nocomplain "src/*"] {
		# Kopiere Objekt in VFS
		file copy -force $scriptfile [file join "outfile" [file tail $scriptfile]]
		puts "    - '[file tail $scriptfile]' kopiert."
	}

	# Fuer jedes Objekt in lib/
	puts "  - Kopiere Libraries..."
	foreach library [glob -nocomplain [file join "lib" [file tail $runtime] "*"]] {
		# Kopiere Objekt in VFS
		file copy -force $library [file join "outfile/lib" [file tail $library]]
		puts "    - '[file tail $library]' kopiert."
	}

	# VFS unmounten
	vfs::mk4::Unmount $Mountpoint [file join "out" [file tail $runtime]]
	puts "  - Fertig."
}

puts "Beendet."