home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / libocl.tcl < prev    next >
Text File  |  1996-06-11  |  1KB  |  39 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)libocl.tcl    1.4
  6. #      Author:         frmo
  7. #      Description:    Utilities for the Tcl Object System
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)libocl.tcl    1.4   24 Aug 1995 Copyright 1994 Westmount Technology
  10.  
  11.  
  12. # Require: source a file only once
  13. #
  14. proc require {file} {
  15.     global required_files
  16.     if [info exists required_files($file)] {
  17.         return
  18.     }
  19.     set required_files($file) 1
  20.     read_require_file $file
  21. }
  22.  
  23. # Procedure to actually read in the "required" file. Can be overridden to
  24. # use another method to read in a file (e.g. to use a search path).
  25. #
  26. proc read_require_file {file} {
  27.     source [m4_path_name tcl $file]
  28. }
  29.  
  30. # Source file if it exists
  31. #
  32. proc read_if_exist {file} {
  33.     if [file exists $file] {
  34.         if {[catch {source $file} reason]} {
  35.             wmtkerror $reason
  36.         }
  37.     }
  38. }
  39.