#!/bin/sh  
# \
exec oagtclsh "$0" "$@"

set auto_path [linsert $auto_path 0  $env(OAG_TOP_DIR)/oag/apps/lib/$env(HOST_ARCH)]
set auto_path [linsert $auto_path 0 $env(OAG_TOP_DIR)/oag/lib_patch/$env(HOST_ARCH)]
APSStandardSetup

set usage {usage: saveSolution -rootname <rootname> -runID <runID>}
set rootname ""
set runID ""
set args $argv
if {[APSStrictParseArguments {rootname runID}] || ![string length $rootname] || \
	![string length $runID]} {
    return -code error "$usage"
}
# In case there are leading zeros
scan $runID %d runID
set runName [format $rootname-%06d $runID]

if [llength [glob -nocomplain $rootname-best*]] {
    return -code error "file exist matching $rootname-best*"
}

if [llength [set fileList [glob -nocomplain ${runName}*]]]==0 {
    return -code error "no match: $runName"
}

set oldTag [format -%06d $runID]
set newTag -best

foreach filename $fileList {
    set newName [os editstring %/$oldTag/$newTag/ $filename]
    file rename -force $filename $newName
    puts stderr "Renamed $filename to $newName"
}
