home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / msumlimport.tcl < prev    next >
Text File  |  1997-09-24  |  1KB  |  47 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)msumlimport.tcl    /main/titanic/5 24 Sep 1997
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)msumlimport.tcl    /main/titanic/5 24 Sep 1997
  10.  
  11. source [m4_path_name tcl cginit.tcl]
  12. require msumlsumma.tcl
  13. require msumlnamed.tcl
  14. require msumleleme.tcl
  15. require msumlassoc.tcl
  16. require msumltypee.tcl
  17. require msumlassro.tcl
  18. require msumlmembe.tcl
  19. require msumlattri.tcl
  20. require msumlopera.tcl
  21. require msumlparam.tcl
  22. require msumlgenel.tcl
  23. require msumltype.tcl
  24. require msumlclass.tcl
  25. require msumlgener.tcl
  26. require msumlmodel.tcl
  27. require msumlpacka.tcl
  28.  
  29. set rep [OleAutoObject new ObjectTeamMsRepUml.MSRepository]
  30. set repFound 1
  31. if [catch {set root [$rep openDB [lindex $argv 2]]}]  {
  32.         set repFound 0
  33. }
  34. if !$repFound {
  35.     puts "Repository could not be opened."
  36.     puts "Not enough space left."
  37.     puts "Try again."
  38.     return
  39. }
  40. set model [$root getElementAsUML [lindex $argv 1]]
  41. MS[$model property objectType] promote $model
  42. $model ms2ot [lindex $argv 3]
  43. set fileName [lindex $argv 0]
  44. system "[m4_path_name bin otsh.exe] -f $fileName"
  45. unlink $fileName
  46. $model delete
  47.