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

See changelog 2001-06-10 19:40 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2001-06-10 22:37:39 +00:00
parent 003e595589
commit e610fd143b
2 changed files with 21 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-06-10 19:40 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
* source/rtl/net.c
*Added missing include file needed by DJGPP/GNUC
2001-06-10 08:30 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
* source/rtl/net.c
+ Support for DJGPP/RSXNT/GNUC compilers

30
harbour/source/rtl/net.c
View File

@@ -57,7 +57,9 @@
#include "hbapi.h"
#include "hb_io.h"
#if defined(__DJGPP__) || defined(__RSX32__) || defined(__GNUC__)
#include "sys/param.h"
#endif
/* NOTE: Clipper will only return a maximum of 15 bytes from this function.
And it will be padded with spaces. Harbour does the same in the
DOS platform.
@@ -65,7 +67,20 @@
HB_FUNC( NETNAME )
{
#if defined(HB_OS_DOS)
#if defined(__DJGPP__) || defined(__RSX32__) || defined(__GNUC__)
{
char * pszValue = (char *) hb_xgrab(MAXGETHOSTNAME+1);
pszValue[ 0 ] = '\0';
gethostname (pszValue, MAXGETHOSTNAME);
hb_retc( pszValue );
hb_xfree( pszValue );
}
#elif defined(HB_OS_DOS)
{
char szValue[ 16 ];
union REGS regs;
@@ -95,17 +110,6 @@ HB_FUNC( NETNAME )
hb_retc( pszValue );
hb_xfree( pszValue );
}
#elif defined(__DJGPP__) || defined(__RSX32__) || defined(__GNUC__)
{
char * pszValue = (char *) hb_xgrab(MAXGETHOSTNAME+1)
pszValue[ 0 ] = '\0';
gethostname (pszValue, MAXGETHOSTNAME)
hb_retc( pszValue );
hb_xfree( pszValue );
}
#else
hb_retc( "" );
#endif