home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / semanticbase.tcl < prev    next >
Encoding:
Text File  |  1996-12-16  |  3.1 KB  |  135 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        @(#)semanticbase.tcl    /main/hindenburg/5
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Base of all report classes which use the
  8. #            semantic model
  9. #
  10. #---------------------------------------------------------------------------
  11. # SccsId = @(#)semanticbase.tcl    /main/hindenburg/5    16 Dec 1996    Copyright 1995 Cadre Technologies Inc.
  12.  
  13.  
  14. Class SemanticBase : {ReportBase} {
  15.     method destructor
  16.     constructor
  17.     method phaseReport
  18.     method systemReport
  19.     method fileReport
  20.  
  21.     method doReport
  22.  
  23.     method objName
  24.     method objType
  25.     method labelValue
  26.     method fullFileName
  27. }
  28.  
  29.  
  30. constructor SemanticBase {class this} {
  31.     set this [ReportBase::constructor $class $this]
  32.     OTShRegister::semanticModel
  33.     defineTypes
  34.     return $this
  35. }
  36.  
  37.  
  38. method SemanticBase::destructor {this} {
  39.     [$this report] delete
  40. }
  41.  
  42.  
  43. method SemanticBase::phaseReport {this} {
  44.     set model  [SMPhaseModel new [$this configV] [$this phaseV]]
  45.     set result [$this doReport $model]
  46.     $model delete
  47.     return $result
  48. }
  49.  
  50.  
  51. method SemanticBase::systemReport {this} {
  52.     set model  [SMSystemModel new [$this configV] [$this systemV]]
  53.     set result [$this doReport $model]
  54.     $model delete
  55.     return $result
  56. }
  57.  
  58.  
  59. method SemanticBase::fileReport {this} {
  60.     set model  [SMFileModel new [$this configV] [$this fileV]]
  61.     set result [$this doReport $model]
  62.     $model delete
  63.     return $result
  64. }
  65.  
  66.  
  67. method SemanticBase::objName {this smObj} {
  68.     set item [$smObj getItem]
  69.     if [$item isNil] {
  70.     return "?"
  71.     }
  72.     return [$item name]
  73. }
  74.  
  75.  
  76. method SemanticBase::objType {this smObj} {
  77.     return [[$smObj getSemType] name]
  78. }
  79.  
  80.  
  81. method SemanticBase::labelValue {this smObj} {
  82.     set label [$smObj getLabel]
  83.     if [$label isNil] {
  84.     return ""
  85.     }
  86.     set result ""
  87.     foreach item [query $label.itemRefs.item] {
  88.     if [lempty $result] {
  89.         set result [$item name]
  90.     } else {
  91.         set result [concat [$item name] ,$result]
  92.     }
  93.     }
  94.  
  95.     return $result
  96. }
  97.  
  98.  
  99. method SemanticBase::fullFileName {this fileVersion} {
  100.     if { [$fileVersion isNil] } { return "unknown" }
  101.     set file [$fileVersion file]
  102.     set result [$file qualifiedName].[$file type].[$fileVersion versionName]
  103.     set cc [ClientContext::global]
  104.     if { [$cc currentLevel] == "Phase" } {
  105.     append result " in system [[$file system] name]"
  106.     }
  107.     return $result
  108. }
  109.  
  110.  
  111. # ----------------------------------------------------------------------
  112. # initialization procedures
  113.  
  114. proc makeTypeName {method type} {
  115.     regsub -all "\[ \t]\[ \t]*" $type "_" type
  116.     return "[string toupper $method]_$type"
  117. }
  118.  
  119.  
  120. proc defineTypes {} {
  121.     set typeIter [SMTypeIter new]
  122.     while {[$typeIter current] != ""} {
  123.     set name [makeTypeName OMT [[$typeIter current] name]]
  124.     global $name
  125.     set $name [$typeIter current]
  126.     $typeIter next
  127.     }
  128.     $typeIter delete
  129.  
  130.     global ANY; set ANY [SMTypeDB::any]
  131.     global NIL; set NIL [SMTypeDB::nil]
  132.  
  133.     return
  134. }
  135.