#!/bin/sh
#\
exec seqSh "$0" ${1+"$@"}
#*******************************************************************************
# E.S.O. - ACS project
# 
# tatTestSpawner
# 
# Created by acsMakeTclScript: almamgr 03.03.10 14:31:07 
# 
# 
#        !!!!!!!!!!!!!!  DO NOT MANUALLY EDIT THIS FILE  !!!!!!!!!!!!!!
# 
#-------------------------------------------------------------------------------

#
#  Get directory root of VLT and ACS, integration, current module.
if {[catch {set ACSROOT $env(ACSROOT)}]} {set ACSROOT undefined}
if {[catch {set VLTROOT $env(VLTROOT)}]} {set VLTROOT undefined}
if {[catch {set INTLIST $env(INTLIST)}]} {set INTLIST undefined}
if {[catch {set INTROOT $env(INTROOT)}]} {set INTROOT undefined}
if {[catch {set HOME    $env(HOME)}]}    {set HOME    undefined}

#
# No libraries defined for this script.
# 
###########################################################
#                                                         #
# if the current shell is including TK, i.e. option       #
# command is known, then set-up X resources               #
#                                                         #
###########################################################

if {[info command option] != ""} {
    
    #
    # Load resources:
    # merge possible Xresource files in the following order:
    #           - /alma/ACS-8.1/ACSSW/app-defaults  
    #           - /alma/ACS-8.1/ACSSW/app-defaults  
    #           - /app-defaults  
    #           - /home/almamgr/                 
    #           - ../app-defaults        
    #
    if {[file exists $ACSROOT/app-defaults/XtatTestSpawner] == 1} {
        option readfile $ACSROOT/app-defaults/XtatTestSpawner 
    }
if {$INTLIST != "undefined"} { 
    foreach tmpdir $intlist_list {
       if {[file exists $tmpdir/app-defaults/XtatTestSpawner] == 1} {
          option readfile $tmpdir/app-defaults/XtatTestSpawner 
       }
    }
}
    if {[file exists $INTROOT/app-defaults/XtatTestSpawner] == 1} {
    option readfile $INTROOT/app-defaults/XtatTestSpawner 
    }
    if {[file exists $HOME/XtatTestSpawner] == 1} {
        option readfile $HOME/XtatTestSpawner 
    }
    if {[file exists ../app-defaults/XtatTestSpawner] == 1} {
        option readfile ../app-defaults/XtatTestSpawner 
    }
}
#-------------------------------------------------------------------
#                    END OF STANDARD PROLOGUE 
#-------------------------------------------------------------------

#vvvvvvvvvvvvvvvvv  src/tatTestSpawner.tcl  vvvvvvvvvvvvvvvvvvvvvv
#*******************************************************************************
# E.S.O. - VLT project
#
# "@(#) $Id: tatTestSpawner.tcl,v 1.3 2004/03/16 08:29:41 psivera Exp $"
#
# who       when      what
# --------  --------  ----------------------------------------------
# gchiozzi  12/07/95  created
#

#************************************************************************
#   NAME
#   tatTestSpawner - Prog used by TestDriver to spawn bg processes
#
#   SYNOPSIS
#   tatTestSpawner arg .....
# 
#   DESCRIPTION
#   This program creates a new process group id, so that all its descendent
#   processes will be in this process group id.
#   In this way it is easy to kill all the generated child processes.
#   
#   All the given arguments are considered as a command string to be esecuted
#   as a background task.
#
#   When the command has been spawned, the process esit with SUCCESS (0)
#
#   FILES
#
#   ENVIRONMENT
#
#   RETURN VALUES
#
#   CAUTIONS
#
#   EXAMPLES
#
#   SEE ALSO
#   tatTestDriver(1)
#
#   BUGS     
#
#------------------------------------------------------------------------
#

id process group set

eval exec $argv &

exit 0

#
# ___oOo___
#^^^^^^^^^^^^^^^^^  src/tatTestSpawner.tcl  ^^^^^^^^^^^^^^^^^^^^^^

#--------------------------------------------------------------
#                       End of tatTestSpawner
#--------------------------------------------------------------
# ___oOo___ 
