home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / stgglobal.tcl < prev    next >
Text File  |  1997-06-03  |  3KB  |  126 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)stgglobal.tcl    /main/hindenburg/4
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)stgglobal.tcl    /main/hindenburg/4   3 Jun 1997 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. global globals
  13. # End user added include file section
  14.  
  15.  
  16. # This class manages the global information for the generator.
  17.  
  18. Class STGGlobal : {GCObject} {
  19.     method destructor
  20.     constructor
  21.     method setGeneratePrint
  22.     method setDefaultCategory
  23.     method setUserCodeMarker
  24.     method setErrorDictionary
  25.     method setGeneratedMethodMarker
  26.  
  27.     # Maps the error codes to error messages.
  28.     #
  29.     attribute errorDictionary
  30.  
  31.     # Indicates whether print methods must be generated.
  32.     #
  33.     attribute generatePrint
  34.  
  35.     # Default category naming: based on system or diagram names.
  36.     #
  37.     attribute defaultCategory
  38.  
  39.     # The marker for user added code.
  40.     #
  41.     attribute startUserCodeMarker
  42.  
  43.     # The marker for generated methods.
  44.     #
  45.     attribute generatedMethodMarker
  46. }
  47.  
  48. method STGGlobal::destructor {this} {
  49.     # Start destructor user section
  50.     # End destructor user section
  51. }
  52.  
  53.  
  54. # Set all the instance variables by calling their set methods.
  55. #
  56. constructor STGGlobal {class this} {
  57.     set this [GCObject::constructor $class $this]
  58.     $this setGeneratePrint
  59.     $this setDefaultCategory    
  60.     $this setUserCodeMarker
  61.     $this errorDictionary [Dictionary new]
  62.     $this setErrorDictionary
  63.     return $this
  64. }
  65.  
  66.  
  67. # Sets generatePrint according to M4_st_generate_print.
  68. # Default is 0.
  69. #
  70. method STGGlobal::setGeneratePrint {this} {
  71.     set generatePrint [m4_var get M4_st_generate_print]
  72.     if { [string tolower $generatePrint] == "on" } {
  73.         set generatePrint 1
  74.     } elseif { [string tolower $generatePrint] == "off" } {
  75.         set generatePrint 0
  76.     } elseif { $generatePrint == "0" } {
  77.         set generatePrint 0
  78.     } elseif { $generatePrint == "1" } {
  79.         set generatePrint 1
  80.     } else {
  81.         set generatePrint 1
  82.     }
  83.     $this generatePrint $generatePrint
  84. }
  85.  
  86.  
  87. # Sets defaultCategory according to M4_st_default_category.
  88. # Default is System.
  89. #
  90. method STGGlobal::setDefaultCategory {this} {
  91.     set defaultCategory [m4_var get M4_st_default_category]
  92.     if { $defaultCategory == "" } {
  93.         set defaultCategory "System"
  94.     }
  95.     $this defaultCategory $defaultCategory
  96. }
  97.  
  98.  
  99. # Sets startUserCodeMarker.
  100. #
  101. method STGGlobal::setUserCodeMarker {this} {
  102.     $this startUserCodeMarker "\"Start user added code\""
  103. }
  104.  
  105.  
  106. # Sets errorDictionary with error codes as keys
  107. # and error messages as values.
  108. #
  109. method STGGlobal::setErrorDictionary {this} {
  110.     [$this errorDictionary] set PARAMETER_NIL "Parameter nil for mandatory association"
  111.     [$this errorDictionary] set ASSOC_OBJ_NOT_FOUND "Associated object not found"
  112.     [$this errorDictionary] set QUAL_NOT_FOUND "Qualifier not found"
  113.     [$this errorDictionary] set CONSTRAINT "Constraint violation"
  114.     [$this errorDictionary] set CANNOT_RELEASE "Cannot release"
  115. }
  116.  
  117.  
  118. # Sets generatedMethodMarker.
  119. #
  120. method STGGlobal::setGeneratedMethodMarker {this} {
  121.     $this generatedMethodMarker "\"Generated\""
  122. }
  123.  
  124. # Do not delete this line -- regeneration end marker
  125.  
  126.