# basic1.dml
#
# topology
#  client            ...           server 
#              800kb  100ms  
#  0(0)  ---------------------------1(0) 
#                                    |
#                                  tcpdump

_schema [ _find .schemas.Net ]

dictionary [
    item1[
        tcpinit[
                ISS 0 
                MSS 960
                RcvWndSize 14
                SendWndSize 14
                SendBufferSize 16
                MaxRexmitTimes  12
                TCP_SLOW_INTERVAL 0.5
                MSL 60.0
                MaxIdleTime 600.0
        ]
    ]
    item2[
        tcpinit[
                ISS 6000 
                MSS 960
                RcvWndSize 14
                SendWndSize 14
                SendBufferSize 16
                MaxRexmitTimes  12
                TCP_SLOW_INTERVAL 0.5
                MSL 60.0
                MaxIdleTime 600.0
        ]
    ]

]


Net [

# ------------------------------------------------------------- LINKS

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

# ------------------------------------------------------------- SERVER

  host [
   id 1
   graph [
        ProtocolSession [name server use SSF.OS.TCP.simServer port 10 
			interval 0.001]
        ProtocolSession [name socket use SSF.OS.Socket.socketSession]
        ProtocolSession [name tcp use SSF.OS.TCP.tcpSessionMaster
                         _find .dictionary.item2.tcpinit 
			 cwnddump "basic1.wnd"
			 rttdump "basic1.rtt"
			 rtodump "basic1.rto"
			 evedump "basic1.evedump"
        ]
        ProtocolSession [name ip use SSF.OS.minIP]
   ]
   interface [id 0 bitrate 800000 tcpdump "basic1.tcpdump"]
  ]

# ------------------------------------------------------------- CLIENT 

  host [
   id 0
   graph [
        ProtocolSession [
                name client use SSF.OS.TCP.simClient
                no_of_connections 1
                doc_size [constant 300000]
                servers [connect [nhi_range [from 1(0) to 1(0)]] port 10]
	]
        ProtocolSession [name socket use SSF.OS.Socket.socketSession]
        ProtocolSession [name tcp use SSF.OS.TCP.tcpSessionMaster
                         _find .dictionary.item1.tcpinit
        ]
	ProtocolSession [name ip use SSF.OS.minIP]
   ]
   interface [id 0 bitrate 800000]
  ]
]