2 * DECnet An implementation of the DECnet protocol suite for the LINUX
3 * operating system. DECnet is implemented using the BSD Socket
4 * interface as the means of communication with the user level.
6 * DECnet Routing Forwarding Information Base (Glue/Info List)
8 * Author: Steve Whitehouse <SteveW@ACM.org>
12 * Alexey Kuznetsov : SMP locking changes
13 * Steve Whitehouse : Rewrote it... Well to be more correct, I
14 * copied most of it from the ipv4 fib code.
15 * Steve Whitehouse : Updated it in style and fixed a few bugs
16 * which were fixed in the ipv4 code since
17 * this code was copied from it.
20 #include <linux/config.h>
21 #include <linux/string.h>
22 #include <linux/net.h>
23 #include <linux/socket.h>
24 #include <linux/sockios.h>
25 #include <linux/init.h>
26 #include <linux/skbuff.h>
27 #include <linux/netlink.h>
28 #include <linux/rtnetlink.h>
29 #include <linux/proc_fs.h>
30 #include <linux/netdevice.h>
31 #include <linux/timer.h>
32 #include <linux/spinlock.h>
33 #include <asm/atomic.h>
34 #include <asm/uaccess.h>
35 #include <net/neighbour.h>
39 #include <net/dn_route.h>
40 #include <net/dn_fib.h>
41 #include <net/dn_neigh.h>
42 #include <net/dn_dev.h>
44 #define RT_MIN_TABLE 1
46 #define for_fib_info() { struct dn_fib_info *fi;\
47 for(fi = dn_fib_info_list; fi; fi = fi->fib_next)
48 #define endfor_fib_info() }
50 #define for_nexthops(fi) { int nhsel; const struct dn_fib_nh *nh;\
51 for(nhsel = 0, nh = (fi)->fib_nh; nhsel < (fi)->fib_nhs; nh++, nhsel++)
53 #define change_nexthops(fi) { int nhsel; struct dn_fib_nh *nh;\
54 for(nhsel = 0, nh = (struct dn_fib_nh *)((fi)->fib_nh); nhsel < (fi)->fib_nhs; nh++, nhsel++)
56 #define endfor_nexthops(fi) }
58 extern int dn_cache_dump(struct sk_buff *skb, struct netlink_callback *cb);
60 static spinlock_t dn_fib_multipath_lock = SPIN_LOCK_UNLOCKED;
61 static struct dn_fib_info *dn_fib_info_list;
62 static rwlock_t dn_fib_info_lock = RW_LOCK_UNLOCKED;
69 } dn_fib_props[RTA_MAX+1] = {
70 [RTN_UNSPEC] = { .error = 0, .scope = RT_SCOPE_NOWHERE },
71 [RTN_UNICAST] = { .error = 0, .scope = RT_SCOPE_UNIVERSE },
72 [RTN_LOCAL] = { .error = 0, .scope = RT_SCOPE_HOST },
73 [RTN_BROADCAST] = { .error = -EINVAL, .scope = RT_SCOPE_NOWHERE },
74 [RTN_ANYCAST] = { .error = -EINVAL, .scope = RT_SCOPE_NOWHERE },
75 [RTN_MULTICAST] = { .error = -EINVAL, .scope = RT_SCOPE_NOWHERE },
76 [RTN_BLACKHOLE] = { .error = -EINVAL, .scope = RT_SCOPE_UNIVERSE },
77 [RTN_UNREACHABLE] = { .error = -EHOSTUNREACH, .scope = RT_SCOPE_UNIVERSE },
78 [RTN_PROHIBIT] = { .error = -EACCES, .scope = RT_SCOPE_UNIVERSE },
79 [RTN_THROW] = { .error = -EAGAIN, .scope = RT_SCOPE_UNIVERSE },
80 [RTN_NAT] = { .error = 0, .scope = RT_SCOPE_NOWHERE },
81 [RTN_XRESOLVE] = { .error = -EINVAL, .scope = RT_SCOPE_NOWHERE },
84 void dn_fib_free_info(struct dn_fib_info *fi)
86 if (fi->fib_dead == 0) {
87 printk(KERN_DEBUG "DECnet: BUG! Attempt to free alive dn_fib_info\n");
95 } endfor_nexthops(fi);
100 void dn_fib_release_info(struct dn_fib_info *fi)
102 write_lock(&dn_fib_info_lock);
103 if (fi && --fi->fib_treeref == 0) {
105 fi->fib_next->fib_prev = fi->fib_prev;
107 fi->fib_prev->fib_next = fi->fib_next;
108 if (fi == dn_fib_info_list)
109 dn_fib_info_list = fi->fib_next;
113 write_unlock(&dn_fib_info_lock);
116 static inline int dn_fib_nh_comp(const struct dn_fib_info *fi, const struct dn_fib_info *ofi)
118 const struct dn_fib_nh *onh = ofi->fib_nh;
121 if (nh->nh_oif != onh->nh_oif ||
122 nh->nh_gw != onh->nh_gw ||
123 nh->nh_scope != onh->nh_scope ||
124 nh->nh_weight != onh->nh_weight ||
125 ((nh->nh_flags^onh->nh_flags)&~RTNH_F_DEAD))
128 } endfor_nexthops(fi);
132 static inline struct dn_fib_info *dn_fib_find_info(const struct dn_fib_info *nfi)
135 if (fi->fib_nhs != nfi->fib_nhs)
137 if (nfi->fib_protocol == fi->fib_protocol &&
138 nfi->fib_prefsrc == fi->fib_prefsrc &&
139 nfi->fib_priority == fi->fib_priority &&
140 memcmp(nfi->fib_metrics, fi->fib_metrics, sizeof(fi->fib_metrics)) == 0 &&
141 ((nfi->fib_flags^fi->fib_flags)&~RTNH_F_DEAD) == 0 &&
142 (nfi->fib_nhs == 0 || dn_fib_nh_comp(fi, nfi) == 0))
148 u16 dn_fib_get_attr16(struct rtattr *attr, int attrlen, int type)
150 while(RTA_OK(attr,attrlen)) {
151 if (attr->rta_type == type)
152 return *(u16*)RTA_DATA(attr);
153 attr = RTA_NEXT(attr, attrlen);
159 static int dn_fib_count_nhs(struct rtattr *rta)
162 struct rtnexthop *nhp = RTA_DATA(rta);
163 int nhlen = RTA_PAYLOAD(rta);
165 while(nhlen >= (int)sizeof(struct rtnexthop)) {
166 if ((nhlen -= nhp->rtnh_len) < 0)
169 nhp = RTNH_NEXT(nhp);
175 static int dn_fib_get_nhs(struct dn_fib_info *fi, const struct rtattr *rta, const struct rtmsg *r)
177 struct rtnexthop *nhp = RTA_DATA(rta);
178 int nhlen = RTA_PAYLOAD(rta);
180 change_nexthops(fi) {
181 int attrlen = nhlen - sizeof(struct rtnexthop);
182 if (attrlen < 0 || (nhlen -= nhp->rtnh_len) < 0)
185 nh->nh_flags = (r->rtm_flags&~0xFF) | nhp->rtnh_flags;
186 nh->nh_oif = nhp->rtnh_ifindex;
187 nh->nh_weight = nhp->rtnh_hops + 1;
190 nh->nh_gw = dn_fib_get_attr16(RTNH_DATA(nhp), attrlen, RTA_GATEWAY);
192 nhp = RTNH_NEXT(nhp);
193 } endfor_nexthops(fi);
199 static int dn_fib_check_nh(const struct rtmsg *r, struct dn_fib_info *fi, struct dn_fib_nh *nh)
205 struct dn_fib_res res;
207 memset(&fl, 0, sizeof(fl));
209 if (nh->nh_flags&RTNH_F_ONLINK) {
210 struct net_device *dev;
212 if (r->rtm_scope >= RT_SCOPE_LINK)
214 if (dnet_addr_type(nh->nh_gw) != RTN_UNICAST)
216 if ((dev = __dev_get_by_index(nh->nh_oif)) == NULL)
218 if (!(dev->flags&IFF_UP))
222 nh->nh_scope = RT_SCOPE_LINK;
226 memset(&fl, 0, sizeof(fl));
227 fl.fld_dst = nh->nh_gw;
229 fl.fld_scope = r->rtm_scope + 1;
231 if (fl.fld_scope < RT_SCOPE_LINK)
232 fl.fld_scope = RT_SCOPE_LINK;
234 if ((err = dn_fib_lookup(&fl, &res)) != 0)
238 if (res.type != RTN_UNICAST && res.type != RTN_LOCAL)
240 nh->nh_scope = res.scope;
241 nh->nh_oif = DN_FIB_RES_OIF(res);
242 nh->nh_dev = DN_FIB_RES_DEV(res);
243 if (nh->nh_dev == NULL)
245 dev_hold(nh->nh_dev);
247 if (!(nh->nh_dev->flags & IFF_UP))
251 dn_fib_res_put(&res);
254 struct net_device *dev;
256 if (nh->nh_flags&(RTNH_F_PERVASIVE|RTNH_F_ONLINK))
259 dev = __dev_get_by_index(nh->nh_oif);
260 if (dev == NULL || dev->dn_ptr == NULL)
262 if (!(dev->flags&IFF_UP))
265 dev_hold(nh->nh_dev);
266 nh->nh_scope = RT_SCOPE_HOST;
273 struct dn_fib_info *dn_fib_create_info(const struct rtmsg *r, struct dn_kern_rta *rta, const struct nlmsghdr *nlh, int *errp)
276 struct dn_fib_info *fi = NULL;
277 struct dn_fib_info *ofi;
280 if (dn_fib_props[r->rtm_type].scope > r->rtm_scope)
284 nhs = dn_fib_count_nhs(rta->rta_mp);
289 fi = kmalloc(sizeof(*fi)+nhs*sizeof(struct dn_fib_nh), GFP_KERNEL);
293 memset(fi, 0, sizeof(*fi)+nhs*sizeof(struct dn_fib_nh));
295 fi->fib_protocol = r->rtm_protocol;
297 fi->fib_flags = r->rtm_flags;
298 if (rta->rta_priority)
299 fi->fib_priority = *rta->rta_priority;
301 int attrlen = RTA_PAYLOAD(rta->rta_mx);
302 struct rtattr *attr = RTA_DATA(rta->rta_mx);
304 while(RTA_OK(attr, attrlen)) {
305 unsigned flavour = attr->rta_type;
307 if (flavour > RTAX_MAX)
309 fi->fib_metrics[flavour-1] = *(unsigned*)RTA_DATA(attr);
311 attr = RTA_NEXT(attr, attrlen);
314 if (rta->rta_prefsrc)
315 memcpy(&fi->fib_prefsrc, rta->rta_prefsrc, 2);
318 if ((err = dn_fib_get_nhs(fi, rta->rta_mp, r)) != 0)
320 if (rta->rta_oif && fi->fib_nh->nh_oif != *rta->rta_oif)
322 if (rta->rta_gw && memcmp(&fi->fib_nh->nh_gw, rta->rta_gw, 2))
325 struct dn_fib_nh *nh = fi->fib_nh;
327 nh->nh_oif = *rta->rta_oif;
329 memcpy(&nh->nh_gw, rta->rta_gw, 2);
330 nh->nh_flags = r->rtm_flags;
334 if (r->rtm_type == RTN_NAT) {
335 if (rta->rta_gw == NULL || nhs != 1 || rta->rta_oif)
337 memcpy(&fi->fib_nh->nh_gw, rta->rta_gw, 2);
341 if (dn_fib_props[r->rtm_type].error) {
342 if (rta->rta_gw || rta->rta_oif || rta->rta_mp)
347 if (r->rtm_scope > RT_SCOPE_HOST)
350 if (r->rtm_scope == RT_SCOPE_HOST) {
351 struct dn_fib_nh *nh = fi->fib_nh;
353 /* Local address is added */
354 if (nhs != 1 || nh->nh_gw)
356 nh->nh_scope = RT_SCOPE_NOWHERE;
357 nh->nh_dev = dev_get_by_index(fi->fib_nh->nh_oif);
359 if (nh->nh_dev == NULL)
362 change_nexthops(fi) {
363 if ((err = dn_fib_check_nh(r, fi, nh)) != 0)
365 } endfor_nexthops(fi)
368 if (fi->fib_prefsrc) {
369 if (r->rtm_type != RTN_LOCAL || rta->rta_dst == NULL ||
370 memcmp(&fi->fib_prefsrc, rta->rta_dst, 2))
371 if (dnet_addr_type(fi->fib_prefsrc) != RTN_LOCAL)
376 if ((ofi = dn_fib_find_info(fi)) != NULL) {
378 dn_fib_free_info(fi);
384 atomic_inc(&fi->fib_clntref);
385 write_lock(&dn_fib_info_lock);
386 fi->fib_next = dn_fib_info_list;
388 if (dn_fib_info_list)
389 dn_fib_info_list->fib_prev = fi;
390 dn_fib_info_list = fi;
392 write_unlock(&dn_fib_info_lock);
402 dn_fib_free_info(fi);
408 int dn_fib_semantic_match(int type, struct dn_fib_info *fi, const struct flowi *fl, struct dn_fib_res *res)
410 int err = dn_fib_props[type].error;
413 if (fi->fib_flags & RTNH_F_DEAD)
420 DN_FIB_RES_RESET(*res);
421 atomic_inc(&fi->fib_clntref);
426 if (nh->nh_flags & RTNH_F_DEAD)
428 if (!fl->oif || fl->oif == nh->nh_oif)
431 if (nhsel < fi->fib_nhs) {
433 atomic_inc(&fi->fib_clntref);
441 printk("DECnet: impossible routing event : dn_fib_semantic_match type=%d\n", type);
449 void dn_fib_select_multipath(const struct flowi *fl, struct dn_fib_res *res)
451 struct dn_fib_info *fi = res->fi;
454 spin_lock_bh(&dn_fib_multipath_lock);
455 if (fi->fib_power <= 0) {
457 change_nexthops(fi) {
458 if (!(nh->nh_flags&RTNH_F_DEAD)) {
459 power += nh->nh_weight;
460 nh->nh_power = nh->nh_weight;
462 } endfor_nexthops(fi);
463 fi->fib_power = power;
465 spin_unlock_bh(&dn_fib_multipath_lock);
471 w = jiffies % fi->fib_power;
473 change_nexthops(fi) {
474 if (!(nh->nh_flags&RTNH_F_DEAD) && nh->nh_power) {
475 if ((w -= nh->nh_power) <= 0) {
479 spin_unlock_bh(&dn_fib_multipath_lock);
483 } endfor_nexthops(fi);
485 spin_unlock_bh(&dn_fib_multipath_lock);
490 * Punt to user via netlink for example, but for now
493 int dn_fib_rt_message(struct sk_buff *skb)
501 static int dn_fib_check_attr(struct rtmsg *r, struct rtattr **rta)
505 for(i = 1; i <= RTA_MAX; i++) {
506 struct rtattr *attr = rta[i-1];
508 if (RTA_PAYLOAD(attr) < 4 && RTA_PAYLOAD(attr) != 2)
510 if (i != RTA_MULTIPATH && i != RTA_METRICS)
511 rta[i-1] = (struct rtattr *)RTA_DATA(attr);
518 int dn_fib_rtm_delroute(struct sk_buff *skb, struct nlmsghdr *nlh, void *arg)
520 struct dn_fib_table *tb;
521 struct rtattr **rta = arg;
522 struct rtmsg *r = NLMSG_DATA(nlh);
524 if (dn_fib_check_attr(r, rta))
527 tb = dn_fib_get_table(r->rtm_table, 0);
529 return tb->delete(tb, r, (struct dn_kern_rta *)rta, nlh, &NETLINK_CB(skb));
534 int dn_fib_rtm_newroute(struct sk_buff *skb, struct nlmsghdr *nlh, void *arg)
536 struct dn_fib_table *tb;
537 struct rtattr **rta = arg;
538 struct rtmsg *r = NLMSG_DATA(nlh);
540 if (dn_fib_check_attr(r, rta))
543 tb = dn_fib_get_table(r->rtm_table, 1);
545 return tb->insert(tb, r, (struct dn_kern_rta *)rta, nlh, &NETLINK_CB(skb));
551 int dn_fib_dump(struct sk_buff *skb, struct netlink_callback *cb)
555 struct dn_fib_table *tb;
557 if (NLMSG_PAYLOAD(cb->nlh, 0) >= sizeof(struct rtmsg) &&
558 ((struct rtmsg *)NLMSG_DATA(cb->nlh))->rtm_flags&RTM_F_CLONED)
559 return dn_cache_dump(skb, cb);
563 s_t = cb->args[0] = RT_MIN_TABLE;
565 for(t = s_t; t <= RT_TABLE_MAX; t++) {
569 memset(&cb->args[1], 0, sizeof(cb->args)-sizeof(int));
570 tb = dn_fib_get_table(t, 0);
573 if (tb->dump(tb, skb, cb) < 0)
582 static void fib_magic(int cmd, int type, __u16 dst, int dst_len, struct dn_ifaddr *ifa)
584 struct dn_fib_table *tb;
589 struct dn_kern_rta rta;
591 memset(&req.rtm, 0, sizeof(req.rtm));
592 memset(&rta, 0, sizeof(rta));
594 if (type == RTN_UNICAST)
595 tb = dn_fib_get_table(RT_MIN_TABLE, 1);
597 tb = dn_fib_get_table(RT_TABLE_LOCAL, 1);
602 req.nlh.nlmsg_len = sizeof(req);
603 req.nlh.nlmsg_type = cmd;
604 req.nlh.nlmsg_flags = NLM_F_REQUEST|NLM_F_CREATE|NLM_F_APPEND;
605 req.nlh.nlmsg_pid = 0;
606 req.nlh.nlmsg_seq = 0;
608 req.rtm.rtm_dst_len = dst_len;
609 req.rtm.rtm_table = tb->n;
610 req.rtm.rtm_protocol = RTPROT_KERNEL;
611 req.rtm.rtm_scope = (type != RTN_LOCAL ? RT_SCOPE_LINK : RT_SCOPE_HOST);
612 req.rtm.rtm_type = type;
615 rta.rta_prefsrc = &ifa->ifa_local;
616 rta.rta_oif = &ifa->ifa_dev->dev->ifindex;
618 if (cmd == RTM_NEWROUTE)
619 tb->insert(tb, &req.rtm, &rta, &req.nlh, NULL);
621 tb->delete(tb, &req.rtm, &rta, &req.nlh, NULL);
624 static void dn_fib_add_ifaddr(struct dn_ifaddr *ifa)
627 fib_magic(RTM_NEWROUTE, RTN_LOCAL, ifa->ifa_local, 16, ifa);
630 if (!(dev->flags&IFF_UP))
632 /* In the future, we will want to add default routes here */
637 static void dn_fib_del_ifaddr(struct dn_ifaddr *ifa)
640 struct net_device *dev;
641 struct dn_dev *dn_db;
642 struct dn_ifaddr *ifa2;
646 /* Scan device list */
647 read_lock(&dev_base_lock);
648 for(dev = dev_base; dev; dev = dev->next) {
652 for(ifa2 = dn_db->ifa_list; ifa2; ifa2 = ifa2->ifa_next) {
653 if (ifa2->ifa_local == ifa->ifa_local) {
659 read_unlock(&dev_base_lock);
662 fib_magic(RTM_DELROUTE, RTN_LOCAL, ifa->ifa_local, 16, ifa);
664 if (dnet_addr_type(ifa->ifa_local) != RTN_LOCAL) {
665 if (dn_fib_sync_down(ifa->ifa_local, NULL, 0))
671 static void dn_fib_disable_addr(struct net_device *dev, int force)
673 if (dn_fib_sync_down(0, dev, force))
675 dn_rt_cache_flush(0);
676 neigh_ifdown(&dn_neigh_table, dev);
679 static int dn_fib_dnaddr_event(struct notifier_block *this, unsigned long event, void *ptr)
681 struct dn_ifaddr *ifa = (struct dn_ifaddr *)ptr;
685 dn_fib_add_ifaddr(ifa);
686 dn_fib_sync_up(ifa->ifa_dev->dev);
687 dn_rt_cache_flush(-1);
690 dn_fib_del_ifaddr(ifa);
691 if (ifa->ifa_dev && ifa->ifa_dev->ifa_list == NULL) {
692 dn_fib_disable_addr(ifa->ifa_dev->dev, 1);
694 dn_rt_cache_flush(-1);
701 int dn_fib_sync_down(dn_address local, struct net_device *dev, int force)
704 int scope = RT_SCOPE_NOWHERE;
711 * This makes no sense for DECnet.... we will almost
712 * certainly have more than one local address the same
713 * over all our interfaces. It needs thinking about
716 if (local && fi->fib_prefsrc == local) {
717 fi->fib_flags |= RTNH_F_DEAD;
719 } else if (dev && fi->fib_nhs) {
722 change_nexthops(fi) {
723 if (nh->nh_flags&RTNH_F_DEAD)
725 else if (nh->nh_dev == dev &&
726 nh->nh_scope != scope) {
727 spin_lock_bh(&dn_fib_multipath_lock);
728 nh->nh_flags |= RTNH_F_DEAD;
729 fi->fib_power -= nh->nh_power;
731 spin_unlock_bh(&dn_fib_multipath_lock);
734 } endfor_nexthops(fi)
735 if (dead == fi->fib_nhs) {
736 fi->fib_flags |= RTNH_F_DEAD;
745 int dn_fib_sync_up(struct net_device *dev)
749 if (!(dev->flags&IFF_UP))
755 change_nexthops(fi) {
756 if (!(nh->nh_flags&RTNH_F_DEAD)) {
760 if (nh->nh_dev == NULL || !(nh->nh_dev->flags&IFF_UP))
762 if (nh->nh_dev != dev || dev->dn_ptr == NULL)
765 spin_lock_bh(&dn_fib_multipath_lock);
767 nh->nh_flags &= ~RTNH_F_DEAD;
768 spin_unlock_bh(&dn_fib_multipath_lock);
769 } endfor_nexthops(fi);
772 fi->fib_flags &= ~RTNH_F_DEAD;
779 void dn_fib_flush(void)
782 struct dn_fib_table *tb;
785 for(id = RT_TABLE_MAX; id > 0; id--) {
786 if ((tb = dn_fib_get_table(id, 0)) == NULL)
788 flushed += tb->flush(tb);
792 dn_rt_cache_flush(-1);
795 static struct notifier_block dn_fib_dnaddr_notifier = {
796 .notifier_call = dn_fib_dnaddr_event,
799 void __exit dn_fib_cleanup(void)
801 dn_fib_table_cleanup();
802 dn_fib_rules_cleanup();
804 unregister_dnaddr_notifier(&dn_fib_dnaddr_notifier);
808 void __init dn_fib_init(void)
814 register_dnaddr_notifier(&dn_fib_dnaddr_notifier);