view release on metacpan or  search on metacpan

XS_statfs  view on Meta::CPAN

typedef struct statfs Statfs;


MODULE = Filesys::DfPortable	PACKAGE = Filesys::DfPortable

void
_dfportable(dir)
	char *dir
	PREINIT:
	Statfs st;
	PPCODE:
	EXTEND(sp, 7);
#ifdef DFPORTABLE_SOLARIS
	if(statfs(dir, &st, 0, 0) == 0) {
#else
	if(statfs(dir, &st) == 0) {
#endif
		PUSHs(sv_2mortal(newSVnv((double)st.f_bsize)));
		PUSHs(sv_2mortal(newSVnv((double)st.f_blocks)));
		PUSHs(sv_2mortal(newSVnv((double)st.f_bfree)));
#ifdef DFPORTABLE_SOLARIS

XS_statvfs  view on Meta::CPAN

MODULE = Filesys::DfPortable	PACKAGE = Filesys::DfPortable


void
_dfportable(dir)
	char *dir
	PREINIT:
	Statvfs st;
	PPCODE:
	EXTEND(sp, 7);
	if(statvfs(dir, &st) == 0) {
		/* Push values as doubles because we don't know size */
		PUSHs(sv_2mortal(newSVnv((double)st.f_frsize)));
		PUSHs(sv_2mortal(newSVnv((double)st.f_blocks)));
		PUSHs(sv_2mortal(newSVnv((double)st.f_bfree)));
		PUSHs(sv_2mortal(newSVnv((double)st.f_bavail)));

		PUSHs(sv_2mortal(newSVnv((double)st.f_files)));
		PUSHs(sv_2mortal(newSVnv((double)st.f_ffree)));

XS_win  view on Meta::CPAN

	LPCSTR pszDrive

	PREINIT:
   	__int64 i64FreeBytesToCaller, i64TotalBytes, i64FreeBytes;
	BOOL fResult;
	DWORD dwSectPerClust, 
	      dwBytesPerSect, 
	      dwFreeClusters, 
	      dwTotalClusters;

	PPCODE:
		typedef BOOL (WINAPI *PGETDISKFREESPACEEX)(LPCSTR,
		PULARGE_INTEGER, PULARGE_INTEGER, PULARGE_INTEGER);

		PGETDISKFREESPACEEX pGetDiskFreeSpaceEx;

		pGetDiskFreeSpaceEx = (PGETDISKFREESPACEEX) GetProcAddress(GetModuleHandle("kernel32.dll"), "GetDiskFreeSpaceExA");

		EXTEND(sp, 7);
		if(pGetDiskFreeSpaceEx) {
			fResult = pGetDiskFreeSpaceEx (pszDrive,