Logo ROOT  
Reference Guide
rootalias.C
Go to the documentation of this file.
1 /// \file
2 /// \ingroup tutorial_legacy
3 /// Defines aliases:
4 /// - `ls(path)`
5 /// - `edit(filename)`
6 /// - `dir(path)`
7 /// - `pwd()`
8 /// - `cd(path)`
9 ///
10 /// \macro_code
11 ///
12 /// \author Rene Brun
13 
14 //______________________________________________________________________________
15 void edit(char *file)
16 {
17  char s[64], *e;
18  if (!strcmp(gSystem->GetName(), "WinNT")) {
19  if ((e = getenv("EDITOR")))
20  sprintf(s, "start %s %s", e, file);
21  else
22  sprintf(s, "start notepad %s", file);
23  } else {
24  if ((e = getenv("EDITOR")))
25  sprintf(s, "%s %s", e, file);
26  else
27  sprintf(s, "xterm -e vi %s &", file);
28  }
29  gSystem->Exec(s);
30 }
31 
32 //______________________________________________________________________________
33 void ls(char *path=0)
34 {
35  char s[256];
36  strcpy(s, (!strcmp(gSystem->GetName(), "WinNT")) ? "dir /w " : "ls ");
37  if (path) strcat(s,path);
38  gSystem->Exec(s);
39 }
40 
41 //______________________________________________________________________________
42 void dir(char *path=0)
43 {
44  char s[256];
45  strcpy(s,(!strcmp(gSystem->GetName(), "WinNT")) ? "dir " : "ls -l ");
46  if (path) strcat(s,path);
47  gSystem->Exec(s);
48 }
49 
50 //______________________________________________________________________________
51 const char *pwd()
52 {
53  return gSystem->WorkingDirectory();
54 }
55 
56 //______________________________________________________________________________
57 const char *cd(char *path=0)
58 {
59  if (path)
60  gSystem->ChangeDirectory(path);
61  return pwd();
62 }
63 
64 TCanvas *bench = 0;
65 //______________________________________________________________________________
66 void bexec2(char *macro)
67 {
68  printf("in bexec dir=%s\n",pwd());
69  if (gROOT->IsBatch()) printf("Processing benchmark: %s\n",macro);
70  TPaveText *summary = (TPaveText*)bench->GetPrimitive("TPave");
71  TText *tmacro = summary->GetLineWith(macro);
72  if (tmacro) tmacro->SetTextColor(4);
73  bench->Modified(); bench->Update();
74 
75  gROOT->Macro(macro);
76 
77  TPaveText *summary2 = (TPaveText*)bench->GetPrimitive("TPave");
78  TText *tmacro2 = summary2->GetLineWith(macro);
79  if (tmacro2) tmacro2->SetTextColor(2);
80  bench->Modified(); bench->Update();
81 }
TPaveText::GetLineWith
virtual TText * GetLineWith(const char *text) const
Get Pointer to first containing string text in this pavetext.
Definition: TPaveText.cxx:290
e
#define e(i)
Definition: RSha256.hxx:103
TSystem::ChangeDirectory
virtual Bool_t ChangeDirectory(const char *path)
Change directory.
Definition: TSystem.cxx:861
TPad::GetPrimitive
virtual TObject * GetPrimitive(const char *name) const
Get primitive.
Definition: TPad.cxx:2887
TAttText::SetTextColor
virtual void SetTextColor(Color_t tcolor=1)
Set the text color.
Definition: TAttText.h:43
TGeant4Unit::s
static constexpr double s
Definition: TGeant4SystemOfUnits.h:162
TSystem::WorkingDirectory
virtual const char * WorkingDirectory()
Return working directory.
Definition: TSystem.cxx:870
TPad::Modified
void Modified(Bool_t flag=1)
Definition: TPad.h:414
TSystem::Exec
virtual Int_t Exec(const char *shellcmd)
Execute a command.
Definition: TSystem.cxx:654
gSystem
R__EXTERN TSystem * gSystem
Definition: TSystem.h:559
TText
Base class for several text objects.
Definition: TText.h:22
TCanvas
The Canvas class.
Definition: TCanvas.h:23
file
Definition: file.py:1
TCanvas::Update
virtual void Update()
Update canvas pad buffers.
Definition: TCanvas.cxx:2504
TPaveText
A Pave (see TPave) with text, lines or/and boxes inside.
Definition: TPaveText.h:21
TNamed::GetName
virtual const char * GetName() const
Returns name of object.
Definition: TNamed.h:47
gROOT
#define gROOT
Definition: TROOT.h:406