00001 // @(#)root/clarens:$Id: TClProxy.cxx 20882 2007-11-19 11:31:26Z rdm $ 00002 // Author: Maarten Ballintijn 26/10/2004 00003 00004 /************************************************************************* 00005 * Copyright (C) 1995-2005, Rene Brun and Fons Rademakers. * 00006 * All rights reserved. * 00007 * * 00008 * For the licensing terms see $ROOTSYS/LICENSE. * 00009 * For the list of contributors see $ROOTSYS/README/CREDITS. * 00010 *************************************************************************/ 00011 00012 ////////////////////////////////////////////////////////////////////////// 00013 // // 00014 // TClProxy // 00015 // // 00016 // // 00017 ////////////////////////////////////////////////////////////////////////// 00018 00019 #include "TClProxy.h" 00020 00021 00022 #include "xmlrpc.h" 00023 #include "xmlrpc_client.h" 00024 00025 00026 #include "Riostream.h" 00027 #include "TClass.h" 00028 #include "TXmlRpc.h" 00029 00030 00031 ClassImp(TClProxy) 00032 00033 00034 //______________________________________________________________________________ 00035 TClProxy::TClProxy(const Char_t *service, TXmlRpc *rpc) 00036 : fRpc(rpc) 00037 { 00038 fRpc->SetService(service); 00039 } 00040 00041 //______________________________________________________________________________ 00042 void TClProxy::Print(Option_t *) const 00043 { 00044 cout << IsA()->GetName() 00045 << ": service " << fRpc->GetService() << " @ " 00046 << fRpc->GetServer() << endl; 00047 } 00048 00049 00050 //______________________________________________________________________________ 00051 Bool_t TClProxy::RpcFailed(const Char_t *member, const Char_t *what) 00052 { 00053 // Test the environment for an error and report 00054 TString where(this->ClassName()); 00055 where += "::"; 00056 where += member; 00057 00058 return fRpc->RpcFailed(where, what); 00059 00060 }
1.5.1