fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-07-10 20:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbxbp/xbpdev.ch
    + Added SVN ID.

  * source/rtl/hbinet.c
    + Added hbU16 casts to silence very old warnings.

  * source/rtl/gtapiu.c
    * Tweaked type and constant usage.
This commit is contained in:
Viktor Szakats
2009-07-10 18:20:49 +00:00
parent 1da9a34b87
commit 0cf77adbaf
4 changed files with 38 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -17,6 +17,16 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-07-10 20:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbxbp/xbpdev.ch
+ Added SVN ID.
* source/rtl/hbinet.c
+ Added hbU16 casts to silence very old warnings.
* source/rtl/gtapiu.c
* Tweaked type and constant usage.
2009-07-10 18:32 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* include/hbgtcore.h
* include/hbapigt.h

8
harbour/contrib/hbxbp/xbpdev.ch
View File

@@ -1,5 +1,8 @@
/*
* $Id$
*/
#ifndef _XBPDEV_CH
#ifndef _XBPDEV_CH
/*----------------------------------------------------------------------*/
@@ -121,6 +124,5 @@
/*----------------------------------------------------------------------*/
#define _XBPDEV_CH
#define _XBPDEV_CH
#endif

28
harbour/source/rtl/gtapiu.c
View File

@@ -96,65 +96,65 @@ void hb_gtWPos( HB_GT_WND * wnd, HB_GT_RECT * rect )
HB_SYMBOL_UNUSED( rect );
}
BOOL hb_gtWVis( HB_GT_WND * wnd, USHORT uiStatus )
BOOL hb_gtWVis( HB_GT_WND * wnd, int iStatus ) /* USHORT in CA-Cl*pper [vszakats] */
{
/* TODO: */
HB_SYMBOL_UNUSED( wnd );
HB_SYMBOL_UNUSED( uiStatus );
HB_SYMBOL_UNUSED( iStatus );
return FALSE;
}
USHORT hb_gtSLR( HB_GT_SLR * pSLR ) /* System Level Request */
HB_ERRCODE hb_gtSLR( HB_GT_SLR * pSLR ) /* System Level Request */
{
/* Do nothing in Harbour, since the low-level GT API is
implemented with a different method than in CA-Cl*pper. */
HB_SYMBOL_UNUSED( pSLR );
return 1;
return HB_FAILURE;
}
USHORT hb_gtModalRead( void * dummy )
HB_ERRCODE hb_gtModalRead( void * dummy )
{
/* TODO: */
HB_SYMBOL_UNUSED( dummy );
return 1;
return HB_FAILURE;
}
USHORT hb_gtFlushCursor( void )
HB_ERRCODE hb_gtFlushCursor( void )
{
/* TODO: */
return 1;
return HB_FAILURE;
}
USHORT hb_gtSetColor( HB_GT_RGB * color )
HB_ERRCODE hb_gtSetColor( HB_GT_RGB * color )
{
/* TODO: */
HB_SYMBOL_UNUSED( color );
return 1;
return HB_FAILURE;
}
USHORT hb_gtGetColor( HB_GT_RGB * color )
HB_ERRCODE hb_gtGetColor( HB_GT_RGB * color )
{
/* TODO: */
HB_SYMBOL_UNUSED( color );
return 1;
return HB_FAILURE;
}
USHORT hb_gtSetBorder( HB_GT_RGB * color )
HB_ERRCODE hb_gtSetBorder( HB_GT_RGB * color )
{
/* TODO: */
HB_SYMBOL_UNUSED( color );
return 1;
return HB_FAILURE;
}

18
harbour/source/rtl/hbinet.c
View File

@@ -1663,10 +1663,10 @@ HB_FUNC( HB_INETSERVER )
/* Reusable socket; under unix, do not wait it is unused */
setsockopt( Socket->com, SOL_SOCKET, SO_REUSEADDR, ( const char * ) &iOpt, sizeof( iOpt ) );
iPort = htons( hb_parni( 1 ) );
iPort = htons( ( hbU16 ) hb_parni( 1 ) );
Socket->remote.sin_family = AF_INET;
Socket->remote.sin_port = iPort;
Socket->remote.sin_port = ( hbU16 ) iPort;
szAddress = hb_parc( 2 );
Socket->remote.sin_addr.s_addr = szAddress ? inet_addr( szAddress ) : INADDR_ANY;
@@ -1825,10 +1825,10 @@ HB_FUNC( HB_INETCONNECT )
}
else
{
iPort = htons( hb_parni( 2 ) );
iPort = htons( ( hbU16 ) hb_parni( 2 ) );
Socket->remote.sin_family = AF_INET;
Socket->remote.sin_port= iPort;
Socket->remote.sin_port = ( hbU16 ) iPort;
Socket->remote.sin_addr.s_addr = ( * ( UINT * ) Host->h_addr_list[ 0 ] );
hb_socketConnect( Socket );
@@ -1882,10 +1882,10 @@ HB_FUNC( HB_INETCONNECTIP )
}
else
{
iPort = htons( iPort );
iPort = htons( ( hbU16 ) iPort );
Socket->remote.sin_family = AF_INET;
Socket->remote.sin_port = iPort;
Socket->remote.sin_port = ( hbU16 ) iPort;
Socket->remote.sin_addr.s_addr = inet_addr( szHost );
hb_socketConnect( Socket );
@@ -1943,10 +1943,10 @@ HB_FUNC( HB_INETDGRAMBIND )
}
/* Binding here */
iPort = htons( iPort );
iPort = htons( ( hbU16 ) iPort );
Socket->remote.sin_family = AF_INET;
Socket->remote.sin_port = iPort;
Socket->remote.sin_port = ( hbU16 ) iPort;
szAddress = hb_parc( 2 );
Socket->remote.sin_addr.s_addr = szAddress ? inet_addr( szAddress ) : INADDR_ANY;
@@ -2055,7 +2055,7 @@ HB_FUNC( HB_INETDGRAMSEND )
}
Socket->remote.sin_family = AF_INET;
Socket->remote.sin_port = htons( iPort );
Socket->remote.sin_port = htons( ( hbU16 ) iPort );
Socket->remote.sin_addr.s_addr = inet_addr( szAddress );
szBuffer = hb_itemGetCPtr( pBuffer );