1 /* GnuTLS glue for GNU Emacs.
2 Copyright (C) 2010-2017 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or (at
9 your option) any later version.
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
19 #ifndef EMACS_GNUTLS_DEFINED
20 #define EMACS_GNUTLS_DEFINED
23 #include <gnutls/gnutls.h>
24 #include <gnutls/x509.h>
27 #include <gnutls/crypto.h>
32 /* This limits the attempts to handshake per process (connection). It
33 should work out to about one minute in asynchronous cases. */
34 #define GNUTLS_EMACS_HANDSHAKES_LIMIT 6000
38 /* Initialization stages. */
39 GNUTLS_STAGE_EMPTY
= 0,
40 GNUTLS_STAGE_CRED_ALLOC
,
42 GNUTLS_STAGE_CALLBACKS
,
44 GNUTLS_STAGE_PRIORITY
,
45 GNUTLS_STAGE_CRED_SET
,
47 /* Handshake stages. */
48 GNUTLS_STAGE_HANDSHAKE_CANDO
= GNUTLS_STAGE_CRED_SET
,
49 GNUTLS_STAGE_TRANSPORT_POINTERS_SET
,
50 GNUTLS_STAGE_HANDSHAKE_TRIED
,
55 #define GNUTLS_EMACS_ERROR_NOT_LOADED (GNUTLS_E_APPLICATION_ERROR_MIN + 1)
56 #define GNUTLS_EMACS_ERROR_INVALID_TYPE GNUTLS_E_APPLICATION_ERROR_MIN
58 #define GNUTLS_INITSTAGE(proc) (XPROCESS (proc)->gnutls_initstage)
60 #define GNUTLS_PROCESS_USABLE(proc) \
61 (GNUTLS_INITSTAGE (proc) >= GNUTLS_STAGE_READY)
63 #define GNUTLS_LOG(level, max, string) \
65 if ((level) <= (max)) \
66 gnutls_log_function (level, "(Emacs) " string); \
69 #define GNUTLS_LOG2(level, max, string, extra) \
71 if ((level) <= (max)) \
72 gnutls_log_function2 (level, "(Emacs) " string, extra); \
75 #define GNUTLS_LOG2i(level, max, string, extra) \
77 if ((level) <= (max)) \
78 message ("gnutls.c: [%d] %s %d", level, string, extra); \
82 emacs_gnutls_write (struct Lisp_Process
*proc
, const char *buf
, ptrdiff_t nbyte
);
84 emacs_gnutls_read (struct Lisp_Process
*proc
, char *buf
, ptrdiff_t nbyte
);
86 extern ptrdiff_t emacs_gnutls_record_check_pending (gnutls_session_t state
);
88 extern void emacs_gnutls_transport_set_errno (gnutls_session_t state
, int err
);
89 extern int w32_gnutls_rnd (gnutls_rnd_level_t
, void *, size_t);
91 extern Lisp_Object
emacs_gnutls_deinit (Lisp_Object
);
92 extern Lisp_Object
emacs_gnutls_global_init (void);
93 extern int gnutls_try_handshake (struct Lisp_Process
*p
);
94 extern Lisp_Object
gnutls_verify_boot (Lisp_Object proc
, Lisp_Object proplist
);
98 extern void syms_of_gnutls (void);