home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / config_java.tcl < prev    next >
Text File  |  1997-11-07  |  2KB  |  78 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc. 1996
  4. #
  5. #      File:           @(#)config_java.tcl    /main/titanic/6
  6. #      Author:         
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)config_java.tcl    /main/titanic/6   7 Nov 1997 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 findCustomizationFile {fullName {create 0}} {
  37.     set name [lindex [split $fullName .] 0]
  38.     set type [lindex [split $fullName .] 1]
  39.     set clientContext [ClientContext::global]
  40.  
  41.     set configV [$clientContext currentConfig]
  42.  
  43.     set customFileV [$configV findCustomFileVersion $name $type]
  44.  
  45.     if {$create && [$customFileV isNil]} {
  46.         puts "Creating customization file '$fullName' at configuration level"
  47.         set customFileV [$configV createCustomFileVersion $name $type]
  48.     }
  49.  
  50.     return $customFileV
  51. }
  52.  
  53. proc m4copydir {dir} {
  54.     set save_dir [pwd]
  55.     set subdir [location $dir]
  56.     if [catch {set cddir [m4_path_name $subdir Queue.java]}] {
  57.         return
  58.     }
  59.  
  60.     set sysV [[ClientContext::global] currentSystem]
  61.  
  62.     cd [path_name directory $cddir]
  63.  
  64.     set files [glob -nocomplain *]
  65.     puts "Copying from [pwd]..."
  66.     foreach file $files {
  67.         set toFile [fstorage::copyFile $file system "" $file]
  68.         if {$toFile != ""} {
  69.             puts "    $toFile"
  70.         } else {
  71.             puts "    $file *NOT COPIED*"
  72.         }
  73.     }
  74.     cd $save_dir
  75. }
  76.  
  77. m4copydir [location modules java config]
  78.