/*-
 * Copyright (c) 2011 The FreeBSD Foundation
 * Copyright (c) 2014-2020 François Tigeot <ftigeot@wolfpond.org>
 * All rights reserved.
 *
 * Portions of this software were developed by Konstantin Belousov
 * under sponsorship from the FreeBSD Foundation.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 */

#include <vm/vm.h>
#include <vm/vm_page.h>
#include <vm/vm_page2.h>
#include <vm/vm_pager.h>
#include <vm/vm_extern.h>

#include <linux/err.h>
#include <linux/shmem_fs.h>

/*
 * This code is typically called with a normal VM object to access
 * data from a userspace shared memory mapping.  However, handle the
 * case where it might be called with OBJT_MGTDEVICE anyway.
 */
struct page *
shmem_read_mapping_page(vm_object_t object, vm_pindex_t pindex)
{
        vm_page_t m;
        int rv;

        VM_OBJECT_LOCK(object);
        if (object->type == OBJT_MGTDEVICE) {
                m = NULL;
                rv = vm_pager_get_page(object, pindex, &m, 1);
                if (m == NULL)
                        return ERR_PTR(-ENOMEM);
                if (rv != VM_PAGER_OK) {
                        vm_page_free(m);
                        return ERR_PTR(-ENOMEM);
                }
        } else {
                m = vm_page_grab(object, pindex,
                                 VM_ALLOC_NORMAL | VM_ALLOC_RETRY);
                if (m->valid != VM_PAGE_BITS_ALL) {
                        if (vm_pager_has_page(object, pindex)) {
                                rv = vm_pager_get_page(object, pindex, &m, 1);
                                m = vm_page_lookup(object, pindex);
                                if (m == NULL)
                                        return ERR_PTR(-ENOMEM);
                                if (rv != VM_PAGER_OK) {
                                        vm_page_free(m);
                                        return ERR_PTR(-ENOMEM);
                                }
                        } else {
                                pmap_zero_page(VM_PAGE_TO_PHYS(m));
                                m->valid = VM_PAGE_BITS_ALL;
                                m->dirty = 0;
                        }
                }
        }
        vm_page_wire(m);                /* put_page() undoes this */
        vm_page_wakeup(m);
        VM_OBJECT_UNLOCK(object);

        return (struct page *)m;
}

struct page *
shmem_read_mapping_page_gfp(struct vm_object *mapping,
    pgoff_t index, gfp_t gfp_mask)
{
        return shmem_read_mapping_page(mapping, index);
}

#include <linux/fs.h>

int
pagecache_write_begin(struct vm_object *obj, struct address_space *mapping,
    loff_t pos, unsigned len, unsigned flags, struct page **pagep, void **fsdata)
{
        *pagep = shmem_read_mapping_page(obj, OFF_TO_IDX(pos));

        return 0;
}

/* This is really shmem_write_end() for the i915 gem code */
int
pagecache_write_end(struct vm_object *obj, struct address_space *mapping,
    loff_t pos, unsigned len, unsigned copied, struct page *page, void *fsdata)
{
        set_page_dirty(page);
        put_page(page);

        return copied;
}

/*
 * userptr support
 */
long
get_user_pages(unsigned long start, unsigned long nr_pages,
               unsigned int gup_flags, struct page **pages,
               struct vm_area_struct **vmas)
{
        thread_t td;
        vm_page_t m;
        vm_map_t map;
        long i;
        int error;
        int busied;
        int fault_type = VM_PROT_READ;

        /* returning related vmas not yet supported */
        td = curthread;
        KKASSERT(vmas == NULL);
        KKASSERT(td->td_proc == NULL);
        map = &td->td_proc->p_vmspace->vm_map;

        if (gup_flags)
                fault_type |= VM_PROT_WRITE;

        error = 0;
        for (i = 0; i < nr_pages; ++i) {
                m = vm_fault_page(map, start + i * PAGE_SIZE,
                                  fault_type, VM_FAULT_NORMAL,
                                  &error, &busied);
                if (error)
                        break;
                if (busied) {
                        vm_page_wire(m);
                } else {
                        vm_page_busy_wait(m, TRUE, "drmgup");
                        vm_page_wire(m);
                        vm_page_unhold(m);
                }
                vm_page_wakeup(m);
                pages[i] = (void *)m;
        }
        if (error) {
                while (--i >= 0) {
                        put_page(pages[i]);
                        pages[i] = NULL;
                }
                i = -error;
        }
        return i;
}

void
release_pages(struct page **pages, unsigned long nr_pages)
{
        while (nr_pages > 0) {
                --nr_pages;
                put_page(pages[nr_pages]);
                pages[nr_pages] = NULL;
        }
}