From ab85c4b8b8fa2af72f488d8632f8cc5edabb2570 Mon Sep 17 00:00:00 2001
From: cascade <cascade@opencascade.com>
Date: Fri, 9 Sep 2005 21:47:22 +0000
Subject: [PATCH] OCC9462 Changing approach at Reference Documentation
 production cdl,hxx,cxx,tcl,edl Modifications in WOK that allow to extract
 documentation blocks

---
 src/CSFDBSchema/CSFDBSchema.cxx          | 2 +-
 src/CSFDBSchema/CSFDBSchema_Template.edl | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/CSFDBSchema/CSFDBSchema.cxx b/src/CSFDBSchema/CSFDBSchema.cxx
index 2fcdea3..c38d652 100755
--- 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 b97664a..8fad468 100755
--- 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) {
-- 
2.39.5