From: Manuel B. <man...@us...> - 2013-11-29 13:11:21
|
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "openMSX (main)". The branch, master has been updated via 83e3be170132af30ab22504ae2b26265f51511ef (commit) from c7143866129f656804c8ccbf991f442820e9732a (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 83e3be170132af30ab22504ae2b26265f51511ef Author: Manuel Bilderbeek <Man...@gm...> Date: Fri Nov 29 14:10:50 2013 +0100 Clean up guess_title script with new filepool function to get paths of a pool type. ----------------------------------------------------------------------- Summary of changes: share/scripts/_guess_title.tcl | 9 +-------- 1 files changed, 1 insertions(+), 8 deletions(-) diff --git a/share/scripts/_guess_title.tcl b/share/scripts/_guess_title.tcl index 772704b..4176129 100644 --- a/share/scripts/_guess_title.tcl +++ b/share/scripts/_guess_title.tcl @@ -42,14 +42,7 @@ proc guess_rom_title_z80space {internal checkpage} { } proc guess_rom_title_nonextension {} { - # Get all systemrom filepool paths - set system_rom_paths [list] - foreach line [split [filepool list] \n] { - regexp {.*: (.*) (\[.*\])} $line dummy path types - if {"system_rom" in $types} { - lappend system_rom_paths $path - } - } + set system_rom_paths [filepool::get_paths_for_type system_rom] # Loop over all external slots which contain a ROM, return the first # which is not located in one of the systemrom filepools. for {set ps 0} {$ps < 4} {incr ps} { hooks/post-receive -- openMSX (main) |