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

#
# $Log: not supported by cvs2svn $
#

proc clearPatch {installDir patchDir} {

    set installDirList [glob -nocomplain $installDir/*]
    
    foreach file $installDirList {
	set patchFile [file tail $file]
	set patchExist [file exists $patchDir/$patchFile]
	if {$patchExist} {
	    set diff [expr [file mtime $file] - \
			[file mtime $patchDir/$patchFile]]
	    if {$diff >= 0} {
		set cmd "exec rm -f $patchDir/$patchFile"
		if {[catch $cmd results]} {
		    puts stderr "clearPatch: unable to remove patch, $results"
		}
		puts stdout "clearPatch: removing patch $patchFile"
	    } else {
		puts stdout "clearPatch: leaving patch installed $patchFile"
	    }
	}
    }
}


if {$argc == 1 && [lindex $argv 0] == "-all"} {
    set installDir /usr/local/oag/apps/bin/$env(HOST_ARCH)
    set patchDir /usr/local/oag/bin_patch/$env(HOST_ARCH)
    cd $installDir
    clearPatch $installDir $patchDir
    set installDir /usr/local/oag/apps/lib/$env(HOST_ARCH)
    set patchDir /usr/local/oag/lib_patch/$env(HOST_ARCH)
    cd $installDir
    clearPatch $installDir $patchDir
    puts stdout "clearPatch: making index in $patchDir"
    auto_mkindex $patchDir *.tcl
} elseif {$argc == 2} {
    clearPatch [lindex $argv 0] [lindex $argv 1]
} else {
    puts stderr "usage: clearPatch installDir patchDir"
    puts stderr " "
    puts stderr "  "     
    exit
}


