home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / getsrc.tcl < prev    next >
Text File  |  1996-08-12  |  2KB  |  46 lines
  1. #              ~/icase/get_export_source.tcl
  2. #
  3. # Created: 17 march 1996
  4. # Updated: not yet
  5. # Version: 1.0
  6. # Purpose: To retriev the best export source tcl script file
  7. #
  8.  
  9.  
  10. source "[m4_path_name tcl libocl.tcl]"
  11.  
  12.  
  13. # --------------------------------
  14. # to get the global variable win95
  15. # --------------------------------
  16. require platform.tcl
  17.  
  18.  
  19. # -------------------------------------------------------------------
  20. # source the export source without executing the procedure exportTool
  21. # -------------------------------------------------------------------
  22. set home "[lindex [glob ~] 0]"
  23. set export_source ""
  24. catch { set export_source [m4_path_name tcl et.tcl] } err
  25. if { "$err" != "" } {
  26.     set export_source [path_name concat [path_name concat $home icase] et.tcl]
  27.     if { ! [file exists $export_source] } {
  28.          set export_source [path_name concat [m4_var get M4_home] contrib]
  29.          set export_source [path_name concat $export_source unsupported]
  30.          set export_source [path_name concat $export_source exportdiag]
  31.          set export_source [path_name concat $export_source et.tcl]
  32.          if { $win95 && ! [file exists $export_source] } {
  33.              set export_source [path_name concat ~heli tools]
  34.              set export_source [path_name concat $export_source tcl]
  35.              set export_source [path_name concat $export_source et.tcl]
  36.              if { ! [file exists $export_source] } {
  37.                  set export_source [m4_path_name et.tcl]
  38.              }
  39.              puts "Warning, using source from $export_source"
  40.          }
  41.     }
  42. }
  43.  
  44. set et_dont_run ""
  45. source $export_source
  46.