ospf6d/ospf6_area.c

   1 /*
   2  * Copyright (C) 2003 Yasuhiro Ohara
   3  *
   4  * This file is part of GNU Zebra.
   5  *
   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
   9  * later version.
  10  *
  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.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with GNU Zebra; see the file COPYING.  If not, write to the
  18  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19  * Boston, MA 02111-1307, USA.
  20  */
  21
  22 #include <zebra.h>
  23
  24 #include "log.h"
  25 #include "memory.h"
  26 #include "linklist.h"
  27 #include "thread.h"
  28 #include "vty.h"
  29 #include "command.h"
  30 #include "if.h"
  31 #include "prefix.h"
  32 #include "table.h"
  33 #include "plist.h"
  34 #include "filter.h"
  35
  36 #include "ospf6_proto.h"
  37 #include "ospf6_lsa.h"
  38 #include "ospf6_lsdb.h"
  39 #include "ospf6_route.h"
  40 #include "ospf6_spf.h"
  41 #include "ospf6_top.h"
  42 #include "ospf6_area.h"
  43 #include "ospf6_interface.h"
  44 #include "ospf6_intra.h"
  45 #include "ospf6_abr.h"
  46 #include "ospf6d.h"
  47
  48 int
  49 ospf6_area_cmp (void *va, void *vb)
  50 {
  51   struct ospf6_area *oa = (struct ospf6_area *) va;
  52   struct ospf6_area *ob = (struct ospf6_area *) vb;
  53   return (ntohl (oa->area_id) < ntohl (ob->area_id) ? -1 : 1);
  54 }
  55
  56 /* schedule routing table recalculation */
  57 static void
  58 ospf6_area_lsdb_hook_add (struct ospf6_lsa *lsa)
  59 {
  60   switch (ntohs (lsa->header->type))
  61     {
  62     case OSPF6_LSTYPE_ROUTER:
  63     case OSPF6_LSTYPE_NETWORK:
  64       if (IS_OSPF6_DEBUG_EXAMIN_TYPE (lsa->header->type))
  65         {
  66           zlog_debug ("Examin %s", lsa->name);
  67           zlog_debug ("Schedule SPF Calculation for %s",
  68                       OSPF6_AREA (lsa->lsdb->data)->name);
  69         }
  70       ospf6_spf_schedule (OSPF6_AREA (lsa->lsdb->data));
  71       break;
  72
  73     case OSPF6_LSTYPE_INTRA_PREFIX:
  74       ospf6_intra_prefix_lsa_add (lsa);
  75       break;
  76
  77     case OSPF6_LSTYPE_INTER_PREFIX:
  78     case OSPF6_LSTYPE_INTER_ROUTER:
  79       ospf6_abr_examin_summary (lsa, (struct ospf6_area *) lsa->lsdb->data);
  80       break;
  81
  82     default:
  83       break;
  84     }
  85 }
  86
  87 static void
  88 ospf6_area_lsdb_hook_remove (struct ospf6_lsa *lsa)
  89 {
  90   switch (ntohs (lsa->header->type))
  91     {
  92     case OSPF6_LSTYPE_ROUTER:
  93     case OSPF6_LSTYPE_NETWORK:
  94       if (IS_OSPF6_DEBUG_EXAMIN_TYPE (lsa->header->type))
  95         {
  96           zlog_debug ("LSA disappearing: %s", lsa->name);
  97           zlog_debug ("Schedule SPF Calculation for %s",
  98                      OSPF6_AREA (lsa->lsdb->data)->name);
  99         }
 100       ospf6_spf_schedule (OSPF6_AREA (lsa->lsdb->data));
 101       break;
 102
 103     case OSPF6_LSTYPE_INTRA_PREFIX:
 104       ospf6_intra_prefix_lsa_remove (lsa);
 105       break;
 106
 107     case OSPF6_LSTYPE_INTER_PREFIX:
 108     case OSPF6_LSTYPE_INTER_ROUTER:
 109       ospf6_abr_examin_summary (lsa, (struct ospf6_area *) lsa->lsdb->data);
 110       break;
 111
 112     default:
 113       break;
 114     }
 115 }
 116
 117 static void
 118 ospf6_area_route_hook_add (struct ospf6_route *route)
 119 {
 120   struct ospf6_route *copy = ospf6_route_copy (route);
 121   ospf6_route_add (copy, ospf6->route_table);
 122 }
 123
 124 static void
 125 ospf6_area_route_hook_remove (struct ospf6_route *route)
 126 {
 127   struct ospf6_route *copy;
 128
 129   copy = ospf6_route_lookup_identical (route, ospf6->route_table);
 130   if (copy)
 131     ospf6_route_remove (copy, ospf6->route_table);
 132 }
 133
 134 /* Make new area structure */
 135 struct ospf6_area *
 136 ospf6_area_create (u_int32_t area_id, struct ospf6 *o)
 137 {
 138   struct ospf6_area *oa;
 139   struct ospf6_route *route;
 140
 141   oa = XCALLOC (MTYPE_OSPF6_AREA, sizeof (struct ospf6_area));
 142
 143   inet_ntop (AF_INET, &area_id, oa->name, sizeof (oa->name));
 144   oa->area_id = area_id;
 145   oa->if_list = list_new ();
 146
 147   oa->lsdb = ospf6_lsdb_create (oa);
 148   oa->lsdb->hook_add = ospf6_area_lsdb_hook_add;
 149   oa->lsdb->hook_remove = ospf6_area_lsdb_hook_remove;
 150   oa->lsdb_self = ospf6_lsdb_create (oa);
 151
 152   oa->spf_table = OSPF6_ROUTE_TABLE_CREATE (AREA, SPF_RESULTS);
 153   oa->spf_table->scope = oa;
 154   oa->route_table = OSPF6_ROUTE_TABLE_CREATE (AREA, ROUTES);
 155   oa->route_table->scope = oa;
 156   oa->route_table->hook_add = ospf6_area_route_hook_add;
 157   oa->route_table->hook_remove = ospf6_area_route_hook_remove;
 158
 159   oa->range_table = OSPF6_ROUTE_TABLE_CREATE (AREA, PREFIX_RANGES);
 160   oa->range_table->scope = oa;
 161   oa->summary_prefix = OSPF6_ROUTE_TABLE_CREATE (AREA, SUMMARY_PREFIXES);
 162   oa->summary_prefix->scope = oa;
 163   oa->summary_router = OSPF6_ROUTE_TABLE_CREATE (AREA, SUMMARY_ROUTERS);
 164   oa->summary_router->scope = oa;
 165
 166   /* set default options */
 167   OSPF6_OPT_SET (oa->options, OSPF6_OPT_V6);
 168   OSPF6_OPT_SET (oa->options, OSPF6_OPT_E);
 169   OSPF6_OPT_SET (oa->options, OSPF6_OPT_R);
 170
 171   oa->ospf6 = o;
 172   listnode_add_sort (o->area_list, oa);
 173
 174   /* import athoer area's routes as inter-area routes */
 175   for (route = ospf6_route_head (o->route_table); route;
 176        route = ospf6_route_next (route))
 177     ospf6_abr_originate_summary_to_area (route, oa);
 178
 179   return oa;
 180 }
 181
 182 void
 183 ospf6_area_delete (struct ospf6_area *oa)
 184 {
 185   struct listnode *n, *nnode;
 186   struct ospf6_interface *oi;
 187
 188   ospf6_route_table_delete (oa->range_table);
 189   ospf6_route_table_delete (oa->summary_prefix);
 190   ospf6_route_table_delete (oa->summary_router);
 191
 192   /* ospf6 interface list */
 193   for (ALL_LIST_ELEMENTS (oa->if_list, n, nnode, oi))
 194     {
 195       ospf6_interface_delete (oi);
 196     }
 197   list_delete (oa->if_list);
 198
 199   ospf6_lsdb_delete (oa->lsdb);
 200   ospf6_lsdb_delete (oa->lsdb_self);
 201
 202   ospf6_route_table_delete (oa->spf_table);
 203   ospf6_route_table_delete (oa->route_table);
 204
 205 #if 0
 206   ospf6_spftree_delete (oa->spf_tree);
 207   ospf6_route_table_delete (oa->topology_table);
 208 #endif /*0*/
 209
 210   THREAD_OFF (oa->thread_spf_calculation);
 211   THREAD_OFF (oa->thread_route_calculation);
 212
 213   listnode_delete (oa->ospf6->area_list, oa);
 214   oa->ospf6 = NULL;
 215
 216   /* free area */
 217   XFREE (MTYPE_OSPF6_AREA, oa);
 218 }
 219
 220 struct ospf6_area *
 221 ospf6_area_lookup (u_int32_t area_id, struct ospf6 *ospf6)
 222 {
 223   struct ospf6_area *oa;
 224   struct listnode *n;
 225
 226   for (ALL_LIST_ELEMENTS_RO (ospf6->area_list, n, oa))
 227     if (oa->area_id == area_id)
 228       return oa;
 229
 230   return (struct ospf6_area *) NULL;
 231 }
 232
 233 static struct ospf6_area *
 234 ospf6_area_get (u_int32_t area_id, struct ospf6 *o)
 235 {
 236   struct ospf6_area *oa;
 237   oa = ospf6_area_lookup (area_id, o);
 238   if (oa == NULL)
 239     oa = ospf6_area_create (area_id, o);
 240   return oa;
 241 }
 242
 243 void
 244 ospf6_area_enable (struct ospf6_area *oa)
 245 {
 246   struct listnode *node, *nnode;
 247   struct ospf6_interface *oi;
 248
 249   SET_FLAG (oa->flag, OSPF6_AREA_ENABLE);
 250
 251   for (ALL_LIST_ELEMENTS (oa->if_list, node, nnode, oi))
 252     ospf6_interface_enable (oi);
 253 }
 254
 255 void
 256 ospf6_area_disable (struct ospf6_area *oa)
 257 {
 258   struct listnode *node, *nnode;
 259   struct ospf6_interface *oi;
 260
 261   UNSET_FLAG (oa->flag, OSPF6_AREA_ENABLE);
 262
 263   for (ALL_LIST_ELEMENTS (oa->if_list, node, nnode, oi))
 264     ospf6_interface_disable (oi);
 265 }
 266
 267 \f
 268 void
 269 ospf6_area_show (struct vty *vty, struct ospf6_area *oa)
 270 {
 271   struct listnode *i;
 272   struct ospf6_interface *oi;
 273
 274   vty_out (vty, " Area %s%s", oa->name, VNL);
 275   vty_out (vty, "     Number of Area scoped LSAs is %u%s",
 276            oa->lsdb->count, VNL);
 277
 278   vty_out (vty, "     Interface attached to this area:");
 279   for (ALL_LIST_ELEMENTS_RO (oa->if_list, i, oi))
 280     vty_out (vty, " %s", oi->interface->name);
 281
 282   vty_out (vty, "%s", VNL);
 283 }
 284
 285
 286 #define OSPF6_CMD_AREA_LOOKUP(str, oa)                     \
 287 {                                                          \
 288   u_int32_t area_id = 0;                                   \
 289   if (inet_pton (AF_INET, str, &area_id) != 1)             \
 290     {                                                      \
 291       vty_out (vty, "Malformed Area-ID: %s%s", str, VNL);  \
 292       return CMD_SUCCESS;                                  \
 293     }                                                      \
 294   oa = ospf6_area_lookup (area_id, ospf6);                 \
 295   if (oa == NULL)                                          \
 296     {                                                      \
 297       vty_out (vty, "No such Area: %s%s", str, VNL);       \
 298       return CMD_SUCCESS;                                  \
 299     }                                                      \
 300 }
 301
 302 #define OSPF6_CMD_AREA_GET(str, oa)                        \
 303 {                                                          \
 304   u_int32_t area_id = 0;                                   \
 305   if (inet_pton (AF_INET, str, &area_id) != 1)             \
 306     {                                                      \
 307       vty_out (vty, "Malformed Area-ID: %s%s", str, VNL);  \
 308       return CMD_SUCCESS;                                  \
 309     }                                                      \
 310   oa = ospf6_area_get (area_id, ospf6);                    \
 311 }
 312
 313 DEFUN (area_range,
 314        area_range_cmd,
 315        "area A.B.C.D range X:X::X:X/M",
 316        "OSPF area parameters\n"
 317        OSPF6_AREA_ID_STR
 318        "Configured address range\n"
 319        "Specify IPv6 prefix\n"
 320        )
 321 {
 322   int ret;
 323   struct ospf6_area *oa;
 324   struct prefix prefix;
 325   struct ospf6_route *range;
 326
 327   OSPF6_CMD_AREA_GET (argv[0], oa);
 328   argc--;
 329   argv++;
 330
 331   ret = str2prefix (argv[0], &prefix);
 332   if (ret != 1 || prefix.family != AF_INET6)
 333     {
 334       vty_out (vty, "Malformed argument: %s%s", argv[0], VNL);
 335       return CMD_SUCCESS;
 336     }
 337   argc--;
 338   argv++;
 339
 340   range = ospf6_route_lookup (&prefix, oa->range_table);
 341   if (range == NULL)
 342     {
 343       range = ospf6_route_create ();
 344       range->type = OSPF6_DEST_TYPE_RANGE;
 345       range->prefix = prefix;
 346     }
 347
 348   if (argc)
 349     {
 350       if (! strcmp (argv[0], "not-advertise"))
 351         SET_FLAG (range->flag, OSPF6_ROUTE_DO_NOT_ADVERTISE);
 352       else if (! strcmp (argv[0], "advertise"))
 353         UNSET_FLAG (range->flag, OSPF6_ROUTE_DO_NOT_ADVERTISE);
 354     }
 355
 356   if (range->rnode)
 357     {
 358       vty_out (vty, "Range already defined: %s%s", argv[-1], VNL);
 359       return CMD_WARNING;
 360     }
 361
 362   ospf6_route_add (range, oa->range_table);
 363   return CMD_SUCCESS;
 364 }
 365
 366 ALIAS (area_range,
 367        area_range_advertise_cmd,
 368        "area A.B.C.D range X:X::X:X/M (advertise|not-advertise)",
 369        "OSPF area parameters\n"
 370        OSPF6_AREA_ID_STR
 371        "Configured address range\n"
 372        "Specify IPv6 prefix\n"
 373        )
 374
 375 DEFUN (no_area_range,
 376        no_area_range_cmd,
 377        "no area A.B.C.D range X:X::X:X/M",
 378        "OSPF area parameters\n"
 379        OSPF6_AREA_ID_STR
 380        "Configured address range\n"
 381        "Specify IPv6 prefix\n"
 382        )
 383 {
 384   int ret;
 385   struct ospf6_area *oa;
 386   struct prefix prefix;
 387   struct ospf6_route *range;
 388
 389   OSPF6_CMD_AREA_GET (argv[0], oa);
 390   argc--;
 391   argv++;
 392
 393   ret = str2prefix (argv[0], &prefix);
 394   if (ret != 1 || prefix.family != AF_INET6)
 395     {
 396       vty_out (vty, "Malformed argument: %s%s", argv[0], VNL);
 397       return CMD_SUCCESS;
 398     }
 399
 400   range = ospf6_route_lookup (&prefix, oa->range_table);
 401   if (range == NULL)
 402     {
 403       vty_out (vty, "Range %s does not exists.%s", argv[0], VNL);
 404       return CMD_SUCCESS;
 405     }
 406
 407   ospf6_route_remove (range, oa->range_table);
 408   return CMD_SUCCESS;
 409 }
 410
 411 void
 412 ospf6_area_config_write (struct vty *vty)
 413 {
 414   struct listnode *node;
 415   struct ospf6_area *oa;
 416   struct ospf6_route *range;
 417   char buf[128];
 418
 419   for (ALL_LIST_ELEMENTS_RO (ospf6->area_list, node, oa))
 420     {
 421       for (range = ospf6_route_head (oa->range_table); range;
 422            range = ospf6_route_next (range))
 423         {
 424           prefix2str (&range->prefix, buf, sizeof (buf));
 425           vty_out (vty, " area %s range %s%s", oa->name, buf, VNL);
 426         }
 427     }
 428 }
 429
 430 DEFUN (area_filter_list,
 431        area_filter_list_cmd,
 432        "area A.B.C.D filter-list prefix WORD (in|out)",
 433        "OSPFv6 area parameters\n"
 434        "OSPFv6 area ID in IP address format\n"
 435        "Filter networks between OSPFv6 areas\n"
 436        "Filter prefixes between OSPFv6 areas\n"
 437        "Name of an IPv6 prefix-list\n"
 438        "Filter networks sent to this area\n"
 439        "Filter networks sent from this area\n")
 440 {
 441   struct ospf6_area *area;
 442   struct prefix_list *plist;
 443
 444   OSPF6_CMD_AREA_GET (argv[0], area);
 445   argc--;
 446   argv++;
 447
 448   plist = prefix_list_lookup (AFI_IP6, argv[1]);
 449   if (strncmp (argv[2], "in", 2) == 0)
 450     {
 451       PREFIX_LIST_IN (area) = plist;
 452       if (PREFIX_NAME_IN (area))
 453         free (PREFIX_NAME_IN (area));
 454
 455       PREFIX_NAME_IN (area) = strdup (argv[1]);
 456       ospf6_abr_reimport (area);
 457     }
 458   else
 459     {
 460       PREFIX_LIST_OUT (area) = plist;
 461       if (PREFIX_NAME_OUT (area))
 462         free (PREFIX_NAME_OUT (area));
 463
 464       PREFIX_NAME_OUT (area) = strdup (argv[1]);
 465       ospf6_abr_enable_area (area);
 466     }
 467
 468   return CMD_SUCCESS;
 469 }
 470
 471 DEFUN (no_area_filter_list,
 472        no_area_filter_list_cmd,
 473        "no area A.B.C.D filter-list prefix WORD (in|out)",
 474        NO_STR
 475        "OSPFv6 area parameters\n"
 476        "OSPFv6 area ID in IP address format\n"
 477        "Filter networks between OSPFv6 areas\n"
 478        "Filter prefixes between OSPFv6 areas\n"
 479        "Name of an IPv6 prefix-list\n"
 480        "Filter networks sent to this area\n"
 481        "Filter networks sent from this area\n")
 482 {
 483   struct ospf6_area *area;
 484   struct prefix_list *plist;
 485
 486   OSPF6_CMD_AREA_GET (argv[0], area);
 487   argc--;
 488   argv++;
 489
 490   plist = prefix_list_lookup (AFI_IP6, argv[1]);
 491   if (strncmp (argv[2], "in", 2) == 0)
 492     {
 493       if (PREFIX_NAME_IN (area))
 494         if (strcmp (PREFIX_NAME_IN (area), argv[1]) != 0)
 495           return CMD_SUCCESS;
 496
 497       PREFIX_LIST_IN (area) = NULL;
 498       if (PREFIX_NAME_IN (area))
 499         free (PREFIX_NAME_IN (area));
 500
 501       PREFIX_NAME_IN (area) = NULL;
 502       ospf6_abr_reimport (area);
 503     }
 504   else
 505     {
 506       if (PREFIX_NAME_OUT (area))
 507         if (strcmp (PREFIX_NAME_OUT (area), argv[1]) != 0)
 508           return CMD_SUCCESS;
 509
 510       PREFIX_LIST_OUT (area) = NULL;
 511       if (PREFIX_NAME_OUT (area))
 512         free (PREFIX_NAME_OUT (area));
 513
 514       PREFIX_NAME_OUT (area) = NULL;
 515       ospf6_abr_enable_area (area);
 516     }
 517
 518   return CMD_SUCCESS;
 519 }
 520
 521 DEFUN (area_import_list,
 522        area_import_list_cmd,
 523        "area A.B.C.D import-list NAME",
 524        "OSPFv6 area parameters\n"
 525        "OSPFv6 area ID in IP address format\n"
 526        "Set the filter for networks from other areas announced to the specified one\n"
 527        "Name of the acess-list\n")
 528 {
 529   struct ospf6_area *area;
 530   struct access_list *list;
 531
 532   OSPF6_CMD_AREA_GET(argv[0], area);
 533
 534   list = access_list_lookup (AFI_IP6, argv[1]);
 535
 536   IMPORT_LIST (area) = list;
 537
 538   if (IMPORT_NAME (area))
 539     free (IMPORT_NAME (area));
 540
 541   IMPORT_NAME (area) = strdup (argv[1]);
 542   ospf6_abr_reimport (area);
 543
 544   return CMD_SUCCESS;
 545 }
 546
 547 DEFUN (no_area_import_list,
 548        no_area_import_list_cmd,
 549        "no area A.B.C.D import-list NAME",
 550        "OSPFv6 area parameters\n"
 551        "OSPFv6 area ID in IP address format\n"
 552        "Unset the filter for networks announced to other areas\n"
 553        "NAme of the access-list\n")
 554 {
 555   struct ospf6_area *area;
 556
 557   OSPF6_CMD_AREA_GET(argv[0], area);
 558
 559   IMPORT_LIST (area) = 0;
 560
 561   if (IMPORT_NAME (area))
 562     free (IMPORT_NAME (area));
 563
 564   IMPORT_NAME (area) = NULL;
 565   ospf6_abr_reimport (area);
 566
 567   return CMD_SUCCESS;
 568 }
 569
 570 DEFUN (area_export_list,
 571        area_export_list_cmd,
 572        "area A.B.C.D export-list NAME",
 573        "OSPFv6 area parameters\n"
 574        "OSPFv6 area ID in IP address format\n"
 575        "Set the filter for networks announced to other areas\n"
 576        "Name of the acess-list\n")
 577 {
 578   struct ospf6_area *area;
 579   struct access_list *list;
 580
 581   OSPF6_CMD_AREA_GET(argv[0], area);
 582
 583   list = access_list_lookup (AFI_IP6, argv[1]);
 584
 585   EXPORT_LIST (area) = list;
 586
 587   if (EXPORT_NAME (area))
 588     free (EXPORT_NAME (area));
 589
 590   EXPORT_NAME (area) = strdup (argv[1]);
 591   ospf6_abr_enable_area (area);
 592
 593   return CMD_SUCCESS;
 594 }
 595
 596 DEFUN (no_area_export_list,
 597        no_area_export_list_cmd,
 598        "no area A.B.C.D export-list NAME",
 599        "OSPFv6 area parameters\n"
 600        "OSPFv6 area ID in IP address format\n"
 601        "Unset the filter for networks announced to other areas\n"
 602        "Name of the access-list\n")
 603 {
 604   struct ospf6_area *area;
 605
 606   OSPF6_CMD_AREA_GET(argv[0], area);
 607
 608   EXPORT_LIST (area) = 0;
 609
 610   if (EXPORT_NAME (area))
 611     free (EXPORT_NAME (area));
 612
 613   EXPORT_NAME (area) = NULL;
 614   ospf6_abr_enable_area (area);
 615
 616   return CMD_SUCCESS;
 617 }
 618
 619 DEFUN (show_ipv6_ospf6_spf_tree,
 620        show_ipv6_ospf6_spf_tree_cmd,
 621        "show ipv6 ospf6 spf tree",
 622        SHOW_STR
 623        IP6_STR
 624        OSPF6_STR
 625        "Shortest Path First caculation\n"
 626        "Show SPF tree\n")
 627 {
 628   struct listnode *node;
 629   struct ospf6_area *oa;
 630   struct ospf6_vertex *root;
 631   struct ospf6_route *route;
 632   struct prefix prefix;
 633
 634   ospf6_linkstate_prefix (ospf6->router_id, htonl (0), &prefix);
 635
 636   for (ALL_LIST_ELEMENTS_RO (ospf6->area_list, node, oa))
 637     {
 638       route = ospf6_route_lookup (&prefix, oa->spf_table);
 639       if (route == NULL)
 640         {
 641           vty_out (vty, "LS entry for root not found in area %s%s",
 642                    oa->name, VNL);
 643           continue;
 644         }
 645       root = (struct ospf6_vertex *) route->route_option;
 646       ospf6_spf_display_subtree (vty, "", 0, root);
 647     }
 648
 649   return CMD_SUCCESS;
 650 }
 651
 652 DEFUN (show_ipv6_ospf6_area_spf_tree,
 653        show_ipv6_ospf6_area_spf_tree_cmd,
 654        "show ipv6 ospf6 area A.B.C.D spf tree",
 655        SHOW_STR
 656        IP6_STR
 657        OSPF6_STR
 658        OSPF6_AREA_STR
 659        OSPF6_AREA_ID_STR
 660        "Shortest Path First caculation\n"
 661        "Show SPF tree\n")
 662 {
 663   u_int32_t area_id;
 664   struct ospf6_area *oa;
 665   struct ospf6_vertex *root;
 666   struct ospf6_route *route;
 667   struct prefix prefix;
 668
 669   ospf6_linkstate_prefix (ospf6->router_id, htonl (0), &prefix);
 670
 671   if (inet_pton (AF_INET, argv[0], &area_id) != 1)
 672     {
 673       vty_out (vty, "Malformed Area-ID: %s%s", argv[0], VNL);
 674       return CMD_SUCCESS;
 675     }
 676   oa = ospf6_area_lookup (area_id, ospf6);
 677   if (oa == NULL)
 678     {
 679       vty_out (vty, "No such Area: %s%s", argv[0], VNL);
 680       return CMD_SUCCESS;
 681     }
 682
 683   route = ospf6_route_lookup (&prefix, oa->spf_table);
 684   if (route == NULL)
 685     {
 686       vty_out (vty, "LS entry for root not found in area %s%s",
 687                oa->name, VNL);
 688       return CMD_SUCCESS;
 689     }
 690   root = (struct ospf6_vertex *) route->route_option;
 691   ospf6_spf_display_subtree (vty, "", 0, root);
 692
 693   return CMD_SUCCESS;
 694 }
 695
 696 DEFUN (show_ipv6_ospf6_simulate_spf_tree_root,
 697        show_ipv6_ospf6_simulate_spf_tree_root_cmd,
 698        "show ipv6 ospf6 simulate spf-tree A.B.C.D area A.B.C.D",
 699        SHOW_STR
 700        IP6_STR
 701        OSPF6_STR
 702        "Shortest Path First caculation\n"
 703        "Show SPF tree\n"
 704        "Specify root's router-id to calculate another router's SPF tree\n")
 705 {
 706   u_int32_t area_id;
 707   struct ospf6_area *oa;
 708   struct ospf6_vertex *root;
 709   struct ospf6_route *route;
 710   struct prefix prefix;
 711   u_int32_t router_id;
 712   struct ospf6_route_table *spf_table;
 713   unsigned char tmp_debug_ospf6_spf = 0;
 714
 715   inet_pton (AF_INET, argv[0], &router_id);
 716   ospf6_linkstate_prefix (router_id, htonl (0), &prefix);
 717
 718   if (inet_pton (AF_INET, argv[1], &area_id) != 1)
 719     {
 720       vty_out (vty, "Malformed Area-ID: %s%s", argv[1], VNL);
 721       return CMD_SUCCESS;
 722     }
 723   oa = ospf6_area_lookup (area_id, ospf6);
 724   if (oa == NULL)
 725     {
 726       vty_out (vty, "No such Area: %s%s", argv[1], VNL);
 727       return CMD_SUCCESS;
 728     }
 729
 730   tmp_debug_ospf6_spf = conf_debug_ospf6_spf;
 731   conf_debug_ospf6_spf = 0;
 732
 733   spf_table = OSPF6_ROUTE_TABLE_CREATE (NONE, SPF_RESULTS);
 734   ospf6_spf_calculation (router_id, spf_table, oa);
 735
 736   conf_debug_ospf6_spf = tmp_debug_ospf6_spf;
 737
 738   route = ospf6_route_lookup (&prefix, spf_table);
 739   if (route == NULL)
 740     {
 741       ospf6_spf_table_finish (spf_table);
 742       ospf6_route_table_delete (spf_table);
 743       return CMD_SUCCESS;
 744     }
 745   root = (struct ospf6_vertex *) route->route_option;
 746   ospf6_spf_display_subtree (vty, "", 0, root);
 747
 748   ospf6_spf_table_finish (spf_table);
 749   ospf6_route_table_delete (spf_table);
 750
 751   return CMD_SUCCESS;
 752 }
 753
 754 void
 755 ospf6_area_init (void)
 756 {
 757   install_element (VIEW_NODE, &show_ipv6_ospf6_spf_tree_cmd);
 758   install_element (VIEW_NODE, &show_ipv6_ospf6_area_spf_tree_cmd);
 759   install_element (VIEW_NODE, &show_ipv6_ospf6_simulate_spf_tree_root_cmd);
 760
 761   install_element (ENABLE_NODE, &show_ipv6_ospf6_spf_tree_cmd);
 762   install_element (ENABLE_NODE, &show_ipv6_ospf6_area_spf_tree_cmd);
 763   install_element (ENABLE_NODE, &show_ipv6_ospf6_simulate_spf_tree_root_cmd);
 764
 765   install_element (OSPF6_NODE, &area_range_cmd);
 766   install_element (OSPF6_NODE, &area_range_advertise_cmd);
 767   install_element (OSPF6_NODE, &no_area_range_cmd);
 768
 769   install_element (OSPF6_NODE, &area_import_list_cmd);
 770   install_element (OSPF6_NODE, &no_area_import_list_cmd);
 771   install_element (OSPF6_NODE, &area_export_list_cmd);
 772   install_element (OSPF6_NODE, &no_area_export_list_cmd);
 773
 774   install_element (OSPF6_NODE, &area_filter_list_cmd);
 775   install_element (OSPF6_NODE, &no_area_filter_list_cmd);
 776
 777 }
 778
 779