Reindent constant definitions

Julien LepillerFri Nov 20 21:37:16+0100 2020

d594a3e

Reindent constant definitions

netlink/constant.scm

5555 
               #,@(map (lambda (s) (getter #'num s)) (spec-names #'(name-spec ...))))))))))
5656 
5757 
(define-enum int->link-attr-kind
58-
             IFLA_UNSPEC IFLA_ADDRESS IFLA_BROADCAST IFLA_IFNAME IFLA_MTU
59-
             IFLA_LINK IFLA_QDISC IFLA_STATS IFLA_COST IFLA_PRIORITY
60-
             IFLA_MASTER IFLA_WIRELESS IFLA_PROTIFO IFLA_TXQLEN IFLA_MAP
61-
             IFLA_WEIGHT IFLA_OPERSTATE IFLA_LINKMODE IFLA_LINKINFO
62-
             IFLA_NET_NS_PID IFLA_IFALIAS IFLA_NUM_VF IFLA_VFINFO_LIST
63-
             IFLA_STATS64 IFLA_VF_PORTS IFLA_PORT_SELF IFLA_AF_SPEC
64-
             IFLA_GROUP IFLA_NET_NS_FD IFLA_EXT_MASK IFLA_PROMISCUITY
65-
             IFLA_NUM_TX_QUEUES IFLA_NUM_RX_QUEUES IFLA_CARRIER
66-
             IFLA_PHYS_PORT_ID IFLA_CARRIER_CHANGES IFLA_PHYS_SWITCH_ID
67-
             IFLA_LINK_NETNSID IFLA_PHYS_PORT_NAME IFLA_PROTO_DOWN
68-
             IFLA_GSO_MAX_SEGS IFLA_GSO_MAX_SIZE IFLA_PAD IFLA_XDP
69-
             IFLA_EVENT IFLA_NEW_NETNSID IFLA_IF_NETNSID IFLA_CARRIER_UP_COUNT
70-
             IFLA_CARRIER_DOWN_COUNT IFLA_NEW_IFINDEX IFLA_MIN_MTU IFLA_MAX_MTU
71-
             IFLA_PROP_LIST IFLA_ALT_IFNAME IFLA_PERM_ADDRESS)
58+
  IFLA_UNSPEC IFLA_ADDRESS IFLA_BROADCAST IFLA_IFNAME IFLA_MTU
59+
  IFLA_LINK IFLA_QDISC IFLA_STATS IFLA_COST IFLA_PRIORITY
60+
  IFLA_MASTER IFLA_WIRELESS IFLA_PROTIFO IFLA_TXQLEN IFLA_MAP
61+
  IFLA_WEIGHT IFLA_OPERSTATE IFLA_LINKMODE IFLA_LINKINFO
62+
  IFLA_NET_NS_PID IFLA_IFALIAS IFLA_NUM_VF IFLA_VFINFO_LIST
63+
  IFLA_STATS64 IFLA_VF_PORTS IFLA_PORT_SELF IFLA_AF_SPEC
64+
  IFLA_GROUP IFLA_NET_NS_FD IFLA_EXT_MASK IFLA_PROMISCUITY
65+
  IFLA_NUM_TX_QUEUES IFLA_NUM_RX_QUEUES IFLA_CARRIER
66+
  IFLA_PHYS_PORT_ID IFLA_CARRIER_CHANGES IFLA_PHYS_SWITCH_ID
67+
  IFLA_LINK_NETNSID IFLA_PHYS_PORT_NAME IFLA_PROTO_DOWN
68+
  IFLA_GSO_MAX_SEGS IFLA_GSO_MAX_SIZE IFLA_PAD IFLA_XDP
69+
  IFLA_EVENT IFLA_NEW_NETNSID IFLA_IF_NETNSID IFLA_CARRIER_UP_COUNT
70+
  IFLA_CARRIER_DOWN_COUNT IFLA_NEW_IFINDEX IFLA_MIN_MTU IFLA_MAX_MTU
71+
  IFLA_PROP_LIST IFLA_ALT_IFNAME IFLA_PERM_ADDRESS)
7272 
(define-public IFLA_TARGET_NETNSID IFLA_IF_NETNSID)
7373 
7474 
(define-enum int->addr-attr-kind
75-
             IFA_UNSPEC IFA_ADDRESS IFA_LOCAL IFA_LABEL IFA_BROADCAST
76-
             IFA_ANYCAST IFA_CACHEINFO IFA_MULTICAST IFA_FLAGS
77-
             IFA_RT_PRIORITY IFA_TARGET_NETNSID)
