Logo ROOT  
Reference Guide
 
Loading...
Searching...
No Matches
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//______________________________________________________________________________
15void 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//______________________________________________________________________________
33void 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//______________________________________________________________________________
42void 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//______________________________________________________________________________
51const char *pwd()
52{
53 return gSystem->WorkingDirectory();
54}
55
56//______________________________________________________________________________
57const char *cd(char *path=0)
58{
59 if (path)
61 return pwd();
62}
63
64TCanvas *bench = 0;
65//______________________________________________________________________________
66void 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}
#define e(i)
Definition RSha256.hxx:103
#define gROOT
Definition TROOT.h:406
R__EXTERN TSystem * gSystem
Definition TSystem.h:559
virtual void SetTextColor(Color_t tcolor=1)
Set the text color.
Definition TAttText.h:43
The Canvas class.
Definition TCanvas.h:23
void Update() override
Update canvas pad buffers.
Definition TCanvas.cxx:2504
virtual const char * GetName() const
Returns name of object.
Definition TNamed.h:47
void Modified(Bool_t flag=1) override
Definition TPad.h:414
TObject * GetPrimitive(const char *name) const override
Get primitive.
Definition TPad.cxx:2891
A Pave (see TPave) with text, lines or/and boxes inside.
Definition TPaveText.h:21
virtual TText * GetLineWith(const char *text) const
Get Pointer to first containing string text in this pavetext.
virtual Int_t Exec(const char *shellcmd)
Execute a command.
Definition TSystem.cxx:654
virtual Bool_t ChangeDirectory(const char *path)
Change directory.
Definition TSystem.cxx:861
virtual const char * WorkingDirectory()
Return working directory.
Definition TSystem.cxx:870
Base class for several text objects.
Definition TText.h:22
Definition file.py:1