home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / check_conf.tcl < prev    next >
Encoding:
Text File  |  1997-03-26  |  2.7 KB  |  79 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            : @(#)check_conf.tcl    /main/hindenburg/1
  17. #       Original date   : March 26th, 1997
  18. #       Description     : Check configurable variables; override using
  19. #              u_check.tcl
  20. #
  21. #---------------------------------------------------------------------------
  22. #
  23.  
  24. #
  25. # Boolean options understood by check.tcl.
  26. #
  27. # The first element of each sublist will cause the second element to be
  28. # made "global" and set to either 0 or 1, depending on whether the first
  29. # element was specified as an argument to 'check' after the "--".
  30. #
  31. # The third element in each sublist gives the default value for the option,
  32. # i.e. the value it will get if the option is not specified.
  33. #
  34. global boolean_options
  35. set boolean_options { {-trace tracing 0} \
  36.               {-debug debug 0} \
  37.               {-time timing 0} \
  38.               {-global global 0} \
  39.               {-usecase usecase 0} }
  40.  
  41. #
  42. # For generation, the next two functions are loaded from cpp_const.tcl, but
  43. # they generate other things, which we don't want / can't do when
  44. # preparing for checking.
  45. #
  46. # Also need cpp_config for eg set::name, but since that is only used for
  47. # types of generated functions, and the type is not used in later checks,
  48. # this is no problem.
  49. #
  50.  
  51. # The set name for 'class'
  52. #
  53. proc set_name {class {ordered 0}} {
  54.     return "${class}[expr {$ordered == 1 ? "O" : ""}]Set"
  55. }
  56.  
  57. # The set type name for 'class'
  58. #
  59. proc set_type_name {class {ordered 0}} {
  60.     return "[expr {$ordered == 1 ? "O" : ""}]SetOf[$class getName]"
  61. }
  62.  
  63. #
  64. # This function adds the synthetic classes and methods to the model.
  65. # Use find_class to find a class in the model by name.
  66. #
  67. # Use add_attributes from check_util.tcl to add any attributes to
  68. # any class or operation.
  69. #
  70. # It calls the procedure 'add_user_defined_methods' if it exists to
  71. # let the user add any classes/methods.
  72. #
  73. # This is one of the routines that need to be redefined when using
  74. # a different persistency mechanism.
  75. #
  76. proc add_predefined_methods {ooplmodel} {
  77. }
  78.  
  79.