OCC9462 Changing approach at Reference Documentation production cdl,hxx,cxx,tcl,edl...

diff --git a/src/CSFDBSchema/CSFDBSchema.cxx b/src/CSFDBSchema/CSFDBSchema.cxx
index 2fcdea34cc3b0fce54f1e65057928ec23a6b36d8..c38d6529d4bf1791a688d964411dde6d434284e9 100755 (executable)
--- a/src/CSFDBSchema/CSFDBSchema.cxx
+++ b/src/CSFDBSchema/CSFDBSchema.cxx
@@ -1015,7 +1015,7 @@ void CSFDBSchema_Extract(const Handle(MS_MetaSchema)& aMeta,
   api = CSFDBSchema_LoadTemplate(edlsfullpath,outdir,DBMS);
   
   api->AddVariable("%Schema",aName->ToCString());
-  
+  api->AddVariable("%SchemaComment",aSchema->Comment()->ToCString());
   classList    = aMeta->GetPersistentClassesFromSchema(aName,Standard_True);
   classListImp = aMeta->GetPersistentClassesFromClasses(classList,Standard_True);
 

diff --git a/src/CSFDBSchema/CSFDBSchema_Template.edl b/src/CSFDBSchema/CSFDBSchema_Template.edl
index b97664a2fc0f1ede2d13c1314aefbd52e1f18f58..8fad468782096c248088665c55e912d65ef3e4c4 100755 (executable)
--- a/src/CSFDBSchema/CSFDBSchema_Template.edl
+++ b/src/CSFDBSchema/CSFDBSchema_Template.edl
@@ -5,7 +5,7 @@
 
 -- SCHEMA
 --
-@template CSFDBSchemaClassProto(%Schema) is
+@template CSFDBSchemaClassProto(%SchemaComment,%Schema) is
 $// File generated by Schema (Schema)
 $//
 $//                     Copyright (C) 1991 - 2000 by  
@@ -47,6 +47,7 @@ $class Handle_Standard_Type;
 $Standard_EXPORT Handle_Standard_Type& %Schema_Type_();
 $class Standard_Transient;
 $class Handle(Storage_Schema);
+$%SchemaComment
 $class %Schema;
 $
 $class Handle(%Schema) : public Handle(Storage_Schema) {