#!/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

set rootname SBPMWaveform
set usage {usage: makeSBPMReqFile [-output <filename> | -install 1]}
set output ""
set install 0
set args $argv

if {[APSStrictParseArguments {output install}] || \
      (![string length $output] && !$install) || \
      ([string length $output] && $install)} {
    puts stderr "Error (0) for $argv0 in [pwd]: $usage"
    exit 1
}

if !$install {
    if [file exists $output] {
        puts stderr "Error (1) for $argv0 in [pwd]: $output exists"
        exit 1
    }
} else {
    set lastFile [lindex [lsort [glob -nocomplain $rootname.config-????]] end]
    if ![llength $lastFile] {
        set lastFile $rootname.config-0000
    }
    set output [APSNextGenerationedName -name $lastFile -newFile 1]
}

#set iocList [exec sdds2stream -par=IOCName SBPMWaveform.config]
set tmpRoot /tmp/[APSTmpString]
set fileList ""
for {set sector 1} {$sector<=40} {incr sector} {
    if [catch {exec replaceText /home/helios/oagData/SCR/requestFiles/SBPMWaveform.config.template \
		   $tmpRoot.$sector \
		   -orig=<sector> -repl=$sector } result] {
	puts stderr "Error1: $result"
	exit 1
    }
    lappend fileList $tmpRoot.$sector
}
lappend fileList /home/helios/oagData/SCR/requestFiles/SBPMWaveform.config.set1
lappend fileList /home/helios/oagData/SCR/requestFiles/BoosterBPMWaveform.config
if [catch {eval exec sddscombine $fileList $output} result] {
    puts stderr "Error2: $result"
    exit 1
}
if $install {
    if [file exist $rootname.config] {
	exec rm $rootname.config
    }
    catch {exec chmod -w $rootname.config}
    if [catch {exec ln -s [file tail $output] ${rootname}.config} result] {
        puts stderr "Error (8) for $argv0 in $pwd: $result"
        exit 1
    }
}

exit
