// SPDX-License-Identifier: GPL-2.0-only
/*
 * Copyright (c) 2000-2001 Christoph Hellwig.
 */

/*
 * Veritas filesystem driver - filesystem to disk block mapping.
 */
#include <linux/fs.h>
#include <linux/buffer_head.h>
#include <linux/kernel.h>

#include "vxfs.h"
#include "vxfs_inode.h"
#include "vxfs_extern.h"


#ifdef DIAGNOSTIC
static void
vxfs_typdump(struct vxfs_typed *typ)
{
        printk(KERN_DEBUG "type=%Lu ", typ->vt_hdr >> VXFS_TYPED_TYPESHIFT);
        printk("offset=%Lx ", typ->vt_hdr & VXFS_TYPED_OFFSETMASK);
        printk("block=%x ", typ->vt_block);
        printk("size=%x\n", typ->vt_size);
}
#endif

/**
 * vxfs_bmap_ext4 - do bmap for ext4 extents
 * @ip:         pointer to the inode we do bmap for
 * @bn:         logical block.
 *
 * Description:
 *   vxfs_bmap_ext4 performs the bmap operation for inodes with
 *   ext4-style extents (which are much like the traditional UNIX
 *   inode organisation).
 *
 * Returns:
 *   The physical block number on success, else Zero.
 */
static daddr_t
vxfs_bmap_ext4(struct inode *ip, long bn)
{
        struct super_block *sb = ip->i_sb;
        struct vxfs_inode_info *vip = VXFS_INO(ip);
        struct vxfs_sb_info *sbi = VXFS_SBI(sb);
        unsigned long bsize = sb->s_blocksize;
        u32 indsize = fs32_to_cpu(sbi, vip->vii_ext4.ve4_indsize);
        int i;

        if (indsize > sb->s_blocksize)
                goto fail_size;

        for (i = 0; i < VXFS_NDADDR; i++) {
                struct direct *d = vip->vii_ext4.ve4_direct + i;
                if (bn >= 0 && bn < fs32_to_cpu(sbi, d->size))
                        return (bn + fs32_to_cpu(sbi, d->extent));
                bn -= fs32_to_cpu(sbi, d->size);
        }

        if ((bn / (indsize * indsize * bsize / 4)) == 0) {
                struct buffer_head *buf;
                daddr_t bno;
                __fs32 *indir;

                buf = sb_bread(sb,
                        fs32_to_cpu(sbi, vip->vii_ext4.ve4_indir[0]));
                if (!buf || !buffer_mapped(buf))
                        goto fail_buf;

                indir = (__fs32 *)buf->b_data;
                bno = fs32_to_cpu(sbi, indir[(bn / indsize) % (indsize * bn)]) +
                        (bn % indsize);

                brelse(buf);
                return bno;
        } else
                printk(KERN_WARNING "no matching indir?");

        return 0;

fail_size:
        printk("vxfs: indirect extent too big!\n");
fail_buf:
        return 0;
}

/**
 * vxfs_bmap_indir - recursion for vxfs_bmap_typed
 * @ip:         pointer to the inode we do bmap for
 * @indir:      indirect block we start reading at
 * @size:       size of the typed area to search
 * @block:      partially result from further searches
 *
 * Description:
 *   vxfs_bmap_indir reads a &struct vxfs_typed at @indir
 *   and performs the type-defined action.
 *
 * Returns:
 *   The physical block number on success, else Zero.
 *
 * Note:
 *   Kernelstack is rare.  Unrecurse?
 */
static daddr_t
vxfs_bmap_indir(struct inode *ip, long indir, int size, long block)
{
        struct vxfs_sb_info             *sbi = VXFS_SBI(ip->i_sb);
        struct buffer_head              *bp = NULL;
        daddr_t                         pblock = 0;
        int                             i;

        for (i = 0; i < size * VXFS_TYPED_PER_BLOCK(ip->i_sb); i++) {
                struct vxfs_typed       *typ;
                int64_t                 off;

                bp = sb_bread(ip->i_sb,
                                indir + (i / VXFS_TYPED_PER_BLOCK(ip->i_sb)));
                if (!bp || !buffer_mapped(bp))
                        return 0;

                typ = ((struct vxfs_typed *)bp->b_data) +
                        (i % VXFS_TYPED_PER_BLOCK(ip->i_sb));
                off = fs64_to_cpu(sbi, typ->vt_hdr) & VXFS_TYPED_OFFSETMASK;

                if (block < off) {
                        brelse(bp);
                        continue;
                }

                switch ((u_int32_t)(fs64_to_cpu(sbi, typ->vt_hdr) >>
                                VXFS_TYPED_TYPESHIFT)) {
                case VXFS_TYPED_INDIRECT:
                        pblock = vxfs_bmap_indir(ip,
                                        fs32_to_cpu(sbi, typ->vt_block),
                                        fs32_to_cpu(sbi, typ->vt_size),
                                        block - off);
                        if (pblock == -2)
                                break;
                        goto out;
                case VXFS_TYPED_DATA:
                        if ((block - off) >= fs32_to_cpu(sbi, typ->vt_size))
                                break;
                        pblock = fs32_to_cpu(sbi, typ->vt_block) + block - off;
                        goto out;
                case VXFS_TYPED_INDIRECT_DEV4:
                case VXFS_TYPED_DATA_DEV4: {
                        struct vxfs_typed_dev4  *typ4 =
                                (struct vxfs_typed_dev4 *)typ;

                        printk(KERN_INFO "\n\nTYPED_DEV4 detected!\n");
                        printk(KERN_INFO "block: %llu\tsize: %lld\tdev: %d\n",
                               fs64_to_cpu(sbi, typ4->vd4_block),
                               fs64_to_cpu(sbi, typ4->vd4_size),
                               fs32_to_cpu(sbi, typ4->vd4_dev));
                        goto fail;
                }
                default:
                        printk(KERN_ERR "%s:%d vt_hdr %llu\n", __func__,
                                __LINE__, fs64_to_cpu(sbi, typ->vt_hdr));
                        BUG();
                }
                brelse(bp);
        }

fail:
        pblock = 0;
out:
        brelse(bp);
        return (pblock);
}

