/*
 * mdadm - manage Linux "md" devices aka RAID arrays.
 *
 * Copyright (C) 2001-2009 Neil Brown <neilb@suse.de>
 *
 *
 *    This program 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.
 *
 *    This program is distributed in the hope that it will be useful,
 *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *    GNU General Public License for more details.
 *
 *    You should have received a copy of the GNU General Public License
 *    along with this program; if not, write to the Free Software
 *    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 *    Author: Neil Brown
 *    Email: <neilb@suse.de>
 */

#include "mdadm.h"

int Build(struct mddev_ident *ident, struct mddev_dev *devlist, struct shape *s,
	  struct context *c)
{
	/* Build a linear or raid0 arrays without superblocks
	 * We cannot really do any checks, we just do it.
	 * For md_version < 0.90.0, we call REGISTER_DEV
	 * with the device numbers, and then
	 * START_MD giving the "geometry"
	 * geometry is 0xpp00cc
	 * where pp is personality: 1==linear, 2=raid0
	 * cc = chunk size factor: 0==4k, 1==8k etc.
	 */
	int i;
	dev_t rdev;
	int subdevs = 0, missing_disks = 0;
	struct mddev_dev *dv;
	int bitmap_fd;
	unsigned long long bitmapsize;
	int mdfd;
	char chosen_name[1024];
	int uuid[4] = {0,0,0,0};
	struct map_ent *map = NULL;
	mdu_array_info_t array;
	mdu_param_t param; /* not used by syscall */

	if (s->level == UnSet) {
		pr_err("a RAID level is needed to Build an array.\n");
		return 1;
	}
	/* scan all devices, make sure they really are block devices */
	for (dv = devlist; dv; dv=dv->next) {
		subdevs++;
		if (strcmp("missing", dv->devname) == 0) {
			missing_disks++;
			continue;
		}
		if (!stat_is_blkdev(dv->devname, NULL))
			return 1;
	}

	if (s->raiddisks != subdevs) {
		pr_err("requested %d devices in array but listed %d\n",
			s->raiddisks, subdevs);
		return 1;
	}

	if (s->layout == UnSet)
		s->layout = default_layout(NULL, s->level, c->verbose);

	/* We need to create the device.  It can have no name. */
	map_lock(&map);
	mdfd = create_mddev(ident->devname, NULL, LOCAL, chosen_name, 0);
	if (mdfd < 0) {
		map_unlock(&map);
		return 1;
	}

	map_update(&map, fd2devnm(mdfd), STR_COMMON_NONE, uuid, chosen_name);
	map_unlock(&map);

	array.level = s->level;
	if (s->size == MAX_SIZE)
		s->size = 0;
	array.size = s->size;
	array.nr_disks = s->raiddisks;
	array.raid_disks = s->raiddisks;
	array.md_minor = 0;
	if (fstat_is_blkdev(mdfd, chosen_name, &rdev))
		array.md_minor = minor(rdev);
	array.not_persistent = 1;
	array.state = 0; /* not clean, but no errors */
	if (s->assume_clean)
		array.state |= 1;
	array.active_disks = s->raiddisks - missing_disks;
	array.working_disks = s->raiddisks - missing_disks;
	array.spare_disks = 0;
	array.failed_disks = missing_disks;
	if (s->chunk == 0 && (s->level==0 || s->level==LEVEL_LINEAR))
		s->chunk = 64;
	array.chunk_size = s->chunk*1024;
	array.layout = s->layout;
	if (md_set_array_info(mdfd, &array)) {
		pr_err("md_set_array_info() failed for %s: %s\n", chosen_name, strerror(errno));
		goto abort;
	}

	if (s->bitmap_file && str_is_none(s->bitmap_file) == true)
		s->bitmap_file = NULL;
	if (s->bitmap_file && s->level <= 0) {
		pr_err("bitmaps not meaningful with level %s\n",
			map_num(pers, s->level)?:"given");
		goto abort;
	}
	/* now add the devices */
	for ((i=0), (dv = devlist) ; dv ; i++, dv=dv->next) {
		mdu_disk_info_t disk;
		unsigned long long dsize;
		int fd;

		if (strcmp("missing", dv->devname) == 0)
			continue;
		if (!stat_is_blkdev(dv->devname, &rdev))
			goto abort;
		fd = open(dv->devname, O_RDONLY|O_EXCL);
		if (fd < 0) {
			pr_err("Cannot open %s: %s\n",
				dv->devname, strerror(errno));
			goto abort;
		}
		if (get_dev_size(fd, NULL, &dsize) &&
		    (s->size == 0 || s->size == MAX_SIZE || dsize < s->size))
				s->size = dsize;
		close(fd);
		disk.number = i;
		disk.raid_disk = i;
		disk.state = (1<<MD_DISK_SYNC) | (1<<MD_DISK_ACTIVE);
		if (dv->writemostly == FlagSet)
			disk.state |= 1<<MD_DISK_WRITEMOSTLY;
		disk.major = major(rdev);
		disk.minor = minor(rdev);
		if (ioctl(mdfd, ADD_NEW_DISK, &disk)) {
			pr_err("ADD_NEW_DISK failed for %s: %s\n",
			       dv->devname, strerror(errno));
			goto abort;
		}
	}
	/* now to start it */
	if (s->bitmap_file) {
		bitmap_fd = open(s->bitmap_file, O_RDWR);
		if (bitmap_fd < 0) {
			int major = BITMAP_MAJOR_HI;
			bitmapsize = s->size >> 9; /* FIXME wrong for RAID10 */
			if (CreateBitmap(s->bitmap_file, 1, NULL,
					 s->bitmap_chunk, c->delay,
					 s->write_behind, bitmapsize, major)) {
				goto abort;
			}
			bitmap_fd = open(s->bitmap_file, O_RDWR);
			if (bitmap_fd < 0) {
				pr_err("%s cannot be opened.\n", s->bitmap_file);
				goto abort;
			}
		}
		if (ioctl(mdfd, SET_BITMAP_FILE, bitmap_fd) < 0) {
			pr_err("Cannot set bitmap file for %s: %s\n", chosen_name,
			       strerror(errno));
			close(bitmap_fd);
			goto abort;
		}
	close(bitmap_fd);
	}
	if (ioctl(mdfd, RUN_ARRAY, &param)) {
		pr_err("RUN_ARRAY failed: %s\n", strerror(errno));
		if (s->chunk & (s->chunk - 1)) {
			cont_err("Problem may be that chunk size is not a power of 2\n");
		}
		goto abort;
	}

	if (c->verbose >= 0)
		pr_err("array %s built and started.\n", chosen_name);
	wait_for(chosen_name, mdfd);
	close(mdfd);
	return 0;

 abort:
	ioctl(mdfd, STOP_ARRAY, 0);
	close(mdfd);
	return 1;
}