home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cadre Technologies Inc. 1996
- #
- # File: @(#)regenerato.tcl /main/1
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)regenerato.tcl /main/1 10 Jul 1996 Copyright 1996 Cadre Technologies Inc.
-
- # Start user added include file section
- # End user added include file section
-
-
- # This class defines the interface of a code regenerator.
-
- Class Regenerator : {GCObject} {
- constructor
- method destructor
-
- # Object passed to the regenerator with the
- # results of the generation process.
- # (See target language model).
- #
- attribute fileObject
-
- # File descriptor of the file that is regenerated.
- #
- attribute fileDesc
- }
-
- constructor Regenerator {class this} {
- set this [GCObject::constructor $class $this]
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method Regenerator::destructor {this} {
- # Start destructor user section
- # End destructor user section
- }
-
- # Do not delete this line -- regeneration end marker
-
-