home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)cppprotect.tcl /main/titanic/1
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)cppprotect.tcl /main/titanic/1 15 Apr 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
-
- Class CppProtect : {Object} {
- constructor
- method destructor
- }
-
- constructor CppProtect {class this name} {
- set this [Object::constructor $class $this $name]
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method CppProtect::destructor {this} {
- # Start destructor user section
- # End destructor user section
- }
-
- proc CppProtect::getInclude {} {
- return "assert.h"
- }
-
- proc CppProtect::genCheck {sect evaluation} {
- $sect append "assert($evaluation);\n"
- }
-
- # Do not delete this line -- regeneration end marker
-
-