# 
# keep-peer.dml
#
# Two ASes, each with one router.  The routers are directly connected,
# and are each running BGP.
#
#        router          router
# 
#        0:0(0) }------{ 1:0(0)
#

_schema [ _find .schemas.Net ]

Net [
  
  bgpoptions [
    show_id_data        true  # show AS number and prefix for each BGP router
    show_rcv_update     true  # show when Update msgs are rcvd
    show_snd_update     true  # show when Update msgs are sent
    show_rcv_ka         true  # show when KeepAlive msgs are rcvd
    show_snd_ka         true  # show when KeepAlive msgs are sent
    show_rcv_notif      true  # show when Notification msgs are rcvd
    show_snd_notif      true  # show when Notification msgs are sent
    show_set_ka         true  # show when KeepAlive Timers are set
    show_ka_exp         true  # show when KeepAlive Timers expire
    show_set_hold       true  # show when Hold Timers are set
    show_hold_exp       true  # show when Hold Timers expire
  ]

  Net [
    id 0
    AS_status boundary
    router [
      id 0
      graph [  
        ProtocolSession [
          name bgp
          use  SSF.OS.BGP4.BGPSession
          hold_timer_interval 90   # these are the default values as
          keep_alive_interval 30   # suggested in the BGP RFC (they're the
                                   # default in the simulation, too, just
                                   # reiterated here for clarity)
        ]
        ProtocolSession [ name socket use SSF.OS.Socket.socketMaster ]
        ProtocolSession [ name tcp    use SSF.OS.TCP.tcpSessionMaster ]
        ProtocolSession [ name ip     use SSF.OS.IP ]
      ]
      interface [ idrange [ from 0 to 1 ] ]
    ]
    host [ _extends .bgphost ]
    link [ attach 0(1) attach 1(0) ]
  ]

  Net [
    id 1
    AS_status boundary
    router [
      id 0
      graph [  
        ProtocolSession [
          name bgp
          use  SSF.OS.BGP4.BGPSession
          hold_timer_interval 90   # these are the default values as
          keep_alive_interval 30   # suggested in the BGP RFC (they're the
                                   # default in the simulation, too, just
                                   # reiterated here for clarity)
        ]
        ProtocolSession [ name socket use SSF.OS.Socket.socketMaster ]
        ProtocolSession [ name tcp    use SSF.OS.TCP.tcpSessionMaster ]
        ProtocolSession [ name ip     use SSF.OS.IP ]
      ]
      interface [ idrange [ from 0 to 1 ] ]
    ]
    host [ _extends .bgphost ]
    link [ attach 0(1) attach 1(0) ]
  ]

  link [ attach 0:0(0) attach 1:0(0) ]
]


bgprtr [
]

bgphost [
  id 1
  graph [
    ProtocolSession [ name ip  use SSF.OS.IP ]
  ]
  interface [ id 0 ]
]