75+
  IFA_UNSPEC IFA_ADDRESS IFA_LOCAL IFA_LABEL IFA_BROADCAST
76+
  IFA_ANYCAST IFA_CACHEINFO IFA_MULTICAST IFA_FLAGS
77+
  IFA_RT_PRIORITY IFA_TARGET_NETNSID)
7878 
7979 
(define-enum int->route-attr-kind
80-
             RTA_UNSPEC RTA_DST RTA_SRC RTA_IIF RTA_OIF RTA_GATEWAY
81-
             RTA_PRIORITY RTA_PREFSRC RTA_METRICS RTA_MULTIPATH
82-
             RTA_PROTOINFO RTA_FLOW RTA_CACHEINFO RTA_SESSION RTA_MP_ALGO
83-
             RTA_TABLE RTA_MARK RTA_MFC_STATS RTA_VIA RTA_NEWDST RTA_PREF
84-
             RTA_ENCAP_TYPE RTA_ENCAP RTA_EXPIRES RTA_PAD RTA_UID
85-
             RTA_TTL_PROPAGATE RTA_IP_PROTO RTA_SPORT RTA_DPORT RTA_NH_ID)
80+
  RTA_UNSPEC RTA_DST RTA_SRC RTA_IIF RTA_OIF RTA_GATEWAY
81+
  RTA_PRIORITY RTA_PREFSRC RTA_METRICS RTA_MULTIPATH
82+
  RTA_PROTOINFO RTA_FLOW RTA_CACHEINFO RTA_SESSION RTA_MP_ALGO
83+
  RTA_TABLE RTA_MARK RTA_MFC_STATS RTA_VIA RTA_NEWDST RTA_PREF
84+
  RTA_ENCAP_TYPE RTA_ENCAP RTA_EXPIRES RTA_PAD RTA_UID
85+
  RTA_TTL_PROPAGATE RTA_IP_PROTO RTA_SPORT RTA_DPORT RTA_NH_ID)
8686 
8787 
(define-public AF_NETLINK 16)
8888 
(define-public AF_PACKET 17)
8989 
9090 
(define-enum int->protocol
91-
             NETLINK_ROUTE NETLINK_UNUSED NETLINK_USERSOCK NETLINK_FIREWALL
92-
             NETLINK_SOCK_DIAG NETLINK_NFLOG NETLINK_XFRM NETLINK_SELINUX
93-
             NETLINK_ISCSI NETLINK_AUDIT NETLINK_FIB_LOOKUP NETLINK_CONNECTOR
94-
             NETLINK_NETFILTER NETLINK_IP6_FW NETLINK_DNRTMSG NETLINK_KOBJECT_UEVENT
95-
             NETLINK_GENERIC NETLINK_DM NETLINK_SCSITRANSPORT NETLINK_ECRYPTFS
96-
             NETLINK_RDMA NETLINK_CRYPTO NETLINK_SMC)
91+
  NETLINK_ROUTE NETLINK_UNUSED NETLINK_USERSOCK NETLINK_FIREWALL
92+
  NETLINK_SOCK_DIAG NETLINK_NFLOG NETLINK_XFRM NETLINK_SELINUX
93+
  NETLINK_ISCSI NETLINK_AUDIT NETLINK_FIB_LOOKUP NETLINK_CONNECTOR
94+
  NETLINK_NETFILTER NETLINK_IP6_FW NETLINK_DNRTMSG NETLINK_KOBJECT_UEVENT
95+
  NETLINK_GENERIC NETLINK_DM NETLINK_SCSITRANSPORT NETLINK_ECRYPTFS
96+
  NETLINK_RDMA NETLINK_CRYPTO NETLINK_SMC)
9797 
(define-public NETLINK_INET_DIAG NETLINK_SOCK_DIAG)
9898 
9999 
(define-enum int->message-kind
…
235235 
236236 
;; operstate
237237 
(define-enum int->operstate
238-
             IF_OPER_UNKNOWN IF_OPER_NOTPRESENT IF_OPER_DOWN
239-
             IF_OPER_LOWERLAYERDOWN IF_OPER_TESTING IF_OPER_DORMANT
240-
             IF_OPER_UP)
238+
  IF_OPER_UNKNOWN IF_OPER_NOTPRESENT IF_OPER_DOWN
239+
  IF_OPER_LOWERLAYERDOWN IF_OPER_TESTING IF_OPER_DORMANT
240+
  IF_OPER_UP)
