home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / watchdog.tcl < prev    next >
Text File  |  1996-05-29  |  820b  |  29 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c)    Westmount Technology    1995
  4. #
  5. #    File        : @(#)watchdog.tcl    1.3
  6. #    Author        : Marcel Bancken
  7. #    Description    : Instantiation of Watchdog
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = @(#)watchdog.tcl    1.3    19 Jan 1996 Copyright 1995 Westmount Technology
  11.  
  12. source [m4_path_name tcl libocl.tcl]
  13.  
  14. require platform.tcl
  15. require procs.tcl
  16. require messagehdl.tcl
  17. require clwatchdog.tcl
  18.  
  19. if {[llength $argv] != 3} {
  20.     puts stderr "Watchdog requires 3 arguments: <interp> <script> <endScript>"
  21.     exit 1
  22. }
  23. ClWatchdog new .watchdog \
  24.     -interp [lindex $argv 0] \
  25.     -script [lindex $argv 1] \
  26.     -endScript [lindex $argv 2]
  27. set returnValue [.watchdog execute]
  28. exit $returnValue
  29.