home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)corbaxprom.tcl /main/titanic/1
- # Author: heli
- # Description: extra selfpromoters for DB classes in CORBA IDL
- #---------------------------------------------------------------------------
- # @(#)corbaxprom.tcl /main/titanic/1 11 Sep 1997 Copyright 1997 Cayenne Software Inc.
-
- global mostDerivedOOPL
-
-
- if [isCommand CMDatabaseClass] {
- Class IDGDatabaseClassD : {IDGClass CMDatabaseClass} {
- }
- } else {
- Class IDGDatabaseClassD : {IDGClass OPDatabaseClass} {
- }
- }
- set mostDerivedOOPL(OPDatabaseClass) IDGDatabaseClassD
- selfPromoter OPDatabaseClass {this} {
- IDGDatabaseClassD promote $this
- }
-
-
- if [isCommand CMDBLinkClass] {
- Class IDGDBLinkClassD : {IDGLinkClass CMDBLinkClass} {
- }
- } else {
- Class IDGDBLinkClassD : {IDGLinkClass OPDBLinkClass} {
- }
- }
- set mostDerivedOOPL(OPDBLinkClass) IDGDBLinkClassD
- selfPromoter OPDBLinkClass {this} {
- IDGDBLinkClassD promote $this
- }
-
-
- if [isCommand CMDBDataAttr] {
- Class IDGDBDataAttrD : {IDGDataAttr CMDBDataAttr} {
- }
- } else {
- Class IDGDBDataAttrD : {IDGDataAttr OPDBDataAttr} {
- }
- }
- set mostDerivedOOPL(OPDBDataAttr) IDGDBDataAttrD
- selfPromoter OPDBDataAttr {this} {
- IDGDBDataAttrD promote $this
- }
-
-
- if [isCommand CMDBAssocAttr] {
- Class IDGDBAssocAttrD : {IDGAssocAttr CMDBAssocAttr} {
- }
- } else {
- Class IDGDBAssocAttrD : {IDGAssocAttr OPDBAssocAttr} {
- }
- }
- set mostDerivedOOPL(OPDBAssocAttr) IDGDBAssocAttrD
- selfPromoter OPDBAssocAttr {this} {
- IDGDBAssocAttrD promote $this
- }
-
-
- if [isCommand CMDBLinkAttr] {
- Class IDGDBLinkAttrD : {IDGLinkAttr CMDBLinkAttr} {
- }
- } else {
- Class IDGDBLinkAttrD : {IDGLinkAttr OPDBLinkAttr} {
- }
- }
- set mostDerivedOOPL(OPDBLinkAttr) IDGDBLinkAttrD
- selfPromoter OPDBLinkAttr {this} {
- IDGDBLinkAttrD promote $this
- }
-
-
- if [isCommand CMDBReverseLinkAttr] {
- Class IDGDBReverseLinkAttrD : {IDGReverseLinkAttr CMDBReverseLinkAttr} {
- }
- } else {
- Class IDGDBReverseLinkAttrD : {IDGReverseLinkAttr OPDBReverseLinkAttr} {
- }
- }
- set mostDerivedOOPL(OPDBReverseLinkAttr) IDGDBReverseLinkAttrD
- selfPromoter OPDBReverseLinkAttr {this} {
- IDGDBReverseLinkAttrD promote $this
- }
-
-
- if [isCommand CMDBQualAssocAttr] {
- Class IDGDBQualAssocAttrD : {IDGQualAssocAttr CMDBQualAssocAttr} {
- }
- } else {
- Class IDGDBQualAssocAttrD : {IDGQualAssocAttr OPDBQualAssocAttr} {
- }
- }
- set mostDerivedOOPL(OPDBQualAssocAttr) IDGDBQualAssocAttrD
- selfPromoter OPDBQualAssocAttr {this} {
- IDGDBQualAssocAttrD promote $this
- }
-
-
- if [isCommand CMDBQualLinkAttr] {
- Class IDGDBQualLinkAttrD : {IDGQualLinkAttr CMDBQualLinkAttr} {
- }
- } else {
- Class IDGDBQualLinkAttrD : {IDGQualLinkAttr OPDBQualLinkAttr} {
- }
- }
- set mostDerivedOOPL(OPDBQualLinkAttr) IDGDBQualLinkAttrD
- selfPromoter OPDBQualLinkAttr {this} {
- IDGDBQualLinkAttrD promote $this
- }
-