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

# $Log: not supported by cvs2svn $

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

proc MakeListFile {args} {
    set source ""
    set extension ""
    set columnName ""
    APSStrictParseArguments {source extension columnName}
    set mtime0 [file mtime $source]
    if {![file exists ${source}.${extension}] || \
          [file mtime ${source}.${extension}]<=$mtime0} {
        if [catch {exec sddsbreak -rowlimit=100 $source -pipe=out \
          | sddssort -pipe -column=${columnName} -unique \
          | sddscombine -merge -pipe \
          | sddssort -pipe=in -column=${columnName} -unique ${source}.${extension}} result] {
            puts stderr "$result"
          }
    }
}

foreach file [glob *.req] {
    puts stderr "Working on $file"
    MakeListFile -source $file -extension categories -columnName Category
    MakeListFile -source $file -extension beamlines -columnName Beamline
}
