// SPDX-License-Identifier: GPL-2.0

/*
 * Copyright (c) 2002, 2010, Oracle and/or its affiliates. All rights reserved.
 * Use is subject to license terms.
 *
 * Copyright (c) 2012, 2017, Intel Corporation.
 */

/*
 * This file is part of Lustre, http://www.lustre.org/
 */

#define DEBUG_SUBSYSTEM S_CLASS

#include <linux/version.h>
#include <asm/statfs.h>
#include <lprocfs_status.h>
#include <obd_class.h>
#include <uapi/linux/lustre/lustre_param.h>
#include "lov_internal.h"

static ssize_t stripesize_show(struct kobject *kobj, struct attribute *attr,
			       char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return scnprintf(buf, PAGE_SIZE, "%llu\n", desc->ld_default_stripe_size);
}

static ssize_t stripesize_store(struct kobject *kobj, struct attribute *attr,
				const char *buf, size_t count)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;
	u64 val;
	int rc;

	rc = sysfs_memparse(buf, count, &val, "B");
	if (rc < 0)
		return rc;

	lov_fix_desc_stripe_size(&val);
	desc->ld_default_stripe_size = val;

	return count;
}
LUSTRE_RW_ATTR(stripesize);

static ssize_t stripeoffset_show(struct kobject *kobj, struct attribute *attr,
				 char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return sprintf(buf, "%lld\n", desc->ld_default_stripe_offset);
}

static ssize_t stripeoffset_store(struct kobject *kobj, struct attribute *attr,
				  const char *buf, size_t count)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;
	long val;
	int rc;

	rc = kstrtol(buf, 0, &val);
	if (rc)
		return rc;
	if (val < -1 || val > LOV_MAX_STRIPE_COUNT)
		return -ERANGE;

	desc->ld_default_stripe_offset = val;

	return count;
}
LUSTRE_RW_ATTR(stripeoffset);

static ssize_t stripetype_show(struct kobject *kobj, struct attribute *attr,
			       char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return sprintf(buf, "%u\n", desc->ld_pattern);
}

static ssize_t stripetype_store(struct kobject *kobj, struct attribute *attr,
				const char *buffer, size_t count)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;
	u32 pattern;
	int rc;

	rc = kstrtouint(buffer, 0, &pattern);
	if (rc)
		return rc;

	lov_fix_desc_pattern(&pattern);
	desc->ld_pattern = pattern;

	return count;
}
LUSTRE_RW_ATTR(stripetype);

static ssize_t stripecount_show(struct kobject *kobj, struct attribute *attr,
				char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return sprintf(buf, "%d\n",
		       (__s16)(desc->ld_default_stripe_count + 1) - 1);
}

static ssize_t stripecount_store(struct kobject *kobj, struct attribute *attr,
				 const char *buffer, size_t count)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;
	int stripe_count;
	int rc;

	rc = kstrtoint(buffer, 0, &stripe_count);
	if (rc)
		return rc;

	if (stripe_count < -1)
		return -ERANGE;

	lov_fix_desc_stripe_count(&stripe_count);
	desc->ld_default_stripe_count = stripe_count;

	return count;
}
LUSTRE_RW_ATTR(stripecount);

static ssize_t numobd_show(struct kobject *kobj, struct attribute *attr,
			   char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return sprintf(buf, "%u\n", desc->ld_tgt_count);
}
LUSTRE_RO_ATTR(numobd);

static ssize_t activeobd_show(struct kobject *kobj, struct attribute *attr,
			      char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return sprintf(buf, "%u\n", desc->ld_active_tgt_count);
}
LUSTRE_RO_ATTR(activeobd);

static ssize_t desc_uuid_show(struct kobject *kobj, struct attribute *attr,
			      char *buf)
{
	struct obd_device *obd = container_of(kobj, struct obd_device,
					      obd_kset.kobj);
	struct lov_desc *desc = &obd->u.lov.lov_ost_descs.ltd_lov_desc;

	return sprintf(buf, "%s\n", desc->ld_uuid.uuid);
}
LUSTRE_RO_ATTR(desc_uuid);

