From: Geoff Voelker <voelker@cs.washington.edu>
Date: Fri, 17 Apr 1998 05:07:15 +0000 (+0000)
Subject: (sys_read): Clear carriage return flag.
X-Git-Tag: emacs-20.3~1470
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f52eb3efc422eeaf36595b4c65653db95d5a5752;p=emacs.git

(sys_read): Clear carriage return flag.
Report normal EOF when read fails if nothing in buffer.
Only read more if more remaining.
(check_windows_init_file): New function.
(term_ntproc): Invoke check_windows_init_file.
---

diff --git a/src/w32.c b/src/w32.c
index d29704cc33f..6008afe0255 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -2456,6 +2456,7 @@ sys_read (int fd, char * buffer, unsigned int count)
 	  *buffer++ = 0x0d;
 	  count--;
 	  nchars++;
+	  fd_info[fd].flags &= ~FILE_LAST_CR;
 	}
 
       /* presence of a child_process structure means we are operating in
@@ -2471,8 +2472,10 @@ sys_read (int fd, char * buffer, unsigned int count)
 	    {
 	    case STATUS_READ_FAILED:
 	    case STATUS_READ_ERROR:
-	      /* report normal EOF */
-	      return 0;
+	      /* report normal EOF if nothing in buffer */
+	      if (nchars <= 0)
+		fd_info[fd].flags |= FILE_AT_EOF;
+	      return nchars;
 
 	    case STATUS_READ_READY:
 	    case STATUS_READ_IN_PROGRESS:
@@ -2501,8 +2504,9 @@ sys_read (int fd, char * buffer, unsigned int count)
 	    {
 	      PeekNamedPipe ((HANDLE) _get_osfhandle (fd), NULL, 0, NULL, &waiting, NULL);
 	      to_read = min (waiting, (DWORD) count);
-      
-	      nchars += _read (fd, buffer, to_read);
+
+	      if (to_read > 0)
+		nchars += _read (fd, buffer, to_read);
 	    }
 #ifdef HAVE_SOCKETS
 	  else /* FILE_SOCKET */
@@ -2534,10 +2538,18 @@ sys_read (int fd, char * buffer, unsigned int count)
 #endif
 	}
       else
-	nchars += _read (fd, buffer, count);
+	{
+	  int nread = _read (fd, buffer, count);
+	  if (nread >= 0)
+	    nchars += nread;
+	  else if (nchars == 0)
+	    nchars = nread;
+	}
 
+      if (nchars <= 0)
+	fd_info[fd].flags |= FILE_AT_EOF;
       /* Perform text mode translation if required.  */
-      if ((fd_info[fd].flags & FILE_BINARY) == 0)
+      else if ((fd_info[fd].flags & FILE_BINARY) == 0)
 	{
 	  nchars = crlf_to_lf (nchars, orig_buffer);
 	  /* If buffer contains only CR, return that.  To be absolutely
@@ -2549,8 +2561,6 @@ sys_read (int fd, char * buffer, unsigned int count)
 	      fd_info[fd].flags |= FILE_LAST_CR;
 	      nchars--;
 	    }
-	  else
-	    fd_info[fd].flags &= ~FILE_LAST_CR;
 	}
     }
   else
@@ -2631,6 +2641,50 @@ sys_write (int fd, const void * buffer, unsigned int count)
   return nchars;
 }
 
+static void
+check_windows_init_file ()
+{
+  extern int noninteractive, inhibit_window_system;
+
+  /* A common indication that Emacs is not installed properly is when
+     it cannot find the Windows installation file.  If this file does
+     not exist in the expected place, tell the user.  */
+
+  if (!noninteractive && !inhibit_window_system) {
+    extern Lisp_Object Vwindow_system, Vload_path;
+    Lisp_Object init_file;
+    int fd;
+
+    init_file = build_string ("term/w32-win");
+    fd = openp (Vload_path, init_file, ".el:.elc", NULL, 0);
+    if (fd < 0) {
+      Lisp_Object load_path_print = Fprin1_to_string (Vload_path, Qnil);
+      char *init_file_name = XSTRING (init_file)->data;
+      char *load_path = XSTRING (load_path_print)->data;
+      char *buffer = alloca (1024);
+
+      sprintf (buffer, 
+	       "The Emacs Windows initialization file \"%s.el\" "
+	       "could not be found in your Emacs installation.  "
+	       "Emacs checked the following directories for this file:\n"
+	       "\n%s\n\n"
+	       "When Emacs cannot find this file, it usually means that it "
+	       "was not installed properly, or its distribution file was "
+	       "not unpacked properly.\nSee the README.W32 file in the "
+	       "top-level Emacs directory for more information.",
+	       init_file_name, load_path);
+      MessageBox (NULL,
+		  buffer,
+		  "Emacs Abort Dialog",
+		  MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL);
+      close (fd);
+
+      /* Use the low-level Emacs abort. */
+#undef abort
+      abort ();
+    }
+  }
+}
 
 void
 term_ntproc ()
@@ -2639,6 +2693,12 @@ term_ntproc ()
   /* shutdown the socket interface if necessary */
   term_winsock ();
 #endif
+
+  /* Check whether we are shutting down because we cannot find the
+     Windows initialization file.  Do this during shutdown so that
+     Emacs is initialized as possible, and so that it is out of the 
+     critical startup path.  */
+  check_windows_init_file ();
 }
 
 void