home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / vacpptarget.tcl < prev    next >
Encoding:
Text File  |  1997-11-10  |  4.2 KB  |  138 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. # Copyright (c) 1997 by Cayenne Software, Inc.
  4. #
  5. # This software is furnished under a license and may be used only in
  6. # accordance with the terms of such license and with the inclusion of
  7. # the above copyright notice. This software or any other copies thereof
  8. # may not be provided or otherwise made available to any other person.
  9. # No title to and ownership of the software is hereby transferred.
  10. #
  11. # The information in this software is subject to change without notice
  12. # and should not be construed as a commitment by Cayenne Software, Inc.
  13. #
  14. #---------------------------------------------------------------------------
  15. #
  16. #       File            : vacpptarget.tcl
  17. #       Author          : 
  18. #       Original date   : November 1997
  19. #       Description     : Classes for code generation
  20. #
  21. #---------------------------------------------------------------------------
  22.  
  23. #---------------------------------------------------------------------------
  24. #      File:           @(#)vacppclass.tcl    /main/titanic/2
  25. #---------------------------------------------------------------------------
  26.  
  27. # Start user added include file section
  28. # End user added include file section
  29.  
  30. Class VACPPClass : {VAClass} {
  31.     constructor
  32.     method destructor
  33.     method generateBeginSub
  34.     attribute includeFileName
  35.     attribute includeDefine
  36. }
  37.  
  38. constructor VACPPClass {class this} {
  39.     set this [VAClass::constructor $class $this]
  40.     # Start constructor user section
  41.     # End constructor user section
  42.     return $this
  43. }
  44.  
  45. method VACPPClass::destructor {this} {
  46.     # Start destructor user section
  47.     # End destructor user section
  48.     $this VAClass::destructor
  49. }
  50.  
  51. method VACPPClass::generateBeginSub {this section} {
  52.         $section append "//VBIncludes: \"[$this includeFileName]\""
  53.         if {[$this includeDefine] != ""} {
  54.                 $section append " [$this includeDefine]"
  55.         }
  56.         $section append "\n"
  57. }
  58.  
  59. # Do not delete this line -- regeneration end marker
  60.  
  61. #---------------------------------------------------------------------------
  62. #      File:           @(#)vacppenums.tcl    /main/titanic/2
  63. #---------------------------------------------------------------------------
  64.  
  65. # Start user added include file section
  66.  
  67. # End user added include file section
  68.  
  69. Class VACPPEnums : {VAEnums} {
  70.     constructor
  71.     method destructor
  72.     method generateBeginSub
  73.     attribute includeFileName
  74.     attribute includeDefine
  75. }
  76.  
  77. constructor VACPPEnums {class this} {
  78.     set this [VAEnums::constructor $class $this]
  79.     # Start constructor user section
  80.     # End constructor user section
  81.     return $this
  82. }
  83.  
  84. method VACPPEnums::destructor {this} {
  85.     # Start destructor user section
  86.     # End destructor user section
  87.     $this VAEnums::destructor
  88. }
  89.  
  90. method VACPPEnums::generateBeginSub {this section} {
  91.         $section append "//VBIncludes: \"[$this includeFileName]\""
  92.         if {[$this includeDefine] != ""} {
  93.                 $section append " [$this includeDefine]"
  94.         }
  95.         $section append "\n"
  96. }
  97.  
  98. # Do not delete this line -- regeneration end marker
  99.  
  100. #---------------------------------------------------------------------------
  101. #      File:           @(#)vacpptyped.tcl    /main/titanic/2
  102. #---------------------------------------------------------------------------
  103.  
  104. # Start user added include file section
  105. # End user added include file section
  106.  
  107. Class VACPPTypeDef : {VATypeDef} {
  108.     constructor
  109.     method destructor
  110.     method generateBeginSub
  111.     attribute includeFileName
  112.     attribute includeDefine
  113. }
  114.  
  115. constructor VACPPTypeDef {class this} {
  116.     set this [VATypeDef::constructor $class $this]
  117.     # Start constructor user section
  118.     # End constructor user section
  119.     return $this
  120. }
  121.  
  122. method VACPPTypeDef::destructor {this} {
  123.     # Start destructor user section
  124.     # End destructor user section
  125.     $this VATypeDef::destructor
  126. }
  127.  
  128. method VACPPTypeDef::generateBeginSub {this section} {
  129.         $section append "//VBIncludes: \"[$this includeFileName]\""
  130.         if {[$this includeDefine] != ""} {
  131.                 $section append " [$this includeDefine]"
  132.         }
  133.         $section append "\n"
  134. }
  135.  
  136. # Do not delete this line -- regeneration end marker
  137.  
  138.