static void s_fileClose( PHB_FILE pFile ) { hb_socketShutdown( pFile->sd, HB_SOCKET_SHUT_RDWR ); hb_socketClose( pFile->sd ); hb_fsSetError( hb_socketGetError() ); hb_xfree( pFile ); }
static HB_GARBAGE_FUNC( hb_inetSocketFinalize ) { PHB_SOCKET_STRUCT socket = ( PHB_SOCKET_STRUCT ) Cargo; if( socket->sd != HB_NO_SOCKET ) { hb_socketShutdown( socket->sd, HB_SOCKET_SHUT_RDWR ); hb_inetCloseSocket( socket ); } if( socket->pPeriodicBlock ) { hb_itemRelease( socket->pPeriodicBlock ); socket->pPeriodicBlock = NULL; } if( socket->remote ) { hb_xfree( socket->remote ); socket->remote = NULL; } if( socket->buffer ) { hb_xfree( socket->buffer ); socket->buffer = NULL; } hb_inetCloseStream( socket ); }
static HB_BOOL s_fileConfigure( PHB_FILE pFile, int iIndex, PHB_ITEM pValue ) { switch( iIndex ) { case HB_VF_TIMEOUT: { HB_MAXINT timeout = pFile->timeout; if( HB_IS_NUMERIC( pValue ) ) pFile->timeout = hb_itemGetNInt( pValue ); hb_itemPutNInt( pValue, timeout ); return HB_TRUE; } case HB_VF_SHUTDOWN: { HB_SOCKET sd = hb_sockexGetHandle( pFile->sock ); if( HB_IS_NUMERIC( pValue ) && sd != HB_NO_SOCKET ) { switch( hb_itemGetNI( pValue ) ) { case FO_READ: hb_socketShutdown( sd, HB_SOCKET_SHUT_RD ); break; case FO_WRITE: hb_socketShutdown( sd, HB_SOCKET_SHUT_WR ); break; case FO_READWRITE: hb_socketShutdown( sd, HB_SOCKET_SHUT_RDWR ); break; } } hb_itemClear( pValue ); return HB_TRUE; } case HB_VF_RDHANDLE: case HB_VF_WRHANDLE: hb_itemPutNInt( pValue, ( HB_NHANDLE ) hb_sockexGetHandle( pFile->sock ) ); return HB_TRUE; } return HB_FALSE; }
static int hb_inetCloseSocket( PHB_SOCKET_STRUCT socket, HB_BOOL fShutDown ) { int ret; hb_inetCloseStream( socket ); if( fShutDown ) hb_socketShutdown( socket->sd, HB_SOCKET_SHUT_RDWR ); ret = hb_socketClose( socket->sd ); socket->sd = HB_NO_SOCKET; socket->inbuffer = 0; return ret; }
int hb_sockexRawClear( PHB_SOCKEX pSock, HB_BOOL fClose ) { int iResult = 0; if( fClose && pSock->sd != HB_NO_SOCKET ) { if( pSock->fShutDown ) hb_socketShutdown( pSock->sd, HB_SOCKET_SHUT_RDWR ); iResult = hb_socketClose( pSock->sd ); } if( pSock->buffer ) hb_xfree( pSock->buffer ); memset( pSock, 0, sizeof( *pSock ) ); pSock->sd = HB_NO_SOCKET; return iResult; }
static PHB_FILE s_fileOpen( PHB_FILE_FUNCS pFuncs, const char * pszName, const char * pszDefExt, HB_FATTR nExFlags, const char * pPaths, PHB_ITEM pError ) { const char * pszHost = pszName + FILE_PREFIX_LEN, * ptr; PHB_FILE pFile = NULL; HB_ERRCODE errcode = 0; HB_SIZE nLen = 0; int iPort = 0; HB_MAXINT timeout = -1; HB_SYMBOL_UNUSED( pFuncs ); HB_SYMBOL_UNUSED( pszDefExt ); HB_SYMBOL_UNUSED( pPaths ); if( ( ptr = strchr( pszHost, ':' ) ) != NULL && ptr != pszHost ) { nLen = ptr - pszHost; ++ptr; while( HB_ISDIGIT( * ptr ) ) iPort = iPort * 10 + ( * ptr++ - '0' ); if( * ptr == ':' ) { ++ptr; while( HB_ISDIGIT( * ptr ) ) timeout = HB_MAX( timeout, 0 ) * 10 + ( * ptr++ - '0' ); } if( * ptr != 0 && * ptr != ':' ) iPort = 0; } if( iPort > 0 ) { char * pszAddr, * pszIpAddr; hb_socketAutoInit(); pszAddr = hb_strndup( pszHost, nLen ); pszIpAddr = hb_socketResolveAddr( pszAddr, HB_SOCKET_AF_INET ); hb_xfree( pszAddr ); if( pszIpAddr ) { HB_SOCKET sd = hb_socketOpen( HB_SOCKET_PF_INET, HB_SOCKET_PT_STREAM, 0 ); if( sd != HB_NO_SOCKET ) { void * pSockAddr; unsigned uiLen; if( hb_socketInetAddr( &pSockAddr, &uiLen, pszIpAddr, iPort ) ) { hb_socketSetKeepAlive( sd, HB_TRUE ); if( hb_socketConnect( sd, pSockAddr, uiLen, timeout ) == 0 ) { PHB_SOCKEX sock; switch( nExFlags & ( FO_READ | FO_WRITE | FO_READWRITE ) ) { case FO_READ: hb_socketShutdown( sd, HB_SOCKET_SHUT_WR ); break; case FO_WRITE: hb_socketShutdown( sd, HB_SOCKET_SHUT_RD ); break; } sock = hb_sockexNew( sd, NULL, NULL ); if( sock ) { hb_sockexSetShutDown( sock, HB_TRUE ); hb_sockexSetAutoFlush( sock, HB_TRUE ); pFile = s_fileNew( sock, timeout ); sd = HB_NO_SOCKET; } } hb_xfree( pSockAddr ); } if( sd != HB_NO_SOCKET ) { errcode = hb_socketGetError(); hb_socketClose( sd ); } } hb_xfree( pszIpAddr ); } if( errcode == 0 && pFile == NULL ) errcode = hb_socketGetError(); } else errcode = HB_SOCKET_ERR_WRONGADDR; hb_fsSetError( errcode ); if( pError ) { hb_errPutFileName( pError, pszName ); if( pFile == NULL ) { hb_errPutOsCode( pError, errcode ); hb_errPutGenCode( pError, ( HB_ERRCODE ) EG_OPEN ); } } return pFile; }