Files
harbour-core/harbour/contrib/hbnf/diskfunc.prg
Viktor Szakats 61c2f3b43d 2012-10-16 16:50 UTC+0200 Viktor Szakats (harbour syenar.net)
- contrib/hbnf/dosver.prg
  - contrib/hbnf/isshare.prg
  - contrib/hbnf/mouse2.prg
  - contrib/hbnf/page.prg
  - contrib/hbnf/vidmode.prg
  * contrib/hbnf/at2.prg
  * contrib/hbnf/blink.prg
  * contrib/hbnf/byteneg.prg
  * contrib/hbnf/cntryset.prg
  * contrib/hbnf/d2e.prg
  * contrib/hbnf/diskfunc.prg
  * contrib/hbnf/dispc.c
  * contrib/hbnf/elapmil.prg
  * contrib/hbnf/elapsed.prg
  * contrib/hbnf/findith.prg
  * contrib/hbnf/floptst.prg
  * contrib/hbnf/ftint86.c
  * contrib/hbnf/ftint86.ch
  * contrib/hbnf/getver.c
  * contrib/hbnf/getvid.c
  * contrib/hbnf/hbnf.hbp
  * contrib/hbnf/hbnf.hbx
  * contrib/hbnf/hex2dec.prg
  * contrib/hbnf/madd.prg
  * contrib/hbnf/menu1.prg
  * contrib/hbnf/mouse.c
  * contrib/hbnf/mouse1.prg
  * contrib/hbnf/nooccur.prg
  * contrib/hbnf/nwlstat.prg
  * contrib/hbnf/nwsem.prg
  * contrib/hbnf/nwuid.prg
  * contrib/hbnf/rand1.prg
  * contrib/hbnf/savearr.prg
  * contrib/hbnf/scregion.prg
  * contrib/hbnf/sinkey.prg
  * contrib/hbnf/sleep.prg
  * contrib/hbnf/tempfile.prg
    ! FT_MBUTPRS() fixed RTE
    ! fixed FT_DSKFREE(), also made it work on platform w/o drive letters
    ! fixed FT_DSKSIZE(), also made it work on platform w/o drive letters
    ! fixed FT_DOSVER() to return string type on all platforms
    + rewritten functions to use HB_BIT*() and hex number handling functions
    + rewritten FT_SLEEP() to use hb_idleSleep() internally
    % dispc.c rewritten to use hb_gtRectSize( 0, 0, 0, 0, &nSize ) to find
      out cell size and cleaned code to adapt with minimal redundancy
    % optimized out several .prg level stubs
    % using SWITCH, hb_default(), hb_ntos() in some more places
    * removed some unuseful macros
    * minor formatting
    + fixed warnings and errors and enabled mouse1.prg
    % deleted outdated and duplicate mouse2.prg
    % deleted lots of MS-DOS specific commented code
    ! deleted #include for stdlib.h and string.h

  * include/hbapigt.h
  * src/rtl/gtapi.c
    - deleted just added hb_gtIsCompatBuffer().
      It's better to use hb_gtRectSize( 0, 0, 0, 0, &nSize ) for this purpose.

  * contrib/hbformat/hbfmtcls.prg
    * minor formatting
2012-10-16 14:52:35 +00:00

35 lines
834 B
Plaintext

/*
* $Id$
*/
/*
* Author....: Robert A. DiFalco
* CIS ID....: ?
*
* This is an original work by Robert A. DiFalco and is placed in
* the public domain.
*
* Modification history:
* ---------------------
*
* Rev 1.2 15 Aug 1991 23:02:20 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.1 14 Jun 1991 17:49:28 GLENN
* Documentation format change (minor).
* Added work around suggested by a number of Nanforum users; sometimes
* _ftDiskFunc() would return negative numbers on large drives.
*
* Rev 1.0 01 Apr 1991 01:01:12 GLENN
* Nanforum Toolkit
*
*/
#include "fileio.ch"
FUNCTION FT_DSKSIZE( cDrive )
RETURN hb_DiskSpace( cDrive + hb_osDriveSeparator(), HB_DISK_TOTAL )
FUNCTION FT_DSKFREE( cDrive )
RETURN hb_DiskSpace( cDrive + hb_osDriveSeparator(), HB_DISK_FREE )