55801b18c4
* tests/longdev.prg
* tests/hbpptest/hbpptest.prg
* tests/testcgi.prg
* tests/foreach.prg
* tests/onidle.prg
* tests/tstchbx.prg
* tests/codebl.prg
* tests/tstdbi.prg
* tests/vmasort.prg
* tests/tstasort.prg
* tests/testbrw.prg
* tests/inkeytst.prg
* tests/testrdd2.prg
* tests/keywords.prg
* tests/testhtml.prg
* tests/readhrb.prg
* tests/stripem.prg
* tests/wvtext.prg
* tests/testpre.prg
* tests/seconds.prg
* tests/fsplit.prg
* tests/mousetst.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbct/numconv.prg
* contrib/hbct/ctmisc.prg
* contrib/hbodbc/todbc.prg
* contrib/hbapollo/tests/apollo.prg
* contrib/hbnf/acctyear.prg
* contrib/hbnf/acctadj.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/week.prg
* contrib/hbnf/acctmnth.prg
* contrib/hbnf/savearr.prg
* contrib/hbnf/madd.prg
* contrib/hbnf/mouse1.prg
* contrib/hbnf/month.prg
* contrib/hbnf/findith.prg
* contrib/hbnf/acctweek.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/acctqtr.prg
* contrib/hbnf/nooccur.prg
* contrib/hbnf/dayofyr.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/sqzn.prg
* contrib/hbnf/asum.prg
* contrib/hbnf/aavg.prg
* contrib/hbnf/any2any.prg
* contrib/hbnf/adessort.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/blink.prg
* contrib/hbnf/qtr.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/xbox.prg
* contrib/hbnf/ftround.prg
* contrib/hbnf/invclr.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/diskfunc.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/daytobow.prg
* contrib/hbnf/anomatch.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/year.prg
* contrib/hbnf/elapsed.prg
* contrib/hbnf/dfile.prg
* contrib/hbnf/clrsel.prg
* contrib/hbmisc/twirler.prg
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/stringp.prg
* contrib/hbgf/hbgfw32/winctrl.prg
* contrib/hbgf/hbgfw32/form.prg
* contrib/hbgf/hbgfos2/winctrl.prg
* contrib/hbgf/hbgfos2/tform.prg
* contrib/hbtip/httpcln.prg
* contrib/hbvpdf/hbvpdf.prg
* contrib/hbvpdf/hbvpdft.prg
* contrib/examples/guestbk/guestbk.prg
* contrib/examples/pe/editorhi.prg
* Some more general code cleanups ( if() -> iif() ).
106 lines
2.6 KiB
Plaintext
106 lines
2.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* File......: diskfunc.prg
|
|
* 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 "ftint86.ch"
|
|
|
|
#define DRVTABLE "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
|
|
#ifdef FT_TEST
|
|
FUNCTION MAIN( cDrv )
|
|
|
|
QOut("Disk size: " + str( FT_DSKSIZE() ) )
|
|
QOut("Free bytes: " + str( FT_DSKFREE() ) )
|
|
|
|
return ( nil )
|
|
#endif
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* FT_DSKSIZE()
|
|
* $CATEGORY$
|
|
* DOS/BIOS
|
|
* $ONELINER$
|
|
* Return the maximum capacity of a fixed disk
|
|
* $SYNTAX$
|
|
* FT_DSKSIZE( [ <cDrive> ] ) -> nMaxCapacity
|
|
* $ARGUMENTS$
|
|
* <cDrive> is the fixed disk to query. If no drive is sent, the
|
|
* operation will be performed on the default drive. Send without
|
|
* the ":".
|
|
* $RETURNS$
|
|
* An integer representing the maximum disk capacity in bytes.
|
|
* $DESCRIPTION$
|
|
* Function utilizing FT_INT86() to return Maximum Disk Size.
|
|
* Uses FT_INT86() through the internal function _ftDiskInfo().
|
|
* $EXAMPLES$
|
|
* ? FT_DSKSIZE() // Maximum capacity for default drive
|
|
* ? FT_DSKSIZE( "D" ) // Maximum capacity for Drive D:
|
|
* $END$
|
|
*/
|
|
|
|
FUNCTION FT_DSKSIZE( cDrive )
|
|
local nDrive
|
|
nDrive := iif( cDrive == NIL, 0, at( upper(cDrive), DRVTABLE ) )
|
|
|
|
Return DISKSPACE(nDrive,3)
|
|
|
|
|
|
/* $DOC$
|
|
* $FUNCNAME$
|
|
* FT_DSKFREE()
|
|
* $CATEGORY$
|
|
* DOS/BIOS
|
|
* $ONELINER$
|
|
* Return the amount of available disk space
|
|
* $SYNTAX$
|
|
* FT_DSKFREE( [ <cDrive> ] ) -> nSpaceAvail
|
|
* $ARGUMENTS$
|
|
* <cDrive> is the fixed disk to query. If no parameter is passed
|
|
* the operation will be performed on the default drive. Do not
|
|
* include the ":".
|
|
* $RETURNS$
|
|
* Integer representing the available disk space in bytes.
|
|
* $DESCRIPTION$
|
|
* Function to return the available space on the passed
|
|
* drive letter or the default drive if no drive is passed.
|
|
*
|
|
* Uses FT_INT86() through the internal function _ftDiskInfo().
|
|
* $EXAMPLES$
|
|
* ? FT_DSKFREE() // Returns free space on default drive.
|
|
* $END$
|
|
*/
|
|
|
|
|
|
FUNCTION FT_DSKFREE( cDrive )
|
|
local nDrive
|
|
nDrive := iif( cDrive == NIL, 0, at( upper(cDrive), DRVTABLE ) )
|
|
|
|
|
|
RETURN DISKSPACE(nDrive,1)
|
|
|