#ifdef CONFIG_PROC_FS
static void *lov_tgt_seq_start(struct seq_file *p, loff_t *pos)
{
	struct obd_device *obd = p->private;
	struct lu_tgt_descs *ltd = &obd->u.lov.lov_ost_descs;

	lov_tgts_getref(obd);
	if (*pos >= ltd->ltd_tgts_size)
		return NULL;

	*pos = find_next_bit(ltd->ltd_tgt_bitmap,
			     ltd->ltd_tgts_size, *pos);
	if (*pos < ltd->ltd_tgts_size)
		return LTD_TGT(ltd, *pos);
	else
		return NULL;
}

static void lov_tgt_seq_stop(struct seq_file *p, void *v)
{
	struct obd_device *obd = p->private;

	lov_tgts_putref(obd);
}

static void *lov_tgt_seq_next(struct seq_file *p, void *v, loff_t *pos)
{
	struct obd_device *obd = p->private;
	struct lu_tgt_descs *ltd = &obd->u.lov.lov_ost_descs;

	(*pos)++;
	if (*pos > ltd->ltd_tgts_size - 1)
		return NULL;

	*pos = find_next_bit(ltd->ltd_tgt_bitmap,
			     ltd->ltd_tgts_size, *pos);
	if (*pos < ltd->ltd_tgts_size)
		return LTD_TGT(ltd, *pos);
	else
		return NULL;
}

static int lov_tgt_seq_show(struct seq_file *p, void *v)
{
	struct lov_tgt_desc *tgt = v;

	seq_printf(p, "%d: %s %sACTIVE\n", tgt->ltd_index,
		   obd_uuid2str(&tgt->ltd_uuid),
		   tgt->ltd_active ? "" : "IN");
	return 0;
}

static const struct seq_operations lov_tgt_sops = {
	.start = lov_tgt_seq_start,
	.stop = lov_tgt_seq_stop,
	.next = lov_tgt_seq_next,
	.show = lov_tgt_seq_show,
};

static int lov_target_seq_open(struct inode *inode, struct file *file)
{
	struct seq_file *seq;
	int rc;

	rc = seq_open(file, &lov_tgt_sops);
	if (rc)
		return rc;

	seq = file->private_data;
	seq->private = pde_data(inode);
	return 0;
}

static const struct proc_ops lov_proc_target_fops = {
	PROC_OWNER(THIS_MODULE)
	.proc_open	= lov_target_seq_open,
	.proc_read	= seq_read,
	.proc_lseek	= seq_lseek,
	.proc_release	= lprocfs_seq_release,
};
#endif /* CONFIG_PROC_FS */

static struct attribute *lov_attrs[] = {
	&lustre_attr_activeobd.attr,
	&lustre_attr_numobd.attr,
	&lustre_attr_desc_uuid.attr,
	&lustre_attr_stripesize.attr,
	&lustre_attr_stripeoffset.attr,
	&lustre_attr_stripetype.attr,
	&lustre_attr_stripecount.attr,
	NULL,
};

KOBJ_ATTRIBUTE_GROUPS(lov); /* creates lov_groups */

int lov_tunables_init(struct obd_device *obd)
{
	struct lov_obd *lov = &obd->u.lov;
	int rc;

	obd->obd_ktype.default_groups = KOBJ_ATTR_GROUPS(lov);
	rc = lprocfs_obd_setup(obd, false);
	if (rc)
		GOTO(out, rc);

#ifdef CONFIG_PROC_FS
	rc = lprocfs_seq_create(obd->obd_proc_entry, "target_obd", 0444,
				&lov_proc_target_fops, obd);
	if (rc)
		CWARN("%s: Error adding the target_obd file : rc %d\n",
		      obd->obd_name, rc);

	lov->lov_pool_proc_entry = lprocfs_register("pools",
						    obd->obd_proc_entry,
						    NULL, NULL);
	if (IS_ERR(lov->lov_pool_proc_entry)) {
		rc = PTR_ERR(lov->lov_pool_proc_entry);
		CERROR("%s: error setting up debugfs for pools : rc %d\n",
		       obd->obd_name, rc);
		lov->lov_pool_proc_entry = NULL;
	}
#endif /* CONFIG_FS_PROC */
out:
	return rc;
}