Changeset 1865 for trunk/MagicSoft/Mars/macros/rootlogon.C

Timestamp:

03/24/03 14:59:07 (22 years ago)

Author:

tbretz

Message:

*** empty log message ***

File:

• trunk/MagicSoft/Mars/macros/rootlogon.C (modified) (4 diffs)

trunk/MagicSoft/Mars/macros/rootlogon.C

@@ -42 +42 @@
 }
 
-void load()
+void load(TString &dir)
 {
     if (isloaded())
@@ -49 +49 @@
     cout << "Loading 'mars.so'... " << flush;
 
-    if (gSystem->Load("mars.so")!=0)
+    if (gSystem->Load(dir.IsNull() ? "mars.so" : dir+"lib/mars.so")!=0)
         cout << "error." << endl;
     else
@@ -60 +60 @@
     cout << endl;
 }
-
+/*
 void make()
 {
@@ -73 +73 @@
     load();
 }
-
+*/
 void rootlogon()
 {
     cout << endl;
 
-    load();
+    TString dir = gSystem->Getenv("MARSSYS");
 
-    gInterpreter->AddIncludePath("macros");
-    gInterpreter->AddIncludePath("manalysis");
-    gInterpreter->AddIncludePath("mbase");
-    gInterpreter->AddIncludePath("mdata");
-    gInterpreter->AddIncludePath("mfileio");
-    gInterpreter->AddIncludePath("mfilter");
-    gInterpreter->AddIncludePath("mgeom");
-    gInterpreter->AddIncludePath("mgui");
-    gInterpreter->AddIncludePath("mhist");
-    gInterpreter->AddIncludePath("mmain");
-    gInterpreter->AddIncludePath("mmc");
-    gInterpreter->AddIncludePath("mmontecarlo");
-    gInterpreter->AddIncludePath("mraw");
-    gInterpreter->AddIncludePath("mtools");
+    if (!dir.IsNull())
+    {
+        cout << "Mars found in " << dir << " (MARSSYS)" << endl << endl;
+
+        if (!dir.EndsWith("/"))
+            dir += "/";
+    }
+
+    load(dir);
+
+    gInterpreter->AddIncludePath(dir+"macros");
+    gInterpreter->AddIncludePath(dir+"manalysis");
+    gInterpreter->AddIncludePath(dir+"mbase");
+    gInterpreter->AddIncludePath(dir+"mdata");
+    gInterpreter->AddIncludePath(dir+"mfileio");
+    gInterpreter->AddIncludePath(dir+"mfilter");
+    gInterpreter->AddIncludePath(dir+"mgeom");
+    gInterpreter->AddIncludePath(dir+"mgui");
+    gInterpreter->AddIncludePath(dir+"mhist");
+    gInterpreter->AddIncludePath(dir+"mmain");
+    gInterpreter->AddIncludePath(dir+"mmc");
+    gInterpreter->AddIncludePath(dir+"mmontecarlo");
+    gInterpreter->AddIncludePath(dir+"mraw");
+    gInterpreter->AddIncludePath(dir+"mtools");
 
     if (TString("linux")==gSystem->GetBuildArch())