home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / corbaxprom.tcl < prev    next >
Text File  |  1997-09-11  |  3KB  |  116 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)corbaxprom.tcl    /main/titanic/1
  6. #      Author:         heli
  7. #      Description:    extra selfpromoters for DB classes in CORBA IDL
  8. #---------------------------------------------------------------------------
  9. # @(#)corbaxprom.tcl    /main/titanic/1 11 Sep 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. global mostDerivedOOPL
  12.  
  13.  
  14. if [isCommand CMDatabaseClass] {
  15.     Class IDGDatabaseClassD : {IDGClass CMDatabaseClass} {
  16.     }
  17. } else {
  18.     Class IDGDatabaseClassD : {IDGClass OPDatabaseClass} {
  19.     }
  20. }
  21. set mostDerivedOOPL(OPDatabaseClass) IDGDatabaseClassD
  22. selfPromoter OPDatabaseClass {this} {
  23.     IDGDatabaseClassD promote $this
  24. }
  25.  
  26.  
  27. if [isCommand CMDBLinkClass] {
  28.     Class IDGDBLinkClassD : {IDGLinkClass CMDBLinkClass} {
  29.     }
  30. } else {
  31.     Class IDGDBLinkClassD : {IDGLinkClass OPDBLinkClass} {
  32.     }
  33. }
  34. set mostDerivedOOPL(OPDBLinkClass) IDGDBLinkClassD
  35. selfPromoter OPDBLinkClass {this} {
  36.     IDGDBLinkClassD promote $this
  37. }
  38.  
  39.  
  40. if [isCommand CMDBDataAttr] {
  41.     Class IDGDBDataAttrD : {IDGDataAttr CMDBDataAttr} {
  42.     }
  43. } else {
  44.     Class IDGDBDataAttrD : {IDGDataAttr OPDBDataAttr} {
  45.     }
  46. }
  47. set mostDerivedOOPL(OPDBDataAttr) IDGDBDataAttrD
  48. selfPromoter OPDBDataAttr {this} {
  49.     IDGDBDataAttrD promote $this
  50. }
  51.  
  52.  
  53. if [isCommand CMDBAssocAttr] {
  54.     Class IDGDBAssocAttrD : {IDGAssocAttr CMDBAssocAttr} {
  55.     }
  56. } else {
  57.     Class IDGDBAssocAttrD : {IDGAssocAttr OPDBAssocAttr} {
  58.     }
  59. }
  60. set mostDerivedOOPL(OPDBAssocAttr) IDGDBAssocAttrD
  61. selfPromoter OPDBAssocAttr {this} {
  62.     IDGDBAssocAttrD promote $this
  63. }
  64.  
  65.  
  66. if [isCommand CMDBLinkAttr] {
  67.     Class IDGDBLinkAttrD : {IDGLinkAttr CMDBLinkAttr} {
  68.     }
  69. } else {
  70.     Class IDGDBLinkAttrD : {IDGLinkAttr OPDBLinkAttr} {
  71.     }
  72. }
  73. set mostDerivedOOPL(OPDBLinkAttr) IDGDBLinkAttrD
  74. selfPromoter OPDBLinkAttr {this} {
  75.     IDGDBLinkAttrD promote $this
  76. }
  77.  
  78.  
  79. if [isCommand CMDBReverseLinkAttr] {
  80.     Class IDGDBReverseLinkAttrD : {IDGReverseLinkAttr CMDBReverseLinkAttr} {
  81.     }
  82. } else {
  83.     Class IDGDBReverseLinkAttrD : {IDGReverseLinkAttr OPDBReverseLinkAttr} {
  84.     }
  85. }
  86. set mostDerivedOOPL(OPDBReverseLinkAttr) IDGDBReverseLinkAttrD
  87. selfPromoter OPDBReverseLinkAttr {this} {
  88.     IDGDBReverseLinkAttrD promote $this
  89. }
  90.  
  91.  
  92. if [isCommand CMDBQualAssocAttr] {
  93.     Class IDGDBQualAssocAttrD : {IDGQualAssocAttr CMDBQualAssocAttr} {
  94.     }
  95. } else {
  96.     Class IDGDBQualAssocAttrD : {IDGQualAssocAttr OPDBQualAssocAttr} {
  97.     }
  98. }
  99. set mostDerivedOOPL(OPDBQualAssocAttr) IDGDBQualAssocAttrD
  100. selfPromoter OPDBQualAssocAttr {this} {
  101.     IDGDBQualAssocAttrD promote $this
  102. }
  103.  
  104.  
  105. if [isCommand CMDBQualLinkAttr] {
  106.     Class IDGDBQualLinkAttrD : {IDGQualLinkAttr CMDBQualLinkAttr} {
  107.     }
  108. } else {
  109.     Class IDGDBQualLinkAttrD : {IDGQualLinkAttr OPDBQualLinkAttr} {
  110.     }
  111. }
  112. set mostDerivedOOPL(OPDBQualLinkAttr) IDGDBQualLinkAttrD
  113. selfPromoter OPDBQualLinkAttr {this} {
  114.     IDGDBQualLinkAttrD promote $this
  115. }
  116.