OXYGENHUB
◆ main openmsx / share / scripts / create_user_dirs.tcl
467 B · Tcl · last changed chore(): initial commit 1 month ago source blame history raw
e8555c89 Andy McCall 1 
# pre-create directories in the openMSX user dir, for ease of use
2
3 
set subdirs [list "systemroms" "software" "scripts" "skins" "machines" "extensions"]
4
5 
foreach subdir $subdirs {
6 
	set directory [file normalize $::env(OPENMSX_USER_DATA)/$subdir]
7 
	if {![file exists $directory]} {
8 
		set sourcedir [file normalize $::env(OPENMSX_SYSTEM_DATA)/$subdir]
9 
		file mkdir $directory
10 
		if {[file exists $sourcedir/README]} {
11 
			file copy -- $sourcedir/README $directory
12 
		}
13 
	}
14 
}