Logo ROOT  
Reference Guide
exec_macro.C
Go to the documentation of this file.
1 /// \file
2 /// \ingroup tutorial_gui
3 /// This utility macro executes the macro "macro" given as first argument and save a capture in a png file.
4 /// This macro is used by stressGUI to execute and compare the output of the GUI tutorials.
5 ///
6 /// \macro_code
7 ///
8 /// \author Bertrand Bellenot
9 
10 #include "TSystem.h"
11 #include "TString.h"
12 #include "TGClient.h"
13 #include "TGWindow.h"
14 #include "TClass.h"
15 #include "THashList.h"
16 #include "TROOT.h"
17 #include "TInterpreter.h"
18 #include "TEnv.h"
19 #include "TVirtualX.h"
20 #include "TImage.h"
21 
22 //______________________________________________________________________________
23 Int_t exec_macro(const char *macro, Bool_t comp = kFALSE, Bool_t save = kTRUE)
24 {
25 
26  enum EErrorCodes {
27  kSuccess,
28  kScriptDirNotFound,
29  kCannotRunScript,
30  kNumErrorCodes
31  };
32 
33  if (gROOT->IsBatch() || !(gClient))
34  return kCannotRunScript;
35  TString pwd(gSystem->pwd());
36  if (!gSystem->cd(gSystem->GetDirName(macro)))
37  return kScriptDirNotFound;
38  Int_t err = 0;
39  TString cmd(".x ");
40  cmd += gSystem->BaseName(macro);
41  if (comp) cmd += "+";
42  gVirtualX->Sync(1);
43  gROOT->ProcessLine(cmd, &err);
44  if (err != TInterpreter::kNoError)
45  return kCannotRunScript;
46  gSystem->cd(pwd);
47 
48  UInt_t nMainFrames = 0;
49  TClass* clGMainFrame = TClass::GetClass("TGMainFrame");
50  TGWindow* win = 0;
51  TIter iWin(gClient->GetListOfWindows());
52  while ((win = (TGWindow*)iWin())) {
53  const TObject* winGetParent = win->GetParent();
54  Bool_t winIsMapped = kFALSE;
55  if (winGetParent == gClient->GetDefaultRoot())
56  winIsMapped = kTRUE;//win->IsMapped();
57  if (winIsMapped && win->InheritsFrom(clGMainFrame)) {
58  win->MapRaised();
59  if (save) {
60  TString outfile = gSystem->BaseName(macro);
61  outfile.ReplaceAll(".C", TString::Format("_%d.png",
62  ++nMainFrames));
63  TImage *img = TImage::Create();
64  win->RaiseWindow();
65  img->FromWindow(win->GetId());
66  img->WriteImage(outfile.Data());
67  delete img;
68  }
69  }
70  }
71  if (!gEnv->GetValue("X11.Sync", 0))
72  gVirtualX->Sync(0);
73  return kSuccess;
74 }
TGWindow
Definition: TGWindow.h:31
kTRUE
const Bool_t kTRUE
Definition: RtypesCore.h:91
TSystem::cd
Bool_t cd(const char *path)
Definition: TSystem.h:421
TImage::Create
static TImage * Create()
Create an image.
Definition: TImage.cxx:35
gEnv
R__EXTERN TEnv * gEnv
Definition: TEnv.h:171
TSystem::BaseName
virtual const char * BaseName(const char *pathname)
Base name of a file name. Base name of /user/root is root.
Definition: TSystem.cxx:933
TGWindow::RaiseWindow
virtual void RaiseWindow()
raise window
Definition: TGWindow.cxx:207
gVirtualX
#define gVirtualX
Definition: TVirtualX.h:338
TString::Data
const char * Data() const
Definition: TString.h:369
TGWindow::MapRaised
virtual void MapRaised()
map raised
Definition: TGWindow.cxx:175
Int_t
int Int_t
Definition: RtypesCore.h:45
TImage
An abstract interface to image processing library.
Definition: TImage.h:29
TClass.h
TEnv::GetValue
virtual Int_t GetValue(const char *name, Int_t dflt) const
Returns the integer value for a resource.
Definition: TEnv.cxx:491
TVirtualX.h
TString::Format
static TString Format(const char *fmt,...)
Static method which formats a string using a printf style format descriptor and return a TString.
Definition: TString.cxx:2331
TEnv.h
TString
Basic string class.
Definition: TString.h:136
Bool_t
bool Bool_t
Definition: RtypesCore.h:63
TGObject::GetId
Handle_t GetId() const
Definition: TGObject.h:47
TObject::InheritsFrom
virtual Bool_t InheritsFrom(const char *classname) const
Returns kTRUE if object inherits from class "classname".
Definition: TObject.cxx:445
TString.h
TGWindow.h
TSystem::GetDirName
virtual TString GetDirName(const char *pathname)
Return the directory name in pathname.
Definition: TSystem.cxx:1030
TString::ReplaceAll
TString & ReplaceAll(const TString &s1, const TString &s2)
Definition: TString.h:692
TImage.h
TROOT.h
gClient
#define gClient
Definition: TGClient.h:166
TSystem.h
ROOT::EFromHumanReadableSize::kSuccess
@ kSuccess
kFALSE
const Bool_t kFALSE
Definition: RtypesCore.h:92
UInt_t
unsigned int UInt_t
Definition: RtypesCore.h:46
TClass::GetClass
static TClass * GetClass(const char *name, Bool_t load=kTRUE, Bool_t silent=kFALSE)
Static method returning pointer to TClass of the specified class name.
Definition: TClass.cxx:2946
TImage::WriteImage
virtual void WriteImage(const char *, EImageFileTypes=TImage::kUnknown)
Definition: TImage.h:115
TGClient.h
THashList.h
gSystem
R__EXTERN TSystem * gSystem
Definition: TSystem.h:559
TGWindow::GetParent
const TGWindow * GetParent() const
Definition: TGWindow.h:84
TInterpreter.h
TClass
TClass instances represent classes, structs and namespaces in the ROOT type system.
Definition: TClass.h:80
TObject
Mother of all ROOT objects.
Definition: TObject.h:37
TInterpreter::kNoError
@ kNoError
Definition: TInterpreter.h:77
TIter
Definition: TCollection.h:233
TImage::FromWindow
virtual void FromWindow(Drawable_t, Int_t=0, Int_t=0, UInt_t=0, UInt_t=0)
Definition: TImage.h:244
TSystem::pwd
const char * pwd()
Definition: TSystem.h:422
gROOT
#define gROOT
Definition: TROOT.h:406