File: create_user_dirs.tcl

package info (click to toggle)
openmsx 0.10.1-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 16,628 kB
  • ctags: 19,723
  • sloc: cpp: 131,938; xml: 25,418; tcl: 15,394; python: 4,012; sh: 365; makefile: 26
file content (14 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# pre-create directories in the openMSX user dir, for ease of use

set subdirs [list "systemroms" "software" "scripts" "skins" "machines" "extensions"]

foreach subdir $subdirs {
	set directory [file normalize $::env(OPENMSX_USER_DATA)/$subdir]
	if {![file exists $directory]} {
		set sourcedir [file normalize $::env(OPENMSX_SYSTEM_DATA)/$subdir]
		file mkdir $directory
		if {[file exists $sourcedir/README]} {
			file copy -- $sourcedir/README $directory
		}
	}
}