packages feed

netlink 1.1.0.0 → 1.1.1.0

raw patch · 10 files changed

+727/−17 lines, 10 filesdep +language-cdep +processdep +regex-pcredep ~basedep ~containersnew-component:exe:Generatenew-component:exe:GenerateGenlnew-component:exe:GenerateNL80211

Dependencies added: language-c, process, regex-pcre

Dependency ranges changed: base, containers

Files

+ Scripts/Generate.hs view
@@ -0,0 +1,65 @@+module Main where++import Control.Arrow ((&&&))+import Control.Monad (join)+import Data.List (intersperse)+import Data.Map (Map, union)+import System.Environment (getArgs)++import Helpers++main :: IO ()+main = do+    [out] <- getArgs+    let inc = mkIncludeBlock includeFiles+    defines <- getDefinitions inc+    enums <- getEnums inc+    let (exports, definitions) = outputs defines enums+        prelude = [+            "{-# OPTIONS_HADDOCK hide, prune, ignore-exports #-}",+            "{-# LANGUAGE GeneralizedNewtypeDeriving #-}",+            "module System.Linux.Netlink.Constants (" +++            join (intersperse ", " $ join exports) +++            ") where",+            "",+            "import Data.Bits",+            ""]+    writeFile out $ unlines (prelude ++ join definitions)++outputs :: Map String Integer -> [Map String Integer] -> ([[String]], [[String]])+outputs d e = let define r = selectDefines r d+                  enum r = selectEnum r e+              in map fst &&& map snd $+    [mkEnum "AddressFamily" $ define "^AF_",+     mkEnum "MessageType" $+       union (define "^NLMSG_(?!ALIGNTO)") (enum "^RTM_"),+     mkFlag "MessageFlags"  $ define "^NLM_F_",+     mkEnum "LinkType"      $ define "^ARPHRD_",+     mkFlag "LinkFlags"     $+       union (define "^IFF_") (enum "^IFF_"),+     mkEnum "LinkAttrType"  $ enum   "^IFLA_",+     mkFlag "AddrFlags"     $ define "^IFA_F_",+     mkEnum "Scope"         $ enum   "^RT_SCOPE_",+     mkEnum "AddrAttrType"  $ enum   "^IFA_",+     mkEnum "RouteTableId"  $ enum   "^RT_TABLE_",+     mkEnum "RouteProto"    $ define "^RTPROT_",+     mkEnum "RouteType"     $ enum   "^RTN_",+     mkFlag "RouteFlags"    $ define "^RTM_F_",+     mkEnum "RouteAttrType" $ enum   "^RTA_",+     mkEnum "NeighAttrType" $ enum   "^NDA_",+     mkFlag "NeighStateFlags" $ define   "^NUD_",+     mkEnum "NetlinkFamily" $ define   "^NETLINK_",+     mkEnum "RtNetlinkGroups" $ enum   "^RTNLGRP_"]++includeFiles :: [String]+includeFiles = [ "sys/types.h"+               , "sys/socket.h"+               , "linux/if.h"+               , "linux/if_tun.h"+               , "linux/if_arp.h"+               , "linux/if_link.h"+               , "linux/netlink.h"+               , "linux/rtnetlink.h"+               , "linux/neighbour.h"+               ]+
+ Scripts/GenerateGenl.hs view
@@ -0,0 +1,40 @@+module Main where++import Control.Arrow ((&&&))+import Control.Monad (join)+import Data.List (intersperse)+import Data.Map (Map)+import System.Environment (getArgs)++import Helpers++main :: IO ()+main = do+    [out] <- getArgs+    let inc = mkIncludeBlock includeFiles+    defines <- getDefinitions inc+    enums <- getEnums inc+    let (exports, definitions) = outputs defines enums+        prelude = [+            "{-# OPTIONS_HADDOCK hide, prune, ignore-exports #-}",+            "{-# LANGUAGE GeneralizedNewtypeDeriving #-}",+            "module System.Linux.Netlink.GeNetlink.Constants (" +++            join (intersperse ", " $ join exports) +++            ") where",+            ""]+    writeFile out $ unlines (prelude ++ join definitions)++outputs :: Map String Integer -> [Map String Integer] -> ([[String]], [[String]])+outputs _ e = let {-define r = selectDefines r d-}+                  enum r = selectEnum r e+              in map fst &&& map snd $+    [mkEnum "ControlCommand" $ enum "^CTRL_CMD_[^_]+",+     mkEnum "CtrlAttr"      $ enum "^CTRL_ATTR_",+     mkEnum "CtrlAttrOp"    $ enum   "^CTRL_ATTR_OP_",+     mkEnum "CtrlAttrMcast"  $ enum   "^CTRL_ATTR_MCAST_"]++includeFiles :: [String]+includeFiles = [ "sys/types.h"+               , "sys/socket.h"+               , "linux/genetlink.h"+               ]
+ Scripts/GenerateNL80211.hs view
@@ -0,0 +1,48 @@+module Main where++import Control.Arrow ((&&&))+import Control.Monad (join)+import Data.List (intersperse, isInfixOf)+import Data.Map (Map, keys)+import System.Environment (getArgs)++import Helpers++main :: IO ()+main = do+    [out] <- getArgs+    let inc = mkIncludeBlock includeFiles ++ "#include \"headers/ieee80211.h\"\n"+    defines <- getDefinitions inc+    enums <- getEnums inc+    let (exports, definitions) = outputs defines enums+        prelude = [+            "{-# OPTIONS_HADDOCK hide, prune, ignore-exports #-}",+            "{-# LANGUAGE GeneralizedNewtypeDeriving #-}",+            "module System.Linux.Netlink.GeNetlink.NL80211.Constants (" +++            join (intersperse ", " $ join exports) +++            ") where",+            ""]+    writeFile out $ unlines (prelude ++ join definitions)++outputs :: Map String Integer -> [Map String Integer] -> ([[String]], [[String]])+outputs _ e = let {-define r = selectDefines r d-}+                  enum r = selectEnum r e+              in map fst &&& map snd $+       [ mkEnum "NL80211Commands" $ enum "^NL80211_CMD_"+       , mkEnum "NL80211Attrs" $ enum "^NL80211_ATTR_([^C]|(C[^Q])|(CQ[^M])|(CQM$))|NUM_NL80211_ATTR$"+       , mkEnum "NL80211Bss" . bssenum $selectEnums "^NL80211_BSS_" e+       , mkEnum "Nl80211StaInfo" $ enum "^NL80211_STA_INFO_"+       , mkEnum "IEEE80211EID" $ enum "^WLAN_EID_"+       , mkEnum "NL80211RateInfo" $ enum "^NL80211_RATE_INFO_"+       ]++  where bssenum = getFirst . noChanWidth . noBssStatus . noBssSelect+        getFirst (x:_) = x+        getFirst [] = error "Couldn't find the bssenum enum in files"+        noChanWidth = filter (all (not . isInfixOf "CHAN_WIDTH_") . keys)+        noBssStatus = filter (all (not . isInfixOf "BSS_STATUS_") . keys)+        noBssSelect = filter (all (not . isInfixOf "BSS_SELECT_") . keys)++includeFiles :: [String]+includeFiles = [ "linux/nl80211.h" ]+
+ Scripts/Helpers.hs view
@@ -0,0 +1,147 @@+module Helpers+  ( mkIncludeBlock+  , getDefinitions+  , getEnums+  , selectDefines+  , selectEnum+  , mkEnum+  , mkFlag+  , selectEnums+  )+where++--import Control.Applicative ((<$>))++import Control.Monad (join)+import Data.Char (isNumber)+import Data.Function (on)+import Data.List (isPrefixOf, sortBy, nubBy)+import Data.Map (Map, elems, filterWithKey, fromList, insert,+                 keys, mapKeys, toList, lookup, empty)+import Data.Maybe (mapMaybe, fromJust)+import Language.C.Analysis (runTrav_)+import Language.C.Analysis.AstAnalysis (analyseAST)+import Language.C.Analysis.SemRep (GlobalDecls(..), TagDef(EnumDef),+                                   EnumType(..), Enumerator(..))+import Language.C.Data.Ident (Ident(..))+import Language.C.Data.InputStream (inputStreamFromString)+import Language.C.Data.Position (position)+import Language.C.Parser (parseC)+import Language.C.Pretty (pretty)+import Language.C.Syntax.Constants (getCInteger)+import Language.C.Syntax.AST (CExpression(..), CExpr, CConstant(CIntConst), CBinaryOp(..))+import System.Process (readProcess)+import Text.Regex.PCRE ((=~))++import Prelude hiding (lookup)++mkIncludeBlock :: [String] -> String+mkIncludeBlock = unlines . map (\e -> "#include <" ++ e ++ ">")++mkFlag :: String -> Map String Integer -> ([String], [String])+mkFlag name vals = (name : map fst values,+                    ty : "" : join (map makeConst values))+  where+    ty = "newtype " ++ name ++ " = " +++          name +++          " Int deriving (Bits, Eq, Enum, Integral, Num, Ord, Real, Show)"+    makeConst (n, v) = [n ++ " :: (Num a, Bits a) => a",+                        n ++ " = " ++ show v]+    values = sortBy (compare `on` snd) . toList . mapKeys ("f" ++) $ vals++mkEnum :: String -> Map String Integer -> ([String], [String])+mkEnum name vals = (name : fName : map fst values,+                    ty : "" : fun : "" : join (map makeConst values))+  where+    ty = "newtype " ++ name ++ " = " +++          name +++          " Int deriving (Eq, Enum, Integral, Num, Ord, Real, Show)"+    makeConst (n, v) = [n ++ " :: (Num a) => a",+                        n ++ " = " ++ show v]+    values = sortBy (compare `on` snd) . toList . mapKeys ('e' :) $ vals+    (fName, fun) = showEnum name vals++showEnum :: String -> Map String Integer -> (String, String)+showEnum name vals = (fName,+  fName ++ " :: (Num a) => (Show a) => (Eq a) => a -> String\n" +++  concatMap makeLine values +++  fName ++ " i = \"" ++ name ++ " #\" ++ (show i)\n")+  where+    makeLine (n, v) = fName ++ ' ':(show v) ++ " = \"" ++ n ++ "\"\n"+    values = nubBy ((==) `on` snd) . sortBy (compare `on` snd) . toList $vals+    fName = "show" ++ name++selectDefines :: String -> Map String Integer -> Map String Integer+selectDefines regex = filterWithKey (\k _ -> k =~ regex)++selectEnum :: String -> [Map String Integer] -> Map String Integer+selectEnum regex m = case selectEnums regex m of+  (x:_) -> x+  [] -> error ("Couldn't find enum for " ++ regex)++selectEnums :: String -> [Map String Integer] -> [Map String Integer]+selectEnums regex = filter (all (=~ regex) . keys)++--full :: String -> String+--full regex = "^" ++ regex ++ "$"++getEnums :: String -> IO [Map String Integer]+getEnums source = do+    parsed <- flip parseC initPos . inputStreamFromString <$> preprocessed+    let unit = gTags . fst . check $ runTrav_ (analyseAST $ check parsed)+        enums = mapMaybe getEnum (elems unit)+    return $ map cleanEnums enums+  where+    check (Left err) = error $ show err+    check (Right a)   = a+    preprocessed = readProcess "gcc" ["-E", "-"] source+    initPos = position 0 "" 0 0+    cleanEnums = filterWithKey (\k _ -> not ("_" `isPrefixOf` k))+++getEnum :: TagDef -> Maybe (Map String Integer)+getEnum (EnumDef (EnumType _ es _ _)) = Just $foldl getEnumValue empty es+getEnum _ = Nothing++getEnumValue :: Map String Integer -> Enumerator -> Map String Integer+getEnumValue m (Enumerator (Ident s _ _) v _ _) = insert s a m+  where a = evalEExpr m v++evalEExpr :: Map String Integer -> CExpr -> Integer+evalEExpr _ (CConst (CIntConst v _)) = getCInteger v+evalEExpr m (CBinary CAddOp a b _)   = evalEExpr m a + evalEExpr m b+evalEExpr m (CBinary CSubOp a b _)   = evalEExpr m a - evalEExpr m b+evalEExpr m (CBinary CShlOp a b _)   = evalEExpr m a * (2 ^ evalEExpr m b)+evalEExpr m (CVar (Ident a _ _) _)   = fromJust $lookup a m+evalEExpr _ other                    = error $ "Other: " ++ show (pretty other)+++--evalCExpr :: CExpr -> Integer+--evalCExpr = evalEExpr empty+++sanitize :: [[String]] -> [[String]]+sanitize (["@define",n]:_:[y]:xs) = ["@define",n,y]:sanitize xs+sanitize (["@define",x,y]:xs) = ["@define",x,y]:sanitize xs+sanitize (_:xs) = sanitize xs+sanitize [] = []++getDefinitions :: String -> IO (Map String Integer)+getDefinitions headers = do+    defines <- map words . lines <$> readDefines headers+    let isDefine (c:n:_) = c == "#define" && '(' `notElem` n && not ("_" `isPrefixOf` n)+        isDefine xs = error ("isDefine: Couldn't check: " ++ show xs)+        hasValue = (>= 3) . length+        names = map (!! 1) $ filter (\d -> isDefine d && hasValue d) defines+        kludge = map (\n -> "@define \"" ++ n ++ "\" " ++ n) names+    defines2 <- map words . lines <$> preprocess (headers ++ unlines kludge)+    let isInteresting d = hasValue d &&+                          ["@define"] `isPrefixOf` d &&+                          (all isNumber (d !! 2) || "0x" `isPrefixOf` (d !! 2) &&+                           all isNumber (drop 2 (d !! 2)))+        realDefines = map (take 2 . drop 1) $ filter isInteresting $ sanitize defines2+        clean [(_:k),v] = (init k, read v)+        clean _ = error "Clean: got a weird list"+    return $ fromList (map clean realDefines)+  where readDefines = readProcess "gcc" ["-E", "-dM", "-"]+        preprocess  = readProcess "gcc" ["-E", "-"]
System/Linux/Netlink.hs view
@@ -33,6 +33,7 @@   , getNetlinkFd   , closeSocket   , joinMulticastGroup+  , leaveMulticastGroup    , query   , queryOne@@ -306,9 +307,16 @@ -- |Join a netlink multicast group joinMulticastGroup   :: NetlinkSocket -- ^The socket to join with-  -> Word32  -- ^The id of the group to join+  -> Word32  -- ^The id of the group to join, values of System.Linux.Netlink.Constants.eRTNLGRP_*   -> IO () joinMulticastGroup (NS fd) = C.joinMulticastGroup fd++-- |Leave a netlink multicast group+leaveMulticastGroup+  :: NetlinkSocket -- ^The socket to leave+  -> Word32  -- ^The id of the group to leave, values of System.Linux.Netlink.Constants.eRTNLGRP_*+  -> IO ()+leaveMulticastGroup (NS fd) = C.leaveMulticastGroup fd
System/Linux/Netlink/C.hsc view
@@ -16,6 +16,7 @@     , sendmsg     , recvmsg     , joinMulticastGroup+    , leaveMulticastGroup     ) where @@ -38,7 +39,7 @@ import Foreign.Ptr (Ptr, castPtr, plusPtr) import Foreign.Storable (Storable(..)) -import System.Linux.Netlink.Constants (eAF_NETLINK)+import System.Linux.Netlink.Constants (eAF_NETLINK, eNETLINK_ADD_MEMBERSHIP, eNETLINK_DROP_MEMBERSHIP)  #include <unistd.h> #include <string.h>@@ -161,11 +162,25 @@ void act = act >> return ()  --- |Join a netlink multicast group-joinMulticastGroup :: CInt -> Word32 -> IO ()-joinMulticastGroup fd fid = do+-- |Set membership to netlink multicast group+joinOrLeaveMulticastGroup :: Bool -> CInt -> Word32 -> IO ()+joinOrLeaveMulticastGroup beMember fd fid = do   _ <- throwErrnoIfMinus1 "joinMulticast" $ with fid (\ptr ->-    c_setsockopt fd sol_netlink 1 (castPtr ptr) size)+    c_setsockopt fd sol_netlink value (castPtr ptr) size)   return ()-  where size = fromIntegral $sizeOf (undefined :: CInt)-        sol_netlink = 270 :: CInt+  where+    size = fromIntegral $sizeOf (undefined :: CInt)+    sol_netlink = 270 :: CInt+    value = if beMember+      then eNETLINK_ADD_MEMBERSHIP+      else eNETLINK_DROP_MEMBERSHIP++-- |Join a netlink multicast group+joinMulticastGroup :: CInt -> Word32 -> IO ()+joinMulticastGroup = joinOrLeaveMulticastGroup True++-- |Leave a netlink multicast group+leaveMulticastGroup :: CInt -> Word32 -> IO ()+leaveMulticastGroup = joinOrLeaveMulticastGroup False++
System/Linux/Netlink/Constants.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_HADDOCK hide, prune, ignore-exports #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}-module System.Linux.Netlink.Constants (AddressFamily, showAddressFamily, eAF_UNSPEC, eAF_FILE, eAF_LOCAL, eAF_UNIX, eAF_INET, eAF_AX25, eAF_IPX, eAF_APPLETALK, eAF_NETROM, eAF_BRIDGE, eAF_ATMPVC, eAF_X25, eAF_INET6, eAF_ROSE, eAF_DECnet, eAF_NETBEUI, eAF_SECURITY, eAF_KEY, eAF_NETLINK, eAF_ROUTE, eAF_PACKET, eAF_ASH, eAF_ECONET, eAF_ATMSVC, eAF_RDS, eAF_SNA, eAF_IRDA, eAF_PPPOX, eAF_WANPIPE, eAF_LLC, eAF_IB, eAF_MPLS, eAF_CAN, eAF_TIPC, eAF_BLUETOOTH, eAF_IUCV, eAF_RXRPC, eAF_ISDN, eAF_PHONET, eAF_IEEE802154, eAF_CAIF, eAF_ALG, eAF_NFC, eAF_VSOCK, eAF_MAX, MessageType, showMessageType, eNLMSG_NOOP, eNLMSG_ERROR, eNLMSG_DONE, eNLMSG_OVERRUN, eNLMSG_MIN_TYPE, eRTM_BASE, eRTM_NEWLINK, eRTM_DELLINK, eRTM_GETLINK, eRTM_SETLINK, eRTM_NEWADDR, eRTM_DELADDR, eRTM_GETADDR, eRTM_NEWROUTE, eRTM_DELROUTE, eRTM_GETROUTE, eRTM_NEWNEIGH, eRTM_DELNEIGH, eRTM_GETNEIGH, eRTM_NEWRULE, eRTM_DELRULE, eRTM_GETRULE, eRTM_NEWQDISC, eRTM_DELQDISC, eRTM_GETQDISC, eRTM_NEWTCLASS, eRTM_DELTCLASS, eRTM_GETTCLASS, eRTM_NEWTFILTER, eRTM_DELTFILTER, eRTM_GETTFILTER, eRTM_NEWACTION, eRTM_DELACTION, eRTM_GETACTION, eRTM_NEWPREFIX, eRTM_GETMULTICAST, eRTM_GETANYCAST, eRTM_NEWNEIGHTBL, eRTM_GETNEIGHTBL, eRTM_SETNEIGHTBL, eRTM_NEWNDUSEROPT, eRTM_NEWADDRLABEL, eRTM_DELADDRLABEL, eRTM_GETADDRLABEL, eRTM_GETDCB, eRTM_SETDCB, eRTM_NEWNETCONF, eRTM_GETNETCONF, eRTM_NEWMDB, eRTM_DELMDB, eRTM_GETMDB, eRTM_NEWNSID, eRTM_DELNSID, eRTM_GETNSID, MessageFlags, fNLM_F_REQUEST, fNLM_F_MULTI, fNLM_F_ACK, fNLM_F_ECHO, fNLM_F_DUMP_INTR, fNLM_F_DUMP_FILTERED, fNLM_F_REPLACE, fNLM_F_ROOT, fNLM_F_EXCL, fNLM_F_MATCH, fNLM_F_ATOMIC, fNLM_F_CREATE, fNLM_F_APPEND, LinkType, showLinkType, eARPHRD_NETROM, eARPHRD_ETHER, eARPHRD_EETHER, eARPHRD_AX25, eARPHRD_PRONET, eARPHRD_CHAOS, eARPHRD_IEEE802, eARPHRD_ARCNET, eARPHRD_APPLETLK, eARPHRD_DLCI, eARPHRD_ATM, eARPHRD_METRICOM, eARPHRD_IEEE1394, eARPHRD_EUI64, eARPHRD_INFINIBAND, eARPHRD_SLIP, eARPHRD_CSLIP, eARPHRD_SLIP6, eARPHRD_CSLIP6, eARPHRD_RSRVD, eARPHRD_ADAPT, eARPHRD_ROSE, eARPHRD_X25, eARPHRD_HWX25, eARPHRD_CAN, eARPHRD_PPP, eARPHRD_CISCO, eARPHRD_HDLC, eARPHRD_LAPB, eARPHRD_DDCMP, eARPHRD_RAWHDLC, eARPHRD_TUNNEL, eARPHRD_TUNNEL6, eARPHRD_FRAD, eARPHRD_SKIP, eARPHRD_LOOPBACK, eARPHRD_LOCALTLK, eARPHRD_FDDI, eARPHRD_BIF, eARPHRD_SIT, eARPHRD_IPDDP, eARPHRD_IPGRE, eARPHRD_PIMREG, eARPHRD_HIPPI, eARPHRD_ASH, eARPHRD_ECONET, eARPHRD_IRDA, eARPHRD_FCPP, eARPHRD_FCAL, eARPHRD_FCPL, eARPHRD_FCFABRIC, eARPHRD_IEEE802_TR, eARPHRD_IEEE80211, eARPHRD_IEEE80211_PRISM, eARPHRD_IEEE80211_RADIOTAP, eARPHRD_IEEE802154, eARPHRD_IEEE802154_MONITOR, eARPHRD_PHONET, eARPHRD_PHONET_PIPE, eARPHRD_CAIF, eARPHRD_IP6GRE, eARPHRD_NETLINK, eARPHRD_6LOWPAN, LinkFlags, fIFF_TUN, fIFF_UP, fIFF_BROADCAST, fIFF_TAP, fIFF_DEBUG, fIFF_LOOPBACK, fIFF_POINTOPOINT, fIFF_NOTRAILERS, fIFF_RUNNING, fIFF_NOARP, fIFF_MULTI_QUEUE, fIFF_PROMISC, fIFF_ALLMULTI, fIFF_ATTACH_QUEUE, fIFF_DETACH_QUEUE, fIFF_MASTER, fIFF_PERSIST, fIFF_SLAVE, fIFF_MULTICAST, fIFF_NOFILTER, fIFF_NO_PI, fIFF_ONE_QUEUE, fIFF_PORTSEL, fIFF_AUTOMEDIA, fIFF_VNET_HDR, fIFF_DYNAMIC, fIFF_TUN_EXCL, fIFF_LOWER_UP, fIFF_DORMANT, fIFF_ECHO, LinkAttrType, showLinkAttrType, eIFLA_UNSPEC, eIFLA_ADDRESS, eIFLA_BROADCAST, eIFLA_IFNAME, eIFLA_MTU, eIFLA_LINK, eIFLA_QDISC, eIFLA_STATS, eIFLA_COST, eIFLA_PRIORITY, eIFLA_MASTER, eIFLA_WIRELESS, eIFLA_PROTINFO, eIFLA_TXQLEN, eIFLA_MAP, eIFLA_WEIGHT, eIFLA_OPERSTATE, eIFLA_LINKMODE, eIFLA_LINKINFO, eIFLA_NET_NS_PID, eIFLA_IFALIAS, eIFLA_NUM_VF, eIFLA_VFINFO_LIST, eIFLA_STATS64, eIFLA_VF_PORTS, eIFLA_PORT_SELF, eIFLA_AF_SPEC, eIFLA_GROUP, eIFLA_NET_NS_FD, eIFLA_EXT_MASK, eIFLA_PROMISCUITY, eIFLA_NUM_TX_QUEUES, eIFLA_NUM_RX_QUEUES, eIFLA_CARRIER, eIFLA_PHYS_PORT_ID, eIFLA_CARRIER_CHANGES, eIFLA_PHYS_SWITCH_ID, eIFLA_LINK_NETNSID, eIFLA_PHYS_PORT_NAME, eIFLA_PROTO_DOWN, AddrFlags, fIFA_F_SECONDARY, fIFA_F_TEMPORARY, fIFA_F_NODAD, fIFA_F_OPTIMISTIC, fIFA_F_DADFAILED, fIFA_F_HOMEADDRESS, fIFA_F_DEPRECATED, fIFA_F_TENTATIVE, fIFA_F_PERMANENT, fIFA_F_MANAGETEMPADDR, fIFA_F_NOPREFIXROUTE, fIFA_F_MCAUTOJOIN, fIFA_F_STABLE_PRIVACY, Scope, showScope, eRT_SCOPE_UNIVERSE, eRT_SCOPE_SITE, eRT_SCOPE_LINK, eRT_SCOPE_HOST, eRT_SCOPE_NOWHERE, AddrAttrType, showAddrAttrType, eIFA_UNSPEC, eIFA_ADDRESS, eIFA_LOCAL, eIFA_LABEL, eIFA_BROADCAST, eIFA_ANYCAST, eIFA_CACHEINFO, eIFA_MULTICAST, eIFA_FLAGS, RouteTableId, showRouteTableId, eRT_TABLE_UNSPEC, eRT_TABLE_COMPAT, eRT_TABLE_DEFAULT, eRT_TABLE_MAIN, eRT_TABLE_LOCAL, eRT_TABLE_MAX, RouteProto, showRouteProto, eRTPROT_UNSPEC, eRTPROT_REDIRECT, eRTPROT_KERNEL, eRTPROT_BOOT, eRTPROT_STATIC, eRTPROT_GATED, eRTPROT_RA, eRTPROT_MRT, eRTPROT_ZEBRA, eRTPROT_BIRD, eRTPROT_DNROUTED, eRTPROT_XORP, eRTPROT_NTK, eRTPROT_DHCP, eRTPROT_MROUTED, eRTPROT_BABEL, RouteType, showRouteType, eRTN_UNSPEC, eRTN_UNICAST, eRTN_LOCAL, eRTN_BROADCAST, eRTN_ANYCAST, eRTN_MULTICAST, eRTN_BLACKHOLE, eRTN_UNREACHABLE, eRTN_PROHIBIT, eRTN_THROW, eRTN_NAT, eRTN_XRESOLVE, RouteFlags, fRTM_F_NOTIFY, fRTM_F_CLONED, fRTM_F_EQUALIZE, fRTM_F_PREFIX, fRTM_F_LOOKUP_TABLE, RouteAttrType, showRouteAttrType, eRTA_UNSPEC, eRTA_DST, eRTA_SRC, eRTA_IIF, eRTA_OIF, eRTA_GATEWAY, eRTA_PRIORITY, eRTA_PREFSRC, eRTA_METRICS, eRTA_MULTIPATH, eRTA_PROTOINFO, eRTA_FLOW, eRTA_CACHEINFO, eRTA_SESSION, eRTA_MP_ALGO, eRTA_TABLE, eRTA_MARK, eRTA_MFC_STATS, eRTA_VIA, eRTA_NEWDST, eRTA_PREF, eRTA_ENCAP_TYPE, eRTA_ENCAP) where+module System.Linux.Netlink.Constants (AddressFamily, showAddressFamily, eAF_UNSPEC, eAF_FILE, eAF_LOCAL, eAF_UNIX, eAF_INET, eAF_AX25, eAF_IPX, eAF_APPLETALK, eAF_NETROM, eAF_BRIDGE, eAF_ATMPVC, eAF_X25, eAF_INET6, eAF_ROSE, eAF_DECnet, eAF_NETBEUI, eAF_SECURITY, eAF_KEY, eAF_NETLINK, eAF_ROUTE, eAF_PACKET, eAF_ASH, eAF_ECONET, eAF_ATMSVC, eAF_RDS, eAF_SNA, eAF_IRDA, eAF_PPPOX, eAF_WANPIPE, eAF_LLC, eAF_IB, eAF_MPLS, eAF_CAN, eAF_TIPC, eAF_BLUETOOTH, eAF_IUCV, eAF_RXRPC, eAF_ISDN, eAF_PHONET, eAF_IEEE802154, eAF_CAIF, eAF_ALG, eAF_NFC, eAF_VSOCK, eAF_KCM, eAF_MAX, MessageType, showMessageType, eNLMSG_NOOP, eNLMSG_ERROR, eNLMSG_DONE, eNLMSG_OVERRUN, eNLMSG_MIN_TYPE, eRTM_BASE, eRTM_NEWLINK, eRTM_DELLINK, eRTM_GETLINK, eRTM_SETLINK, eRTM_NEWADDR, eRTM_DELADDR, eRTM_GETADDR, eRTM_NEWROUTE, eRTM_DELROUTE, eRTM_GETROUTE, eRTM_NEWNEIGH, eRTM_DELNEIGH, eRTM_GETNEIGH, eRTM_NEWRULE, eRTM_DELRULE, eRTM_GETRULE, eRTM_NEWQDISC, eRTM_DELQDISC, eRTM_GETQDISC, eRTM_NEWTCLASS, eRTM_DELTCLASS, eRTM_GETTCLASS, eRTM_NEWTFILTER, eRTM_DELTFILTER, eRTM_GETTFILTER, eRTM_NEWACTION, eRTM_DELACTION, eRTM_GETACTION, eRTM_NEWPREFIX, eRTM_GETMULTICAST, eRTM_GETANYCAST, eRTM_NEWNEIGHTBL, eRTM_GETNEIGHTBL, eRTM_SETNEIGHTBL, eRTM_NEWNDUSEROPT, eRTM_NEWADDRLABEL, eRTM_DELADDRLABEL, eRTM_GETADDRLABEL, eRTM_GETDCB, eRTM_SETDCB, eRTM_NEWNETCONF, eRTM_GETNETCONF, eRTM_NEWMDB, eRTM_DELMDB, eRTM_GETMDB, eRTM_NEWNSID, eRTM_DELNSID, eRTM_GETNSID, eRTM_NEWSTATS, eRTM_GETSTATS, MessageFlags, fNLM_F_REQUEST, fNLM_F_MULTI, fNLM_F_ACK, fNLM_F_ECHO, fNLM_F_DUMP_INTR, fNLM_F_DUMP_FILTERED, fNLM_F_REPLACE, fNLM_F_ROOT, fNLM_F_EXCL, fNLM_F_MATCH, fNLM_F_ATOMIC, fNLM_F_CREATE, fNLM_F_APPEND, LinkType, showLinkType, eARPHRD_NETROM, eARPHRD_ETHER, eARPHRD_EETHER, eARPHRD_AX25, eARPHRD_PRONET, eARPHRD_CHAOS, eARPHRD_IEEE802, eARPHRD_ARCNET, eARPHRD_APPLETLK, eARPHRD_DLCI, eARPHRD_ATM, eARPHRD_METRICOM, eARPHRD_IEEE1394, eARPHRD_EUI64, eARPHRD_INFINIBAND, eARPHRD_SLIP, eARPHRD_CSLIP, eARPHRD_SLIP6, eARPHRD_CSLIP6, eARPHRD_RSRVD, eARPHRD_ADAPT, eARPHRD_ROSE, eARPHRD_X25, eARPHRD_HWX25, eARPHRD_CAN, eARPHRD_PPP, eARPHRD_CISCO, eARPHRD_HDLC, eARPHRD_LAPB, eARPHRD_DDCMP, eARPHRD_RAWHDLC, eARPHRD_TUNNEL, eARPHRD_TUNNEL6, eARPHRD_FRAD, eARPHRD_SKIP, eARPHRD_LOOPBACK, eARPHRD_LOCALTLK, eARPHRD_FDDI, eARPHRD_BIF, eARPHRD_SIT, eARPHRD_IPDDP, eARPHRD_IPGRE, eARPHRD_PIMREG, eARPHRD_HIPPI, eARPHRD_ASH, eARPHRD_ECONET, eARPHRD_IRDA, eARPHRD_FCPP, eARPHRD_FCAL, eARPHRD_FCPL, eARPHRD_FCFABRIC, eARPHRD_IEEE802_TR, eARPHRD_IEEE80211, eARPHRD_IEEE80211_PRISM, eARPHRD_IEEE80211_RADIOTAP, eARPHRD_IEEE802154, eARPHRD_IEEE802154_MONITOR, eARPHRD_PHONET, eARPHRD_PHONET_PIPE, eARPHRD_CAIF, eARPHRD_IP6GRE, eARPHRD_NETLINK, eARPHRD_6LOWPAN, LinkFlags, fIFF_TUN, fIFF_UP, fIFF_BROADCAST, fIFF_TAP, fIFF_DEBUG, fIFF_LOOPBACK, fIFF_POINTOPOINT, fIFF_NOTRAILERS, fIFF_RUNNING, fIFF_NOARP, fIFF_MULTI_QUEUE, fIFF_PROMISC, fIFF_ALLMULTI, fIFF_ATTACH_QUEUE, fIFF_DETACH_QUEUE, fIFF_MASTER, fIFF_PERSIST, fIFF_SLAVE, fIFF_MULTICAST, fIFF_NOFILTER, fIFF_NO_PI, fIFF_ONE_QUEUE, fIFF_PORTSEL, fIFF_AUTOMEDIA, fIFF_VNET_HDR, fIFF_DYNAMIC, fIFF_TUN_EXCL, fIFF_LOWER_UP, fIFF_DORMANT, fIFF_ECHO, LinkAttrType, showLinkAttrType, eIFLA_UNSPEC, eIFLA_ADDRESS, eIFLA_BROADCAST, eIFLA_IFNAME, eIFLA_MTU, eIFLA_LINK, eIFLA_QDISC, eIFLA_STATS, eIFLA_COST, eIFLA_PRIORITY, eIFLA_MASTER, eIFLA_WIRELESS, eIFLA_PROTINFO, eIFLA_TXQLEN, eIFLA_MAP, eIFLA_WEIGHT, eIFLA_OPERSTATE, eIFLA_LINKMODE, eIFLA_LINKINFO, eIFLA_NET_NS_PID, eIFLA_IFALIAS, eIFLA_NUM_VF, eIFLA_VFINFO_LIST, eIFLA_STATS64, eIFLA_VF_PORTS, eIFLA_PORT_SELF, eIFLA_AF_SPEC, eIFLA_GROUP, eIFLA_NET_NS_FD, eIFLA_EXT_MASK, eIFLA_PROMISCUITY, eIFLA_NUM_TX_QUEUES, eIFLA_NUM_RX_QUEUES, eIFLA_CARRIER, eIFLA_PHYS_PORT_ID, eIFLA_CARRIER_CHANGES, eIFLA_PHYS_SWITCH_ID, eIFLA_LINK_NETNSID, eIFLA_PHYS_PORT_NAME, eIFLA_PROTO_DOWN, eIFLA_GSO_MAX_SEGS, eIFLA_GSO_MAX_SIZE, eIFLA_PAD, eIFLA_XDP, AddrFlags, fIFA_F_SECONDARY, fIFA_F_TEMPORARY, fIFA_F_NODAD, fIFA_F_OPTIMISTIC, fIFA_F_DADFAILED, fIFA_F_HOMEADDRESS, fIFA_F_DEPRECATED, fIFA_F_TENTATIVE, fIFA_F_PERMANENT, fIFA_F_MANAGETEMPADDR, fIFA_F_NOPREFIXROUTE, fIFA_F_MCAUTOJOIN, fIFA_F_STABLE_PRIVACY, Scope, showScope, eRT_SCOPE_UNIVERSE, eRT_SCOPE_SITE, eRT_SCOPE_LINK, eRT_SCOPE_HOST, eRT_SCOPE_NOWHERE, AddrAttrType, showAddrAttrType, eIFA_UNSPEC, eIFA_ADDRESS, eIFA_LOCAL, eIFA_LABEL, eIFA_BROADCAST, eIFA_ANYCAST, eIFA_CACHEINFO, eIFA_MULTICAST, eIFA_FLAGS, RouteTableId, showRouteTableId, eRT_TABLE_UNSPEC, eRT_TABLE_COMPAT, eRT_TABLE_DEFAULT, eRT_TABLE_MAIN, eRT_TABLE_LOCAL, eRT_TABLE_MAX, RouteProto, showRouteProto, eRTPROT_UNSPEC, eRTPROT_REDIRECT, eRTPROT_KERNEL, eRTPROT_BOOT, eRTPROT_STATIC, eRTPROT_GATED, eRTPROT_RA, eRTPROT_MRT, eRTPROT_ZEBRA, eRTPROT_BIRD, eRTPROT_DNROUTED, eRTPROT_XORP, eRTPROT_NTK, eRTPROT_DHCP, eRTPROT_MROUTED, eRTPROT_BABEL, RouteType, showRouteType, eRTN_UNSPEC, eRTN_UNICAST, eRTN_LOCAL, eRTN_BROADCAST, eRTN_ANYCAST, eRTN_MULTICAST, eRTN_BLACKHOLE, eRTN_UNREACHABLE, eRTN_PROHIBIT, eRTN_THROW, eRTN_NAT, eRTN_XRESOLVE, RouteFlags, fRTM_F_NOTIFY, fRTM_F_CLONED, fRTM_F_EQUALIZE, fRTM_F_PREFIX, fRTM_F_LOOKUP_TABLE, RouteAttrType, showRouteAttrType, eRTA_UNSPEC, eRTA_DST, eRTA_SRC, eRTA_IIF, eRTA_OIF, eRTA_GATEWAY, eRTA_PRIORITY, eRTA_PREFSRC, eRTA_METRICS, eRTA_MULTIPATH, eRTA_PROTOINFO, eRTA_FLOW, eRTA_CACHEINFO, eRTA_SESSION, eRTA_MP_ALGO, eRTA_TABLE, eRTA_MARK, eRTA_MFC_STATS, eRTA_VIA, eRTA_NEWDST, eRTA_PREF, eRTA_ENCAP_TYPE, eRTA_ENCAP, eRTA_EXPIRES, eRTA_PAD, eRTA_UID, NeighAttrType, showNeighAttrType, eNDA_UNSPEC, eNDA_DST, eNDA_LLADDR, eNDA_CACHEINFO, eNDA_PROBES, eNDA_VLAN, eNDA_PORT, eNDA_VNI, eNDA_IFINDEX, eNDA_MASTER, eNDA_LINK_NETNSID, NeighStateFlags, fNUD_NONE, fNUD_INCOMPLETE, fNUD_REACHABLE, fNUD_STALE, fNUD_DELAY, fNUD_PROBE, fNUD_FAILED, fNUD_NOARP, fNUD_PERMANENT, NetlinkFamily, showNetlinkFamily, eNETLINK_ROUTE, eNETLINK_ADD_MEMBERSHIP, eNETLINK_UNUSED, eNETLINK_DROP_MEMBERSHIP, eNETLINK_USERSOCK, eNETLINK_FIREWALL, eNETLINK_PKTINFO, eNETLINK_BROADCAST_ERROR, eNETLINK_INET_DIAG, eNETLINK_SOCK_DIAG, eNETLINK_NFLOG, eNETLINK_NO_ENOBUFS, eNETLINK_RX_RING, eNETLINK_XFRM, eNETLINK_SELINUX, eNETLINK_TX_RING, eNETLINK_ISCSI, eNETLINK_LISTEN_ALL_NSID, eNETLINK_AUDIT, eNETLINK_LIST_MEMBERSHIPS, eNETLINK_CAP_ACK, eNETLINK_FIB_LOOKUP, eNETLINK_CONNECTOR, eNETLINK_NETFILTER, eNETLINK_IP6_FW, eNETLINK_DNRTMSG, eNETLINK_KOBJECT_UEVENT, eNETLINK_GENERIC, eNETLINK_SCSITRANSPORT, eNETLINK_ECRYPTFS, eNETLINK_RDMA, eNETLINK_CRYPTO, RtNetlinkGroups, showRtNetlinkGroups, eRTNLGRP_NONE, eRTNLGRP_LINK, eRTNLGRP_NOTIFY, eRTNLGRP_NEIGH, eRTNLGRP_TC, eRTNLGRP_IPV4_IFADDR, eRTNLGRP_IPV4_MROUTE, eRTNLGRP_IPV4_ROUTE, eRTNLGRP_IPV4_RULE, eRTNLGRP_IPV6_IFADDR, eRTNLGRP_IPV6_MROUTE, eRTNLGRP_IPV6_ROUTE, eRTNLGRP_IPV6_IFINFO, eRTNLGRP_DECnet_IFADDR, eRTNLGRP_NOP2, eRTNLGRP_DECnet_ROUTE, eRTNLGRP_DECnet_RULE, eRTNLGRP_NOP4, eRTNLGRP_IPV6_PREFIX, eRTNLGRP_IPV6_RULE, eRTNLGRP_ND_USEROPT, eRTNLGRP_PHONET_IFADDR, eRTNLGRP_PHONET_ROUTE, eRTNLGRP_DCB, eRTNLGRP_IPV4_NETCONF, eRTNLGRP_IPV6_NETCONF, eRTNLGRP_MDB, eRTNLGRP_MPLS_ROUTE, eRTNLGRP_NSID) where  import Data.Bits @@ -48,7 +48,8 @@ showAddressFamily 38 = "AF_ALG" showAddressFamily 39 = "AF_NFC" showAddressFamily 40 = "AF_VSOCK"-showAddressFamily 41 = "AF_MAX"+showAddressFamily 41 = "AF_KCM"+showAddressFamily 42 = "AF_MAX" showAddressFamily i = "AddressFamily #" ++ (show i)  @@ -140,8 +141,10 @@ eAF_NFC = 39 eAF_VSOCK :: (Num a) => a eAF_VSOCK = 40+eAF_KCM :: (Num a) => a+eAF_KCM = 41 eAF_MAX :: (Num a) => a-eAF_MAX = 41+eAF_MAX = 42 newtype MessageType = MessageType Int deriving (Eq, Enum, Integral, Num, Ord, Real, Show)  showMessageType :: (Num a) => (Show a) => (Eq a) => a -> String@@ -197,6 +200,8 @@ showMessageType 88 = "RTM_NEWNSID" showMessageType 89 = "RTM_DELNSID" showMessageType 90 = "RTM_GETNSID"+showMessageType 92 = "RTM_NEWSTATS"+showMessageType 94 = "RTM_GETSTATS" showMessageType i = "MessageType #" ++ (show i)  @@ -308,6 +313,10 @@ eRTM_DELNSID = 89 eRTM_GETNSID :: (Num a) => a eRTM_GETNSID = 90+eRTM_NEWSTATS :: (Num a) => a+eRTM_NEWSTATS = 92+eRTM_GETSTATS :: (Num a) => a+eRTM_GETSTATS = 94 newtype MessageFlags = MessageFlags Int deriving (Bits, Eq, Enum, Integral, Num, Ord, Real, Show)  fNLM_F_REQUEST :: (Num a, Bits a) => a@@ -635,6 +644,10 @@ showLinkAttrType 37 = "IFLA_LINK_NETNSID" showLinkAttrType 38 = "IFLA_PHYS_PORT_NAME" showLinkAttrType 39 = "IFLA_PROTO_DOWN"+showLinkAttrType 40 = "IFLA_GSO_MAX_SEGS"+showLinkAttrType 41 = "IFLA_GSO_MAX_SIZE"+showLinkAttrType 42 = "IFLA_PAD"+showLinkAttrType 43 = "IFLA_XDP" showLinkAttrType i = "LinkAttrType #" ++ (show i)  @@ -718,6 +731,14 @@ eIFLA_PHYS_PORT_NAME = 38 eIFLA_PROTO_DOWN :: (Num a) => a eIFLA_PROTO_DOWN = 39+eIFLA_GSO_MAX_SEGS :: (Num a) => a+eIFLA_GSO_MAX_SEGS = 40+eIFLA_GSO_MAX_SIZE :: (Num a) => a+eIFLA_GSO_MAX_SIZE = 41+eIFLA_PAD :: (Num a) => a+eIFLA_PAD = 42+eIFLA_XDP :: (Num a) => a+eIFLA_XDP = 43 newtype AddrFlags = AddrFlags Int deriving (Bits, Eq, Enum, Integral, Num, Ord, Real, Show)  fIFA_F_SECONDARY :: (Num a, Bits a) => a@@ -958,6 +979,9 @@ showRouteAttrType 20 = "RTA_PREF" showRouteAttrType 21 = "RTA_ENCAP_TYPE" showRouteAttrType 22 = "RTA_ENCAP"+showRouteAttrType 23 = "RTA_EXPIRES"+showRouteAttrType 24 = "RTA_PAD"+showRouteAttrType 25 = "RTA_UID" showRouteAttrType i = "RouteAttrType #" ++ (show i)  @@ -1007,3 +1031,252 @@ eRTA_ENCAP_TYPE = 21 eRTA_ENCAP :: (Num a) => a eRTA_ENCAP = 22+eRTA_EXPIRES :: (Num a) => a+eRTA_EXPIRES = 23+eRTA_PAD :: (Num a) => a+eRTA_PAD = 24+eRTA_UID :: (Num a) => a+eRTA_UID = 25+newtype NeighAttrType = NeighAttrType Int deriving (Eq, Enum, Integral, Num, Ord, Real, Show)++showNeighAttrType :: (Num a) => (Show a) => (Eq a) => a -> String+showNeighAttrType 0 = "NDA_UNSPEC"+showNeighAttrType 1 = "NDA_DST"+showNeighAttrType 2 = "NDA_LLADDR"+showNeighAttrType 3 = "NDA_CACHEINFO"+showNeighAttrType 4 = "NDA_PROBES"+showNeighAttrType 5 = "NDA_VLAN"+showNeighAttrType 6 = "NDA_PORT"+showNeighAttrType 7 = "NDA_VNI"+showNeighAttrType 8 = "NDA_IFINDEX"+showNeighAttrType 9 = "NDA_MASTER"+showNeighAttrType 10 = "NDA_LINK_NETNSID"+showNeighAttrType i = "NeighAttrType #" ++ (show i)+++eNDA_UNSPEC :: (Num a) => a+eNDA_UNSPEC = 0+eNDA_DST :: (Num a) => a+eNDA_DST = 1+eNDA_LLADDR :: (Num a) => a+eNDA_LLADDR = 2+eNDA_CACHEINFO :: (Num a) => a+eNDA_CACHEINFO = 3+eNDA_PROBES :: (Num a) => a+eNDA_PROBES = 4+eNDA_VLAN :: (Num a) => a+eNDA_VLAN = 5+eNDA_PORT :: (Num a) => a+eNDA_PORT = 6+eNDA_VNI :: (Num a) => a+eNDA_VNI = 7+eNDA_IFINDEX :: (Num a) => a+eNDA_IFINDEX = 8+eNDA_MASTER :: (Num a) => a+eNDA_MASTER = 9+eNDA_LINK_NETNSID :: (Num a) => a+eNDA_LINK_NETNSID = 10+newtype NeighStateFlags = NeighStateFlags Int deriving (Bits, Eq, Enum, Integral, Num, Ord, Real, Show)++fNUD_NONE :: (Num a, Bits a) => a+fNUD_NONE = 0+fNUD_INCOMPLETE :: (Num a, Bits a) => a+fNUD_INCOMPLETE = 1+fNUD_REACHABLE :: (Num a, Bits a) => a+fNUD_REACHABLE = 2+fNUD_STALE :: (Num a, Bits a) => a+fNUD_STALE = 4+fNUD_DELAY :: (Num a, Bits a) => a+fNUD_DELAY = 8+fNUD_PROBE :: (Num a, Bits a) => a+fNUD_PROBE = 16+fNUD_FAILED :: (Num a, Bits a) => a+fNUD_FAILED = 32+fNUD_NOARP :: (Num a, Bits a) => a+fNUD_NOARP = 64+fNUD_PERMANENT :: (Num a, Bits a) => a+fNUD_PERMANENT = 128+newtype NetlinkFamily = NetlinkFamily Int deriving (Eq, Enum, Integral, Num, Ord, Real, Show)++showNetlinkFamily :: (Num a) => (Show a) => (Eq a) => a -> String+showNetlinkFamily 0 = "NETLINK_ROUTE"+showNetlinkFamily 1 = "NETLINK_ADD_MEMBERSHIP"+showNetlinkFamily 2 = "NETLINK_DROP_MEMBERSHIP"+showNetlinkFamily 3 = "NETLINK_FIREWALL"+showNetlinkFamily 4 = "NETLINK_BROADCAST_ERROR"+showNetlinkFamily 5 = "NETLINK_NFLOG"+showNetlinkFamily 6 = "NETLINK_RX_RING"+showNetlinkFamily 7 = "NETLINK_SELINUX"+showNetlinkFamily 8 = "NETLINK_ISCSI"+showNetlinkFamily 9 = "NETLINK_AUDIT"+showNetlinkFamily 10 = "NETLINK_CAP_ACK"+showNetlinkFamily 11 = "NETLINK_CONNECTOR"+showNetlinkFamily 12 = "NETLINK_NETFILTER"+showNetlinkFamily 13 = "NETLINK_IP6_FW"+showNetlinkFamily 14 = "NETLINK_DNRTMSG"+showNetlinkFamily 15 = "NETLINK_KOBJECT_UEVENT"+showNetlinkFamily 16 = "NETLINK_GENERIC"+showNetlinkFamily 18 = "NETLINK_SCSITRANSPORT"+showNetlinkFamily 19 = "NETLINK_ECRYPTFS"+showNetlinkFamily 20 = "NETLINK_RDMA"+showNetlinkFamily 21 = "NETLINK_CRYPTO"+showNetlinkFamily i = "NetlinkFamily #" ++ (show i)+++eNETLINK_ROUTE :: (Num a) => a+eNETLINK_ROUTE = 0+eNETLINK_ADD_MEMBERSHIP :: (Num a) => a+eNETLINK_ADD_MEMBERSHIP = 1+eNETLINK_UNUSED :: (Num a) => a+eNETLINK_UNUSED = 1+eNETLINK_DROP_MEMBERSHIP :: (Num a) => a+eNETLINK_DROP_MEMBERSHIP = 2+eNETLINK_USERSOCK :: (Num a) => a+eNETLINK_USERSOCK = 2+eNETLINK_FIREWALL :: (Num a) => a+eNETLINK_FIREWALL = 3+eNETLINK_PKTINFO :: (Num a) => a+eNETLINK_PKTINFO = 3+eNETLINK_BROADCAST_ERROR :: (Num a) => a+eNETLINK_BROADCAST_ERROR = 4+eNETLINK_INET_DIAG :: (Num a) => a+eNETLINK_INET_DIAG = 4+eNETLINK_SOCK_DIAG :: (Num a) => a+eNETLINK_SOCK_DIAG = 4+eNETLINK_NFLOG :: (Num a) => a+eNETLINK_NFLOG = 5+eNETLINK_NO_ENOBUFS :: (Num a) => a+eNETLINK_NO_ENOBUFS = 5+eNETLINK_RX_RING :: (Num a) => a+eNETLINK_RX_RING = 6+eNETLINK_XFRM :: (Num a) => a+eNETLINK_XFRM = 6+eNETLINK_SELINUX :: (Num a) => a+eNETLINK_SELINUX = 7+eNETLINK_TX_RING :: (Num a) => a+eNETLINK_TX_RING = 7+eNETLINK_ISCSI :: (Num a) => a+eNETLINK_ISCSI = 8+eNETLINK_LISTEN_ALL_NSID :: (Num a) => a+eNETLINK_LISTEN_ALL_NSID = 8+eNETLINK_AUDIT :: (Num a) => a+eNETLINK_AUDIT = 9+eNETLINK_LIST_MEMBERSHIPS :: (Num a) => a+eNETLINK_LIST_MEMBERSHIPS = 9+eNETLINK_CAP_ACK :: (Num a) => a+eNETLINK_CAP_ACK = 10+eNETLINK_FIB_LOOKUP :: (Num a) => a+eNETLINK_FIB_LOOKUP = 10+eNETLINK_CONNECTOR :: (Num a) => a+eNETLINK_CONNECTOR = 11+eNETLINK_NETFILTER :: (Num a) => a+eNETLINK_NETFILTER = 12+eNETLINK_IP6_FW :: (Num a) => a+eNETLINK_IP6_FW = 13+eNETLINK_DNRTMSG :: (Num a) => a+eNETLINK_DNRTMSG = 14+eNETLINK_KOBJECT_UEVENT :: (Num a) => a+eNETLINK_KOBJECT_UEVENT = 15+eNETLINK_GENERIC :: (Num a) => a+eNETLINK_GENERIC = 16+eNETLINK_SCSITRANSPORT :: (Num a) => a+eNETLINK_SCSITRANSPORT = 18+eNETLINK_ECRYPTFS :: (Num a) => a+eNETLINK_ECRYPTFS = 19+eNETLINK_RDMA :: (Num a) => a+eNETLINK_RDMA = 20+eNETLINK_CRYPTO :: (Num a) => a+eNETLINK_CRYPTO = 21+newtype RtNetlinkGroups = RtNetlinkGroups Int deriving (Eq, Enum, Integral, Num, Ord, Real, Show)++showRtNetlinkGroups :: (Num a) => (Show a) => (Eq a) => a -> String+showRtNetlinkGroups 0 = "RTNLGRP_NONE"+showRtNetlinkGroups 1 = "RTNLGRP_LINK"+showRtNetlinkGroups 2 = "RTNLGRP_NOTIFY"+showRtNetlinkGroups 3 = "RTNLGRP_NEIGH"+showRtNetlinkGroups 4 = "RTNLGRP_TC"+showRtNetlinkGroups 5 = "RTNLGRP_IPV4_IFADDR"+showRtNetlinkGroups 6 = "RTNLGRP_IPV4_MROUTE"+showRtNetlinkGroups 7 = "RTNLGRP_IPV4_ROUTE"+showRtNetlinkGroups 8 = "RTNLGRP_IPV4_RULE"+showRtNetlinkGroups 9 = "RTNLGRP_IPV6_IFADDR"+showRtNetlinkGroups 10 = "RTNLGRP_IPV6_MROUTE"+showRtNetlinkGroups 11 = "RTNLGRP_IPV6_ROUTE"+showRtNetlinkGroups 12 = "RTNLGRP_IPV6_IFINFO"+showRtNetlinkGroups 13 = "RTNLGRP_DECnet_IFADDR"+showRtNetlinkGroups 14 = "RTNLGRP_NOP2"+showRtNetlinkGroups 15 = "RTNLGRP_DECnet_ROUTE"+showRtNetlinkGroups 16 = "RTNLGRP_DECnet_RULE"+showRtNetlinkGroups 17 = "RTNLGRP_NOP4"+showRtNetlinkGroups 18 = "RTNLGRP_IPV6_PREFIX"+showRtNetlinkGroups 19 = "RTNLGRP_IPV6_RULE"+showRtNetlinkGroups 20 = "RTNLGRP_ND_USEROPT"+showRtNetlinkGroups 21 = "RTNLGRP_PHONET_IFADDR"+showRtNetlinkGroups 22 = "RTNLGRP_PHONET_ROUTE"+showRtNetlinkGroups 23 = "RTNLGRP_DCB"+showRtNetlinkGroups 24 = "RTNLGRP_IPV4_NETCONF"+showRtNetlinkGroups 25 = "RTNLGRP_IPV6_NETCONF"+showRtNetlinkGroups 26 = "RTNLGRP_MDB"+showRtNetlinkGroups 27 = "RTNLGRP_MPLS_ROUTE"+showRtNetlinkGroups 28 = "RTNLGRP_NSID"+showRtNetlinkGroups i = "RtNetlinkGroups #" ++ (show i)+++eRTNLGRP_NONE :: (Num a) => a+eRTNLGRP_NONE = 0+eRTNLGRP_LINK :: (Num a) => a+eRTNLGRP_LINK = 1+eRTNLGRP_NOTIFY :: (Num a) => a+eRTNLGRP_NOTIFY = 2+eRTNLGRP_NEIGH :: (Num a) => a+eRTNLGRP_NEIGH = 3+eRTNLGRP_TC :: (Num a) => a+eRTNLGRP_TC = 4+eRTNLGRP_IPV4_IFADDR :: (Num a) => a+eRTNLGRP_IPV4_IFADDR = 5+eRTNLGRP_IPV4_MROUTE :: (Num a) => a+eRTNLGRP_IPV4_MROUTE = 6+eRTNLGRP_IPV4_ROUTE :: (Num a) => a+eRTNLGRP_IPV4_ROUTE = 7+eRTNLGRP_IPV4_RULE :: (Num a) => a+eRTNLGRP_IPV4_RULE = 8+eRTNLGRP_IPV6_IFADDR :: (Num a) => a+eRTNLGRP_IPV6_IFADDR = 9+eRTNLGRP_IPV6_MROUTE :: (Num a) => a+eRTNLGRP_IPV6_MROUTE = 10+eRTNLGRP_IPV6_ROUTE :: (Num a) => a+eRTNLGRP_IPV6_ROUTE = 11+eRTNLGRP_IPV6_IFINFO :: (Num a) => a+eRTNLGRP_IPV6_IFINFO = 12+eRTNLGRP_DECnet_IFADDR :: (Num a) => a+eRTNLGRP_DECnet_IFADDR = 13+eRTNLGRP_NOP2 :: (Num a) => a+eRTNLGRP_NOP2 = 14+eRTNLGRP_DECnet_ROUTE :: (Num a) => a+eRTNLGRP_DECnet_ROUTE = 15+eRTNLGRP_DECnet_RULE :: (Num a) => a+eRTNLGRP_DECnet_RULE = 16+eRTNLGRP_NOP4 :: (Num a) => a+eRTNLGRP_NOP4 = 17+eRTNLGRP_IPV6_PREFIX :: (Num a) => a+eRTNLGRP_IPV6_PREFIX = 18+eRTNLGRP_IPV6_RULE :: (Num a) => a+eRTNLGRP_IPV6_RULE = 19+eRTNLGRP_ND_USEROPT :: (Num a) => a+eRTNLGRP_ND_USEROPT = 20+eRTNLGRP_PHONET_IFADDR :: (Num a) => a+eRTNLGRP_PHONET_IFADDR = 21+eRTNLGRP_PHONET_ROUTE :: (Num a) => a+eRTNLGRP_PHONET_ROUTE = 22+eRTNLGRP_DCB :: (Num a) => a+eRTNLGRP_DCB = 23+eRTNLGRP_IPV4_NETCONF :: (Num a) => a+eRTNLGRP_IPV4_NETCONF = 24+eRTNLGRP_IPV6_NETCONF :: (Num a) => a+eRTNLGRP_IPV6_NETCONF = 25+eRTNLGRP_MDB :: (Num a) => a+eRTNLGRP_MDB = 26+eRTNLGRP_MPLS_ROUTE :: (Num a) => a+eRTNLGRP_MPLS_ROUTE = 27+eRTNLGRP_NSID :: (Num a) => a+eRTNLGRP_NSID = 28
System/Linux/Netlink/Route.hs view
@@ -26,6 +26,9 @@     , getLinkMTU     , getLinkQDisc     , getLinkTXQLen+    , getIFAddr+    , getLLAddr+    , getDstAddr      , putLinkAddress     , putLinkBroadcast@@ -39,7 +42,7 @@  #if MIN_VERSION_base(4,8,0) #else-import Control.Applicative ((<$>))+import Control.Applicative ((<$>), (<*>)) #endif  import qualified Data.ByteString as BS (length)@@ -49,7 +52,8 @@ import Data.Map (insert, lookup, toList) import Data.Serialize.Get import Data.Serialize.Put-import Data.Word (Word8, Word32)+import Data.Word (Word8, Word16, Word32)+import Data.Int (Int32)  import System.Linux.Netlink.Constants import System.Linux.Netlink@@ -61,7 +65,7 @@     {       interfaceType  :: LinkType     , interfaceIndex :: Word32-    , interfaceFlags :: Word32+    , interfaceFlags :: Word32 -- ^ System.Linux.Netlink.Constants.fIFF_* flags     }              | NAddrMsg     {@@ -70,6 +74,13 @@     , addrFlags          :: Word8     , addrScope          :: Word8     , addrInterfaceIndex :: Word32+    } +             | NNeighMsg+    { neighFamily  :: Word8 -- ^ One of System.Linux.Netlink.Constants.eAF_* values+    , neighIfindex :: Int32+    , neighState   :: Word16 -- ^ System.Linux.Netlink.Constants.fNUD_* flags+    , neighFlags   :: Word8+    , neighType    :: Word8     } deriving (Eq)  instance Show Message where@@ -78,6 +89,9 @@   show (NAddrMsg f l fl s i) =     "AddrMessage. Family: " ++ show f ++ ", MLength: " ++ show l ++ ", Flags: " ++      show fl ++ ", Scope: " ++ show s ++ ", Index: " ++ show i+  show (NNeighMsg f i s fl t) =+    "NeighMessage. Family: " ++ show f ++ ", Index: " ++ show i ++ ", State: " ++ +    show s ++ ", Flags: " ++ show fl ++ ", Type: " ++ show t  instance Convertable Message where   getGet = getMessage@@ -97,10 +111,20 @@     "RoutePacket: " ++ showRouteHeader hdr ++ "\n" ++     show cus ++ "\n" ++     --TODO: is this the case every time? maybe match on other to get which enum to use-    "Attrs: \n" ++ concatMap showLinkAttr (toList attrs) ++ "\n"+    "Attrs: \n" ++ concatMap (showMsgAttr (messageType hdr)) (toList attrs) ++ "\n"   show p = showPacket p  +showMsgAttr :: MessageType -> (Int, ByteString) -> String+showMsgAttr msgType+  | msgType == eRTM_NEWNEIGH = showNeighAttr+  | msgType == eRTM_DELNEIGH = showNeighAttr+  | msgType == eRTM_GETNEIGH = showNeighAttr+  | otherwise = showLinkAttr --default to original behavior++showNeighAttr :: (Int, ByteString) -> String+showNeighAttr = showAttr showNeighAttrType+ showLinkAttr :: (Int, ByteString) -> String showLinkAttr (i, v)   | i == eIFLA_STATS64 = "IFLA_STATS64:\n" ++ showStats64 v@@ -143,6 +167,11 @@                    | msgtype == eRTM_NEWADDR = getMessageAddr                    | msgtype == eRTM_GETADDR = getMessageAddr                    | msgtype == eRTM_DELADDR = getMessageAddr++                   | msgtype == eRTM_GETNEIGH = getMessageNeigh+                   | msgtype == eRTM_NEWNEIGH = getMessageNeigh+                   | msgtype == eRTM_DELNEIGH = getMessageNeigh+                    | otherwise               =                        error $ "Can't decode message " ++ show msgtype @@ -164,6 +193,14 @@     idx <- g32     return $ NAddrMsg fam maskLen flags scope idx +getMessageNeigh :: Get Message+getMessageNeigh = NNeighMsg+    <$> g8+    <*> (skip 3 >> fromIntegral <$> g32)+    <*> g16+    <*> g8+    <*> g8+ putMessage :: Message -> Put putMessage (NLinkMsg ty idx flags) = do     p8 eAF_UNSPEC >> p8 0@@ -177,6 +214,13 @@     p8 flags     p8 (fromIntegral scope)     p32 idx+putMessage (NNeighMsg f i s fl t) = do+    p8 f+    p8 0 >> p8 0 >> p8 0 --padding+    p32 (fromIntegral i)+    p16 s+    p8 fl+    p8 t  -- |'Get' a route message or an error getRoutePackets :: ByteString -> Either String [RoutePacket]@@ -253,6 +297,18 @@ -- TODO: IFLA_{LINKMODE,LINKINFO} - see Documentation/networking/operstates.txt  -- TODO: IFLA_{NET_NS_PID,IFALIAS} - need to figure out++-- |get interface address from netlink attributes of 'NAddrMsg'+getIFAddr :: AttributeReader ByteString+getIFAddr = lookup eIFA_ADDRESS++-- |get L2 address from netlink attributes of 'NNeighMsg'+getLLAddr :: AttributeReader LinkAddress+getLLAddr attrs = decodeMAC <$> lookup eNDA_LLADDR attrs++-- |get destination address from netlink attributes of 'NNeighMsg'+getDstAddr :: AttributeReader ByteString+getDstAddr = lookup eNDA_DST  -- -- Helpers
Utils/DumpRTNL.hs view
@@ -3,6 +3,7 @@  import System.Linux.Netlink import System.Linux.Netlink.Route+import System.Linux.Netlink.Constants  printLoop :: NetlinkSocket -> IO () printLoop sock = do@@ -15,6 +16,7 @@ main = do   sock <- makeSocket   putStrLn "Opened socket"-  joinMulticastGroup sock 1+  joinMulticastGroup sock eRTNLGRP_LINK+  joinMulticastGroup sock eRTNLGRP_NEIGH   putStrLn "Joined multicast group"   printLoop sock
netlink.cabal view
@@ -1,5 +1,5 @@ Name:                netlink-Version:             1.1.0.0+Version:             1.1.1.0 Synopsis:            Netlink communication for Haskell Description:         Library to comminicate with Linux kernel via Netlink Homepage:            https://github.com/Ongy/netlink-hs@@ -17,6 +17,11 @@   type:       git   location:   https://github.com/Ongy/netlink-hs +Flag Generators+  description: Build the generator scripts for constants+  default: False+  manual: True+ executable dump_nl80211   hs-source-dirs: Utils   main-is: DumpNL80211.hs@@ -41,6 +46,57 @@   default-language: Haskell2010   ghc-options: -Wall +executable Generate+  if flag(Generators)+    Buildable: True+  else+    Buildable: False+  hs-source-dirs: Scripts+  main-is: Generate.hs+  other-modules: Helpers+  default-language: Haskell2010+  ghc-options: -Wall++  if flag(Generators)+    build-depends: base >=4.6 && <5,+                   language-c <0.7,+                   containers,+                   process,+                   regex-pcre++executable GenerateGenl+  if flag(Generators)+    Buildable: True+  else+    Buildable: False+  hs-source-dirs: Scripts+  main-is: GenerateGenl.hs+  other-modules: Helpers+  default-language: Haskell2010+  ghc-options: -Wall+  if flag(Generators)+    build-depends: base >=4.6 && <5,+                   language-c <0.7,+                   containers,+                   process,+                   regex-pcre++executable GenerateNL80211+  if flag(Generators)+    Buildable: True+  else+    Buildable: False+  hs-source-dirs: Scripts+  main-is: GenerateNL80211.hs+  other-modules: Helpers+  default-language: Haskell2010+  ghc-options: -Wall+  if flag(Generators)+    build-depends: base >=4.6 && <5,+                   language-c <0.7,+                   containers,+                   process,+                   regex-pcre  Library   Exposed-modules:   System.Linux.Netlink