recognize custom browse method in dict generation

Author: jblomer

core/clingutils/res/TClingUtils.h

@@ -423,6 +423,9 @@ bool HasDirectoryAutoAdd(clang::CXXRecordDecl const*, const cling::Interpreter&)
 //______________________________________________________________________________
 bool HasIOConstructor(clang::CXXRecordDecl const*, std::string&, const RConstructorTypes&, const cling::Interpreter&);
 
+//______________________________________________________________________________
+bool HasBrowse(clang::CXXRecordDecl const *, const cling::Interpreter &);
+
 //______________________________________________________________________________
 bool HasNewMerge(clang::CXXRecordDecl const*, const cling::Interpreter&);
 

core/clingutils/src/TClingUtils.cxx

@@ -1276,6 +1276,17 @@ bool ROOT::TMetaUtils::HasDirectoryAutoAdd(const clang::CXXRecordDecl *cl, const
    return CheckPublicFuncWithProto(cl, name, proto, interp, false /*diags*/);
 }
 
+////////////////////////////////////////////////////////////////////////////////
+/// Return true if the class has a method Browse(TBrowser*) const
+
+bool ROOT::TMetaUtils::HasBrowse(const clang::CXXRecordDecl *cl, const cling::Interpreter &interp)
+{
+   const char *proto = "TBrowser*";
+   const char *name = "Browse";
+
+   return CheckPublicFuncWithProto(cl, name, proto, interp, false /*diags*/, true /* objectIsConst */);
+}
+
 ////////////////////////////////////////////////////////////////////////////////
 /// Return true if the class has a method Merge(TCollection*,TFileMergeInfo*)
 
@@ -1806,6 +1817,9 @@ void ROOT::TMetaUtils::WriteClassInit(std::ostream& finalString,
    if (HasCustomConvStreamerMemberFunction(cl, decl, interp, normCtxt)) {
       finalString << "   static void conv_streamer_" << mappedname.c_str() << "(TBuffer &buf, void *obj, const TClass*);" << "\n";
    }
+   if (HasBrowse(decl, interp)) {
+      finalString << "   static void browse_" << mappedname.c_str() << "(const void *obj, TBrowser *b);" << "\n";
+   }
    if (HasNewMerge(decl, interp) || HasOldMerge(decl, interp)) {
       finalString << "   static Long64_t merge_" << mappedname.c_str() << "(void *obj, TCollection *coll,TFileMergeInfo *info);" << "\n";
    }
@@ -1986,6 +2000,9 @@ void ROOT::TMetaUtils::WriteClassInit(std::ostream& finalString,
       // We have a custom member function streamer or an older (not StreamerInfo based) automatic streamer.
       finalString << "      instance.SetConvStreamerFunc(&conv_streamer_" << mappedname.c_str() << ");" << "\n";
    }
+   if (HasBrowse(decl, interp)) {
+      finalString << "      instance.SetBrowse(&browse_" << mappedname.c_str() << ");" << "\n";
+   }
    if (HasNewMerge(decl, interp) || HasOldMerge(decl, interp)) {
       finalString << "      instance.SetMerge(&merge_" << mappedname.c_str() << ");" << "\n";
    }
@@ -2604,6 +2621,13 @@ void ROOT::TMetaUtils::WriteAuxFunctions(std::ostream& finalString,
       finalString << "   // Wrapper around a custom streamer member function." << "\n" << "   static void conv_streamer_" << mappedname.c_str() << "(TBuffer &buf, void *obj, const TClass *onfile_class) {" << "\n" << "      ((" << classname.c_str() << "*)obj)->" << classname.c_str() << "::Streamer(buf,onfile_class);" << "\n" << "   }" << "\n";
    }
 
+   if (HasBrowse(decl, interp)) {
+      finalString << "   // Wrapper around the browse function." << "\n"
+                  << "   static void browse_" << mappedname.c_str() << "(const void *obj, TBrowser *b) {" << "\n"
+                  << "      return ((const " << classname.c_str() << "*)obj)->Browse(b);" << "\n"
+                  << "   }" << "\n";
+   }
+
    if (HasNewMerge(decl, interp)) {
       finalString << "   // Wrapper around the merge function." << "\n" << "   static Long64_t merge_" << mappedname.c_str() << "(void *obj,TCollection *coll,TFileMergeInfo *info) {" << "\n" << "      return ((" << classname.c_str() << "*)obj)->Merge(coll,info);" << "\n" << "   }" << "\n";
    } else if (HasOldMerge(decl, interp)) {