/*      $NetBSD: v7fs_inode.c,v 1.3 2024/09/25 20:10:36 andvar Exp $    */

/*-
 * Copyright (c) 2011 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by UCHIYAMA Yasushi.
 *
 * 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
 */

#if HAVE_NBTOOL_CONFIG_H
#include "nbtool_config.h"
#endif

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: v7fs_inode.c,v 1.3 2024/09/25 20:10:36 andvar Exp $");
#if defined _KERNEL_OPT
#include "opt_v7fs.h"
#endif

#ifdef _KERNEL
#include <sys/systm.h>
#include <sys/param.h>
#else
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <time.h>
#endif

#include "v7fs.h"
#include "v7fs_impl.h"
#include "v7fs_endian.h"
#include "v7fs_inode.h"
#include "v7fs_superblock.h"

#ifdef V7FS_INODE_DEBUG
#define DPRINTF(fmt, args...)   printf("%s: " fmt, __func__, ##args)
#else
#define DPRINTF(fmt, args...)   ((void)0)
#endif

static void v7fs_inode_setup_disk_image(const struct v7fs_self *,
    struct v7fs_inode *, struct v7fs_inode_diskimage *);
static int v7fs_inode_inquire_disk_location(const struct v7fs_self *,
    v7fs_ino_t, v7fs_daddr_t *, v7fs_daddr_t *);
#ifdef V7FS_INODE_DEBUG
static int v7fs_inode_block_sanity(const struct v7fs_superblock *,
    v7fs_daddr_t);

static int
v7fs_inode_block_sanity(const struct v7fs_superblock *sb, v7fs_daddr_t blk)
{

        if ((blk < V7FS_ILIST_SECTOR) || (blk >= sb->datablock_start_sector)) {
                DPRINTF("invalid inode block#%d (%d-%d)\n", blk,
                    V7FS_ILIST_SECTOR, sb->datablock_start_sector);
                return ENOSPC;
        }

        return 0;
}
#endif /* V7FS_INODE_DEBUG */

int
v7fs_inode_number_sanity(const struct v7fs_superblock *sb, v7fs_ino_t ino)
{

        if (ino < V7FS_ROOT_INODE || ((size_t)ino >= V7FS_MAX_INODE(sb))) {
                DPRINTF("invalid inode#%d (%d-%zu)\n", ino,
                    V7FS_ROOT_INODE, V7FS_MAX_INODE(sb));
                return ENOSPC;
        }

        return 0;
}

int
v7fs_inode_allocate(struct v7fs_self *fs, v7fs_ino_t *ino)
{
        struct v7fs_superblock *sb = &fs->superblock;
        v7fs_ino_t inode_number;
        int error = ENOSPC;
        *ino = 0;

        SUPERB_LOCK(fs);
        if (sb->total_freeinode == 0) {
                DPRINTF("inode exhausted!(1)\n");
                goto errexit;
        }

        /* If there is no free inode cache, update it. */
        if (sb->nfreeinode <= 0 && (error = v7fs_freeinode_update(fs))) {
                DPRINTF("inode exhausted!(2)\n");
                goto errexit;
        }
        /* Get inode from superblock cache. */
        KDASSERT(sb->nfreeinode <= V7FS_MAX_FREEINODE);
        inode_number = sb->freeinode[--sb->nfreeinode];
        sb->total_freeinode--;
        sb->modified = 1;

        if ((error = v7fs_inode_number_sanity(sb, inode_number))) {
                DPRINTF("new inode#%d %d %d\n", inode_number, sb->nfreeinode,
                    sb->total_freeinode);
                DPRINTF("free inode list corrupt\n");
                goto errexit;
        }
        *ino = inode_number;

errexit:
        SUPERB_UNLOCK(fs);

        return error;
}

void
v7fs_inode_deallocate(struct v7fs_self *fs, v7fs_ino_t ino)
{
        struct v7fs_superblock *sb = &fs->superblock;
        struct v7fs_inode inode;

        memset(&inode, 0, sizeof(inode));
        inode.inode_number = ino;
        v7fs_inode_writeback(fs, &inode);

        SUPERB_LOCK(fs);
        if (sb->nfreeinode < V7FS_MAX_FREEINODE) {
                /* link to freeinode list. */
                sb->freeinode[sb->nfreeinode++] = ino;
        }
        /* If superblock inode cache is full, this inode charged by
           v7fs_freeinode_update() later. */
        sb->total_freeinode++;
        sb->modified = true;
        SUPERB_UNLOCK(fs);
}

