;;;; This file is part of Guile Netlink

;;;;

;;;; 

;;;; This library is free software: you can redistribute it and/or modify

;;;; it under the terms of the GNU General Public License as published by

             (cond

               #,@(map (lambda (s) (getter #'num s)) (spec-names #'(name-spec ...))))))))))

(define-enum int->link-attr-kind

  IFLA_UNSPEC IFLA_ADDRESS IFLA_BROADCAST IFLA_IFNAME IFLA_MTU

  IFLA_LINK IFLA_QDISC IFLA_STATS IFLA_COST IFLA_PRIORITY

  IFLA_GSO_MAX_SEGS IFLA_GSO_MAX_SIZE IFLA_PAD IFLA_XDP

  IFLA_EVENT IFLA_NEW_NETNSID IFLA_IF_NETNSID IFLA_CARRIER_UP_COUNT

  IFLA_CARRIER_DOWN_COUNT IFLA_NEW_IFINDEX IFLA_MIN_MTU IFLA_MAX_MTU

(define-public IFLA_TARGET_NETNSID IFLA_IF_NETNSID)

(define-enum int->linkinfo

  IFLA_INFO_UNSPEC IFLA_INFO_KIND IFLA_INFO_DATA IFLA_INFO_XSTATS

  IFLA_INFO_SLAVE_KIND IFLA_INFO_SLAVE_DATA)

(define-enum int->veth-linkinfo

  VETH_INFO_UNSPEC VETH_INFO_PEER)

(define-enum int->vlan-linkinfo

  IFLA_VLAN_UNSPEC IFLA_VLAN_ID IFLA_VLAN_FLAGS IFLA_VLAN_EGRESS_QOS

  IFLA_VLAN_INGRESS_QOS IFLA_VLAN_PROTOCOL)

(define-enum int->bond-linkinfo

  IFLA_BOND_UNSPEC IFLA_BOND_MODE IFLA_BOND_ACTIVE_SLAVE IFLA_BOND_MIIMON

  IFLA_BOND_UPDELAY IFLA_BOND_DOWNDELAY IFLA_BOND_USE_CARRIER IFLA_BOND_ARP_INTERVAL

  IFLA_BOND_PEER_NOTIF_DELAY IFLA_BOND_AD_LACP_ACTIVE IFLA_BOND_MISSED_MAX IFLA_BOND_NS_IP6_TARGET)

;; see iproute2/ip/iplink_bond.c for mode_tbl

(define-enum int->bond-mode

  BOND_MODE_ROUNDROBIN BOND_MODE_ACTIVEBACKUP BOND_MODE_XOR BOND_MODE_BROADCAST

  BOND_MODE_8023AD BOND_MODE_TLB

  ;; TLB + RLB (receive load balancing)

  BOND_MODE_ALB)

(define-public BOND_PRIMARY_RESELECT_ALWAYS 0)

(define-public BOND_PRIMARY_RESELECT_BETTER 1)

(define-public BOND_PRIMARY_RESELECT_FAILURE 2)

(define-public BOND_AD_LACP_ACTIVE_OFF 0)

(define-public BOND_AD_LACP_ACTIVE_ON 1)

(define-enum int->addr-attr-kind

  IFA_UNSPEC IFA_ADDRESS IFA_LOCAL IFA_LABEL IFA_BROADCAST

  IFA_ANYCAST IFA_CACHEINFO IFA_MULTICAST IFA_FLAGS

(define-enum int->route-attr-kind

  RTA_UNSPEC RTA_DST RTA_SRC RTA_IIF RTA_OIF RTA_GATEWAY

  RTA_PRIORITY RTA_PREFSRC RTA_METRICS RTA_MULTIPATH

(define-public AF_NETLINK 16)

(define-public AF_PACKET 17)

(define-enum int->protocol

  NETLINK_ROUTE NETLINK_UNUSED NETLINK_USERSOCK NETLINK_FIREWALL

  NETLINK_SOCK_DIAG NETLINK_NFLOG NETLINK_XFRM NETLINK_SELINUX

(define-public NETLINK_INET_DIAG NETLINK_SOCK_DIAG)

(define-enum int->message-kind

  (NLMSG_NOOP 1)

  NLMSG_ERROR

  NLMSG_DONE

  NLMSG_OVERUN

  (RTM_NEWLINK 16)

  RTM_DELLINK

  RTM_GETLINK

  RTM_DELVLAN

  RTM_GETVLAN)

(define-public NLM_F_REQUEST #x01)

(define-public NLM_F_MULTI #x02)

(define-public NLM_F_ACK #x04)

(define-public NLM_F_ACK_TLVS #x200)

;; net_device_flags

(define-enum int->device-flags

  (IFF_UP 1)

  (IFF_BROADCAST 2)

  (IFF_ECHO 262144))

;; operstate

(define-enum int->operstate

  IF_OPER_UNKNOWN IF_OPER_NOTPRESENT IF_OPER_DOWN

  IF_OPER_LOWERLAYERDOWN IF_OPER_TESTING IF_OPER_DORMANT

  IF_OPER_UP)

;; ifa_flags

(define-enum int->ifa-flag

  (IFA_F_SECONDARY      #x01)

  (IFA_F_TEMPORARY      #x01) 

;; rtm_type

(define-enum int->rtm-type

  RTN_UNSPEC RTN_UNICAST RTN_LOCAL RTN_BROADCAST RTN_ANYCAST

  RTN_MULTICAST RTN_BLACKHOLE RTN_UNREACHABLE RTN_PROHIBIT

  RTN_THROW RTN_NAT RTN_XRESOLVE)

;; rtm_protocol

(define-enum int->rtm-protocol

  RTPROT_UNSPEC RTPROT_REDIRECT RTPROT_KERNEL RTPROT_BOOT RTPROT_STATIC

  ;; not interpreted by the kernel, but returned anyway.

  (RTPROT_EIGRP 192))

;; rtm_scope

(define-enum int->rtm-scope

  RT_SCOPE_UNIVERSE

  (RT_SCOPE_SITE 200)

  (RT_SCOPE_NOWHERE 255))

;; rtm_flags

(define-enum int->rtm-flag

  (RTM_F_NOTIFY #x100)

  (RTM_F_CLONED #x200)

;; rtm_table

(define-enum int->rtm-table

  RT_TABLE_UNSPEC

  (RT_TABLE_COMPAT 252)

  (RT_TABLE_LOCAL 255))

;; link type

(define-enum int->link-type

  (ARPHRD_ETHER 1)

  (ARPHRD_LOOPBACK 772))

;; enum rtnetlink_groups

(define-enum int->rtnetlink-group

  (RTNLGRP_NONE 0)

  RTNLGRP_LINK

  RTNLGRP_MCTP_IFADDR

  RTNLGRP_TUNNEL

  RTNLGRP_STATS)