2 * Copyright (C) 2003 Yasuhiro Ohara
4 * This file is part of GNU Zebra.
6 * GNU Zebra is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License as published by the
8 * Free Software Foundation; either version 2, or (at your option) any
11 * GNU Zebra is distributed in the hope that it will be useful, but
12 * WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * General Public License for more details.
16 * You should have received a copy of the GNU General Public License along
17 * with this program; see the file COPYING; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
21 /* Shortest Path First calculation for OSPFv3 */
33 #include "lib_errors.h"
35 #include "ospf6_lsa.h"
36 #include "ospf6_lsdb.h"
37 #include "ospf6_route.h"
38 #include "ospf6_area.h"
39 #include "ospf6_proto.h"
40 #include "ospf6_abr.h"
41 #include "ospf6_spf.h"
42 #include "ospf6_intra.h"
43 #include "ospf6_interface.h"
45 #include "ospf6_abr.h"
47 unsigned char conf_debug_ospf6_spf
= 0;
49 static void ospf6_spf_copy_nexthops_to_route(struct ospf6_route
*rt
,
50 struct ospf6_vertex
*v
)
53 ospf6_copy_nexthops(rt
->nh_list
, v
->nh_list
);
56 static void ospf6_spf_merge_nexthops_to_route(struct ospf6_route
*rt
,
57 struct ospf6_vertex
*v
)
60 ospf6_merge_nexthops(rt
->nh_list
, v
->nh_list
);
63 static unsigned int ospf6_spf_get_ifindex_from_nh(struct ospf6_vertex
*v
)
65 struct ospf6_nexthop
*nh
;
66 struct listnode
*node
;
69 node
= listhead(v
->nh_list
);
71 nh
= listgetdata(node
);
79 static int ospf6_vertex_cmp(void *a
, void *b
)
81 struct ospf6_vertex
*va
= (struct ospf6_vertex
*)a
;
82 struct ospf6_vertex
*vb
= (struct ospf6_vertex
*)b
;
85 if (va
->cost
!= vb
->cost
)
86 return (va
->cost
- vb
->cost
);
87 return (va
->hops
- vb
->hops
);
90 static int ospf6_vertex_id_cmp(void *a
, void *b
)
92 struct ospf6_vertex
*va
= (struct ospf6_vertex
*)a
;
93 struct ospf6_vertex
*vb
= (struct ospf6_vertex
*)b
;
96 ret
= ntohl(ospf6_linkstate_prefix_adv_router(&va
->vertex_id
))
97 - ntohl(ospf6_linkstate_prefix_adv_router(&vb
->vertex_id
));
101 ret
= ntohl(ospf6_linkstate_prefix_id(&va
->vertex_id
))
102 - ntohl(ospf6_linkstate_prefix_id(&vb
->vertex_id
));
106 static struct ospf6_vertex
*ospf6_vertex_create(struct ospf6_lsa
*lsa
)
108 struct ospf6_vertex
*v
;
110 v
= XMALLOC(MTYPE_OSPF6_VERTEX
, sizeof(struct ospf6_vertex
));
113 if (ntohs(lsa
->header
->type
) == OSPF6_LSTYPE_ROUTER
) {
114 v
->type
= OSPF6_VERTEX_TYPE_ROUTER
;
115 /* Router LSA use Link ID 0 as base in vertex_id */
116 ospf6_linkstate_prefix(lsa
->header
->adv_router
, htonl(0),
118 } else if (ntohs(lsa
->header
->type
) == OSPF6_LSTYPE_NETWORK
) {
119 v
->type
= OSPF6_VERTEX_TYPE_NETWORK
;
121 ospf6_linkstate_prefix(lsa
->header
->adv_router
, lsa
->header
->id
,
127 ospf6_linkstate_prefix2str(&v
->vertex_id
, v
->name
, sizeof(v
->name
));
129 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
130 zlog_debug("%s: Creating vertex %s of type %s (0x%04hx) lsa %s",
132 ((ntohs(lsa
->header
->type
) == OSPF6_LSTYPE_ROUTER
)
135 ntohs(lsa
->header
->type
), lsa
->name
);
141 /* capability bits + options */
142 v
->capability
= *(uint8_t *)(OSPF6_LSA_HEADER_END(lsa
->header
));
143 v
->options
[0] = *(uint8_t *)(OSPF6_LSA_HEADER_END(lsa
->header
) + 1);
144 v
->options
[1] = *(uint8_t *)(OSPF6_LSA_HEADER_END(lsa
->header
) + 2);
145 v
->options
[2] = *(uint8_t *)(OSPF6_LSA_HEADER_END(lsa
->header
) + 3);
147 v
->nh_list
= list_new();
148 v
->nh_list
->cmp
= (int (*)(void *, void *))ospf6_nexthop_cmp
;
149 v
->nh_list
->del
= (void (*)(void *))ospf6_nexthop_delete
;
152 v
->child_list
= list_new();
153 v
->child_list
->cmp
= ospf6_vertex_id_cmp
;
158 static void ospf6_vertex_delete(struct ospf6_vertex
*v
)
160 list_delete(&v
->nh_list
);
161 list_delete(&v
->child_list
);
162 XFREE(MTYPE_OSPF6_VERTEX
, v
);
165 static struct ospf6_lsa
*ospf6_lsdesc_lsa(caddr_t lsdesc
,
166 struct ospf6_vertex
*v
)
168 struct ospf6_lsa
*lsa
= NULL
;
170 uint32_t id
= 0, adv_router
= 0;
172 if (VERTEX_IS_TYPE(NETWORK
, v
)) {
173 type
= htons(OSPF6_LSTYPE_ROUTER
);
175 adv_router
= NETWORK_LSDESC_GET_NBR_ROUTERID(lsdesc
);
177 if (ROUTER_LSDESC_IS_TYPE(POINTTOPOINT
, lsdesc
)) {
178 type
= htons(OSPF6_LSTYPE_ROUTER
);
180 adv_router
= ROUTER_LSDESC_GET_NBR_ROUTERID(lsdesc
);
181 } else if (ROUTER_LSDESC_IS_TYPE(TRANSIT_NETWORK
, lsdesc
)) {
182 type
= htons(OSPF6_LSTYPE_NETWORK
);
183 id
= htonl(ROUTER_LSDESC_GET_NBR_IFID(lsdesc
));
184 adv_router
= ROUTER_LSDESC_GET_NBR_ROUTERID(lsdesc
);
188 if (type
== htons(OSPF6_LSTYPE_NETWORK
))
189 lsa
= ospf6_lsdb_lookup(type
, id
, adv_router
, v
->area
->lsdb
);
191 lsa
= ospf6_create_single_router_lsa(v
->area
, v
->area
->lsdb
,
193 if (IS_OSPF6_DEBUG_SPF(PROCESS
)) {
194 char ibuf
[16], abuf
[16];
195 inet_ntop(AF_INET
, &id
, ibuf
, sizeof(ibuf
));
196 inet_ntop(AF_INET
, &adv_router
, abuf
, sizeof(abuf
));
198 zlog_debug(" Link to: %s len %u, V %s", lsa
->name
,
199 ntohs(lsa
->header
->length
), v
->name
);
201 zlog_debug(" Link to: [%s Id:%s Adv:%s] No LSA , V %s",
202 ospf6_lstype_name(type
), ibuf
, abuf
,
209 static char *ospf6_lsdesc_backlink(struct ospf6_lsa
*lsa
, caddr_t lsdesc
,
210 struct ospf6_vertex
*v
)
212 caddr_t backlink
, found
= NULL
;
215 size
= (OSPF6_LSA_IS_TYPE(ROUTER
, lsa
)
216 ? sizeof(struct ospf6_router_lsdesc
)
217 : sizeof(struct ospf6_network_lsdesc
));
218 for (backlink
= OSPF6_LSA_HEADER_END(lsa
->header
) + 4;
219 backlink
+ size
<= OSPF6_LSA_END(lsa
->header
); backlink
+= size
) {
220 assert(!(OSPF6_LSA_IS_TYPE(NETWORK
, lsa
)
221 && VERTEX_IS_TYPE(NETWORK
, v
)));
223 if (OSPF6_LSA_IS_TYPE(NETWORK
, lsa
)
224 && NETWORK_LSDESC_GET_NBR_ROUTERID(backlink
)
225 == v
->lsa
->header
->adv_router
)
227 else if (VERTEX_IS_TYPE(NETWORK
, v
)
228 && ROUTER_LSDESC_IS_TYPE(TRANSIT_NETWORK
, backlink
)
229 && ROUTER_LSDESC_GET_NBR_ROUTERID(backlink
)
230 == v
->lsa
->header
->adv_router
231 && ROUTER_LSDESC_GET_NBR_IFID(backlink
)
232 == ntohl(v
->lsa
->header
->id
))
235 if (!ROUTER_LSDESC_IS_TYPE(POINTTOPOINT
, backlink
)
236 || !ROUTER_LSDESC_IS_TYPE(POINTTOPOINT
, lsdesc
))
238 if (ROUTER_LSDESC_GET_NBR_IFID(backlink
)
239 != ROUTER_LSDESC_GET_IFID(lsdesc
)
240 || ROUTER_LSDESC_GET_NBR_IFID(lsdesc
)
241 != ROUTER_LSDESC_GET_IFID(backlink
))
243 if (ROUTER_LSDESC_GET_NBR_ROUTERID(backlink
)
244 != v
->lsa
->header
->adv_router
245 || ROUTER_LSDESC_GET_NBR_ROUTERID(lsdesc
)
246 != lsa
->header
->adv_router
)
252 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
253 zlog_debug("Vertex %s Lsa %s Backlink %s", v
->name
, lsa
->name
,
254 (found
? "OK" : "FAIL"));
259 static void ospf6_nexthop_calc(struct ospf6_vertex
*w
, struct ospf6_vertex
*v
,
264 struct ospf6_interface
*oi
;
267 struct ospf6_lsa
*lsa
;
268 struct ospf6_link_lsa
*link_lsa
;
271 assert(VERTEX_IS_TYPE(ROUTER
, w
));
272 ifindex
= (VERTEX_IS_TYPE(NETWORK
, v
) ? ospf6_spf_get_ifindex_from_nh(v
)
273 : ROUTER_LSDESC_GET_IFID(lsdesc
));
275 flog_err(EC_LIB_DEVELOPMENT
, "No nexthop ifindex at vertex %s",
280 oi
= ospf6_interface_lookup_by_ifindex(ifindex
);
282 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
283 zlog_debug("Can't find interface in SPF: ifindex %d",
288 type
= htons(OSPF6_LSTYPE_LINK
);
289 adv_router
= (VERTEX_IS_TYPE(NETWORK
, v
)
290 ? NETWORK_LSDESC_GET_NBR_ROUTERID(lsdesc
)
291 : ROUTER_LSDESC_GET_NBR_ROUTERID(lsdesc
));
294 for (ALL_LSDB_TYPED_ADVRTR(oi
->lsdb
, type
, adv_router
, lsa
)) {
295 if (VERTEX_IS_TYPE(ROUTER
, v
)
296 && htonl(ROUTER_LSDESC_GET_NBR_IFID(lsdesc
))
300 link_lsa
= (struct ospf6_link_lsa
*)OSPF6_LSA_HEADER_END(
302 if (IS_OSPF6_DEBUG_SPF(PROCESS
)) {
303 inet_ntop(AF_INET6
, &link_lsa
->linklocal_addr
, buf
,
305 zlog_debug(" nexthop %s from %s", buf
, lsa
->name
);
308 ospf6_add_nexthop(w
->nh_list
, ifindex
,
309 &link_lsa
->linklocal_addr
);
313 if (i
== 0 && IS_OSPF6_DEBUG_SPF(PROCESS
))
314 zlog_debug("No nexthop for %s found", w
->name
);
317 static int ospf6_spf_install(struct ospf6_vertex
*v
,
318 struct ospf6_route_table
*result_table
)
320 struct ospf6_route
*route
, *parent_route
;
321 struct ospf6_vertex
*prev
;
322 char pbuf
[PREFIX2STR_BUFFER
];
324 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
325 zlog_debug("SPF install %s (lsa %s) hops %d cost %d", v
->name
,
326 v
->lsa
->name
, v
->hops
, v
->cost
);
328 route
= ospf6_route_lookup(&v
->vertex_id
, result_table
);
329 if (route
&& route
->path
.cost
< v
->cost
) {
330 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
332 " already installed with lower cost (%d), ignore",
334 ospf6_vertex_delete(v
);
336 } else if (route
&& route
->path
.cost
== v
->cost
) {
337 if (IS_OSPF6_DEBUG_SPF(PROCESS
)) {
338 prefix2str(&route
->prefix
, pbuf
, sizeof(pbuf
));
340 " another path found to route %s lsa %s, merge",
343 ospf6_spf_merge_nexthops_to_route(route
, v
);
345 prev
= (struct ospf6_vertex
*)route
->route_option
;
346 assert(prev
->hops
<= v
->hops
);
348 if ((VERTEX_IS_TYPE(ROUTER
, v
)
349 && route
->path
.origin
.id
!= v
->lsa
->header
->id
)) {
350 if (IS_OSPF6_DEBUG_SPF(PROCESS
)) {
352 "%s: V lsa %s id %u, route id %u are different",
353 __PRETTY_FUNCTION__
, v
->lsa
->name
,
354 ntohl(v
->lsa
->header
->id
),
355 ntohl(route
->path
.origin
.id
));
360 ospf6_vertex_delete(v
);
364 /* There should be no case where candidate being installed (variable
365 "v") is closer than the one in the SPF tree (variable "route").
366 In the case something has gone wrong with the behavior of
369 /* the case where the route exists already is handled and returned
371 assert(route
== NULL
);
373 route
= ospf6_route_create();
374 memcpy(&route
->prefix
, &v
->vertex_id
, sizeof(struct prefix
));
375 route
->type
= OSPF6_DEST_TYPE_LINKSTATE
;
376 route
->path
.type
= OSPF6_PATH_TYPE_INTRA
;
377 route
->path
.origin
.type
= v
->lsa
->header
->type
;
378 route
->path
.origin
.id
= v
->lsa
->header
->id
;
379 route
->path
.origin
.adv_router
= v
->lsa
->header
->adv_router
;
380 route
->path
.metric_type
= 1;
381 route
->path
.cost
= v
->cost
;
382 route
->path
.u
.cost_e2
= v
->hops
;
383 route
->path
.router_bits
= v
->capability
;
384 route
->path
.options
[0] = v
->options
[0];
385 route
->path
.options
[1] = v
->options
[1];
386 route
->path
.options
[2] = v
->options
[2];
388 ospf6_spf_copy_nexthops_to_route(route
, v
);
391 * The SPF logic implementation does not transfer the multipathing
393 * of a parent to a child node. Thus if there was a 3-way multipath to a
394 * node's parent and a single hop from the parent to the child, the
396 * creating new vertices and computing next hops prevents there from
398 * paths to the child node. This is primarily because the resolution of
399 * multipath is done in this routine, not in the main spf loop.
401 * The following logic addresses that problem by merging the parent's
403 * information with the child's, if the parent is not the root of the
405 * This is based on the assumption that before a node's route is
407 * its parent's route's nexthops have already been installed.
409 if (v
->parent
&& v
->parent
->hops
) {
411 ospf6_route_lookup(&v
->parent
->vertex_id
, result_table
);
413 ospf6_route_merge_nexthops(route
, parent_route
);
418 listnode_add_sort(v
->parent
->child_list
, v
);
419 route
->route_option
= v
;
421 ospf6_route_add(route
, result_table
);
425 void ospf6_spf_table_finish(struct ospf6_route_table
*result_table
)
427 struct ospf6_route
*route
, *nroute
;
428 struct ospf6_vertex
*v
;
429 for (route
= ospf6_route_head(result_table
); route
; route
= nroute
) {
430 nroute
= ospf6_route_next(route
);
431 v
= (struct ospf6_vertex
*)route
->route_option
;
432 ospf6_vertex_delete(v
);
433 ospf6_route_remove(route
, result_table
);
437 static const char *ospf6_spf_reason_str
[] = {
438 "R+", "R-", "N+", "N-", "L+", "L-", "R*", "N*",
441 void ospf6_spf_reason_string(unsigned int reason
, char *buf
, int size
)
449 for (bit
= 0; bit
< array_size(ospf6_spf_reason_str
); bit
++) {
450 if ((reason
& (1 << bit
)) && (len
< size
)) {
451 len
+= snprintf((buf
+ len
), (size
- len
), "%s%s",
452 (len
> 0) ? ", " : "",
453 ospf6_spf_reason_str
[bit
]);
458 /* RFC2328 16.1. Calculating the shortest-path tree for an area */
459 /* RFC2740 3.8.1. Calculating the shortest path tree for an area */
460 void ospf6_spf_calculation(uint32_t router_id
,
461 struct ospf6_route_table
*result_table
,
462 struct ospf6_area
*oa
)
464 struct pqueue
*candidate_list
;
465 struct ospf6_vertex
*root
, *v
, *w
;
468 struct ospf6_lsa
*lsa
;
469 struct in6_addr address
;
471 ospf6_spf_table_finish(result_table
);
473 /* Install the calculating router itself as the root of the SPF tree */
474 /* construct root vertex */
475 lsa
= ospf6_create_single_router_lsa(oa
, oa
->lsdb_self
, router_id
);
477 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
478 zlog_debug("%s: No router LSA for area %s", __func__
,
484 candidate_list
= pqueue_create();
485 candidate_list
->cmp
= ospf6_vertex_cmp
;
487 root
= ospf6_vertex_create(lsa
);
491 root
->link_id
= lsa
->header
->id
;
492 inet_pton(AF_INET6
, "::1", &address
);
494 /* Actually insert root to the candidate-list as the only candidate */
495 pqueue_enqueue(root
, candidate_list
);
497 /* Iterate until candidate-list becomes empty */
498 while (candidate_list
->size
) {
499 /* get closest candidate from priority queue */
500 v
= pqueue_dequeue(candidate_list
);
502 /* installing may result in merging or rejecting of the vertex
504 if (ospf6_spf_install(v
, result_table
) < 0)
507 /* Skip overloaded routers */
508 if ((OSPF6_LSA_IS_TYPE(ROUTER
, v
->lsa
)
509 && ospf6_router_is_stub_router(v
->lsa
)))
512 /* For each LS description in the just-added vertex V's LSA */
513 size
= (VERTEX_IS_TYPE(ROUTER
, v
)
514 ? sizeof(struct ospf6_router_lsdesc
)
515 : sizeof(struct ospf6_network_lsdesc
));
516 for (lsdesc
= OSPF6_LSA_HEADER_END(v
->lsa
->header
) + 4;
517 lsdesc
+ size
<= OSPF6_LSA_END(v
->lsa
->header
);
519 lsa
= ospf6_lsdesc_lsa(lsdesc
, v
);
523 if (OSPF6_LSA_IS_MAXAGE(lsa
))
526 if (!ospf6_lsdesc_backlink(lsa
, lsdesc
, v
))
529 w
= ospf6_vertex_create(lsa
);
532 if (VERTEX_IS_TYPE(ROUTER
, v
)) {
534 + ROUTER_LSDESC_GET_METRIC(lsdesc
);
537 + (VERTEX_IS_TYPE(NETWORK
, w
) ? 0 : 1);
541 w
->hops
= v
->hops
+ 1;
544 /* nexthop calculation */
548 ROUTER_LSDESC_GET_IFID(lsdesc
), NULL
);
549 else if (w
->hops
== 1 && v
->hops
== 0)
550 ospf6_nexthop_calc(w
, v
, lsdesc
);
552 ospf6_copy_nexthops(w
->nh_list
, v
->nh_list
);
555 /* add new candidate to the candidate_list */
556 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
558 " New candidate: %s hops %d cost %d",
559 w
->name
, w
->hops
, w
->cost
);
560 pqueue_enqueue(w
, candidate_list
);
565 pqueue_delete(candidate_list
);
567 ospf6_remove_temp_router_lsa(oa
);
569 oa
->spf_calculation
++;
572 static void ospf6_spf_log_database(struct ospf6_area
*oa
)
574 char *p
, *end
, buffer
[256];
575 struct listnode
*node
;
576 struct ospf6_interface
*oi
;
579 end
= buffer
+ sizeof(buffer
);
581 snprintf(p
, end
- p
, "SPF on DB (#LSAs):");
582 p
= (buffer
+ strlen(buffer
) < end
? buffer
+ strlen(buffer
) : end
);
583 snprintf(p
, end
- p
, " Area %s: %d", oa
->name
, oa
->lsdb
->count
);
584 p
= (buffer
+ strlen(buffer
) < end
? buffer
+ strlen(buffer
) : end
);
586 for (ALL_LIST_ELEMENTS_RO(oa
->if_list
, node
, oi
)) {
587 snprintf(p
, end
- p
, " I/F %s: %d", oi
->interface
->name
,
589 p
= (buffer
+ strlen(buffer
) < end
? buffer
+ strlen(buffer
)
593 zlog_debug("%s", buffer
);
596 static int ospf6_spf_calculation_thread(struct thread
*t
)
598 struct ospf6_area
*oa
;
600 struct timeval start
, end
, runtime
;
601 struct listnode
*node
;
602 int areas_processed
= 0;
605 ospf6
= (struct ospf6
*)THREAD_ARG(t
);
606 ospf6
->t_spf_calc
= NULL
;
608 /* execute SPF calculation */
610 ospf6
->ts_spf
= start
;
612 if (ospf6_is_router_abr(ospf6
))
613 ospf6_abr_range_reset_cost(ospf6
);
615 for (ALL_LIST_ELEMENTS_RO(ospf6
->area_list
, node
, oa
)) {
617 if (oa
== ospf6
->backbone
)
620 monotime(&oa
->ts_spf
);
621 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
622 zlog_debug("SPF calculation for Area %s", oa
->name
);
623 if (IS_OSPF6_DEBUG_SPF(DATABASE
))
624 ospf6_spf_log_database(oa
);
626 ospf6_spf_calculation(ospf6
->router_id
, oa
->spf_table
, oa
);
627 ospf6_intra_route_calculation(oa
);
628 ospf6_intra_brouter_calculation(oa
);
633 if (ospf6
->backbone
) {
634 monotime(&ospf6
->backbone
->ts_spf
);
635 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
636 zlog_debug("SPF calculation for Backbone area %s",
637 ospf6
->backbone
->name
);
638 if (IS_OSPF6_DEBUG_SPF(DATABASE
))
639 ospf6_spf_log_database(ospf6
->backbone
);
641 ospf6_spf_calculation(ospf6
->router_id
,
642 ospf6
->backbone
->spf_table
,
644 ospf6_intra_route_calculation(ospf6
->backbone
);
645 ospf6_intra_brouter_calculation(ospf6
->backbone
);
649 if (ospf6_is_router_abr(ospf6
))
650 ospf6_abr_defaults_to_stub(ospf6
);
653 timersub(&end
, &start
, &runtime
);
655 ospf6
->ts_spf_duration
= runtime
;
657 ospf6_spf_reason_string(ospf6
->spf_reason
, rbuf
, sizeof(rbuf
));
659 if (IS_OSPF6_DEBUG_SPF(PROCESS
) || IS_OSPF6_DEBUG_SPF(TIME
))
660 zlog_debug("SPF runtime: %lld sec %lld usec",
661 (long long)runtime
.tv_sec
,
662 (long long)runtime
.tv_usec
);
665 "SPF processing: # Areas: %d, SPF runtime: %lld sec %lld usec, "
667 areas_processed
, (long long)runtime
.tv_sec
,
668 (long long)runtime
.tv_usec
, rbuf
);
670 ospf6
->last_spf_reason
= ospf6
->spf_reason
;
671 ospf6_reset_spf_reason(ospf6
);
675 /* Add schedule for SPF calculation. To avoid frequenst SPF calc, we
676 set timer for SPF calc. */
677 void ospf6_spf_schedule(struct ospf6
*ospf6
, unsigned int reason
)
679 unsigned long delay
, elapsed
, ht
;
681 /* OSPF instance does not exist. */
685 ospf6_set_spf_reason(ospf6
, reason
);
687 if (IS_OSPF6_DEBUG_SPF(PROCESS
) || IS_OSPF6_DEBUG_SPF(TIME
)) {
689 ospf6_spf_reason_string(reason
, rbuf
, sizeof(rbuf
));
690 zlog_debug("SPF: calculation timer scheduled (reason %s)",
694 /* SPF calculation timer is already scheduled. */
695 if (ospf6
->t_spf_calc
) {
696 if (IS_OSPF6_DEBUG_SPF(PROCESS
) || IS_OSPF6_DEBUG_SPF(TIME
))
698 "SPF: calculation timer is already scheduled: %p",
699 (void *)ospf6
->t_spf_calc
);
703 elapsed
= monotime_since(&ospf6
->ts_spf
, NULL
) / 1000LL;
704 ht
= ospf6
->spf_holdtime
* ospf6
->spf_hold_multiplier
;
706 if (ht
> ospf6
->spf_max_holdtime
)
707 ht
= ospf6
->spf_max_holdtime
;
709 /* Get SPF calculation delay time. */
711 /* Got an event within the hold time of last SPF. We need to
712 * increase the hold_multiplier, if it's not already at/past
713 * maximum value, and wasn't already increased..
715 if (ht
< ospf6
->spf_max_holdtime
)
716 ospf6
->spf_hold_multiplier
++;
718 /* always honour the SPF initial delay */
719 if ((ht
- elapsed
) < ospf6
->spf_delay
)
720 delay
= ospf6
->spf_delay
;
722 delay
= ht
- elapsed
;
724 /* Event is past required hold-time of last SPF */
725 delay
= ospf6
->spf_delay
;
726 ospf6
->spf_hold_multiplier
= 1;
729 if (IS_OSPF6_DEBUG_SPF(PROCESS
) || IS_OSPF6_DEBUG_SPF(TIME
))
730 zlog_debug("SPF: calculation timer delay = %ld", delay
);
732 zlog_info("SPF: Scheduled in %ld msec", delay
);
734 ospf6
->t_spf_calc
= NULL
;
735 thread_add_timer_msec(master
, ospf6_spf_calculation_thread
, ospf6
,
736 delay
, &ospf6
->t_spf_calc
);
739 void ospf6_spf_display_subtree(struct vty
*vty
, const char *prefix
, int rest
,
740 struct ospf6_vertex
*v
)
742 struct listnode
*node
, *nnode
;
743 struct ospf6_vertex
*c
;
748 /* "prefix" is the space prefix of the display line */
749 vty_out(vty
, "%s+-%s [%d]\n", prefix
, v
->name
, v
->cost
);
751 len
= strlen(prefix
) + 4;
752 next_prefix
= (char *)malloc(len
);
753 if (next_prefix
== NULL
) {
754 vty_out(vty
, "malloc failed\n");
757 snprintf(next_prefix
, len
, "%s%s", prefix
, (rest
? "| " : " "));
759 restnum
= listcount(v
->child_list
);
760 for (ALL_LIST_ELEMENTS(v
->child_list
, node
, nnode
, c
)) {
762 ospf6_spf_display_subtree(vty
, next_prefix
, restnum
, c
);
768 DEFUN (debug_ospf6_spf_process
,
769 debug_ospf6_spf_process_cmd
,
770 "debug ospf6 spf process",
773 "Debug SPF Calculation\n"
774 "Debug Detailed SPF Process\n"
777 unsigned char level
= 0;
778 level
= OSPF6_DEBUG_SPF_PROCESS
;
779 OSPF6_DEBUG_SPF_ON(level
);
783 DEFUN (debug_ospf6_spf_time
,
784 debug_ospf6_spf_time_cmd
,
785 "debug ospf6 spf time",
788 "Debug SPF Calculation\n"
789 "Measure time taken by SPF Calculation\n"
792 unsigned char level
= 0;
793 level
= OSPF6_DEBUG_SPF_TIME
;
794 OSPF6_DEBUG_SPF_ON(level
);
798 DEFUN (debug_ospf6_spf_database
,
799 debug_ospf6_spf_database_cmd
,
800 "debug ospf6 spf database",
803 "Debug SPF Calculation\n"
804 "Log number of LSAs at SPF Calculation time\n"
807 unsigned char level
= 0;
808 level
= OSPF6_DEBUG_SPF_DATABASE
;
809 OSPF6_DEBUG_SPF_ON(level
);
813 DEFUN (no_debug_ospf6_spf_process
,
814 no_debug_ospf6_spf_process_cmd
,
815 "no debug ospf6 spf process",
819 "Quit Debugging SPF Calculation\n"
820 "Quit Debugging Detailed SPF Process\n"
823 unsigned char level
= 0;
824 level
= OSPF6_DEBUG_SPF_PROCESS
;
825 OSPF6_DEBUG_SPF_OFF(level
);
829 DEFUN (no_debug_ospf6_spf_time
,
830 no_debug_ospf6_spf_time_cmd
,
831 "no debug ospf6 spf time",
835 "Quit Debugging SPF Calculation\n"
836 "Quit Measuring time taken by SPF Calculation\n"
839 unsigned char level
= 0;
840 level
= OSPF6_DEBUG_SPF_TIME
;
841 OSPF6_DEBUG_SPF_OFF(level
);
845 DEFUN (no_debug_ospf6_spf_database
,
846 no_debug_ospf6_spf_database_cmd
,
847 "no debug ospf6 spf database",
851 "Debug SPF Calculation\n"
852 "Quit Logging number of LSAs at SPF Calculation time\n"
855 unsigned char level
= 0;
856 level
= OSPF6_DEBUG_SPF_DATABASE
;
857 OSPF6_DEBUG_SPF_OFF(level
);
861 static int ospf6_timers_spf_set(struct vty
*vty
, unsigned int delay
,
862 unsigned int hold
, unsigned int max
)
864 VTY_DECLVAR_CONTEXT(ospf6
, ospf
);
866 ospf
->spf_delay
= delay
;
867 ospf
->spf_holdtime
= hold
;
868 ospf
->spf_max_holdtime
= max
;
873 DEFUN (ospf6_timers_throttle_spf
,
874 ospf6_timers_throttle_spf_cmd
,
875 "timers throttle spf (0-600000) (0-600000) (0-600000)",
876 "Adjust routing timers\n"
877 "Throttling adaptive timer\n"
879 "Delay (msec) from first change received till SPF calculation\n"
880 "Initial hold time (msec) between consecutive SPF calculations\n"
881 "Maximum hold time (msec)\n")
884 int idx_number_2
= 4;
885 int idx_number_3
= 5;
886 unsigned int delay
, hold
, max
;
888 delay
= strtoul(argv
[idx_number
]->arg
, NULL
, 10);
889 hold
= strtoul(argv
[idx_number_2
]->arg
, NULL
, 10);
890 max
= strtoul(argv
[idx_number_3
]->arg
, NULL
, 10);
892 return ospf6_timers_spf_set(vty
, delay
, hold
, max
);
895 DEFUN (no_ospf6_timers_throttle_spf
,
896 no_ospf6_timers_throttle_spf_cmd
,
897 "no timers throttle spf [(0-600000) (0-600000) (0-600000)]",
899 "Adjust routing timers\n"
900 "Throttling adaptive timer\n"
902 "Delay (msec) from first change received till SPF calculation\n"
903 "Initial hold time (msec) between consecutive SPF calculations\n"
904 "Maximum hold time (msec)\n")
906 return ospf6_timers_spf_set(vty
, OSPF_SPF_DELAY_DEFAULT
,
907 OSPF_SPF_HOLDTIME_DEFAULT
,
908 OSPF_SPF_MAX_HOLDTIME_DEFAULT
);
912 int config_write_ospf6_debug_spf(struct vty
*vty
)
914 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
915 vty_out(vty
, "debug ospf6 spf process\n");
916 if (IS_OSPF6_DEBUG_SPF(TIME
))
917 vty_out(vty
, "debug ospf6 spf time\n");
918 if (IS_OSPF6_DEBUG_SPF(DATABASE
))
919 vty_out(vty
, "debug ospf6 spf database\n");
923 void ospf6_spf_config_write(struct vty
*vty
)
926 if (ospf6
->spf_delay
!= OSPF_SPF_DELAY_DEFAULT
927 || ospf6
->spf_holdtime
!= OSPF_SPF_HOLDTIME_DEFAULT
928 || ospf6
->spf_max_holdtime
!= OSPF_SPF_MAX_HOLDTIME_DEFAULT
)
929 vty_out(vty
, " timers throttle spf %d %d %d\n",
930 ospf6
->spf_delay
, ospf6
->spf_holdtime
,
931 ospf6
->spf_max_holdtime
);
934 void install_element_ospf6_debug_spf(void)
936 install_element(ENABLE_NODE
, &debug_ospf6_spf_process_cmd
);
937 install_element(ENABLE_NODE
, &debug_ospf6_spf_time_cmd
);
938 install_element(ENABLE_NODE
, &debug_ospf6_spf_database_cmd
);
939 install_element(ENABLE_NODE
, &no_debug_ospf6_spf_process_cmd
);
940 install_element(ENABLE_NODE
, &no_debug_ospf6_spf_time_cmd
);
941 install_element(ENABLE_NODE
, &no_debug_ospf6_spf_database_cmd
);
942 install_element(CONFIG_NODE
, &debug_ospf6_spf_process_cmd
);
943 install_element(CONFIG_NODE
, &debug_ospf6_spf_time_cmd
);
944 install_element(CONFIG_NODE
, &debug_ospf6_spf_database_cmd
);
945 install_element(CONFIG_NODE
, &no_debug_ospf6_spf_process_cmd
);
946 install_element(CONFIG_NODE
, &no_debug_ospf6_spf_time_cmd
);
947 install_element(CONFIG_NODE
, &no_debug_ospf6_spf_database_cmd
);
950 void ospf6_spf_init(void)
952 install_element(OSPF6_NODE
, &ospf6_timers_throttle_spf_cmd
);
953 install_element(OSPF6_NODE
, &no_ospf6_timers_throttle_spf_cmd
);
956 /* Create Aggregated Large Router-LSA from multiple Link-State IDs
958 * When more than one router-LSA is received from a single router,
959 * the links are processed as if concatenated into a single LSA.*/
960 struct ospf6_lsa
*ospf6_create_single_router_lsa(struct ospf6_area
*area
,
961 struct ospf6_lsdb
*lsdb
,
964 struct ospf6_lsa
*lsa
= NULL
;
965 struct ospf6_lsa
*rtr_lsa
= NULL
;
966 struct ospf6_lsa_header
*lsa_header
= NULL
;
967 uint8_t *new_header
= NULL
;
968 const struct route_node
*end
= NULL
;
969 uint16_t lsa_length
, total_lsa_length
= 0, num_lsa
= 0;
972 uint32_t interface_id
;
975 lsa_length
= sizeof(struct ospf6_lsa_header
)
976 + sizeof(struct ospf6_router_lsa
);
977 total_lsa_length
= lsa_length
;
978 type
= htons(OSPF6_LSTYPE_ROUTER
);
980 /* First check Aggregated LSA formed earlier in Cache */
981 lsa
= ospf6_lsdb_lookup(type
, htonl(0), adv_router
,
982 area
->temp_router_lsa_lsdb
);
986 inet_ntop(AF_INET
, &adv_router
, ifbuf
, sizeof(ifbuf
));
988 /* Determine total LSA length from all link state ids */
989 end
= ospf6_lsdb_head(lsdb
, 2, type
, adv_router
, &rtr_lsa
);
992 if (OSPF6_LSA_IS_MAXAGE(rtr_lsa
)) {
993 rtr_lsa
= ospf6_lsdb_next(end
, rtr_lsa
);
996 lsa_header
= (struct ospf6_lsa_header
*)rtr_lsa
->header
;
997 total_lsa_length
+= (ntohs(lsa_header
->length
) - lsa_length
);
999 rtr_lsa
= ospf6_lsdb_next(end
, rtr_lsa
);
1001 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
1002 zlog_debug("%s: adv_router %s num_lsa %u to convert.",
1003 __PRETTY_FUNCTION__
, ifbuf
, num_lsa
);
1008 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
1009 zlog_debug("%s: adv_router %s not found in LSDB.",
1010 __PRETTY_FUNCTION__
, ifbuf
);
1014 /* Allocate memory for this LSA */
1015 new_header
= XMALLOC(MTYPE_OSPF6_LSA_HEADER
, total_lsa_length
);
1017 /* LSA information structure */
1018 lsa
= XCALLOC(MTYPE_OSPF6_LSA
, sizeof(struct ospf6_lsa
));
1020 lsa
->header
= (struct ospf6_lsa_header
*)new_header
;
1022 lsa
->lsdb
= area
->temp_router_lsa_lsdb
;
1024 /* Fill Larger LSA Payload */
1025 end
= ospf6_lsdb_head(lsdb
, 2, type
, adv_router
, &rtr_lsa
);
1028 * We assume at this point in time that rtr_lsa is
1032 if (!OSPF6_LSA_IS_MAXAGE(rtr_lsa
)) {
1033 /* Append first Link State ID LSA */
1034 lsa_header
= (struct ospf6_lsa_header
*)rtr_lsa
->header
;
1035 memcpy(new_header
, lsa_header
, ntohs(lsa_header
->length
));
1036 /* Assign new lsa length as aggregated length. */
1037 ((struct ospf6_lsa_header
*)new_header
)->length
=
1038 htons(total_lsa_length
);
1039 new_header
+= ntohs(lsa_header
->length
);
1043 /* Print LSA Name */
1044 ospf6_lsa_printbuf(lsa
, lsa
->name
, sizeof(lsa
->name
));
1046 rtr_lsa
= ospf6_lsdb_next(end
, rtr_lsa
);
1048 if (OSPF6_LSA_IS_MAXAGE(rtr_lsa
)) {
1049 rtr_lsa
= ospf6_lsdb_next(end
, rtr_lsa
);
1053 if (IS_OSPF6_DEBUG_SPF(PROCESS
)) {
1054 lsd
= OSPF6_LSA_HEADER_END(rtr_lsa
->header
) + 4;
1055 interface_id
= ROUTER_LSDESC_GET_IFID(lsd
);
1056 inet_ntop(AF_INET
, &interface_id
, ifbuf
, sizeof(ifbuf
));
1058 "%s: Next Router LSA %s to aggreat with len %u interface_id %s",
1059 __PRETTY_FUNCTION__
, rtr_lsa
->name
,
1060 ntohs(lsa_header
->length
), ifbuf
);
1063 /* Append Next Link State ID LSA */
1064 lsa_header
= (struct ospf6_lsa_header
*)rtr_lsa
->header
;
1065 memcpy(new_header
, (OSPF6_LSA_HEADER_END(rtr_lsa
->header
) + 4),
1066 (ntohs(lsa_header
->length
) - lsa_length
));
1067 new_header
+= (ntohs(lsa_header
->length
) - lsa_length
);
1070 rtr_lsa
= ospf6_lsdb_next(end
, rtr_lsa
);
1073 /* Calculate birth of this lsa */
1074 ospf6_lsa_age_set(lsa
);
1076 /* Store Aggregated LSA into area temp lsdb */
1077 ospf6_lsdb_add(lsa
, area
->temp_router_lsa_lsdb
);
1079 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
1080 zlog_debug("%s: LSA %s id %u type 0%x len %u num_lsa %u",
1081 __PRETTY_FUNCTION__
, lsa
->name
,
1082 ntohl(lsa
->header
->id
), ntohs(lsa
->header
->type
),
1083 ntohs(lsa
->header
->length
), num_lsa
);
1088 void ospf6_remove_temp_router_lsa(struct ospf6_area
*area
)
1090 struct ospf6_lsa
*lsa
= NULL
;
1092 for (ALL_LSDB(area
->temp_router_lsa_lsdb
, lsa
)) {
1093 if (IS_OSPF6_DEBUG_SPF(PROCESS
))
1095 "%s Remove LSA %s lsa->lock %u lsdb count %u",
1096 __PRETTY_FUNCTION__
, lsa
->name
, lsa
->lock
,
1097 area
->temp_router_lsa_lsdb
->count
);
1098 ospf6_lsdb_remove(lsa
, area
->temp_router_lsa_lsdb
);