changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/rustls/pkg.lisp

changeset 361: bcfb3e63dff2
child: b1f78dffbcdd
author: Richard Westhaver <ellis@rwest.io>
date: Thu, 23 May 2024 00:21:57 -0400
permissions: -rw-r--r--
description: init rustls 
     1 ;;; pkg.lisp --- low-level bindings to librustls
     2 
     3 ;;; Commentary:
     4 
     5 ;;; Code:
     6 (defpackage :rustls
     7   (:use :cl :sb-alien :std/alien)
     8   (:export :load-rustls))
     9 
    10 (in-package :rustls)
    11 
    12 (define-alien-loader "rustls" t "/usr/lib/")
    13 
    14 (define-alien-type rustls-result unsigned-int)
    15 
    16 (define-alien-type rustls-tls-version (enum nil (rustls-tls-version-sslv2 512)))
    17 
    18 (define-alien-type rustls-accepted (struct rustls-accepted))
    19 
    20 (define-alien-type rustls-accepted-alert (struct rustls-accepted-alert))