emacs: src/w32.c comparison

comparison src/w32.c @ 22505:d4f3552a85f2

(is_unc_volume, open_unc_volume, read_unc_volume, close_unc_volume, unc_volume_file_attributes): New functions. (wnet_enum_handle): New variable. (opendir, readdir, closedir, sys_access, stat): Handle UNC volumes.

author	Geoff Voelker <voelker@cs.washington.edu>
date	Wed, 17 Jun 1998 04:22:58 +0000
parents	d2edb98d0fa5
children	a8c034594292

comparison

equal deleted inserted replaced

-:115ca3d4f9c4
+:d4f3552a85f2
 while (p != NULL && *p);
 return TRUE;
 }
+int
+is_unc_volume (const char *filename)
+{
+const char *ptr = filename;
+if (!IS_DIRECTORY_SEP (ptr[0]) || !IS_DIRECTORY_SEP (ptr[1]) || !ptr[2])
+return 0;
+if (strpbrk (ptr + 2, "*?|<>\"\\/"))
+return 0;
+return 1;
+}
 /* Routines that are no-ops on NT but are defined to get Emacs to compile.  */
 int
 sigsetmask (int signal_mask)
 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE;
 static int    dir_is_fat;
 static char   dir_pathname[MAXPATHLEN+1];
 static WIN32_FIND_DATA dir_find_data;
+/* Support shares on a network resource as subdirectories of a read-only
+root directory. */
+static HANDLE wnet_enum_handle = INVALID_HANDLE_VALUE;
+HANDLE open_unc_volume (char *);
+char  *read_unc_volume (HANDLE, char *, int);
+void   close_unc_volume (HANDLE);
 DIR *
 opendir (char *filename)
 {
 DIR *dirp;
 /* Opening is done by FindFirstFile.  However, a read is inherent to
 this operation, so we defer the open until read time.  */
+if (dir_find_handle != INVALID_HANDLE_VALUE)
+return NULL;
+if (wnet_enum_handle != INVALID_HANDLE_VALUE)
+return NULL;
+if (is_unc_volume (filename))
+{
+wnet_enum_handle = open_unc_volume (filename);
+if (wnet_enum_handle == INVALID_HANDLE_VALUE)
+	return NULL;
+}
 if (!(dirp = (DIR *) malloc (sizeof (DIR))))
-return NULL;
-if (dir_find_handle != INVALID_HANDLE_VALUE)
 return NULL;
 dirp->dd_fd = 0;
 dirp->dd_loc = 0;
 dirp->dd_size = 0;
 if (dir_find_handle != INVALID_HANDLE_VALUE)
 {
 FindClose (dir_find_handle);
 dir_find_handle = INVALID_HANDLE_VALUE;
 }
+else if (wnet_enum_handle != INVALID_HANDLE_VALUE)
+{
+close_unc_volume (wnet_enum_handle);
+wnet_enum_handle = INVALID_HANDLE_VALUE;
+}
 xfree ((char *) dirp);
 }
 struct direct *
 readdir (DIR *dirp)
 {
+if (wnet_enum_handle != INVALID_HANDLE_VALUE)
+{
+if (!read_unc_volume (wnet_enum_handle,
+			      dir_find_data.cFileName,
+			      MAX_PATH))
+	return NULL;
+}
 /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */
-if (dir_find_handle == INVALID_HANDLE_VALUE)
+else if (dir_find_handle == INVALID_HANDLE_VALUE)
 {
 char filename[MAXNAMLEN + 3];
 int ln;
 strcpy (filename, dir_pathname);
 }
 return &dir_static;
 }
+HANDLE
+open_unc_volume (char *path)
+{
+NETRESOURCE nr;
+HANDLE henum;
+int result;
+nr.dwScope = RESOURCE_GLOBALNET;
+nr.dwType = RESOURCETYPE_DISK;
+nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER;
+nr.dwUsage = RESOURCEUSAGE_CONTAINER;
+nr.lpLocalName = NULL;
+nr.lpRemoteName = map_w32_filename (path, NULL);
+nr.lpComment = NULL;
+nr.lpProvider = NULL;
+result = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
+			RESOURCEUSAGE_CONNECTABLE, &nr, &henum);
+if (result == NO_ERROR)
+return henum;
+else
+return INVALID_HANDLE_VALUE;
+}
+char *
+read_unc_volume (HANDLE henum, char *readbuf, int size)
+{
+int count;
+int result;
+int bufsize = 512;
+char *buffer;
+char *ptr;
+count = 1;
+buffer = alloca (bufsize);
+result = WNetEnumResource (wnet_enum_handle, &count, buffer, &bufsize);
+if (result != NO_ERROR)
+return NULL;
+/* WNetEnumResource returns \\resource\share...skip forward to "share". */
+ptr = ((LPNETRESOURCE) buffer)->lpRemoteName;
+ptr += 2;
+while (*ptr && !IS_DIRECTORY_SEP (*ptr)) ptr++;
+ptr++;
+strncpy (readbuf, ptr, size);
+return readbuf;
+}
+void
+close_unc_volume (HANDLE henum)
+{
+if (henum != INVALID_HANDLE_VALUE)
+WNetCloseEnum (henum);
+}
+DWORD
+unc_volume_file_attributes (char *path)
+{
+HANDLE henum;
+DWORD attrs;
+henum = open_unc_volume (path);
+if (henum == INVALID_HANDLE_VALUE)
+return -1;
+attrs = FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_DIRECTORY;
+close_unc_volume (henum);
+return attrs;
+}
 /* Shadow some MSVC runtime functions to map requests for long filenames
 to reasonable short names if necessary.  This was originally added to
 permit running Emacs on NT 3.1 on a FAT partition, which doesn't support
 long file names.  */
 {
 DWORD attributes;
 /* MSVC implementation doesn't recognize D_OK.  */
 path = map_w32_filename (path, NULL);
-if ((attributes = GetFileAttributes (path)) == -1)
+if (is_unc_volume (path))
+{
+attributes = unc_volume_file_attributes (path);
+if (attributes == -1) {
+	errno = EACCES;
+	return -1;
+}
+}
+else if ((attributes = GetFileAttributes (path)) == -1)
 {
 /* Should try mapping GetLastError to errno; for now just indicate
 	 that path doesn't exist.  */
 errno = EACCES;
 return -1;
 len = strlen (name);
 rootdir = (path >= name + len - 1
 	     && (IS_DIRECTORY_SEP (*path) || *path == 0));
 name = strcpy (alloca (len + 2), name);
-if (rootdir)
+if (is_unc_volume (name))
+{
+DWORD attrs = unc_volume_file_attributes (name);
+if (attrs == -1)
+	return -1;
+memset (&wfd, 0, sizeof (wfd));
+wfd.dwFileAttributes = attrs;
+wfd.ftCreationTime = utc_base_ft;
+wfd.ftLastAccessTime = utc_base_ft;
+wfd.ftLastWriteTime = utc_base_ft;
+strcpy (wfd.cFileName, name);
+}
+else if (rootdir)
 {
 if (!IS_DIRECTORY_SEP (name[len-1]))
 	strcat (name, "\\");
 if (GetDriveType (name) < 2)
 	{

Mercurial > emacs

comparison src/w32.c @ 22505:d4f3552a85f2