10aaae71c2
* contrib/hbformat/hbfmtcls.prg
! fixed casing of some function names.
* utils/hbmk2/hbmk2.prg
; all changes below apply to .xhp (xMate) to .hbp conversion:
! properly convert input filenames with spaces in them
! remove lib prefix from .a input filenames
% do not add empty -L options
* do not add include paths with %HB_INSTALL%\ in them
+ split non-portable, Borland-specific include path lists
concatenated with ';' into distinct -I options
% do not add empty include paths
* tests/testop.prg
* tests/testntx.prg
* tests/vmasort.prg
* tests/testlbl.prg
* tests/testidle.prg
* tests/videotst.prg
* tests/testmem.prg
* tests/testinit.prg
* tests/testhtml.prg
* tests/tstcolor.prg
* tests/vidtest.prg
* tests/tstuse.prg
* tests/vec1.prg
* tests/while.prg
* tests/tstdspac.prg
* tests/version.prg
* tests/testpre.prg
* tests/tstprag.prg
* formatted. mostly with hbformat.
38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
This program demonstrates that the 4 diskspace related functions work
|
|
correctly for disks of any size.
|
|
|
|
Certain os's may allow limits to the amount of disk space available to
|
|
a user. If that is the case, you should see a difference between
|
|
the return value of DiskSpace() and DiskFree().
|
|
|
|
Currently, Disk quota's are only implimented for NT.
|
|
|
|
NOTE: Unlike Clipper, these functions return a floating point number!
|
|
|
|
Written by Paul Tucker {ptucker@sympatico.ca>
|
|
www - http://harbour-project.org
|
|
|
|
This test program placed in the public domain
|
|
*/
|
|
|
|
#include "fileio.ch"
|
|
|
|
PROCEDURE Main( cDisk )
|
|
|
|
IF Empty( cDisk )
|
|
cDisk := "0"
|
|
ENDIF
|
|
cDisk := Val( cDisk )
|
|
|
|
? "Bytes available on disk: " + Transform( DiskSpace( cDisk, HB_DISK_FREE ), "999,999,999,999" )
|
|
? "Bytes available for use: " + Transform( DiskSpace( cDisk, HB_DISK_AVAIL ), "999,999,999,999" )
|
|
? " Bytes used: " + Transform( DiskSpace( cDisk, HB_DISK_USED ), "999,999,999,999" )
|
|
? " Total bytes on disk " + PadL( cDisk, 2 ) + ": " + Transform( DiskSpace( cDisk, HB_DISK_TOTAL ), "999,999,999,999" )
|
|
|
|
RETURN
|