share/scripts/create_user_dirs.tcl at main · doomsdayone/openmsx

◆ main openmsx / share / scripts / create_user_dirs.tcl

467 B · Tcl · last changed chore(): initial commit 1 month ago source blame history raw

# 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
		}
	}
}

`/`	Search
`g` `c`	Code
`g` `h`	History
`g` `b`	Bookmarks
`g` `t`	Trust
`y`	Permalink to this state (files and trees)
`?`	This sheet

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	}

Keyboard