bird/proto/ospf/topology.c

878 lines
21 KiB
C
Raw Normal View History

/*
* BIRD -- OSPF Topological Database
*
* (c) 1999 Martin Mares <mj@ucw.cz>
* (c) 1999--2004 Ondrej Filip <feela@network.cz>
*
* Can be freely distributed and used under the terms of the GNU GPL.
*/
#include "nest/bird.h"
#include "lib/string.h"
#include "ospf.h"
2000-06-08 20:04:57 +08:00
#define HASH_DEF_ORDER 6
#define HASH_HI_MARK *4
#define HASH_HI_STEP 2
#define HASH_HI_MAX 16
#define HASH_LO_MARK /5
#define HASH_LO_STEP 2
#define HASH_LO_MIN 8
2004-06-05 17:58:23 +08:00
static void *
2004-06-06 16:55:33 +08:00
originate_rt_lsa_body(struct ospf_area *oa, u16 * length)
{
2004-06-06 16:55:33 +08:00
struct proto_ospf *po = oa->po;
struct ospf_iface *ifa;
int j = 0, k = 0;
2004-06-06 16:55:33 +08:00
u16 i = 0;
struct ospf_lsa_rt *rt;
struct ospf_lsa_rt_link *ln;
struct ospf_neighbor *neigh;
DBG("%s: Originating RT_lsa body for area \"%I\".\n", po->proto.name,
2004-06-06 16:55:33 +08:00
oa->areaid);
2004-06-06 16:55:33 +08:00
WALK_LIST(ifa, po->iface_list)
{
2004-06-06 16:55:33 +08:00
if ((ifa->an == oa->areaid) && (ifa->state != OSPF_IS_DOWN))
{
i++;
}
}
2004-06-06 16:55:33 +08:00
rt = mb_allocz(po->proto.pool, sizeof(struct ospf_lsa_rt) +
i * sizeof(struct ospf_lsa_rt_link));
if (po->areano > 1)
rt->veb.bit.b = 1;
if ((po->ebit) && (!oa->stub))
rt->veb.bit.e = 1;
ln = (struct ospf_lsa_rt_link *) (rt + 1);
WALK_LIST(ifa, po->iface_list)
{
2004-06-06 16:55:33 +08:00
if ((ifa->an != oa->areaid) || (ifa->state == OSPF_IS_DOWN))
continue;
2004-06-06 16:55:33 +08:00
if (ifa->state == OSPF_IS_LOOP)
{
2004-06-06 16:55:33 +08:00
ln->type = 3;
ln->id = ipa_to_u32(ifa->iface->addr->ip);
ln->data = 0xffffffff;
ln->metric = 0;
ln->notos = 0;
}
else
{
2004-06-06 16:55:33 +08:00
switch (ifa->type)
{
2004-06-06 16:55:33 +08:00
case OSPF_IT_PTP: /* rfc2328 - pg126 */
neigh = (struct ospf_neighbor *) HEAD(ifa->neigh_list);
if ((!EMPTY_LIST(ifa->neigh_list)) && (neigh->state == NEIGHBOR_FULL))
{
ln->type = LSART_PTP;
ln->id = neigh->rid;
ln->metric = ifa->cost;
ln->notos = 0;
if (ifa->iface->flags && IA_UNNUMBERED)
{
ln->data = ifa->iface->index;
}
else
{
ln->data = ipa_to_u32(ifa->iface->addr->ip);
2004-06-06 16:55:33 +08:00
}
}
else
{
if (ifa->state == OSPF_IS_PTP)
{
ln->type = LSART_STUB;
ln->id = ln->id = ipa_to_u32(ifa->iface->addr->opposite);
ln->metric = ifa->cost;
ln->notos = 0;
ln->data = 0xffffffff;
}
else
i--; /* No link added */
}
break;
case OSPF_IT_BCAST:
case OSPF_IT_NBMA:
if (ifa->state == OSPF_IS_WAITING)
{
ln->type = LSART_STUB;
ln->id = ipa_to_u32(ifa->iface->addr->prefix);
ln->data = ipa_to_u32(ipa_mkmask(ifa->iface->addr->pxlen));
ln->metric = ifa->cost;
ln->notos = 0;
}
else
{
j = 0, k = 0;
WALK_LIST(neigh, ifa->neigh_list)
{
if ((neigh->rid == ifa->drid) && (neigh->state == NEIGHBOR_FULL))
k = 1;
if (neigh->state == NEIGHBOR_FULL)
j = 1;
}
if (((ifa->state == OSPF_IS_DR) && (j == 1)) || (k == 1))
{
ln->type = LSART_NET;
ln->id = ipa_to_u32(ifa->drip);
ln->data = ipa_to_u32(ifa->iface->addr->ip);
ln->metric = ifa->cost;
ln->notos = 0;
}
else
{
ln->type = LSART_STUB;
ln->id = ipa_to_u32(ifa->iface->addr->prefix);
ln->data = ipa_to_u32(ipa_mkmask(ifa->iface->addr->pxlen));
ln->metric = ifa->cost;
ln->notos = 0;
}
}
break;
case OSPF_IT_VLINK:
neigh = (struct ospf_neighbor *) HEAD(ifa->neigh_list);
if ((!EMPTY_LIST(ifa->neigh_list)) && (neigh->state == NEIGHBOR_FULL) && (ifa->cost <= 0xffff))
{
ln->type = LSART_VLNK;
ln->id = neigh->rid;
ln->metric = ifa->cost;
ln->notos = 0;
rt->veb.bit.v = 1;
}
else
i--; /* No link added */
break;
}
}
}
2004-06-06 16:55:33 +08:00
rt->links = i;
*length = i * sizeof(struct ospf_lsa_rt_link) + sizeof(struct ospf_lsa_rt) +
sizeof(struct ospf_lsa_header);
return rt;
}
2000-05-03 06:19:41 +08:00
/**
* originate_rt_lsa - build new instance of router LSA
* @oa: ospf_area which is LSA built to
*
* It builds router LSA walking through all OSPF interfaces in
* specified OSPF area. This function is mostly called from
* area_disp(). Builds new LSA, increases sequence number (if old
* instance exists) and sets age of LSA to zero.
*/
2000-05-03 08:08:48 +08:00
void
originate_rt_lsa(struct ospf_area *oa)
{
struct ospf_lsa_header lsa;
2004-06-06 16:55:33 +08:00
struct proto_ospf *po = oa->po;
struct proto *p = &po->proto;
u32 rtid = po->proto.cf->global->router_id;
struct top_hash_entry *en;
void *body;
2004-06-06 16:55:33 +08:00
if ((oa->rt) && ((oa->rt->inst_t + MINLSINTERVAL)) > now)
return;
/*
* Tick is probably set to very low value. We cannot
* originate new LSA before MINLSINTERVAL. We will
* try to do it next tick.
*/
OSPF_TRACE(D_EVENTS, "Originating RT_lsa for area \"%I\".", oa->areaid);
lsa.age = 0;
lsa.id = rtid;
lsa.type = LSA_T_RT;
lsa.rt = rtid;
lsa.options = 0;
if (oa->rt == NULL)
{
2004-06-06 16:55:33 +08:00
lsa.sn = LSA_INITSEQNO;
}
else
{
2004-06-06 16:55:33 +08:00
lsa.sn = oa->rt->lsa.sn + 1;
}
2004-06-06 16:55:33 +08:00
body = originate_rt_lsa_body(oa, &lsa.length);
2004-06-07 02:45:08 +08:00
lsasum_calculate(&lsa, body);
2004-06-06 16:55:33 +08:00
en = lsa_install_new(&lsa, body, oa);
oa->rt = en;
en->dist = 0; /* Force area aging */
2004-06-06 16:55:33 +08:00
ospf_lsupd_flood(NULL, NULL, &oa->rt->lsa, NULL, oa, 1);
schedule_rtcalc(po);
2004-06-06 16:55:33 +08:00
oa->origrt = 0;
}
2004-06-05 17:58:23 +08:00
static void *
2004-06-06 16:55:33 +08:00
originate_net_lsa_body(struct ospf_iface *ifa, u16 * length,
struct proto_ospf *po)
2000-05-03 07:09:44 +08:00
{
2004-06-06 16:55:33 +08:00
u16 i = 1;
2000-05-03 07:09:44 +08:00
struct ospf_neighbor *n;
u32 *body;
struct ospf_lsa_net *net;
2000-05-03 07:09:44 +08:00
2004-06-06 16:55:33 +08:00
net = mb_alloc(po->proto.pool, sizeof(u32) * (ifa->fadj + 1) +
sizeof(struct ospf_lsa_net));
net->netmask = ipa_mkmask(ifa->iface->addr->pxlen);
2004-06-06 16:55:33 +08:00
body = (u32 *) (net + 1);
i = 1;
*body = po->proto.cf->global->router_id;
WALK_LIST(n, ifa->neigh_list)
2000-05-03 07:09:44 +08:00
{
2004-06-06 16:55:33 +08:00
if (n->state == NEIGHBOR_FULL)
2000-05-03 07:09:44 +08:00
{
2004-06-06 16:55:33 +08:00
*(body + i) = n->rid;
2000-05-03 07:09:44 +08:00
i++;
}
}
2004-06-06 16:55:33 +08:00
*length = i * sizeof(u32) + sizeof(struct ospf_lsa_header) +
sizeof(struct ospf_lsa_net);
return net;
2000-05-03 07:09:44 +08:00
}
/**
* originate_net_lsa - originates of deletes network LSA
* @ifa: interface which is LSA originated for
*
* Interface counts number of adjacent neighbors. If this number is
* lower than one or interface is not in state %OSPF_IS_DR it deletes
* and premature ages instance of network LSA for specified interface.
* In other case, new instance of network LSA is originated.
*/
2000-05-03 08:08:48 +08:00
void
originate_net_lsa(struct ospf_iface *ifa)
2000-05-03 07:09:44 +08:00
{
2004-06-06 16:55:33 +08:00
struct proto_ospf *po = ifa->proto;
2000-05-03 07:09:44 +08:00
struct ospf_lsa_header lsa;
2004-06-06 16:55:33 +08:00
u32 rtid = po->proto.cf->global->router_id;
struct proto *p = &po->proto;
2000-05-03 07:09:44 +08:00
void *body;
2004-06-06 16:55:33 +08:00
if (ifa->nlsa && ((ifa->nlsa->inst_t + MINLSINTERVAL) > now))
return;
/*
* It's too early to originate new network LSA. We will
* try to do it next tick
*/
2004-06-06 16:55:33 +08:00
if ((ifa->state != OSPF_IS_DR) || (ifa->fadj == 0))
2000-05-03 08:08:48 +08:00
{
2004-06-06 16:55:33 +08:00
if (ifa->nlsa == NULL)
return;
2000-05-03 08:08:48 +08:00
OSPF_TRACE(D_EVENTS, "Deleting Net lsa for iface \"%s\".",
2004-06-06 16:55:33 +08:00
ifa->iface->name);
ifa->nlsa->lsa.sn += 1;
ifa->nlsa->lsa.age = LSA_MAXAGE;
ospf_lsupd_flood(NULL, NULL, &ifa->nlsa->lsa, NULL, ifa->oa, 0);
s_rem_node(SNODE ifa->nlsa);
2004-06-06 16:55:33 +08:00
if (ifa->nlsa->lsa_body != NULL)
mb_free(ifa->nlsa->lsa_body);
ifa->nlsa->lsa_body = NULL;
ospf_hash_delete(ifa->oa->gr, ifa->nlsa);
schedule_rtcalc(po);
2004-06-06 16:55:33 +08:00
ifa->nlsa = NULL;
return;
2000-05-03 08:08:48 +08:00
}
OSPF_TRACE(D_EVENTS, "Originating Net lsa for iface \"%s\".",
2004-06-06 16:55:33 +08:00
ifa->iface->name);
lsa.age = 0;
lsa.id = ipa_to_u32(ifa->iface->addr->ip);
lsa.type = LSA_T_NET;
lsa.rt = rtid;
lsa.options = 0;
if (ifa->nlsa == NULL)
2000-05-03 07:09:44 +08:00
{
2004-06-06 16:55:33 +08:00
lsa.sn = LSA_INITSEQNO;
2000-05-03 07:09:44 +08:00
}
else
{
2004-06-06 16:55:33 +08:00
lsa.sn = ifa->nlsa->lsa.sn + 1;
2000-05-03 07:09:44 +08:00
}
2004-06-06 16:55:33 +08:00
body = originate_net_lsa_body(ifa, &lsa.length, po);
2004-06-07 02:45:08 +08:00
lsasum_calculate(&lsa, body);
2004-06-06 16:55:33 +08:00
ifa->nlsa = lsa_install_new(&lsa, body, ifa->oa);
ospf_lsupd_flood(NULL, NULL, &ifa->nlsa->lsa, NULL, ifa->oa, 1);
ifa->orignet = 0;
2000-05-03 07:09:44 +08:00
}
2000-05-31 05:25:32 +08:00
static void *
2004-06-06 16:55:33 +08:00
originate_ext_lsa_body(net * n, rte * e, struct proto_ospf *po,
struct ea_list *attrs)
2000-05-27 22:17:35 +08:00
{
2004-06-06 16:55:33 +08:00
struct proto *p = &po->proto;
2000-05-27 22:17:35 +08:00
struct ospf_lsa_ext *ext;
struct ospf_lsa_ext_tos *et;
u32 m1 = ea_get_int(attrs, EA_OSPF_METRIC1, LSINFINITY);
u32 m2 = ea_get_int(attrs, EA_OSPF_METRIC2, 10000);
2000-05-31 05:25:32 +08:00
u32 tag = ea_get_int(attrs, EA_OSPF_TAG, 0);
2004-06-06 16:55:33 +08:00
int inas = 0;
2000-05-27 22:17:35 +08:00
2004-06-06 16:55:33 +08:00
ext = mb_alloc(p->pool, sizeof(struct ospf_lsa_ext) +
sizeof(struct ospf_lsa_ext_tos));
ext->netmask = ipa_mkmask(n->n.pxlen);
2000-05-27 22:17:35 +08:00
2004-06-06 16:55:33 +08:00
et = (struct ospf_lsa_ext_tos *) (ext + 1);
2000-05-31 05:25:32 +08:00
2004-06-06 16:55:33 +08:00
if (m1 != LSINFINITY)
2000-08-28 21:51:13 +08:00
{
et->etm.metric = m1;
et->etm.etos.tos = 0;
et->etm.etos.ebit = 0;
2000-08-28 21:51:13 +08:00
}
2000-05-27 22:17:35 +08:00
else
2000-08-28 21:51:13 +08:00
{
et->etm.metric = m2;
et->etm.etos.tos = 0;
et->etm.etos.ebit = 1;
2000-08-28 21:51:13 +08:00
}
2004-06-06 16:55:33 +08:00
et->tag = tag;
if (ipa_compare(e->attrs->gw, ipa_from_u32(0)) != 0)
{
2004-06-06 16:55:33 +08:00
if (ospf_iface_find((struct proto_ospf *) p, e->attrs->iface) != NULL)
inas = 1;
}
2004-06-06 16:55:33 +08:00
if (!inas)
et->fwaddr = ipa_from_u32(0);
else
et->fwaddr = e->attrs->gw;
2000-05-27 22:17:35 +08:00
return ext;
}
/**
* max_ext_lsa - calculate the maximum amount of external networks
* possible for the given prefix length.
2004-06-01 06:22:21 +08:00
* @pxlen: network prefix length
*
* This is a fix for the previous static use of MAXNETS which did
* only work correct if MAXNETS < possible IPs for given prefix.
* This solution is kind of a hack as there can now only be one
* route for /32 type entries but this is better than the crashes
* I did experience whith close together /32 routes originating
* on different hosts.
*/
int
max_ext_lsa(unsigned pxlen)
{
int i;
2004-06-06 16:55:33 +08:00
for (i = 1; pxlen < BITS_PER_IP_ADDRESS; pxlen++, i <<= 1)
if (i >= MAXNETS)
return MAXNETS;
return i;
}
void
flush_sum_lsa(struct ospf_area *oa, struct fib_node *fn, int type)
{
struct proto_ospf *po = oa->po;
struct proto *p = &po->proto;
struct top_hash_entry *en;
u32 rtid = po->proto.cf->global->router_id;
struct ospf_lsa_header lsa;
int max, i;
struct ospf_lsa_sum *sum = NULL;
union ospf_lsa_sum_tm *tm;
lsa.rt = rtid;
lsa.type = LSA_T_SUM_NET;
if (type == ORT_ROUTER)
lsa.type = LSA_T_SUM_RT;
max = max_ext_lsa(fn->pxlen);
for (i = 0; i < max; i++)
{
lsa.id = ipa_to_u32(fn->prefix) + i;
if ((en = ospf_hash_find_header(oa->gr, &lsa)) != NULL)
{
sum = en->lsa_body;
if (fn->pxlen == ipa_mklen(sum->netmask))
{
en->lsa.age = LSA_MAXAGE;
en->lsa.sn = LSA_MAXSEQNO;
OSPF_TRACE(D_EVENTS, "Flushing summary lsa.");
ospf_lsupd_flood(NULL, NULL, &en->lsa, NULL, oa, 1);
if (can_flush_lsa(oa)) flush_lsa(en, oa);
break;
}
}
}
}
void
originate_sum_lsa(struct ospf_area *oa, struct fib_node *fn, int type, int metric)
{
struct proto_ospf *po = oa->po;
struct proto *p = &po->proto;
struct top_hash_entry *en;
u32 rtid = po->proto.cf->global->router_id;
struct ospf_lsa_header lsa;
void *body = NULL;
int i, max, mlen = fn->pxlen, found = 0, free = -1;
struct ospf_lsa_sum *sum = NULL;
union ospf_lsa_sum_tm *tm;
lsa.type = LSA_T_SUM_NET;
if (type == ORT_ROUTER)
{
lsa.type = LSA_T_SUM_RT;
mlen = 0;
}
lsa.age = 0;
lsa.rt = rtid;
lsa.sn = LSA_INITSEQNO;
lsa.length = sizeof(struct ospf_lsa_sum) + sizeof(union ospf_lsa_sum_tm) +
sizeof(struct ospf_lsa_header);
max = max_ext_lsa(fn->pxlen);
for (i = 0; i < max; i++)
{
lsa.id = ipa_to_u32(fn->prefix) + i;
if ((en = ospf_hash_find_header(oa->gr, &lsa)) == NULL)
{
if (free < 0) free = i;
}
else
{
sum = en->lsa_body;
if (mlen == ipa_mklen(sum->netmask))
{
tm = (union ospf_lsa_sum_tm *) (sum + 1);
if (tm->metric == (unsigned)metric) return; /* No reason for origination */
lsa.sn = en->lsa.sn + 1;
free = en->lsa.id;
break;
}
}
}
if(free < 0)
{
log("%s: got more routes for one /%d network then %d, ignoring", p->name,
fn->pxlen, max);
return;
}
lsa.id = free;
sum = en->lsa_body;
tm = (union ospf_lsa_sum_tm *) (sum + 1);
OSPF_TRACE(D_EVENTS, "Originating summary (type %d) lsa for %I/%d.", lsa.type, fn->prefix,
fn->pxlen);
sum = mb_alloc(p->pool, sizeof(struct ospf_lsa_sum) + sizeof(union ospf_lsa_sum_tm));
sum->netmask = ipa_mkmask(mlen);
tm = (union ospf_lsa_sum_tm *) (sum + 1);
tm->metric = metric;
tm->tos.tos = 0;
lsasum_calculate(&lsa, body);
en = lsa_install_new(&lsa, body, oa);
ospf_lsupd_flood(NULL, NULL, &en->lsa, NULL, oa, 1);
}
void
check_sum_lsa(struct proto_ospf *po, ort *nf, int dest)
{
struct proto *p = &po->proto;
struct ospf_area *oa;
struct area_net *anet;
int flush, mlen;
ip_addr ip;
if (po->areano < 2) return;
if ((nf->n.type > RTS_OSPF_IA) && (nf->o.type > RTS_OSPF_IA)) return;
WALK_LIST(oa, po->area_list)
{
flush = 0;
if ((nf->n.metric1 >= LSINFINITY) || (nf->n.type > RTS_OSPF_IA))
flush = 1;
if ((dest == ORT_ROUTER) && (!(nf->n.capa & ORTA_ABR)))
flush = 1;
if (nf->n.oa->areaid == oa->areaid)
flush = 1;
/* FIXME: Test next hop - is it in actual area? */
if ((dest == ORT_ROUTER) && oa->stub)
flush = 1;
/* FIXME stub for networks? */
mlen = nf->fn.pxlen;
ip = ipa_and(nf->fn.prefix, ipa_mkmask(mlen));
if((!oa->trcap) && fib_route(&oa->net_fib, ip, mlen)) /* The route fits into some area */
flush = 1;
if(flush) /* FIXME Go on... */
{
flush_sum_lsa(oa, &nf->fn, dest);
continue;
}
originate_sum_lsa(oa, &nf->fn, dest, nf->n.metric1);
}
}
void
check_sum_areas(struct proto_ospf *po)
{
struct proto *p = &po->proto;
struct ospf_area *oa;
struct area_net *anet;
WALK_LIST(oa, po->area_list)
{
; /* FIXME */
}
}
/**
* originate_ext_lsa - new route received from nest and filters
* @n: network prefix and mask
* @e: rte
* @po: current instance of OSPF
* @attrs: list of extended attributes
*
* If I receive a message that new route is installed, I try to originate an
* external LSA. The LSA header of such LSA does not contain information about
* prefix length, so if I have to originate multiple LSAs for route with
* different prefixes I try to increment prefix id to find a "free" one.
*
* The function also sets flag ebit. If it's the first time, the new router lsa
* origination is necessary.
*/
2000-05-27 22:17:35 +08:00
void
2004-06-06 16:55:33 +08:00
originate_ext_lsa(net * n, rte * e, struct proto_ospf *po,
struct ea_list *attrs)
2000-05-27 22:17:35 +08:00
{
struct ospf_lsa_header lsa;
2004-06-06 16:55:33 +08:00
u32 rtid = po->proto.cf->global->router_id;
struct top_hash_entry *en = NULL;
void *body = NULL;
struct proto *p = &po->proto;
2000-06-05 03:20:28 +08:00
struct ospf_area *oa;
2004-06-06 16:55:33 +08:00
struct ospf_lsa_ext *ext1, *ext2;
int i, max;
2000-05-27 22:17:35 +08:00
2000-06-06 10:27:08 +08:00
OSPF_TRACE(D_EVENTS, "Originating Ext lsa for %I/%d.", n->n.prefix,
2004-06-06 16:55:33 +08:00
n->n.pxlen);
lsa.age = 0;
lsa.id = ipa_to_u32(n->n.prefix);
lsa.type = LSA_T_EXT;
lsa.rt = rtid;
lsa.sn = LSA_INITSEQNO;
2004-06-06 16:55:33 +08:00
body = originate_ext_lsa_body(n, e, po, attrs);
lsa.length = sizeof(struct ospf_lsa_ext) + sizeof(struct ospf_lsa_ext_tos) +
2000-05-27 22:17:35 +08:00
sizeof(struct ospf_lsa_header);
2004-06-06 16:55:33 +08:00
ext1 = body;
max = max_ext_lsa(n->n.pxlen);
2004-06-06 16:55:33 +08:00
oa = HEAD(po->area_list);
2004-06-06 16:55:33 +08:00
for (i = 0; i < max; i++)
{
2004-06-06 16:55:33 +08:00
if ((en = ospf_hash_find_header(oa->gr, &lsa)) != NULL)
{
2004-06-06 16:55:33 +08:00
ext2 = en->lsa_body;
if (ipa_compare(ext1->netmask, ext2->netmask) != 0)
lsa.id++;
else
break;
}
2004-06-06 16:55:33 +08:00
else
break;
}
2004-06-06 16:55:33 +08:00
if (i == max)
{
2004-06-06 16:55:33 +08:00
log("%s: got more routes for one /%d network then %d, ignoring", p->name,
n->n.pxlen, max);
mb_free(body);
return;
}
2004-06-07 02:45:08 +08:00
lsasum_calculate(&lsa, body);
2000-06-05 03:20:28 +08:00
WALK_LIST(oa, po->area_list)
2000-05-27 22:17:35 +08:00
{
if (!oa->stub)
{
en = lsa_install_new(&lsa, body, oa);
ospf_lsupd_flood(NULL, NULL, &en->lsa, NULL, oa, 1);
body = originate_ext_lsa_body(n, e, po, attrs);
}
2000-05-27 22:17:35 +08:00
}
2000-06-05 03:20:28 +08:00
mb_free(body);
2004-06-06 16:55:33 +08:00
if (po->ebit == 0)
{
2004-06-06 16:55:33 +08:00
po->ebit = 1;
WALK_LIST(oa, po->area_list)
{
schedule_rt_lsa(oa);
}
}
2000-05-27 22:17:35 +08:00
}
static void
ospf_top_ht_alloc(struct top_graph *f)
{
f->hash_size = 1 << f->hash_order;
f->hash_mask = f->hash_size - 1;
if (f->hash_order > HASH_HI_MAX - HASH_HI_STEP)
f->hash_entries_max = ~0;
else
f->hash_entries_max = f->hash_size HASH_HI_MARK;
if (f->hash_order < HASH_LO_MIN + HASH_LO_STEP)
f->hash_entries_min = 0;
else
f->hash_entries_min = f->hash_size HASH_LO_MARK;
DBG("Allocating OSPF hash of order %d: %d hash_entries, %d low, %d high\n",
f->hash_order, f->hash_size, f->hash_entries_min, f->hash_entries_max);
2004-06-06 16:55:33 +08:00
f->hash_table =
mb_alloc(f->pool, f->hash_size * sizeof(struct top_hash_entry *));
bzero(f->hash_table, f->hash_size * sizeof(struct top_hash_entry *));
}
static inline void
ospf_top_ht_free(struct top_hash_entry **h)
{
mb_free(h);
}
static inline u32
ospf_top_hash_u32(u32 a)
{
/* Shamelessly stolen from IP address hashing in ipv4.h */
a ^= a >> 16;
a ^= a << 10;
return a;
}
static inline unsigned
ospf_top_hash(struct top_graph *f, u32 lsaid, u32 rtrid, u32 type)
{
2004-06-06 16:55:33 +08:00
#if 1 /* Dirty patch to make rt table calculation work. */
return (ospf_top_hash_u32(lsaid) +
ospf_top_hash_u32((type ==
LSA_T_NET) ? lsaid : rtrid) +
type) & f->hash_mask;
#else
2004-06-06 16:55:33 +08:00
return (ospf_top_hash_u32(lsaid) + ospf_top_hash_u32(rtrid) +
type) & f->hash_mask;
#endif
}
/**
* ospf_top_new - allocated new topology database
* @p: current instance of OSPF
*
* This dynamically hashed structure is often used for keeping LSAs. Mainly
* its used in @ospf_area structure.
*/
struct top_graph *
2004-06-07 02:45:08 +08:00
ospf_top_new(pool *pool)
{
struct top_graph *f;
f = mb_allocz(pool, sizeof(struct top_graph));
f->pool = pool;
f->hash_slab = sl_new(f->pool, sizeof(struct top_hash_entry));
f->hash_order = HASH_DEF_ORDER;
ospf_top_ht_alloc(f);
f->hash_entries = 0;
f->hash_entries_min = 0;
return f;
}
void
ospf_top_free(struct top_graph *f)
{
rfree(f->hash_slab);
ospf_top_ht_free(f->hash_table);
mb_free(f);
}
static void
ospf_top_rehash(struct top_graph *f, int step)
{
unsigned int oldn, oldh;
struct top_hash_entry **n, **oldt, **newt, *e, *x;
oldn = f->hash_size;
oldt = f->hash_table;
2004-06-06 16:55:33 +08:00
DBG("Re-hashing topology hash from order %d to %d\n", f->hash_order,
f->hash_order + step);
f->hash_order += step;
ospf_top_ht_alloc(f);
newt = f->hash_table;
2004-06-06 16:55:33 +08:00
for (oldh = 0; oldh < oldn; oldh++)
{
e = oldt[oldh];
while (e)
{
2004-06-06 16:55:33 +08:00
x = e->next;
n = newt + ospf_top_hash(f, e->lsa.id, e->lsa.rt, e->lsa.type);
e->next = *n;
*n = e;
e = x;
}
2004-06-06 16:55:33 +08:00
}
ospf_top_ht_free(oldt);
}
2000-04-04 08:32:17 +08:00
struct top_hash_entry *
ospf_hash_find_header(struct top_graph *f, struct ospf_lsa_header *h)
{
2004-06-06 16:55:33 +08:00
return ospf_hash_find(f, h->id, h->rt, h->type);
2000-04-04 08:32:17 +08:00
}
struct top_hash_entry *
ospf_hash_get_header(struct top_graph *f, struct ospf_lsa_header *h)
{
2004-06-06 16:55:33 +08:00
return ospf_hash_get(f, h->id, h->rt, h->type);
}
struct top_hash_entry *
ospf_hash_find(struct top_graph *f, u32 lsa, u32 rtr, u32 type)
{
struct top_hash_entry *e = f->hash_table[ospf_top_hash(f, lsa, rtr, type)];
2004-06-06 16:55:33 +08:00
#if 1 /* Dirty patch to make rt table calculation work. */
if (type == LSA_T_NET)
{
2004-06-06 16:55:33 +08:00
while (e && (e->lsa.id != lsa || e->lsa.type != LSA_T_NET))
e = e->next;
}
else
{
2004-06-06 16:55:33 +08:00
while (e && (e->lsa.id != lsa || e->lsa.type != type || e->lsa.rt != rtr))
e = e->next;
}
#else
while (e && (e->lsa.id != lsa || e->lsa.rt != rtr || e->lsa.type != type))
e = e->next;
#endif
return e;
}
struct top_hash_entry *
ospf_hash_get(struct top_graph *f, u32 lsa, u32 rtr, u32 type)
{
2004-06-06 16:55:33 +08:00
struct top_hash_entry **ee =
f->hash_table + ospf_top_hash(f, lsa, rtr, type);
struct top_hash_entry *e = *ee;
while (e && (e->lsa.id != lsa || e->lsa.rt != rtr || e->lsa.type != type))
e = e->next;
if (e)
return e;
2004-06-07 00:14:57 +08:00
e = sl_alloc(f->hash_slab);
2004-06-07 00:14:57 +08:00
e->color = OUTSPF;
e->dist = LSINFINITY;
e->nhi = NULL;
e->nh = ipa_from_u32(0);
e->lb = ipa_from_u32(0);
e->lsa.id = lsa;
e->lsa.rt = rtr;
e->lsa.type = type;
e->lsa_body = NULL;
2004-06-06 16:55:33 +08:00
e->nhi = NULL;
2004-06-07 00:14:57 +08:00
e->next = *ee;
2004-06-06 16:55:33 +08:00
*ee = e;
if (f->hash_entries++ > f->hash_entries_max)
ospf_top_rehash(f, HASH_HI_STEP);
return e;
}
void
ospf_hash_delete(struct top_graph *f, struct top_hash_entry *e)
{
unsigned int h = ospf_top_hash(f, e->lsa.id, e->lsa.rt, e->lsa.type);
struct top_hash_entry **ee = f->hash_table + h;
while (*ee)
2004-06-06 16:55:33 +08:00
{
if (*ee == e)
{
2004-06-06 16:55:33 +08:00
*ee = e->next;
sl_free(f->hash_slab, e);
if (f->hash_entries-- < f->hash_entries_min)
ospf_top_rehash(f, -HASH_LO_STEP);
return;
}
2004-06-06 16:55:33 +08:00
ee = &((*ee)->next);
}
bug("ospf_hash_delete() called for invalid node");
}
void
2000-06-06 10:27:08 +08:00
ospf_top_dump(struct top_graph *f, struct proto *p)
{
unsigned int i;
2000-06-06 10:27:08 +08:00
OSPF_TRACE(D_EVENTS, "Hash entries: %d", f->hash_entries);
2004-06-06 16:55:33 +08:00
for (i = 0; i < f->hash_size; i++)
{
struct top_hash_entry *e = f->hash_table[i];
while (e)
{
2004-06-06 16:55:33 +08:00
OSPF_TRACE(D_EVENTS, "\t%1x %-1I %-1I %4u 0x%08x",
e->lsa.type, e->lsa.id, e->lsa.rt, e->lsa.age, e->lsa.sn);
e = e->next;
}
2004-06-06 16:55:33 +08:00
}
}
2000-02-26 03:19:41 +08:00
/* This is very inefficient, please don't call it often */
/* I should also test for every LSA if it's in some link state
* retransmission list for every neighbor. I will not test it.
* It could happen that I'll receive some strange ls ack's.
*/
int
can_flush_lsa(struct ospf_area *oa)
{
struct ospf_iface *ifa;
struct ospf_neighbor *n;
WALK_LIST(ifa, iface_list)
{
2004-06-06 16:55:33 +08:00
if (ifa->oa == oa)
{
WALK_LIST(n, ifa->neigh_list)
{
2004-06-06 16:55:33 +08:00
if ((n->state == NEIGHBOR_EXCHANGE) || (n->state == NEIGHBOR_LOADING))
{
2000-05-04 06:36:12 +08:00
return 0;
}
}
2004-06-06 16:55:33 +08:00
break;
}
}
2000-05-04 06:36:12 +08:00
return 1;
}