00cd9e92f3
* INSTALL
+ config/vxworks
+ config/vxworks/libs.mk
+ config/vxworks/gcc.mk
+ config/vxworks/diab.mk
+ config/vxworks/global.mk
+ Started experimental VxWorks port.
; NOTE: VxWorks port was made possible by Wind River Systems Inc.,
who were so kind to mail me a full VxWorks development
environment, for the purpose of porting Harbour to this
platform. Thank you very much guys.
[ The free license is valid for one month, so if anyone
is interested in helping in this project, I can help with
real tests, builds and information. BTW, the devenv is
Eclipse based plus cmdline, running on Windows (available
for Linux and Solaris, too) and the target VxWorks exes
run in a virtual environment. ]
* config/global.mk
+ Added autodetection of VxWorks platform.
* utils/hbmk2/hbmk2.prg
+ Added VxWorks support. It's incomplete yet.
! Fixed to quote *nix/gcc compiler family in
Windows-host cross-platform situations.
* src/vm/thread.c
* src/common/hbgete.c
* src/common/hbffind.c
* src/common/hbtrace.c
* src/common/hbdate.c
* src/rtl/gtstd/gtstd.c
* src/rtl/gttrm/Makefile
* src/rtl/hbsocket.c
* src/rtl/filesys.c
* src/rtl/diskspac.c
* src/rtl/cputime.c
* src/rtl/disksphb.c
* src/rtl/gtpca/gtpca.c
* src/rtl/net.c
* src/rtl/hbproces.c
* src/rtl/gtsys.c
* src/rtl/hbcom.c
* external/zlib/inflate.c
* external/jpeg/jmorecfg.h
* external/pcre/Makefile
* include/hbapifs.h
* include/hbthread.h
* include/hbdefs.h
* include/hbsetup.h
* contrib/xhb/hboutdbg.c
* contrib/xhb/hbsyslog.c
* contrib/xhb/hbserv.c
+ vxworks/gcc port. First phase.
; Please review.
; NOTE: - vxworks has no termios, for serial comm
support it has sioLib.h.
- vxworks supports another C compiler, which
was not tested yet.
- vxworks supports lots of CPUs, only x86 was
tested yet.
- There are still mutex related warnings to sort out.
- Some parts had to disabled, like HB_LIB*() functionality.
; TODO: Regenarate .difs in external/.
* src/vm/hashfunc.c
* Silenced warnings shown by vxworks/gcc.
234 lines
6.1 KiB
C
234 lines
6.1 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* NETNAME() function
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats (harbour.01 syenar.hu)
|
|
* www - http://harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://harbour-project.org
|
|
*
|
|
* Copyright 2001 Luiz Rafael Culik <culik@sl.conex.net>
|
|
* Support for DJGPP/GCC/OS2 for netname
|
|
*
|
|
* See COPYING for licensing terms.
|
|
*
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
|
|
#if defined( HB_OS_DOS )
|
|
# include <dos.h>
|
|
#endif
|
|
|
|
#if defined( HB_OS_OS2 ) && defined( __GNUC__ )
|
|
|
|
#include "hb_io.h"
|
|
|
|
/* 25/03/2004 - <maurilio.longo@libero.it>
|
|
not needed anymore as of GCC 3.2.2 */
|
|
|
|
#include <pwd.h>
|
|
#include <sys/types.h>
|
|
|
|
#if defined( __EMX__ ) && __GNUC__ * 1000 + __GNUC_MINOR__ < 3002
|
|
#include <emx/syscalls.h>
|
|
#define gethostname __gethostname
|
|
#endif
|
|
|
|
#elif defined( HB_OS_DOS )
|
|
|
|
#if defined( __DJGPP__ ) || defined( __RSX32__ ) || defined( __GNUC__ )
|
|
#include "hb_io.h"
|
|
#include <sys/param.h>
|
|
#endif
|
|
|
|
#elif defined( HB_OS_UNIX )
|
|
|
|
#if !defined( __WATCOMC__ )
|
|
#if defined( HB_OS_VXWORKS )
|
|
#include <hostLib.h>
|
|
#else
|
|
#include <pwd.h>
|
|
#endif
|
|
#include <sys/types.h>
|
|
#endif
|
|
#include <unistd.h>
|
|
|
|
#elif defined( HB_OS_WIN )
|
|
|
|
#include <windows.h>
|
|
#if defined( HB_OS_WIN_CE )
|
|
#include "hbwince.h"
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#if !defined( MAXGETHOSTNAME ) && ( defined( HB_OS_UNIX ) || \
|
|
( ( defined( HB_OS_OS2 ) || defined( HB_OS_DOS ) ) && \
|
|
defined( __GNUC__ ) ) )
|
|
#define MAXGETHOSTNAME 256 /* should be enough for a host name */
|
|
#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 on the
|
|
DOS platform.
|
|
[vszakats] */
|
|
|
|
/* NOTE: The caller must free the returned buffer. [vszakats] */
|
|
|
|
char * hb_netname( void )
|
|
{
|
|
#if defined( HB_OS_UNIX ) || ( defined( HB_OS_OS2 ) && defined( __GNUC__ ) )
|
|
|
|
# if defined( __WATCOMC__ )
|
|
return hb_getenv( "HOSTNAME" );
|
|
# else
|
|
char * pszValue = ( char * ) hb_xgrab( MAXGETHOSTNAME + 1 );
|
|
pszValue[ 0 ] = '\0';
|
|
gethostname( pszValue, MAXGETHOSTNAME );
|
|
return pszValue;
|
|
# endif
|
|
|
|
#elif defined( HB_OS_DOS )
|
|
|
|
# if defined( __DJGPP__ ) || defined( __RSX32__ ) || defined( __GNUC__ )
|
|
char * pszValue = ( char * ) hb_xgrab( MAXGETHOSTNAME + 1 );
|
|
pszValue[ 0 ] = '\0';
|
|
gethostname( pszValue, MAXGETHOSTNAME );
|
|
return pszValue;
|
|
# else
|
|
union REGS regs;
|
|
struct SREGS sregs;
|
|
char * pszValue = ( char * ) hb_xgrab( 16 );
|
|
pszValue[ 0 ] = '\0';
|
|
|
|
regs.HB_XREGS.ax = 0x5E00;
|
|
regs.HB_XREGS.dx = FP_OFF( pszValue );
|
|
sregs.ds = FP_SEG( pszValue );
|
|
|
|
HB_DOS_INT86X( 0x21, ®s, ®s, &sregs );
|
|
|
|
if( regs.h.ch == 0 )
|
|
pszValue = '\0';
|
|
|
|
return pszValue;
|
|
# endif
|
|
|
|
#elif defined( HB_OS_WIN )
|
|
|
|
DWORD ulLen = MAX_COMPUTERNAME_LENGTH + 1;
|
|
TCHAR lpValue[ MAX_COMPUTERNAME_LENGTH + 1 ];
|
|
char * pszValue;
|
|
|
|
lpValue[ 0 ] = TEXT( '\0' );
|
|
GetComputerName( lpValue, &ulLen );
|
|
|
|
#if defined( UNICODE )
|
|
pszValue = hb_wctomb( lpValue );
|
|
#else
|
|
pszValue = hb_strdup( lpValue );
|
|
#endif
|
|
|
|
return pszValue;
|
|
|
|
#else
|
|
|
|
return hb_strdup( "" );
|
|
|
|
#endif
|
|
}
|
|
|
|
/* NOTE: The caller must free the returned buffer. [vszakats] */
|
|
|
|
char * hb_username( void )
|
|
{
|
|
#if defined( HB_OS_UNIX ) || ( defined( HB_OS_OS2 ) && defined( __GNUC__ ) )
|
|
|
|
# if defined( __WATCOMC__ ) || defined( HB_OS_VXWORKS )
|
|
return hb_getenv( "USER" );
|
|
# else
|
|
struct passwd * pwd = getpwuid( getuid() );
|
|
return pwd ? hb_strdup( pwd->pw_name ) : hb_getenv( "USER" );
|
|
# endif
|
|
|
|
#elif defined( HB_OS_WIN )
|
|
|
|
DWORD ulLen = 256;
|
|
TCHAR lpValue[ 256 ];
|
|
char * pszValue;
|
|
|
|
lpValue[ 0 ] = TEXT( '\0' );
|
|
GetUserName( lpValue, &ulLen );
|
|
|
|
#if defined( UNICODE )
|
|
pszValue = hb_wctomb( lpValue );
|
|
#else
|
|
pszValue = hb_strdup( lpValue );
|
|
#endif
|
|
|
|
return pszValue;
|
|
|
|
#else
|
|
|
|
return hb_strdup( "" );
|
|
|
|
#endif
|
|
}
|
|
|
|
HB_FUNC( NETNAME )
|
|
{
|
|
hb_retc_buffer( ( char * ) hb_osDecodeCP( hb_netname(), NULL, NULL ) );
|
|
}
|
|
|
|
HB_FUNC( HB_USERNAME )
|
|
{
|
|
hb_retc_buffer( ( char * ) hb_osDecodeCP( hb_username(), NULL, NULL ) );
|
|
}
|