anchor.diff:  -define(EPOCH, 62167219200).
   
   %% service types for radius
  --define(RADIUSDATA, 2).
  +-define(RADIUSLOGIN, 1).
  +-define(RADIUSFRAMED, 2).
   -define(RADIUSVOICE, 12).
   %% service types for diameter
   -define(DIAMETERDATA, <<"32251@3gpp.org">>).
  
positive.code: 	F = fun(#bucket{remain_amount = R, units = U, reservations = Res})
  				when
  				((ServiceType == undefined) orelse
  				(((ServiceType == ?RADIUSDATA) orelse (ServiceType == ?DIAMETERDATA)) and
  				((U == octets) orelse (U == cents) orelse (U == seconds))) orelse
  				(((ServiceType == ?RADIUSVOICE) orelse (ServiceType == ?DIAMETERVOICE)) and
  				((U == seconds) orelse (U == cents)))) ->
  
negative.code: 								and
  								(((ServiceType == ?RADIUSVOICE) and
  								((Spec == "5") orelse (Spec == "9"))) orelse
  								(((ServiceType == ?RADIUSFRAMED) orelse (ServiceType == ?RADIUSLOGIN)) and
  								((Spec == "4") orelse (Spec == "8")))))) ->
  						[P | Acc];
  					_ ->
  