home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / referredin.tcl < prev    next >
Encoding:
Text File  |  1997-11-26  |  1.8 KB  |  78 lines
  1. #--------------------------------------------------------------------------->"
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        @(#)referredin.tcl    /main/titanic/3
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Report on all cdm's and diagrams in which they are
  8. #            referred to.
  9. #    Usage in:    SystemVersion
  10. #
  11. #---------------------------------------------------------------------------
  12. # SccsId = @(#)referredin.tcl    /main/titanic/3    26 Nov 1997    Copyright 1995 Cadre Technologies Inc.
  13.  
  14.  
  15. Class ReportReferredIn : {ReportBase} {
  16.     constructor
  17.     method systemReport
  18. }
  19.  
  20.  
  21. constructor ReportReferredIn {class this} {
  22.     set this [ReportBase::constructor $class $this]
  23.     $this reportName "CDM Referred To In CD"
  24.     return $this
  25. }
  26.  
  27.  
  28. method ReportReferredIn::systemReport {this} {
  29.     set allCdmItems [query -s file.item \
  30.                "file.type == cdm" \
  31.                [$this systemV].localFileVersions]
  32.     if [lempty $allCdmItems] { return 0 }
  33.  
  34.     set report [$this report]
  35.  
  36.     $report header {
  37.     [$this report] print CDM 31
  38.     [$this report] print "Referred To In CD" 51
  39.     [$this report] print "In System" line
  40.     [$this report] line
  41.     }
  42.  
  43.     foreach item [osort name $allCdmItems] {
  44.     $report print [$item name] 30
  45.     $report space
  46.  
  47.     set found 0
  48.     set cv [$this configV]
  49.     set sv [$this systemV]
  50.  
  51.     $sv getDecompositions $item $cv { decompComponents } { cad } svs fvs
  52.     foreach fv [osort file.type file.name $fvs] {
  53.         set found 1
  54.         set file [$fv file]
  55.         set fsys [$file system]
  56.         if ![$report queued] { $report space 31 } 
  57.  
  58.         $report print "[$file name].[$file type].[$fv versionName]" 50
  59.         $report space
  60.         $report print "[$fsys name]" line
  61.     }
  62.  
  63.     if !$found {
  64.         $report print "** None **" line
  65.     }
  66.  
  67.     $report line
  68.     }
  69.  
  70.     $report page
  71.     $report remove header
  72.  
  73.     return 0
  74. }
  75.  
  76.  
  77. set executeMe [ReportReferredIn new]
  78.