home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)drsreporte.tcl /main/titanic/2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)drsreporte.tcl /main/titanic/2 29 Aug 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- require drsdriver.tcl
- # End user added include file section
-
- require "reqreporte.tcl"
-
- Class DrsReporter : {ReqReporter} {
- constructor
- method destructor
- method applyToMultiple
- }
-
- constructor DrsReporter {class this} {
- set this [ReqReporter::constructor $class $this]
- # Start constructor user section
- $this init doors Drs
- # End constructor user section
- return $this
- }
-
- method DrsReporter::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this ReqReporter::destructor
- }
-
- method DrsReporter::applyToMultiple {this objTeamObjs orgParentOTObj operation dxlCommandRef {arg1 ""} {arg2 ""}} {
- set doorsProject [DrsDriver::getProjectName]
- if ![llength $doorsProject] {
- return
- }
- set DrsDriver::FORMALMODULE DOORS_${doorsProject}_[m4_var get M4_doors_formal_module]
-
-
- upvar $dxlCommandRef dxlCommand
- if {$arg2 == "All"} {
- set doorsObj [DrsObject new ""]
- $doorsObj dxlCommand $dxlCommand
- $doorsObj $operation $arg1 $arg2
- set dxlCommand [$doorsObj dxlCommand]
- return
- }
-
- foreach objTeamObj $objTeamObjs {
- set parentOTObj $orgParentOTObj
- if [$objTeamObj isA ConfigVersion] {
- set phases [$objTeamObj phaseVersions]
- continue
- } elseif [$objTeamObj isA Corporate] {
- set doorsObj [DrsCorpObject new $objTeamObj]
- } elseif [$objTeamObj isA Project] {
- set doorsObj [DrsProjObject new $objTeamObj $parentOTObj]
- } else {
- set level [$objTeamObj object]
- set origConf [$objTeamObj [$objTeamObj ORB_class]::config]
- set origConfName [$origConf name]
- set versionNumber [$objTeamObj versionNumber]
- set levelVersion $origConfName.$versionNumber
-
- set parOrigConf [$parentOTObj [$parentOTObj ORB_class]::config]
- set parOrigConfName [$parOrigConf name]
- set pVersionNumber [$parentOTObj versionNumber]
- set pVers $parOrigConfName.$pVersionNumber
-
- if [$objTeamObj isA PhaseVersion] {
- set parentOTObj [$parentOTObj project]
- set pLevel [$parentOTObj customLevel]
- set doorsObj [DrsPhaseObject new $level \
- $levelVersion $pLevel $pVers ]
- } else {
- set pLevel [$parentOTObj customLevel]
- }
- if [$objTeamObj isA SystemVersion] {
- set doorsObj [DrsSystemObject new $level \
- $levelVersion $pLevel $pVers]
- } elseif [$objTeamObj isA FileVersion] {
- if {[[$objTeamObj file] type] == "cdm" } {
- #skip cdm
- continue
- }
- set doorsObj [DrsFileObject new $level \
- $levelVersion $pLevel $pVers]
- }
- }
- $doorsObj driver $this
-
-
- $doorsObj dxlCommand $dxlCommand
- if [llength $arg1] {
- if ![llength $arg2] {
- set dxlResult [$doorsObj $operation $arg1]
- } else {
- set dxlResult [$doorsObj $operation $arg1 $arg2]
- }
- } else {
- set dxlResult [$doorsObj $operation]
- }
- set dxlCommand [$doorsObj dxlCommand]
- }
- }
-
- # Do not delete this line -- regeneration end marker
-
-