#!/bin/sh
#\
exec tcl "$0" ${1+"$@"}
#*******************************************************************************
# E.S.O. - ACS project
# 
# tatGetClock
# 
# Created by acsMakeTclScript: almamgr 03.03.10 14:31:05 
# 
# 
#        !!!!!!!!!!!!!!  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}

#
#  Set Auto-Path for each library
#

# 
# >>>tatlib<<<
set found "NO" 
if {$INTLIST != "undefined"} { 
   set myIntlist "$env(INTLIST)" 
   set intlist_list [split $myIntlist :] 
   set first_dir [ lindex $intlist_list 0 ] 
   foreach tmpdir $intlist_list {
      if {[file exist $tmpdir/lib/libtatlib.tcl] == 1} {
         if {[lsearch -exact $auto_path $tmpdir/lib/libtatlib.tcl] == -1} {
            set found "YES" 
            set mydir $tmpdir
            break 
         } 
      } 
   } 
} 
if {[file exist ../lib/libtatlib.tcl] == 1} {
    # the current relative path can be affected by any change of working
    # directory within the application. 
    # To prevent possible mess, the RELATIVE path is change into absolute
    set keepWd [pwd]
    cd ../lib/libtatlib.tcl
    if {[lsearch -exact $auto_path [pwd]] == -1} {
        set auto_path [linsert $auto_path 0 [pwd]]
    }
    cd $keepWd
    unset keepWd
} elseif {[file exist $INTROOT/lib/libtatlib.tcl] == 1} {
    if {[lsearch -exact $auto_path $INTROOT/lib/libtatlib.tcl] == -1} {
        set auto_path [linsert $auto_path 0 $INTROOT/lib/libtatlib.tcl]
    }
} elseif  {$found == "YES"} {
     set auto_path [linsert $auto_path 0 $mydir/lib/libtatlib.tcl]
} elseif {[file exist $VLTROOT/lib/libtatlib.tcl] == 1} {
    if {[lsearch -exact $auto_path $VLTROOT/lib/libtatlib.tcl] == -1} {
        set auto_path [linsert $auto_path 0 $VLTROOT/lib/libtatlib.tcl]
    }
} elseif {[file exist $ACSROOT/lib/libtatlib.tcl] == 1} {
    if {[lsearch -exact $auto_path $ACSROOT/lib/libtatlib.tcl] == -1} {
        set auto_path [linsert $auto_path 0 $ACSROOT/lib/libtatlib.tcl]
    }
} else {
    puts stderr  "tatGetClock - ERROR:"; 
    puts stderr  "   Tcl library libtatlib.tcl not found. Unable to continue."; 
    puts stderr  ""; 
    exit 1;
}
###########################################################
#                                                         #
# 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/XtatGetClock] == 1} {
        option readfile $ACSROOT/app-defaults/XtatGetClock 
    }
if {$INTLIST != "undefined"} { 
    foreach tmpdir $intlist_list {
       if {[file exists $tmpdir/app-defaults/XtatGetClock] == 1} {
          option readfile $tmpdir/app-defaults/XtatGetClock 
       }
    }
}
    if {[file exists $INTROOT/app-defaults/XtatGetClock] == 1} {
    option readfile $INTROOT/app-defaults/XtatGetClock 
    }
    if {[file exists $HOME/XtatGetClock] == 1} {
        option readfile $HOME/XtatGetClock 
    }
    if {[file exists ../app-defaults/XtatGetClock] == 1} {
        option readfile ../app-defaults/XtatGetClock 
    }
}
#-------------------------------------------------------------------
#                    END OF STANDARD PROLOGUE 
#-------------------------------------------------------------------

#vvvvvvvvvvvvvvvvv  src/tatGetClock.tcl  vvvvvvvvvvvvvvvvvvvvvv
#************************************************************************
# E.S.O. - VLT project
#
# "@(#) $Id: tatGetClock.tcl,v 1.79 2004/03/16 08:29:41 psivera Exp $"
#
# who       when      what
# --------  --------  ----------------------------------------------
# pforstma  13/10/95  created
#
#************************************************************************
#   NAME
#
#   tatGetClock -
# 
#   SYNOPSIS
#
#   tatGetClock
# 
#   DESCRIPTION
#
#   Implement tclX getclock for expect script tatWaitForCLU.
#   expect is built with tcl, not tclX.
#   CAUTION
#
#   BUGS     
#
#------------------------------------------------------------------------
#

puts [getclock]

#
# ___oOo___
#^^^^^^^^^^^^^^^^^  src/tatGetClock.tcl  ^^^^^^^^^^^^^^^^^^^^^^

#--------------------------------------------------------------
#                       End of tatGetClock
#--------------------------------------------------------------
# ___oOo___ 
