home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / config_java.tcl < prev    next >
Text File  |  1996-12-04  |  2KB  |  90 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc. 1996
  4. #
  5. #      File:           @(#)config_java.tcl    /main/hindenburg/3
  6. #      Author:         
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)config_java.tcl    /main/hindenburg/3   4 Dec 1996 Copyright 1996 Cayenne Software Inc.
  10.  
  11. source [m4_path_name tcl cginit.tcl]
  12.  
  13. require wmt_util.tcl
  14. require machdep.tcl
  15.  
  16. proc m4copyfile {dir custName {fsName ""}} {
  17.     if {$fsName == ""} {
  18.         set fsName $custName
  19.     }
  20.  
  21.     if [file exists $fsName] {
  22.         set sourcefile $fsName
  23.     } else {
  24.         set sourcefile [m4_path_name $dir $fsName]
  25.     }
  26.  
  27.     set customFileV [findCustomizationFile $custName 1]
  28.  
  29.     $customFileV lockForWrite "Configure Java Environment"
  30.  
  31.     $customFileV upLoad $sourcefile
  32.  
  33.     $customFileV unlock
  34. }
  35.  
  36. proc m4basedir {} {
  37.     set clientContext [ClientContext::global]
  38.  
  39.     set configV [$clientContext currentConfig]
  40.  
  41.     if {[$configV isNil]} {
  42.         return [m4_var get M4_home]
  43.     }
  44.  
  45.     return [$configV path]
  46. }
  47.  
  48. proc findCustomizationFile {fullName {create 0}} {
  49.     set name [lindex [split $fullName .] 0]
  50.     set type [lindex [split $fullName .] 1]
  51.     set clientContext [ClientContext::global]
  52.  
  53.     set configV [$clientContext currentConfig]
  54.  
  55.     set customFileV [$configV findCustomFileVersion $name $type]
  56.  
  57.     if {$create && [$customFileV isNil]} {
  58.         puts "Creating customization file '$fullName' at configuration level"
  59.         set customFileV [$configV createCustomFileVersion $name $type]
  60.     }
  61.  
  62.     return $customFileV
  63. }
  64.  
  65. proc m4copydir {dir} {
  66.     set save_dir [pwd]
  67.     set subdir [location config $dir]
  68.     if [catch {set cddir [m4_path_name $subdir Queue.java]}] {
  69.         return
  70.     }
  71.  
  72.     set sysV [[ClientContext::global] currentSystem]
  73.  
  74.     cd [path_name directory $cddir]
  75.  
  76.     set base [m4basedir]
  77.     set files [glob -nocomplain *]
  78.     set dest [$sysV path]
  79.     if {! [file exist $dest]} {
  80.         mkdir -path [list $dest]
  81.     }
  82.     foreach file $files {
  83.         puts "copying $file to $dest"
  84.         copy_text_file $file [location $dest $file]
  85.     }
  86.     cd $save_dir
  87. }
  88.  
  89. m4copydir [location src JDK10]
  90.