mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(Ffile_system_info): New function.

Browse Source 
(syms_of_w32fns): Defsubr it.
This commit is contained in:
Andrew Innes 2000-12-17 23:13:26 +00:00
parent 605e284f5b
commit 2254bcde53
1 changed files with 97 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
src/w32fns.c
View File

@ -13184,6 +13184,101 @@ is set to off if the low bit of NEW-STATE is zero, otherwise on.")
return Qnil;
}
DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
"Return storage information about the file system FILENAME is on.\n\
Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total\n\
storage of the file system, FREE is the free storage, and AVAIL is the\n\
storage available to a non-superuser. All 3 numbers are in bytes.\n\
If the underlying system call fails, value is nil.")
(filename)
Lisp_Object filename;
{
Lisp_Object encoded, value;
CHECK_STRING (filename, 0);
filename = Fexpand_file_name (filename, Qnil);
encoded = ENCODE_FILE (filename);
value = Qnil;
/* Determining the required information on Windows turns out, sadly,
to be more involved than one would hope. The original Win32 api
call for this will return bogus information on some systems, but we
must dynamically probe for the replacement api, since that was
added rather late on. */
{
HMODULE hKernel = GetModuleHandle ("kernel32");
BOOL (*pfn_GetDiskFreeSpaceEx)
(char *, PULARGE_INTEGER, PULARGE_INTEGER, PULARGE_INTEGER)
= (void *) GetProcAddress (hKernel, "GetDiskFreeSpaceEx");
/* On Windows, we may need to specify the root directory of the
volume holding FILENAME. */
char rootname[MAX_PATH];
char *name = XSTRING (encoded)->data;
/* find the root name of the volume if given */
if (isalpha (name[0]) && name[1] == ':')
{
rootname[0] = name[0];
rootname[1] = name[1];
rootname[2] = '\\';
rootname[3] = 0;
}
else if (IS_DIRECTORY_SEP (name[0]) && IS_DIRECTORY_SEP (name[1]))
{
char *str = rootname;
int slashes = 4;
do
{
if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
break;
*str++ = *name++;
}
while ( *name );
*str++ = '\\';
*str = 0;
}
if (pfn_GetDiskFreeSpaceEx)
{
LARGE_INTEGER availbytes;
LARGE_INTEGER freebytes;
LARGE_INTEGER totalbytes;
if (pfn_GetDiskFreeSpaceEx(rootname,
&availbytes,
&totalbytes,
&freebytes))
value = list3 (make_float ((double) totalbytes.QuadPart),
make_float ((double) freebytes.QuadPart),
make_float ((double) availbytes.QuadPart));
}
else
{
DWORD sectors_per_cluster;
DWORD bytes_per_sector;
DWORD free_clusters;
DWORD total_clusters;
if (GetDiskFreeSpace(rootname,
&sectors_per_cluster,
&bytes_per_sector,
&free_clusters,
&total_clusters))
value = list3 (make_float ((double) total_clusters
* sectors_per_cluster * bytes_per_sector),
make_float ((double) free_clusters
* sectors_per_cluster * bytes_per_sector),
make_float ((double) free_clusters
* sectors_per_cluster * bytes_per_sector));
}
}
return value;
}
syms_of_w32fns ()
{
/* This is zero if not using MS-Windows. */
@ -13643,6 +13738,8 @@ versions of Windows) characters.");
defsubr (&Sw32_toggle_lock_key);
defsubr (&Sw32_find_bdf_fonts);
defsubr (&Sfile_system_info);
/* Setting callback functions for fontset handler. */
get_font_info_func = w32_get_font_info;