00001 // ===================================================================== 00002 // $Id: TObjectSocket.cc,v 1.4 2004/03/07 10:30:32 goiwai Exp $ 00003 // $Name: CLDAQ-1-14-03 $ 00004 // $Log: TObjectSocket.cc,v $ 00005 // Revision 1.4 2004/03/07 10:30:32 goiwai 00006 // ROOTに組みこむためのおまじないマクロを埋めこみました。 00007 // 全てにおいて完全に動作するわけではありません。 00008 // 00009 // Revision 1.3 2003/10/06 17:02:42 goiwai 00010 // *** empty log message *** 00011 // 00012 // Revision 1.2 2003/07/30 16:19:31 goiwai 00013 // ファイルにコミットログをつけることにしました. 00014 // 00015 // ===================================================================== 00016 #include "TObjectSocket.hh" 00017 00018 TObjectSocket::TObjectSocket( Tint portnumber ) 00019 : theServerDescriptor( -1 ), thePortNumber( portnumber ) 00020 {;} 00021 00022 TObjectSocket::~TObjectSocket() 00023 {;} 00024 00025 Tint TObjectSocket::OpenServer() 00026 { 00027 theServerDescriptor = socket( PF_INET, SOCK_STREAM, 0 ); 00028 if ( theServerDescriptor == -1 ) 00029 perror( "TObjectSocket::OpenServer" ); 00030 return theServerDescriptor; 00031 } 00032 00033 Tint TObjectSocket::CloseServer() 00034 { 00035 if ( shutdown( theServerDescriptor, 2 ) == -1 ) { 00036 perror( "TObjectSocket::CloseServer" ); 00037 return -1; 00038 } 00039 00040 if ( close( theServerDescriptor ) == -1 ) { 00041 perror( "TObjectSocket::CloseServer" ); 00042 return -1; 00043 } 00044 theServerDescriptor = -1; 00045 return 0; 00046 } 00047 00048 #ifdef __CLDAQ_ROOT_DLL 00049 ClassImp(TObjectSocket) 00050 #endif