/*
 *      X.25 Packet Layer release 002
 *
 *      This is ALPHA test software. This code may break your machine,
 *      randomly fail to work with new releases, misbehave and/or generally
 *      screw up. It might even work.
 *
 *      This code REQUIRES 2.1.15 or higher
 *
 *      This module:
 *              This module is free software; you can redistribute it and/or
 *              modify it under the terms of the GNU General Public License
 *              as published by the Free Software Foundation; either version
 *              2 of the License, or (at your option) any later version.
 *
 *      History
 *      X.25 001        Jonathan Naylor Started coding.
 */

#include <linux/if_arp.h>
#include <linux/init.h>
#include <linux/slab.h>
#include <net/x25.h>

LIST_HEAD(x25_route_list);
DEFINE_RWLOCK(x25_route_list_lock);

/*
 *      Add a new route.
 */
static int x25_add_route(struct x25_address *address, unsigned int sigdigits,
                         struct net_device *dev)
{
        struct x25_route *rt;
        struct list_head *entry;
        int rc = -EINVAL;

        write_lock_bh(&x25_route_list_lock);

        list_for_each(entry, &x25_route_list) {
                rt = list_entry(entry, struct x25_route, node);

                if (!memcmp(&rt->address, address, sigdigits) &&
                    rt->sigdigits == sigdigits)
                        goto out;
        }

        rt = kmalloc(sizeof(*rt), GFP_ATOMIC);
        rc = -ENOMEM;
        if (!rt)
                goto out;

        strcpy(rt->address.x25_addr, "000000000000000");
        memcpy(rt->address.x25_addr, address->x25_addr, sigdigits);

        rt->sigdigits = sigdigits;
        rt->dev       = dev;
        atomic_set(&rt->refcnt, 1);

        list_add(&rt->node, &x25_route_list);
        rc = 0;
out:
        write_unlock_bh(&x25_route_list_lock);
        return rc;
}

/**
 * __x25_remove_route - remove route from x25_route_list
 * @rt: route to remove
 *
 * Remove route from x25_route_list. If it was there.
 * Caller must hold x25_route_list_lock.
 */
static void __x25_remove_route(struct x25_route *rt)
{
        if (rt->node.next) {
                list_del(&rt->node);
                x25_route_put(rt);
        }
}

static int x25_del_route(struct x25_address *address, unsigned int sigdigits,
                         struct net_device *dev)
{
        struct x25_route *rt;
        struct list_head *entry;
        int rc = -EINVAL;

        write_lock_bh(&x25_route_list_lock);

        list_for_each(entry, &x25_route_list) {
                rt = list_entry(entry, struct x25_route, node);

                if (!memcmp(&rt->address, address, sigdigits) &&
                    rt->sigdigits == sigdigits && rt->dev == dev) {
                        __x25_remove_route(rt);
                        rc = 0;
                        break;
                }
        }

        write_unlock_bh(&x25_route_list_lock);
        return rc;
}

/*
 *      A device has been removed, remove its routes.
 */
void x25_route_device_down(struct net_device *dev)
{
        struct x25_route *rt;
        struct list_head *entry, *tmp;

        write_lock_bh(&x25_route_list_lock);

        list_for_each_safe(entry, tmp, &x25_route_list) {
                rt = list_entry(entry, struct x25_route, node);

                if (rt->dev == dev)
                        __x25_remove_route(rt);
        }
        write_unlock_bh(&x25_route_list_lock);

        /* Remove any related forwarding */
        x25_clear_forward_by_dev(dev);
}

/*
 *      Check that the device given is a valid X.25 interface that is "up".
 */
struct net_device *x25_dev_get(char *devname)
{
        struct net_device *dev = dev_get_by_name(&init_net, devname);

        if (dev &&
            (!(dev->flags & IFF_UP) || (dev->type != ARPHRD_X25
#if IS_ENABLED(CONFIG_LLC)
                                        && dev->type != ARPHRD_ETHER
#endif
                                        ))){
                dev_put(dev);
                dev = NULL;
        }

        return dev;
}

/**
 *      x25_get_route - Find a route given an X.25 address.
 *      @addr - address to find a route for
 *
 *      Find a route given an X.25 address.
 */
struct x25_route *x25_get_route(struct x25_address *addr)
{
        struct x25_route *rt, *use = NULL;
        struct list_head *entry;

        read_lock_bh(&x25_route_list_lock);

        list_for_each(entry, &x25_route_list) {
                rt = list_entry(entry, struct x25_route, node);

                if (!memcmp(&rt->address, addr, rt->sigdigits)) {
                        if (!use)
                                use = rt;
                        else if (rt->sigdigits > use->sigdigits)
                                use = rt;
                }
        }

        if (use)
                x25_route_hold(use);

        read_unlock_bh(&x25_route_list_lock);
        return use;
}

/*
 *      Handle the ioctls that control the routing functions.
 */
int x25_route_ioctl(unsigned int cmd, void __user *arg)
{
        struct x25_route_struct rt;
        struct net_device *dev;
        int rc = -EINVAL;

        if (cmd != SIOCADDRT && cmd != SIOCDELRT)
                goto out;

        rc = -EFAULT;
        if (copy_from_user(&rt, arg, sizeof(rt)))
                goto out;

        rc = -EINVAL;
        if (rt.sigdigits > 15)
                goto out;

        dev = x25_dev_get(rt.device);
        if (!dev)
                goto out;

        if (cmd == SIOCADDRT)
                rc = x25_add_route(&rt.address, rt.sigdigits, dev);
        else
                rc = x25_del_route(&rt.address, rt.sigdigits, dev);
        dev_put(dev);
out:
        return rc;
}

/*
 *      Release all memory associated with X.25 routing structures.
 */
void __exit x25_route_free(void)
{
        struct x25_route *rt;
        struct list_head *entry, *tmp;

        write_lock_bh(&x25_route_list_lock);
        list_for_each_safe(entry, tmp, &x25_route_list) {
                rt = list_entry(entry, struct x25_route, node);
                __x25_remove_route(rt);
        }
        write_unlock_bh(&x25_route_list_lock);
}