Генерация программного кода - часть 3
--##begin CourseOffering.private preserve=no
--##end CourseOffering.private
end record:
--##begin module.additionalPrivateDeclarations preserve=yes
--##end module.additionalPrivateDeclarations
end CourseOffering;
Соответственно, фрагмент содержания .adb-файла, отображающего тело класса CourseOffering, представлен на рис. 17.36.

Рис. 17.36. Код тела класса, сгенерированный Rational Rose
Полный листинг сгенерированного кода для тела класса выглядит следующим образом:
--##begin module.cp preserve=no
--##end module.cp
-- Body CourseOffering (Package Body)
-- Dir : C:\Program Files\Rationa1\Rose\ada95\source
-- File: courseoffering.adb
with Unchecked_Deallocation;
--##begin module.withs preserve=yes
--##end module.withs
package body CourseOffering is
--##begin module.declarations preserve=no
--##end module.declarations
-- Standard Operations
--##begin CourseOffering.CreatefcObject.documentation preserve=yes
--##end CourseOffering.Create%Object.documentation
function Create return Object is
--##begin CourseOffering.Create%Object.declarations preserve=no
--##end CourseOfferi ng.Create%Object.declarations
begin
--##begin CourseOffering.Create%Object.statements preserve=no
[statement]
--##end CourseOffering.Create%Object.statements
end Create;
--##begin CourseOffering.Copy%Object.documentation preserve=yes
--##end CourseOfferi ng.Copy%Object.documentation
function Copy (From : in Object) return Object is
--##begin CourseOffering.Copy%Object.declarations preserve=no
--##end CourseOffering.Copy%Object.declarations
begin
--##begin CourseOffering.Copy%Object.statements preserve=no
[statement]
--##end CourseOfferi ng.Copy%Object.statements
end Copy;
--##begin CourseOffering.Free%Object.documentation preserve=yes
--##end CourseOfferi ng.Free%Object.documentation
procedure Free (This : in out Object) is
--##begin CourseOffering.Free%Object.declarations preserve=yes
--##end CourseOfferi ng.Free%Object.decl arati ons
begin
--##begin CourseOffering.Free%Object.statements preserve=no