Changeset 1526

Timestamp:

09/16/02 10:37:50 (22 years ago)

Author:

tbretz

Message:

*** empty log message ***

Location:

trunk/MagicSoft/Mars

Files:

• Changelog (modified) (1 diff)
• mbase/MEvtLoop.h (modified) (1 diff)
• mbase/MParContainer.cc (modified) (1 diff)

trunk/MagicSoft/Mars/Changelog

@@ -65 +65 @@
    * mhist/MHStarMap.cc:
      - fixed some comments
+
+   * mbase/MEvtLoop.[h,cc], MParContainer.[h,cc]:
+     - added support for writing two or more Evtloops into one macro
+
 
 

trunk/MagicSoft/Mars/mbase/MEvtLoop.h

@@ -30 +30 @@
     Bool_t HasDuplicateNames(const TString txt) const;
     Bool_t HasDuplicateNames(TObjArray &arr, const TString txt) const;
+
+    void StreamPrimitive(ofstream &out) const;
 
 public:

trunk/MagicSoft/Mars/mbase/MParContainer.cc

@@ -348 +348 @@
 {
     TClass *cls = IsA()->GetBaseDataMember(name);
-    if (!cls)
+    if (cls)
     {
-        *fLog << err << "'" << name << "' is neither a member of ";
-        *fLog << GetDescriptor() << " nor one of its base classes." << endl;
-        return NULL;
+        TDataMember *member = cls->GetDataMember(name);
+        if (!member)
+        {
+            *fLog << err << "Datamember '" << name << "' not in " << GetDescriptor() << endl;
+            return NULL;
+        }
+
+        TMethodCall *call = member->GetterMethod();
+        if (call)
+            return call;
     }
 
-    TDataMember *member = cls->GetDataMember(name);
-    if (!member)
-    {
-        *fLog << err << "Datamember '" << name << "' not in " << GetDescriptor() << endl;
-        return NULL;
-    }
-
-    TMethodCall *call = member->GetterMethod();
-    if (!call)
-    {
-        *fLog << err << "Sorry, no getter method found for " << name << endl;
-        return NULL;
-    }
-
-    return call;
+    *fLog << warn << "No standard access for '" << name << "' in ";
+    *fLog << GetDescriptor() << " or one of its base classes." << endl;
+
+    TMethodCall *call = NULL;
+
+    *fLog << warn << "Trying to find MethodCall '" << IsA()->GetName();
+    *fLog << "::Get" << name << "' instead <LEAKS MEMORY>" << endl;
+    call = new TMethodCall(IsA(), (TString)"Get"+name, "");
+    if (call->GetMethod())
+        return call;
+
+    delete call;
+
+    *fLog << warn << "Trying to find MethodCall '" << IsA()->GetName();
+    *fLog << "::" << name << "' instead <LEAKS MEMORY>" << endl;
+    call = new TMethodCall(IsA(), name, "");
+    if (call->GetMethod())
+        return call;
+
+    delete call;
+
+    *fLog << err << "Sorry, no getter method found for " << name << endl;
+    return NULL;
 }