haskell-openflow

haskell-openflow 在 Haskell 中实现 OpenFlow v1.0.0 协议。 示例 OpenFlow 服务器： handleSwitch :: Socket -> SockAddr -> IO () handleSwitch sock caddr = forever $ do frame <- readOfpFrame sock case frame of ( OfpFrame ( OfpHeader _ _ _ xid) ( OfptEchoRequest dat)) -> do let resp = ( OfpFrame ( OfpHeader 1 0 0 xid) ( OfptEchoReply dat)) sendAll sock $ encode resp ( OfpF