home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / msumlimport.tcl < prev    next >
Encoding:
Text File  |  1997-06-03  |  1.1 KB  |  35 lines
  1. source [m4_path_name tcl cginit.tcl]
  2. set msHome [m4_var get M4_home] 
  3. set msHome [path_name concat $msHome contrib]
  4. set msHome [path_name concat $msHome ObjectTeamMsRepUml]
  5. source $msHome/tcl/msumlsumma.tcl
  6. source $msHome/tcl/msumlnamed.tcl
  7. source $msHome/tcl/msumleleme.tcl
  8. source $msHome/tcl/msumlassoc.tcl
  9. source $msHome/tcl/msumltypee.tcl
  10. source $msHome/tcl/msumlassro.tcl
  11. source $msHome/tcl/msumlmembe.tcl
  12. source $msHome/tcl/msumlattri.tcl
  13. source $msHome/tcl/msumlopera.tcl
  14. source $msHome/tcl/msumlparam.tcl
  15. source $msHome/tcl/msumlgenel.tcl
  16. source $msHome/tcl/msumltype.tcl
  17. source $msHome/tcl/msumlclass.tcl
  18. source $msHome/tcl/msumlgener.tcl
  19. source $msHome/tcl/msumlmodel.tcl
  20. source $msHome/tcl/msumlpacka.tcl
  21.  
  22. set rep [OleAutoObject new ObjectTeamMsRepUml.MSRepository]
  23. set repFound 1
  24. if [catch {set root [$rep openDB [lindex $argv 2]]}]  {
  25.         set repFound 0
  26. }
  27. if !$repFound {
  28.     puts "Repository is closed"
  29.     return
  30. }
  31. set model [$root getElementAsUML [lindex $argv 1]]
  32. MS[$model property objectType] promote $model
  33. $model ms2ot [lindex $argv 3]
  34. $model delete
  35.