/**
 * vxfs_bmap_typed - bmap for typed extents
 * @ip:         pointer to the inode we do bmap for
 * @iblock:     logical block
 *
 * Description:
 *   Performs the bmap operation for typed extents.
 *
 * Returns:
 *   The physical block number on success, else Zero.
 */
static daddr_t
vxfs_bmap_typed(struct inode *ip, long iblock)
{
        struct vxfs_inode_info          *vip = VXFS_INO(ip);
        struct vxfs_sb_info             *sbi = VXFS_SBI(ip->i_sb);
        daddr_t                         pblock = 0;
        int                             i;

        for (i = 0; i < VXFS_NTYPED; i++) {
                struct vxfs_typed       *typ = vip->vii_org.typed + i;
                u64                     hdr = fs64_to_cpu(sbi, typ->vt_hdr);
                int64_t                 off = (hdr & VXFS_TYPED_OFFSETMASK);

#ifdef DIAGNOSTIC
                vxfs_typdump(typ);
#endif
                if (iblock < off)
                        continue;
                switch ((u32)(hdr >> VXFS_TYPED_TYPESHIFT)) {
                case VXFS_TYPED_INDIRECT:
                        pblock = vxfs_bmap_indir(ip,
                                        fs32_to_cpu(sbi, typ->vt_block),
                                        fs32_to_cpu(sbi, typ->vt_size),
                                        iblock - off);
                        if (pblock == -2)
                                break;
                        return (pblock);
                case VXFS_TYPED_DATA:
                        if ((iblock - off) < fs32_to_cpu(sbi, typ->vt_size))
                                return (fs32_to_cpu(sbi, typ->vt_block) +
                                                iblock - off);
                        break;
                case VXFS_TYPED_INDIRECT_DEV4:
                case VXFS_TYPED_DATA_DEV4: {
                        struct vxfs_typed_dev4  *typ4 =
                                (struct vxfs_typed_dev4 *)typ;

                        printk(KERN_INFO "\n\nTYPED_DEV4 detected!\n");
                        printk(KERN_INFO "block: %llu\tsize: %lld\tdev: %d\n",
                               fs64_to_cpu(sbi, typ4->vd4_block),
                               fs64_to_cpu(sbi, typ4->vd4_size),
                               fs32_to_cpu(sbi, typ4->vd4_dev));
                        return 0;
                }
                default:
                        BUG();
                }
        }

        return 0;
}

/**
 * vxfs_bmap1 - vxfs-internal bmap operation
 * @ip:                 pointer to the inode we do bmap for
 * @iblock:             logical block
 *
 * Description:
 *   vxfs_bmap1 perfoms a logical to physical block mapping
 *   for vxfs-internal purposes.
 *
 * Returns:
 *   The physical block number on success, else Zero.
 */
daddr_t
vxfs_bmap1(struct inode *ip, long iblock)
{
        struct vxfs_inode_info          *vip = VXFS_INO(ip);

        if (VXFS_ISEXT4(vip))
                return vxfs_bmap_ext4(ip, iblock);
        if (VXFS_ISTYPED(vip))
                return vxfs_bmap_typed(ip, iblock);
        if (VXFS_ISNONE(vip))
                goto unsupp;
        if (VXFS_ISIMMED(vip))
                goto unsupp;

        printk(KERN_WARNING "vxfs: inode %ld has no valid orgtype (%x)\n",
                        ip->i_ino, vip->vii_orgtype);
        BUG();

unsupp:
        printk(KERN_WARNING "vxfs: inode %ld has an unsupported orgtype (%x)\n",
                        ip->i_ino, vip->vii_orgtype);
        return 0;
}