RMenuItem.cxx

Go to the documentation of this file.

/// \file RMenuItem.cxx
/// \ingroup Base ROOT7
/// \author Sergey Linev
/// \date 2017-07-18
/// \warning This is part of the ROOT 7 prototype! It will change without notice. It might trigger earthquakes. Feedback
/// is welcome!
 
/*************************************************************************
 * Copyright (C) 1995-2017, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/
 
#include "ROOT/RMenuItem.hxx"
 
#include "TROOT.h"
#include "TClass.h"
#include "TList.h"
#include "TMethod.h"
#include "TMethodArg.h"
#include "TMethodCall.h"
#include "TBufferJSON.h"
 
void ROOT::Experimental::RMenuItems::Cleanup()
{
   for (unsigned n = 0; n < fItems.size(); ++n) delete fItems[n];
 
   fItems.clear();
}
 
void ROOT::Experimental::RMenuItems::PopulateObjectMenu(void *obj, TClass *cl)
{
   Cleanup();
 
   TList *lst = new TList;
   cl->GetMenuItems(lst);
 
   TIter iter(lst);
   TMethod *m = 0;
 
   while ((m = (TMethod *)iter()) != 0) {
 
      if (m->IsMenuItem() == kMenuToggle) {
         TString getter;
         if (m->Getter() && strlen(m->Getter()) > 0) {
            getter = m->Getter();
         } else if (strncmp(m->GetName(), "Set", 3) == 0) {
            getter = TString(m->GetName())(3, strlen(m->GetName()) - 3);
            if (cl->GetMethodAllAny(TString("Has") + getter))
               getter = TString("Has") + getter;
            else if (cl->GetMethodAllAny(TString("Get") + getter))
               getter = TString("Get") + getter;
            else if (cl->GetMethodAllAny(TString("Is") + getter))
               getter = TString("Is") + getter;
            else
               getter = "";
         }
 
         if ((getter.Length() > 0) && cl->GetMethodAllAny(getter)) {
            // execute getter method to get current state of toggle item
 
            TMethodCall *call = new TMethodCall(cl, getter, "");
 
            if (call->ReturnType() == TMethodCall::kLong) {
               Long_t l(0);
               call->Execute(obj, l);
 
               AddChkMenuItem(m->GetName(), m->GetTitle(), l != 0, Form("%s(%s)", m->GetName(), (l != 0) ? "0" : "1"));
 
            } else {
               // Error("CheckModifiedFlag", "Cannot get toggle value with getter %s", getter.Data());
            }
 
            delete call;
         }
      } else {
         TList *args = m->GetListOfMethodArgs();
 
         if (!args || (args->GetSize() == 0)) {
            AddMenuItem(m->GetName(), m->GetTitle(), Form("%s()", m->GetName()));
         } else {
            Detail::RArgsMenuItem *item = new Detail::RArgsMenuItem(m->GetName(), m->GetTitle());
            item->SetExec(Form("%s()", m->GetName()));
 
            TIter args_iter(args);
            TMethodArg *arg = 0;
 
            while ((arg = dynamic_cast<TMethodArg *>(args_iter())) != 0) {
               Detail::RMenuArgument menu_arg(arg->GetName(), arg->GetTitle(), arg->GetFullTypeName());
               if (arg->GetDefault()) menu_arg.SetDefault(arg->GetDefault());
               item->AddArg(menu_arg);
            }
 
            Add(item);
         }
      }
   }
 
   delete lst;
}
 
std::string ROOT::Experimental::RMenuItems::ProduceJSON()
{
   TClass *cl = gROOT->GetClass("std::vector<ROOT::Experimental::Detail::RMenuItem*>");
 
   // FIXME: got problem with std::list<RMenuItem>, can be generic TBufferJSON
   TString res = TBufferJSON::ConvertToJSON(&fItems, cl);
 
   // printf("Got JSON %s\n", res.Data());
 
   return res.Data();
}