File 1446-ssl-Add-missing-specs-for-API-functions.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1446-ssl-Add-missing-specs-for-API-functions.patch of Package erlang (Revision 1e94e72e3f4fed1ca9cd5c2fd777ed02)

Currently displaying revision 1e94e72e3f4fed1ca9cd5c2fd777ed02 , Show latest

From 2d76a937d92ed35993855f00d89169f85c0e6fb5 Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Wed, 10 Jan 2024 08:31:27 +0100
Subject: [PATCH] ssl: Add missing specs for API functions

---
 lib/ssl/doc/src/ssl_crl_cache.xml | 25 ++++++-------------------
 lib/ssl/src/ssl_crl_cache.erl     | 28 ++++++++++++++++++++++------
 2 files changed, 28 insertions(+), 25 deletions(-)

diff --git a/lib/ssl/doc/src/ssl_crl_cache.xml b/lib/ssl/doc/src/ssl_crl_cache.xml
index 6fbc1c1afd..2955cb4986 100644
--- a/lib/ssl/doc/src/ssl_crl_cache.xml
+++ b/lib/ssl/doc/src/ssl_crl_cache.xml
@@ -41,36 +41,23 @@
 <datatype>
 	<name name="crl_src"/>
 </datatype>
-
- <datatype>
-	<name name="uri"/>
- </datatype>
-
 </datatypes>
 
 <funcs>
 <func>
 	<name since="OTP 18.0">delete(Entries) -> ok | {error, Reason} </name>
-	<fsummary> </fsummary>
-	<type>
-	 <v> Entries = <seetype marker="#crl_src">crl_src()</seetype>]}</v>
-	 <v> Reason = crl_reason()</v>
-	</type>
+	<fsummary> Delete CRLs from the ssl applications local cache.</fsummary>
 	<desc>
 	 Delete CRLs from the ssl applications local cache. 
 	</desc>
 </func> 
 <func>
-	<name since="OTP 18.0">insert(CRLSrc) -> ok | {error, Reason}</name>
-	<name since="OTP 18.0">insert(URI, CRLSrc) -> ok | {error, Reason}</name>
-	<fsummary> </fsummary>
-	<type>
-	 <v> CRLSrc = <seetype marker="#crl_src">crl_src()</seetype>]}</v>
-	 <v> URI = <seetype marker="#uri">uri()</seetype> </v>
-	 <v> Reason = term()</v>
-	</type>
+	<name since="OTP 18.0" name="insert" arity="1"></name>
+	<name since="OTP 18.0" name="insert" arity="2"></name>
+	<fsummary> Insert CRLs into the ssl applications local cache.</fsummary>
 	<desc>
-	 Insert CRLs, available to fetch on DER format from <c>URI</c>, into the ssl applications local cache. 
+	 Insert CRLs into the ssl applications local cache, with or without a distribution point
+	 reference URI
 	</desc>
 </func>
 </funcs>
diff --git a/lib/ssl/src/ssl_crl_cache.erl b/lib/ssl/src/ssl_crl_cache.erl
index c12d829470..d88ca80d90 100644
--- a/lib/ssl/src/ssl_crl_cache.erl
+++ b/lib/ssl/src/ssl_crl_cache.erl
@@ -72,22 +72,38 @@ fresh_crl(#'DistributionPoint'{distributionPoint = {fullName, Names}}, CRL) ->
 %% API 
 %%====================================================================
 
-insert(CRLs) ->
- insert(?NO_DIST_POINT, CRLs).
+%%--------------------------------------------------------------------
+-spec insert(CRLSrc) -> ok | {error, Reason} when
+ CRLSrc :: crl_src(),
+ Reason :: term().
+%%--------------------------------------------------------------------
+insert(CRLSrc) ->
+ insert(?NO_DIST_POINT, CRLSrc).
 
-insert(URI, {file, File}) when is_list(URI) ->				 
+%%--------------------------------------------------------------------
+-spec insert(DistPointURI, CRLSrc) -> ok | {error, Reason} when
+ DistPointURI :: uri_string:uri_string(),
+ CRLSrc :: crl_src(),
+ Reason :: term().
+%%--------------------------------------------------------------------
+insert(DistPointURI, {file, File}) when is_list(DistPointURI) ->
 case file:read_file(File) of
 	{ok, PemBin} ->
 	 PemEntries = public_key:pem_decode(PemBin),
 	 CRLs = [ CRL || {'CertificateList', CRL, not_encrypted} 
 				<- PemEntries],
-	 do_insert(URI, CRLs);
+	 do_insert(DistPointURI, CRLs);
 	Error ->
 	 Error
 end;
-insert(URI, {der, CRLs}) ->	
- do_insert(URI, CRLs).
+insert(DistPointURI, {der, CRLs}) ->	
+ do_insert(DistPointURI, CRLs).
 
+%%--------------------------------------------------------------------
+-spec delete(Entries) -> ok | {error, Reason} when
+ Entries :: crl_src() | uri_string:uri_string(),
+ Reason :: term().
+%%--------------------------------------------------------------------
 delete({file, File}) ->
 case file:read_file(File) of
 	{ok, PemBin} ->
-- 
2.35.3

Places

File 1446-ssl-Add-missing-specs-for-API-functions.patch of Package erlang (Revision 1e94e72e3f4fed1ca9cd5c2fd777ed02)

Places