File 6572-inet_dns-remove-unused-defines-from-inet_dns.hrl.patch of Package erlang
From a80e63210501d1946fa5bef57aa18db98cda0fba Mon Sep 17 00:00:00 2001
From: Alexander Clouter <alex@digriz.org.uk>
Date: Wed, 19 Apr 2023 16:08:18 +0100
Subject: [PATCH 02/10] inet_dns: remove unused defines from inet_dns.hrl
---
lib/kernel/src/inet_dns.erl | 2 +-
lib/kernel/src/inet_dns.hrl | 40 ++++++++++---------------------------
2 files changed, 12 insertions(+), 30 deletions(-)
diff --git a/lib/kernel/src/inet_dns.erl b/lib/kernel/src/inet_dns.erl
index 5c9a8412b2..9dd2d1e061 100644
--- a/lib/kernel/src/inet_dns.erl
+++ b/lib/kernel/src/inet_dns.erl
@@ -480,7 +480,7 @@ encode_opcode(Opcode) ->
status -> ?STATUS;
_ when is_integer(Opcode) -> Opcode %% non-standard opcode
end.
-
+
encode_boolean(true) -> 1;
encode_boolean(false) -> 0;
diff --git a/lib/kernel/src/inet_dns.hrl b/lib/kernel/src/inet_dns.hrl
index c27fdd6979..d49b6847ef 100644
--- a/lib/kernel/src/inet_dns.hrl
+++ b/lib/kernel/src/inet_dns.hrl
@@ -1,8 +1,8 @@
%%
%% %CopyrightBegin%
-%%
+%%
%% Copyright Ericsson AB 1997-2023. All Rights Reserved.
-%%
+%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
@@ -14,7 +14,7 @@
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
-%%
+%%
%% %CopyrightEnd%
%%
%%
@@ -24,20 +24,9 @@
%%
%% Currently defined opcodes
%%
--define(QUERY, 16#0). %% standard query
--define(IQUERY, 16#1). %% inverse query
--define(STATUS, 16#2). %% nameserver status query
-%% -define(xxx, 16#3) %% 16#3 reserved
-%% non standard
--define(UPDATEA, 16#9). %% add resource record
--define(UPDATED, 16#a). %% delete a specific resource record
--define(UPDATEDA, 16#b). %% delete all nemed resource record
--define(UPDATEM, 16#c). %% modify a specific resource record
--define(UPDATEMA, 16#d). %% modify all named resource record
-
--define(ZONEINIT, 16#e). %% initial zone transfer
--define(ZONEREF, 16#f). %% incremental zone referesh
-
+-define(QUERY, 16#0). %% standard query
+-define(IQUERY, 16#1). %% inverse query
+-define(STATUS, 16#2). %% nameserver status query
%%
%% Currently defined response codes
@@ -48,9 +37,7 @@
-define(NXDOMAIN, 3). %% non existent domain
-define(NOTIMP, 4). %% not implemented
-define(REFUSED, 5). %% query refused
-%% non standard
--define(NOCHANGE, 16#f). %% update failed to change db
--define(BADVERS, 16).
+-define(BADVERS, 16). %% bad version EDNS pseudo-rr RFC6891: 6.1.3
%%
%% Type values for resources and queries
@@ -141,31 +128,26 @@
%%
%% Values for class field
%%
-
-define(C_IN, 1). %% the arpa internet
-define(C_CHAOS, 3). %% for chaos net at MIT
-define(C_HS, 4). %% for Hesiod name server at MIT
-define(C_ANY, 255). %% wildcard match
-
-%% indirection mask for compressed domain names
--define(INDIR_MASK, 16#c0).
-
%%
%% Structure for query header, the order of the fields is machine and
%% compiler dependent, in our case, the bits within a byte are assignd
%% least significant first, while the order of transmission is most
%% significant first. This requires a somewhat confusing rearrangement.
%%
--record(dns_header,
+-record(dns_header,
{
- id = 0, %% ushort query identification number
+ id = 0, %% ushort query identification number
%% byte F0
qr = 0, %% :1 response flag
opcode = 0, %% :4 purpose of message
aa = 0, %% :1 authoritative answer
tc = 0, %% :1 truncated message
- rd = 0, %% :1 recursion desired
+ rd = 0, %% :1 recursion desired
%% byte F1
ra = 0, %% :1 recursion available
pr = 0, %% :1 primary server required (non standard)
@@ -187,7 +169,7 @@
{
domain = "", %% resource domain
type = any, %% resource type
- class = in, %% reource class
+ class = in, %% resource class
cnt = 0, %% access count
ttl = 0, %% time to live
data = [], %% raw data
--
2.35.3
