home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / watchdog.tcl < prev    next >
Text File  |  1997-10-23  |  935b  |  34 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c)    Westmount Technology    1995
  4. #
  5. #    File        : @(#)watchdog.tcl    /main/titanic/1
  6. #    Author        : Marcel Bancken
  7. #    Description    : Instantiation of Watchdog
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = @(#)watchdog.tcl    /main/titanic/1    23 Oct 1997 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. # on windows we can always give msgs in ErrorDialogs
  20. if $win95 {
  21.     OtkRegister::gui
  22. }
  23.  
  24. if {[llength $argv] != 3} {
  25.     puts stderr "Watchdog requires 3 arguments: <interp> <script> <endScript>"
  26.     exit 1
  27. }
  28. ClWatchdog new .watchdog \
  29.     -interp [lindex $argv 0] \
  30.     -script [lindex $argv 1] \
  31.     -endScript [lindex $argv 2]
  32. set returnValue [.watchdog execute]
  33. exit $returnValue
  34.