clear_static_srcr.click

COPE the first practical network coding scheme which is developped on click

elementclass srcr_ett {
  $srcr_ip, $srcr_nm, $wireless_mac, $gateway, $probes|


arp :: ARPTable();
lt :: LinkTable(IP $srcr_ip);


//gw :: GatewaySelector(ETHTYPE 0x092c,
//		      IP $srcr_ip,
//		      ETH $wireless_mac,
//		      LT lt,
//		      ARP arp,
//		      PERIOD 15,
//		      GW $gateway);


//gw -> SetSRChecksum -> [0] output;

//set_gw :: SetGateway(SEL gw);


//es :: ETTStat(ETHTYPE 0x0941, 
//	      ETH $wireless_mac, 
//	      IP $srcr_ip, 
//	      PERIOD 30000,
//	      TAU 300000,
//	      ARP arp,
//	      PROBES $probes,
//	      ETT metric,
//	      RT rates);


//metric :: ETTMetric(LT lt);


forwarder :: SRForwarder(ETHTYPE 0x0943, 
			      IP $srcr_ip, 
			      ETH $wireless_mac, 
			      ARP arp, 
			      LT lt);


set_sr :: SetSourceRoute(IP $srcr_ip,
			 SR forwarder);


//querier :: SRQuerier(ETH $wireless_mac, 
//		     SR forwarder,
//		     LT lt, 
//		     ROUTE_DAMPENING true,
//		     TIME_BEFORE_SWITCH 5,
//		     DEBUG true);


//tracker_forwarder :: MetricFlood(ETHTYPE 0x092e
//				 IP $srcr_ip, 
//				 ETH $wireless_mac, 
//				 LT lt, 
//				 ARP arp,
//				 DEBUG false);


//TimedSource(600, "") 
//-> SetIPAddress(255.255.255.255)
//-> [1] tracker_forwarder
//-> SetSRChecksum -> [0] output;


//tracker_forwarder [1] -> Discard;


//query_forwarder :: MetricFlood(ETHTYPE 0x0944,
//			       IP $srcr_ip, 
//			       ETH $wireless_mac, 
//			       LT lt, 
//			       ARP arp,
//			       DEBUG false);


//query_responder :: SRQueryResponder(ETHTYPE 0x0945,
//				    IP $srcr_ip, 
//				    ETH $wireless_mac, 
//				    LT lt, 
//				    ARP arp,
//				    DEBUG true);


//query_responder -> SetSRChecksum -> [0] output;
//query_forwarder -> SetSRChecksum -> PrintSR(forwarding) -> [0] output;
//query_forwarder [1] -> query_responder;

data_ck :: SetSRChecksum() 

input [1] 
-> SetTimestamp()
-> counter_incoming :: IPAddressCounter(USE_DST true)
-> host_cl :: IPClassifier(dst net $srcr_ip mask $srcr_nm,
				-)
//-> querier
-> set_sr
-> data_ck;


host_cl [1] //-> [0] set_gw [0] -> querier;
-> Discard;


forwarder[0] 
  -> dt ::DecIPTTL
  -> data_ck
//  -> [2] output;
  -> [0] output;

dt[1] 
-> Print(ttl-error) 
-> ICMPError($srcr_ip, timeexceeded, 0) 
//-> querier;
-> Discard;


// queries
//querier [1] -> [1] query_forwarder;
//es -> SetTimestamp() -> [1] output;


forwarder[1] //ip packets to me
  -> StripSRHeader()
  -> CheckIPHeader()
//  -> from_gw_cl :: IPClassifier(src net $srcr_ip mask $srcr_nm,
//				-)
  -> counter_outgoing :: IPAddressCounter(USE_SRC true)
//  -> [3] output;
-> [1] output;


//from_gw_cl [1] -> [1] set_gw [1] -> [3] output;


input [0]
   -> ncl :: Classifier(
			12/0943 , //srcr_forwarder
//			12/0944 , //srcr
//			12/0945 , //replies
//			12/0941 , //srcr_es
//			12/092c , //srcr_gw
//			12/092e , //srcr_tracker
			-
			);
 
 
ncl[0] -> CheckSRHeader() -> [0] forwarder;
//ncl[1] -> CheckSRHeader() -> PrintSR(query) -> query_forwarder
//ncl[2] -> CheckSRHeader() -> query_responder;
//ncl[3] -> es;
//ncl[4] -> CheckSRHeader() -> gw;
//ncl[5] -> CheckSRHeader() 
//-> tracker :: FloodTracker()
//-> tracker_forwarder;
ncl[1] -> Discard;
 
}