# 
# route-distrib.dml
#
# Two directly connected routers, each running BGP, and each
# representing a different autonomous system.  Each AS has a
# single host (for the purpose of forcing realistic IP address
# allocation).
#
#        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_fwd_table_add  true  # show when routes are added to fwding table
    show_fwd_tables     true  # print fwd table each time BGP changes it
  ]

  Net [
    idrange [ from 0 to 1 ]
    AS_status boundary

    router [
      id 0
      graph [  
        ProtocolSession [ name bgp    use SSF.OS.BGP4.BGPSession ]
        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 [
      id 1
      graph [
        ProtocolSession [ name ip  use SSF.OS.IP ]
      ]
      interface [ id 0 ]
    ]

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

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