# f3.dml
#
# traffic source:
#               size: 300,000bytes
#
# server..........router............clients
#  
#                                               
#       8Mb 5ms               800kb      
#  5(0)-----------0(1) 
#  6(0)-----------0(2)0(0)------------7(0)
#       8Mb 5ms               100ms          


_schema [ _find .schemas.Net ]

dictionary [
	tcpinit[
        	ISS 0 
        	MSS 1000
        	RcvWndSize 4 
        	SendWndSize 4
     		SendBufferSize 4
     		MaxRexmitTimes  12
     		TCP_SLOW_INTERVAL 0.5
     		MSL 60.0
     		MaxIdleTime 600.0
		fast_recovery false
		delayed_ack true
	]
	client[
            graph [
        	ProtocolSession [
          	name client use SSF.OS.TCP.testClient
          	no_of_connections 2
          	start_time_1 1.0 
          	start_time_2 1.3225
	        doc_size [constant 300000] 
          	servers [connect [nhi_range [from 5(0) to 6(0)]] port 10]]

        	ProtocolSession [name socket use SSF.OS.Socket.socketSession]
        	ProtocolSession [name tcp use SSF.OS.TCP.tcpSessionMaster
        		tcpinit[
                		ISS 10000
                		MSS 1000
                		RcvWndSize 4
                		SendWndSize 4
                		SendBufferSize 4
                		MaxRexmitTimes  12
                		TCP_SLOW_INTERVAL 0.5
                		MSL 60.0
                		MaxIdleTime 600.0
                		fast_recovery false
                		delayed_ack true
			]
                ]
        	ProtocolSession [name ip use SSF.OS.minIP]
       	    ]
	]
	server[
     	    graph [
        	ProtocolSession [name server use SSF.OS.TCP.simServer
                                port 10 interval 0.1]
        	ProtocolSession [name socket use SSF.OS.Socket.socketSession]
        	ProtocolSession [name tcp use SSF.OS.TCP.tcpSessionMaster
                         _find .dictionary.tcpinit]
        	ProtocolSession [name ip use SSF.OS.testIP
                        testinit[ fake_protocol 6
                                  fake_type 0 # drop message
                        ]
                ]

     	    ]
	]
	pingclient[
	    graph[
	        ProtocolSession [name test use TwoHosts.ping sendto 6(0)]
                ProtocolSession [name ip use SSF.OS.minIP]
	    ]
	]
        pingserver[
            graph[
                ProtocolSession [name test use TwoHosts.ping sendto 7(0)]
                ProtocolSession [name ip use SSF.OS.minIP]
            ]
        ]

    	8Mb [
      		bitrate 8000000 # 8 million bits per second
    	]
	800kb [
 		bitrate 800000 # 0.8 million bits per second
 	]

]


Net [
 
# ------------------------------------------------------------- LINKS

 link [attach 5(0) attach 0(1) delay 0.005]
 link [attach 6(0) attach 0(2) delay 0.005]
 link [attach 0(0) attach 7(0) delay 0.1]


# ------------------------------------------------------------- ROUTERS

 router [ 
   id 0
   graph [ProtocolSession [name ip use SSF.OS.minIP]]

   interface [ id 0 _extends .dictionary.800kb tcpdump "f3.tcpdump"
			buffer 2000 queue droptail]
   interface [ id 1 _extends .dictionary.8Mb]
   interface [ id 2 _extends .dictionary.8Mb]
   route [dest default interface 0]
 ]


# ------------------------------------------------------------- CLIENTS

 host [ id 7 
        interface [id 0 _extends .dictionary.800kb ] 
	route [dest default interface 0]
	_find .dictionary.client.graph
 ]

# ------------------------------------------------------------- SERVERS
 host [ id 5
        interface [id 0 _extends .dictionary.8Mb tcpdump "f3serv1.tcpdump"]
        route [dest default interface 0]
        graph [
                ProtocolSession [name server use SSF.OS.TCP.simServer
                                port 10 interval 0.1 ]
                ProtocolSession [name socket use SSF.OS.Socket.socketSession]
                ProtocolSession [name tcp use SSF.OS.TCP.tcpSessionMaster
                           	 _find .dictionary.tcpinit 
				 evedump "f3serv1.evedump" 
				 rttdump "f3serv1.rtt" 
				 rtodump "f3serv1.rto" 
				 cwnddump "f3serv1.wnd"]
                ProtocolSession [name ip use SSF.OS.testIP
                        testinit[ fake_protocol 6
                                  fake_type 0 # drop message
                                  drop[packet 1]
                        ]
                ]
        ]
 ]

 host [ id 6 
        interface [id 0 _extends .dictionary.8Mb tcpdump "f3serv2.tcpdump"] 
	route [dest default interface 0]
        graph [
                ProtocolSession [name server use SSF.OS.TCP.simServer
                                port 10 interval 0.1]
                ProtocolSession [name socket use SSF.OS.Socket.socketSession]
                ProtocolSession [name tcp use SSF.OS.TCP.tcpSessionMaster
                         	 _find .dictionary.tcpinit 
				 rttdump "f3serv2.rtt"
				 rtodump "f3serv2.rto"
				 cwnddump "f3serv2.wnd"]
                ProtocolSession [name ip use SSF.OS.testIP
                        testinit[ fake_protocol 6
                                  fake_type 0 # drop message
                        ]
                ]
        ]

 ]