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

19991005-00:30 GMT+1 Jose Lalin <dezac@corevia.com>

Browse Source 
* source/rtl/filesys.c
    + missing FSETDEVMOD()
    + hb_fsTell()
    + hb_fsSetDevRaw()
    + hb_fsSetDevText()
  * source/rtl/environ.c
    * Version()
      + added support for revision
      ! cleanup and minor changes
This commit is contained in:
Jose Lalin Ferreiro
1999-10-05 10:58:54 +00:00
parent d5666f2a6d
commit 0d742aa6bc
1 changed files with 80 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
harbour/source/rtl/filesys.c
View File

@@ -1620,3 +1620,83 @@ HARBOUR HB_HB_FNAMEMERGE( void )
hb_retc( hb_fsFNameMerge( szFileName, &pFileName ) );
}
ULONG hb_fsTell( FHANDLE hFileHandle )
{
ULONG ulPos;
#if defined(HAVE_POSIX_IO) || defined(_MSC_VER) || defined(__MINGW32__)
errno = 0;
ulPos = tell( hFileHandle );
s_uiErrorLast = errno;
#else
ulPos = 0;
s_uiErrorLast = FS_ERROR;
#endif
return ulPos;
}
void hb_fsSetDevRaw( FHANDLE hFileHandle )
{
#if defined(__BORLANDC__) || defined(__IBMCPP__) || defined(__DJGPP__) || defined(__CYGWIN__)
errno = 0;
setmode( hFileHandle, O_BINARY );
s_uiErrorLast = errno;
#elif defined(_MSC_VER) || defined(__MINGW32__)
errno = 0;
_setmode( hFileHandle, _O_BINARY );
s_uiErrorLast = errno;
#else
s_uiErrorLast = FS_ERROR;
#endif
}
void hb_fsSetDevText( FHANDLE hFileHandle )
{
#if defined(__BORLANDC__) || defined(__IBMCPP__) || defined(__DJGPP__) || defined(__CYGWIN__)
errno = 0;
setmode( hFileHandle, O_TEXT );
s_uiErrorLast = errno;
#elif defined(_MSC_VER) || defined(__MINGW32__)
errno = 0;
_setmode( hFileHandle, _O_TEXT );
s_uiErrorLast = errno;
#else
s_uiErrorLast = FS_ERROR;
#endif
}
/* NOTE: Clipper 5.3 only */
HARBOUR FSETDEVMOD( void )
{
if( hb_pcount() == 1 )
{
if( ISNUM( 1 ) && ISNUM( 2 ) )
{
hb_fsSetDevMode( hb_parni( 1 ), hb_parni( 2 ) );
hb_ret();
}
}
}