void
v7fs_inode_setup_memory_image(const struct v7fs_self *fs __unused,
    struct v7fs_inode *mem, struct v7fs_inode_diskimage *disk)
{
#define conv16(m)       (mem->m = V7FS_VAL16(fs, (disk->m)))
#define conv32(m)       (mem->m = V7FS_VAL32(fs, (disk->m)))
        uint32_t addr;
        int i;

        memset(mem, 0, sizeof(*mem));
        conv16(mode);
        conv16(nlink);
        conv16(uid);
        conv16(gid);
        conv32(filesize);
        conv32(atime);
        conv32(mtime);
        conv32(ctime);

        for (i = 0; i < V7FS_NADDR; i++) {
                int j = i * 3; /* 3 byte each. (v7fs_daddr is 24bit) */
                /* expand to 4byte with endian conversion. */
                addr = V7FS_VAL24_READ(fs, &disk->addr[j]);
                mem->addr[i] = addr;
        }
        mem->device = 0;
        if (v7fs_inode_iscdev(mem) || v7fs_inode_isbdev(mem)) {
                mem->device = mem->addr[0];
        }

#undef conv16
#undef conv32
}

static void
v7fs_inode_setup_disk_image(const struct v7fs_self *fs __unused,
    struct v7fs_inode *mem, struct v7fs_inode_diskimage *disk)
{
#define conv16(m)       (disk->m = V7FS_VAL16(fs, (mem->m)))
#define conv32(m)       (disk->m = V7FS_VAL32(fs, (mem->m)))

        conv16(mode);
        conv16(nlink);
        conv16(uid);
        conv16(gid);
        conv32(filesize);
        conv32(atime);
        conv32(mtime);
        conv32(ctime);

        int i;
        for (i = 0; i < V7FS_NADDR; i++) {
                int j = i * 3; /* 3 byte each. */
                V7FS_VAL24_WRITE(fs, mem->addr[i], disk->addr + j);
        }
#undef conv16
#undef conv32
}

/* Load inode from disk. */
int
v7fs_inode_load(struct v7fs_self *fs, struct v7fs_inode *p, v7fs_ino_t n)
{
        v7fs_daddr_t blk, ofs;
        struct v7fs_inode_diskimage *di;
        void *buf;

        if (v7fs_inode_inquire_disk_location(fs, n, &blk, &ofs) != 0)
                return ENOENT;

        ILIST_LOCK(fs);
        if (!(buf = scratch_read(fs, blk))) {
                ILIST_UNLOCK(fs);
                return EIO;
        }
        ILIST_UNLOCK(fs);
        di = (struct v7fs_inode_diskimage *)buf;

        /* Decode disk address, convert endian. */
        v7fs_inode_setup_memory_image(fs, p, di + ofs);
        p->inode_number = n;

        scratch_free(fs, buf);

        return 0;
}

/* Write back inode to disk. */
int
v7fs_inode_writeback(struct v7fs_self *fs, struct v7fs_inode *mem)
{
        struct v7fs_inode_diskimage disk;
        v7fs_ino_t ino = mem->inode_number;
        v7fs_daddr_t blk;
        v7fs_daddr_t ofs;
        void *buf;
        int error = 0;

        if (v7fs_inode_inquire_disk_location(fs, ino, &blk, &ofs) != 0)
                return ENOENT;

        v7fs_inode_setup_disk_image(fs, mem, &disk);

        ILIST_LOCK(fs);
        if (!(buf = scratch_read(fs, blk))) {
                ILIST_UNLOCK(fs);
                return EIO;
        }
        struct v7fs_inode_diskimage *di = (struct v7fs_inode_diskimage *)buf;
        di[ofs] = disk; /* structure copy; */
        if (!fs->io.write(fs->io.cookie, buf, blk))
                error = EIO;
        ILIST_UNLOCK(fs);

        scratch_free(fs, buf);

        return error;
}

static int
v7fs_inode_inquire_disk_location(const struct v7fs_self *fs
    __unused, v7fs_ino_t n, v7fs_daddr_t *block,
    v7fs_daddr_t *offset)
{
        v7fs_daddr_t ofs, blk;
#ifdef V7FS_INODE_DEBUG
        v7fs_inode_number_sanity(&fs->superblock, n);
#endif
        ofs = (n - 1/*inode start from 1*/) *
            sizeof(struct v7fs_inode_diskimage);
        blk = ofs >> V7FS_BSHIFT;

        *block = blk + V7FS_ILIST_SECTOR;
        *offset = (ofs - blk * V7FS_BSIZE) /
            sizeof(struct v7fs_inode_diskimage);
#ifdef V7FS_INODE_DEBUG
        return v7fs_inode_block_sanity(&fs->superblock, *block);
#else
        return 0;
#endif
}