:- use_module(bgp).
% :- use_module(tnet).

% H=knot,
% bgp:bgp_connections(H, BgpConnections),
% maplist(bgp:to_dict(), BgpConnections, BgpConnectionDicts),
% yaml_write(current_output, _{bgp_connections:BgpConnectionDicts}).

warnings :-
  bgp:warning(Ws),
  writeln("Warnings: ~w", [length(Ws)]).

main :-
  bgp:bird_config(BirdDict),
  yaml_write(current_output, BirdDict),
  true.