changeset 110875:bb9bf961ba7b

Make emacs_gnutls_read() return the expected on errors. Also interface cleanups.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 09 Oct 2010 15:19:30 +0200
parents 7996424ed273
children f6e34c8648a7
files src/ChangeLog src/gnutls.c
diffstat 2 files changed, 14 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Sat Oct 09 09:14:46 2010 +0000
+++ b/src/ChangeLog	Sat Oct 09 15:19:30 2010 +0200
@@ -1,3 +1,11 @@
+2010-10-09  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnutls.c (syms_of_gnutls): All the bootprops are keywords.
+	(emacs_gnutls_write): Remove the debuggin fsync() call.
+	(emacs_gnutls_read): Return -1 if we got an error from
+	gnutls_read().  This allows us to actually read lots of data from
+	the GnuTLS stream.
+
 2010-10-09  Chong Yidong  <cyd@stupidchicken.com>
 
 	* xterm.c (x_draw_relief_rect): Clear corner pixels.
--- a/src/gnutls.c	Sat Oct 09 09:14:46 2010 +0000
+++ b/src/gnutls.c	Sat Oct 09 15:19:30 2010 +0200
@@ -98,7 +98,6 @@
       nbyte -= rtnval;
       bytes_written += rtnval;
     }
-  fsync (STDOUT_FILENO);
 
   return (bytes_written);
 }
@@ -120,7 +119,7 @@
   if (rtnval >= 0)
     return rtnval;
   else
-    return 0;
+    return -1;
 }
 
 /* convert an integer error to a Lisp_Object; it will be either a
@@ -578,19 +577,19 @@
   Qgnutls_x509pki = intern_c_string ("gnutls-x509pki");
   staticpro (&Qgnutls_x509pki);
 
-  Qgnutls_bootprop_priority = intern_c_string ("priority");
+  Qgnutls_bootprop_priority = intern_c_string (":priority");
   staticpro (&Qgnutls_bootprop_priority);
 
-  Qgnutls_bootprop_trustfiles = intern_c_string ("trustfiles");
+  Qgnutls_bootprop_trustfiles = intern_c_string (":trustfiles");
   staticpro (&Qgnutls_bootprop_trustfiles);
 
-  Qgnutls_bootprop_keyfiles = intern_c_string ("keyfiles");
+  Qgnutls_bootprop_keyfiles = intern_c_string (":keyfiles");
   staticpro (&Qgnutls_bootprop_keyfiles);
 
-  Qgnutls_bootprop_callbacks = intern_c_string ("callbacks");
+  Qgnutls_bootprop_callbacks = intern_c_string (":callbacks");
   staticpro (&Qgnutls_bootprop_callbacks);
 
-  Qgnutls_bootprop_loglevel = intern_c_string ("loglevel");
+  Qgnutls_bootprop_loglevel = intern_c_string (":loglevel");
   staticpro (&Qgnutls_bootprop_loglevel);
 
   Qgnutls_e_interrupted = intern_c_string ("gnutls-e-interrupted");