241241 
242242 
;; rtm_type
243243 
(define-enum int->rtm-type
244-
             RTN_UNSPEC RTN_UNICAST RTN_LOCAL RTN_BROADCAST RTN_ANYCAST
245-
             RTN_MULTICAST RTN_BLACKHOLE RTN_UNREACHABLE RTN_PROHIBIT
246-
             RTN_THROW RTN_NAT RTN_XRESOLVE)
244+
  RTN_UNSPEC RTN_UNICAST RTN_LOCAL RTN_BROADCAST RTN_ANYCAST
245+
  RTN_MULTICAST RTN_BLACKHOLE RTN_UNREACHABLE RTN_PROHIBIT
246+
  RTN_THROW RTN_NAT RTN_XRESOLVE)
247247 
248248 
;; rtm_protocol
249249 
(define-enum int->rtm-protocol
250-
             RTPROT_UNSPEC RTPROT_REDIRECT RTPROT_KERNEL RTPROT_BOOT RTPROT_STATIC
251-
             ;; not interpreted by the kernel, but returned anyway.
252-
             (RTPROT_GATED 8)
253-
             RTPROT_RA RTPROT_MRT RTPROT_ZEBRA RTPROT_BIRD RTPROT_DNROUTED
254-
             RTPROT_XORP RTPROT_NTK RTPROT_DHCP RTPROT_MROUTED
255-
             (RTPROT_BABEL 42)
256-
             (RTPROT_BGP 186)
257-
             RTPROT_ISIS RTPROT_OSPF RTPROT_RIP
258-
             (RTPROT_EIGRP 192))
250+
  RTPROT_UNSPEC RTPROT_REDIRECT RTPROT_KERNEL RTPROT_BOOT RTPROT_STATIC
251+
  ;; not interpreted by the kernel, but returned anyway.
252+
  (RTPROT_GATED 8)
253+
  RTPROT_RA RTPROT_MRT RTPROT_ZEBRA RTPROT_BIRD RTPROT_DNROUTED
254+
  RTPROT_XORP RTPROT_NTK RTPROT_DHCP RTPROT_MROUTED
255+
  (RTPROT_BABEL 42)
256+
  (RTPROT_BGP 186)
257+
  RTPROT_ISIS RTPROT_OSPF RTPROT_RIP
258+
  (RTPROT_EIGRP 192))
259259 
260260 
;; rtm_scope
261261 
(define-enum int->rtm-scope
262-
             RT_SCOPE_UNIVERSE
263-
             (RT_SCOPE_SITE 200)
264-
             (RT_SCOPE_LINK 253)
265-
             (RT_SCOPE_HOST 254)
266-
             (RT_SCOPE_NOWHERE 255))
262+
  RT_SCOPE_UNIVERSE
263+
  (RT_SCOPE_SITE 200)
264+
  (RT_SCOPE_LINK 253)
265+
  (RT_SCOPE_HOST 254)
266+
  (RT_SCOPE_NOWHERE 255))
267267 
268268 
;; rtm_flags
269269 
(define-enum int->rtm-flag
270-
             (RTM_F_NOTIFY #x100)
271-
             (RTM_F_CLONED #x200)
272-
             (RTM_F_EQUALIZE #x400)
273-
             (RTM_F_PREFIX #x800)
274-
             (RTM_F_LOOKUP_TABLE #x1000)
275-
             (RTM_F_FIB_MATCH #x2000)
276-
             (RTM_F_OFFLOAD #x4000)
277-
             (RTM_F_TRAP #x8000))
270+
  (RTM_F_NOTIFY #x100)
271+
  (RTM_F_CLONED #x200)
272+
  (RTM_F_EQUALIZE #x400)
273+
  (RTM_F_PREFIX #x800)
274+
  (RTM_F_LOOKUP_TABLE #x1000)
275+
  (RTM_F_FIB_MATCH #x2000)
276+
  (RTM_F_OFFLOAD #x4000)
277+
  (RTM_F_TRAP #x8000))
278278 
279279 
280280 
;; rtm_table
281281 
(define-enum int->rtm-table
282-
             RT_TABLE_UNSPEC
283-
             (RT_TABLE_COMPAT 252)
284-
             (RT_TABLE_DEFAULT 253)
285-
             (RT_TABLE_MAIN 254)
286-
             (RT_TABLE_LOCAL 255))
282+
  RT_TABLE_UNSPEC
283+
  (RT_TABLE_COMPAT 252)
284+
  (RT_TABLE_DEFAULT 253)
285+
  (RT_TABLE_MAIN 254)
286+
  (RT_TABLE_LOCAL 255))