Home | History | Annotate | Line # | Download | only in sysinst
disklabel.c revision 1.8
      1 /*	$NetBSD: disklabel.c,v 1.8 2019/07/21 11:36:34 martin Exp $	*/
      2 
      3 /*
      4  * Copyright 2018 The NetBSD Foundation, Inc.
      5  * All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  *
     16  * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
     17  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     19  * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
     20  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     21  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     22  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     23  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     24  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     25  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
     26  * THE POSSIBILITY OF SUCH DAMAGE.
     27  *
     28  */
     29 
     30 #include "defs.h"
     31 #include "md.h"
     32 #include <assert.h>
     33 #include <util.h>
     34 #include <paths.h>
     35 #include <sys/ioctl.h>
     36 #include <sys/param.h>
     37 
     38 const struct disk_partitioning_scheme disklabel_parts;
     39 
     40 /*************** disklabel ******************************************/
     41 /* a disklabel based disk_partitions interface */
     42 struct disklabel_disk_partitions {
     43 	struct disk_partitions dp;
     44 	struct disklabel l;
     45 	daddr_t ptn_alignment;
     46 	char last_mounted[MAXPARTITIONS][MOUNTLEN];
     47 	uint fs_sub_type[MAXPARTITIONS];
     48 };
     49 
     50 /*
     51  * Maximum number of disklabel partitions the current kernel supports
     52  */
     53 size_t dl_maxpart;
     54 
     55 /* index into this arrray is the type code */
     56 static struct part_type_desc dl_types[__arraycount(fstypenames)-1];
     57 
     58 struct dl_custom_ptype {
     59 	unsigned int type;
     60 	char short_desc[6], description[30];
     61 	struct part_type_desc desc;
     62 };
     63 struct dl_custom_ptype * dl_custom_ptypes;
     64 size_t dl_custom_ptype_count;
     65 
     66 static uint8_t dl_part_type_from_generic(const struct part_type_desc*);
     67 
     68 static void
     69 disklabel_init_default_alignment(struct disklabel_disk_partitions *parts,
     70     uint track)
     71 {
     72 	if (track == 0)
     73 		track = MEG / 512;
     74 
     75 	if (dl_maxpart == 0)
     76 		dl_maxpart = getmaxpartitions();
     77 
     78 #ifdef MD_DISKLABEL_SET_ALIGN_PRE
     79 	if (MD_DISKLABEL_SET_ALIGN_PRE(parts->ptn_alignment, track))
     80 		return;
     81 #endif
     82 	/* Use 1MB alignemnt for large (>128GB) disks */
     83 	if (parts->dp.disk_size > HUGE_DISK_SIZE) {
     84 		parts->ptn_alignment = 2048;
     85 	} else if (parts->dp.disk_size > TINY_DISK_SIZE) {
     86 		parts->ptn_alignment = 64;
     87 	} else {
     88 		parts->ptn_alignment = 1;
     89 	}
     90 #ifdef MD_DISKLABEL_SET_ALIGN_POST
     91 	MD_DISKLABEL_SET_ALIGN_POST(parts->ptn_alignment, track);
     92 #endif
     93 }
     94 
     95 static bool
     96 disklabel_change_geom(struct disk_partitions *arg, int ncyl, int nhead,
     97     int nsec)
     98 {
     99 	struct disklabel_disk_partitions *parts =
    100 	    (struct disklabel_disk_partitions*)arg;
    101 
    102 	disklabel_init_default_alignment(parts, nhead * nsec);
    103 
    104 	parts->l.d_ncylinders = ncyl;
    105 	parts->l.d_ntracks = nhead;
    106 	parts->l.d_nsectors = nsec;
    107 	parts->l.d_secsize = DEV_BSIZE;
    108 	parts->l.d_secpercyl = nsec * nhead;
    109 
    110 	if (ncyl*nhead*nsec <= TINY_DISK_SIZE)
    111 		set_default_sizemult(1);
    112 	else
    113 		set_default_sizemult(MEG/512);
    114 	return true;
    115 }
    116 
    117 static struct disk_partitions *
    118 disklabel_parts_new(const char *dev, daddr_t start, daddr_t len,
    119     daddr_t total_size, bool is_boot_drive)
    120 {
    121 	struct disklabel_disk_partitions *parts;
    122 	struct disk_geom geo;
    123 
    124 	if (!get_disk_geom(dev, &geo))
    125 		return NULL;
    126 
    127 	parts = calloc(1, sizeof(*parts));
    128 	if (parts == NULL)
    129 		return NULL;
    130 
    131 	if (len > disklabel_parts.size_limit)
    132 		len = disklabel_parts.size_limit;
    133 	if (total_size > disklabel_parts.size_limit)
    134 		total_size = disklabel_parts.size_limit;
    135 
    136 	parts->l.d_ncylinders = geo.dg_ncylinders;
    137 	parts->l.d_ntracks = geo.dg_ntracks;
    138 	parts->l.d_nsectors = geo.dg_nsectors;
    139 	parts->l.d_secsize = geo.dg_secsize;
    140 	parts->l.d_secpercyl = geo.dg_nsectors * geo.dg_ntracks;
    141 
    142 	parts->dp.pscheme = &disklabel_parts;
    143 	parts->dp.disk = dev;
    144 	parts->dp.disk_start = start;
    145 	parts->dp.disk_size = parts->dp.free_space = len;
    146 	disklabel_init_default_alignment(parts, parts->l.d_secpercyl);
    147 
    148 	strncpy(parts->l.d_packname, "fictious", sizeof parts->l.d_packname);
    149 
    150 #if RAW_PART > 2
    151 	parts->l.d_partitions[RAW_PART-1].p_fstype = FS_UNUSED;
    152 	parts->l.d_partitions[RAW_PART-1].p_offset = start;
    153 	parts->l.d_partitions[RAW_PART-1].p_size = len;
    154 	parts->dp.num_part++;
    155 #endif
    156 	parts->l.d_partitions[RAW_PART].p_fstype = FS_UNUSED;
    157 	parts->l.d_partitions[RAW_PART].p_offset = 0;
    158 	parts->l.d_partitions[RAW_PART].p_size = total_size;
    159 	parts->dp.num_part++;
    160 
    161 	parts->l.d_npartitions = RAW_PART+1;
    162 
    163 	return &parts->dp;
    164 }
    165 
    166 static struct disk_partitions *
    167 disklabel_parts_read(const char *disk, daddr_t start, daddr_t len)
    168 {
    169 	int fd;
    170 	char diskpath[MAXPATHLEN];
    171 	uint flags;
    172 
    173 	if (run_program(RUN_SILENT | RUN_ERROR_OK,
    174 	    "disklabel -r %s", disk) != 0)
    175 		return NULL;
    176 
    177 	/* read partitions */
    178 
    179 	struct disklabel_disk_partitions *parts = calloc(1, sizeof(*parts));
    180 	if (parts == NULL)
    181 		return NULL;
    182 
    183 	fd = opendisk(disk, O_RDONLY, diskpath, sizeof(diskpath), 0);
    184 	if (fd == -1) {
    185 		free(parts);
    186 		return NULL;
    187 	}
    188 
    189 	/*
    190 	 * We should actually try to read the label inside the start/len
    191 	 * boundary, but for simplicity just rely on the kernel and
    192 	 * instead verify a FS_UNUSED partition at RAW_PART-1 (if
    193 	 * RAW_PART > 'c') is within the given limits.
    194 	 */
    195 	if (ioctl(fd, DIOCGDINFO, &parts->l) < 0) {
    196 		free(parts);
    197 		close(fd);
    198 		return NULL;
    199 	}
    200 #if RAW_PART > 2
    201 	if (parts->l.d_partitions[RAW_PART-1].p_fstype == FS_UNUSED) {
    202 		daddr_t dlstart = parts->l.d_partitions[RAW_PART-1].p_offset;
    203 		daddr_t dlend = start +
    204 		    parts->l.d_partitions[RAW_PART-1].p_size;
    205 
    206 		if (dlstart < start && dlend > (start+len)) {
    207 			assert(false);
    208 			free(parts);
    209 			close(fd);
    210 			return NULL;
    211 		}
    212 	}
    213 #endif
    214 
    215 	if (len > disklabel_parts.size_limit)
    216 		len = disklabel_parts.size_limit;
    217 	parts->dp.pscheme = &disklabel_parts;
    218 	parts->dp.disk = disk;
    219 	parts->dp.disk_start = start;
    220 	parts->dp.disk_size = parts->dp.free_space = len;
    221 	disklabel_init_default_alignment(parts, 0);
    222 
    223 	for (int part = 0; part < parts->l.d_npartitions; part++) {
    224 		if (parts->l.d_partitions[part].p_fstype == FS_UNUSED
    225 		    && parts->l.d_partitions[part].p_size == 0)
    226 			continue;
    227 
    228 		parts->dp.num_part++;
    229 		if (parts->l.d_partitions[part].p_fstype == FS_UNUSED)
    230 			continue;
    231 
    232 		flags = 0;
    233 		if (parts->l.d_partitions[part].p_fstype == FS_MSDOS)
    234 			flags = GLM_MAYBE_FAT32;
    235 		else if (parts->l.d_partitions[part].p_fstype == FS_BSDFFS)
    236 			flags = GLM_LIKELY_FFS;
    237 		if (flags != 0) {
    238 			uint fs_type, fs_sub_type;
    239 			const char *lm = get_last_mounted(fd,
    240 			    parts->l.d_partitions[part].p_offset,
    241 			    &fs_type, &fs_sub_type, flags);
    242 			if (lm != NULL && *lm != 0) {
    243 				strlcpy(parts->last_mounted[part], lm,
    244 				    sizeof(parts->last_mounted[part]));
    245 				if (parts->l.d_partitions[part].p_fstype ==
    246 				    fs_type)
    247 					parts->fs_sub_type[part] = fs_sub_type;
    248 			}
    249 		}
    250 
    251 		if (parts->l.d_partitions[part].p_size > parts->dp.free_space)
    252 			parts->dp.free_space = 0;
    253 		else
    254 			parts->dp.free_space -=
    255 			    parts->l.d_partitions[part].p_size;
    256 	}
    257 	close(fd);
    258 
    259 	return &parts->dp;
    260 }
    261 
    262 static bool
    263 disklabel_write_to_disk(struct disk_partitions *arg)
    264 {
    265 	struct disklabel_disk_partitions *parts =
    266 	    (struct disklabel_disk_partitions*)arg;
    267 	FILE *f;
    268 	char fname[PATH_MAX], packname[sizeof(parts->l.d_packname)+1];
    269 	int i, rv = 0;
    270 	const char *disk = parts->dp.disk, *s;
    271 	const struct partition *lp;
    272 	char *d;
    273 	size_t n;
    274 
    275 	assert(parts->l.d_secsize != 0);
    276 
    277 	sprintf(fname, "/tmp/disklabel.%u", getpid());
    278 	f = fopen(fname, "w");
    279 	if (f == NULL)
    280 		return false;
    281 
    282 	/* make sure we have a 0 terminated packname */
    283 	strlcpy(packname, parts->l.d_packname, sizeof packname);
    284 
    285 	/* fill typename with disk name prefix, if not already set */
    286 	if (strlen(parts->l.d_typename) == 0) {
    287 		for (n = 0, d = parts->l.d_typename, s = disk;
    288 		    *s && n < sizeof(parts->l.d_typename); d++, s++, n++) {
    289 			if (isdigit((unsigned char)*s))
    290 				break;
    291 			*d = *s;
    292 		}
    293 	}
    294 	parts->l.d_typename[sizeof(parts->l.d_typename)-1] = 0;
    295 
    296 	/* we need a valid disk type name, so enforce an arbitrary if
    297 	 * above did not yield a usable one */
    298 	if (strlen(parts->l.d_typename) == 0)
    299 		strncpy(parts->l.d_typename, "SCSI",
    300 		    sizeof(parts->l.d_typename));
    301 
    302 	lp = parts->l.d_partitions;
    303 	scripting_fprintf(NULL, "cat <<EOF >%s\n", fname);
    304 	scripting_fprintf(f, "%s|NetBSD installation generated:\\\n",
    305 	    parts->l.d_typename);
    306 	scripting_fprintf(f, "\t:nc#%d:nt#%d:ns#%d:\\\n",
    307 	    parts->l.d_ncylinders, parts->l.d_ntracks, parts->l.d_nsectors);
    308 	scripting_fprintf(f, "\t:sc#%d:su#%" PRIu32 ":\\\n",
    309 	    parts->l.d_secpercyl, lp[RAW_PART].p_offset+lp[RAW_PART].p_size);
    310 	scripting_fprintf(f, "\t:se#%d:\\\n", parts->l.d_secsize);
    311 
    312 	for (i = 0; i < parts->l.d_npartitions; i++) {
    313 		scripting_fprintf(f, "\t:p%c#%" PRIu32 ":o%c#%" PRIu32
    314 		    ":t%c=%s:", 'a'+i, (uint32_t)lp[i].p_size,
    315 		    'a'+i, (uint32_t)lp[i].p_offset, 'a'+i,
    316 		    getfslabelname(lp[i].p_fstype, 0));
    317 		if (lp[i].p_fstype == FS_BSDLFS ||
    318 		    lp[i].p_fstype == FS_BSDFFS)
    319 			scripting_fprintf (f, "b%c#%" PRIu32 ":f%c#%" PRIu32
    320 			    ":", 'a'+i,
    321 			    (uint32_t)(lp[i].p_fsize *
    322 			    lp[i].p_frag),
    323 			    'a'+i, (uint32_t)lp[i].p_fsize);
    324 
    325 		if (i < parts->l.d_npartitions - 1)
    326 			scripting_fprintf(f, "\\\n");
    327 		else
    328 			scripting_fprintf(f, "\n");
    329 	}
    330 	scripting_fprintf(NULL, "EOF\n");
    331 
    332 	fclose(f);
    333 
    334 	/*
    335 	 * Label a disk using an MD-specific string DISKLABEL_CMD for
    336 	 * to invoke disklabel.
    337 	 * if MD code does not define DISKLABEL_CMD, this is a no-op.
    338 	 *
    339 	 * i386 port uses "/sbin/disklabel -w -r", just like i386
    340 	 * miniroot scripts, though this may leave a bogus incore label.
    341 	 *
    342 	 * Sun ports should use DISKLABEL_CMD "/sbin/disklabel -w"
    343 	 * to get incore to ondisk inode translation for the Sun proms.
    344 	 */
    345 #ifdef DISKLABEL_CMD
    346 	/* disklabel the disk */
    347 	rv = run_program(RUN_DISPLAY, "%s -f %s %s %s %s",
    348 	    DISKLABEL_CMD, fname, disk, parts->l.d_typename, packname);
    349 #endif
    350 
    351 	unlink(fname);
    352 
    353 	return rv == 0;
    354 }
    355 
    356 static bool
    357 disklabel_delete_all(struct disk_partitions *arg)
    358 {
    359 	struct disklabel_disk_partitions *parts =
    360 	    (struct disklabel_disk_partitions*)arg;
    361 	daddr_t total_size = parts->l.d_partitions[RAW_PART].p_size;
    362 
    363 	memset(&parts->l.d_partitions, 0, sizeof(parts->l.d_partitions));
    364 	parts->dp.num_part = 0;
    365 
    366 #if RAW_PART > 2
    367 	parts->l.d_partitions[RAW_PART-1].p_fstype = FS_UNUSED;
    368 	parts->l.d_partitions[RAW_PART-1].p_offset = parts->dp.disk_start;
    369 	parts->l.d_partitions[RAW_PART-1].p_size = parts->dp.disk_size;
    370 	parts->dp.num_part++;
    371 #endif
    372 	parts->l.d_partitions[RAW_PART].p_fstype = FS_UNUSED;
    373 	parts->l.d_partitions[RAW_PART].p_offset = 0;
    374 	parts->l.d_partitions[RAW_PART].p_size = total_size;
    375 	parts->dp.num_part++;
    376 
    377 	parts->l.d_npartitions = RAW_PART+1;
    378 	return true;
    379 }
    380 
    381 static bool
    382 disklabel_delete(struct disk_partitions *arg, part_id id,
    383     const char **err_msg)
    384 {
    385 	struct disklabel_disk_partitions *parts =
    386 	    (struct disklabel_disk_partitions*)arg;
    387 	part_id ndx;
    388 
    389 	ndx = 0;
    390 	for (int part = 0; part < parts->l.d_npartitions; part++) {
    391 		if (parts->l.d_partitions[part].p_fstype == FS_UNUSED
    392 		    && parts->l.d_partitions[part].p_size == 0)
    393 			continue;
    394 
    395 		if (ndx == id) {
    396 			if (part == RAW_PART
    397 #if RAW_PART > 2
    398 				|| part == RAW_PART-1
    399 #endif
    400 						) {
    401 				if (err_msg)
    402 					*err_msg = msg_string(
    403 					    MSG_part_not_deletable);
    404 				return false;
    405 			}
    406 			parts->l.d_partitions[part].p_size = 0;
    407 			parts->l.d_partitions[part].p_offset = 0;
    408 			parts->l.d_partitions[part].p_fstype = FS_UNUSED;
    409 			parts->dp.num_part--;
    410 			return true;
    411 		}
    412 		ndx++;
    413 	}
    414 
    415 	if (err_msg)
    416 		*err_msg = INTERNAL_ERROR;
    417 	return false;
    418 }
    419 
    420 static bool
    421 disklabel_delete_range(struct disk_partitions *arg, daddr_t r_start,
    422     daddr_t r_size)
    423 {
    424 	struct disklabel_disk_partitions *parts =
    425 	    (struct disklabel_disk_partitions*)arg;
    426 
    427 	for (int part = 0; part < parts->l.d_npartitions; part++) {
    428 		if (parts->l.d_partitions[part].p_fstype == FS_UNUSED
    429 		    && parts->l.d_partitions[part].p_size == 0)
    430 			continue;
    431 
    432 		if (part == RAW_PART)
    433 			continue;
    434 
    435 		daddr_t start = parts->l.d_partitions[part].p_offset;
    436 		daddr_t end = start + parts->l.d_partitions[part].p_size;
    437 
    438 #if RAW_PART > 2
    439 		if (part == RAW_PART - 1 && start == r_start &&
    440 		    r_start + r_size == end)
    441 			continue;
    442 #endif
    443 
    444 		if ((start >= r_start && start <= r_start+r_size) ||
    445 		    (end >= r_start && end <= r_start+r_size)) {
    446 			if (parts->dp.num_part > 1)
    447 				parts->dp.num_part--;
    448 			parts->dp.free_space +=
    449 			    parts->l.d_partitions[part].p_size;
    450 			parts->l.d_partitions[part].p_fstype = FS_UNUSED;
    451 			parts->l.d_partitions[part].p_size = 0;
    452 		}
    453 	}
    454 
    455 	return true;
    456 }
    457 
    458 static void
    459 dl_init_types(void)
    460 {
    461 	for (size_t i = 0; i < __arraycount(dl_types); i++) {
    462 		if (fstypenames[i] == NULL)
    463 			break;
    464 		dl_types[i].short_desc =
    465 		dl_types[i].description = getfslabelname(i, 0);
    466 		enum part_type pt;
    467 		switch (i) {
    468 		case FS_UNUSED:	pt = PT_undef; break;
    469 		case FS_BSDFFS:	pt = PT_root; break;
    470 		case FS_SWAP:	pt = PT_swap; break;
    471 		case FS_MSDOS:	pt = PT_FAT; break;
    472 		default:	pt = PT_unknown; break;
    473 		}
    474 		dl_types[i].generic_ptype = pt;
    475 	}
    476 }
    477 
    478 static uint8_t
    479 dl_part_type_from_generic(const struct part_type_desc *gent)
    480 {
    481 
    482 	if (dl_types[0].description == NULL)
    483 		dl_init_types();
    484 	for (size_t i = 0; i < __arraycount(dl_types); i++)
    485 		if (gent == &dl_types[i])
    486 			return (uint8_t)i;
    487 
    488 	for (size_t i = 0; i < dl_custom_ptype_count; i++)
    489 		if (gent == &dl_custom_ptypes[i].desc)
    490 			return dl_custom_ptypes[i].type;
    491 
    492 	return 0;
    493 }
    494 
    495 static size_t
    496 disklabel_type_count(void)
    497 {
    498 	return __arraycount(dl_types) + dl_custom_ptype_count;
    499 }
    500 
    501 static const struct part_type_desc *
    502 disklabel_get_type(size_t ndx)
    503 {
    504 	if (dl_types[0].description == NULL)
    505 		dl_init_types();
    506 
    507 	if (ndx < __arraycount(dl_types))
    508 		return &dl_types[ndx];
    509 
    510 	ndx -= __arraycount(dl_types);
    511 	if (ndx >= dl_custom_ptype_count)
    512 		return NULL;
    513 
    514 	return &dl_custom_ptypes[ndx].desc;
    515 }
    516 
    517 static const struct part_type_desc *
    518 disklabel_find_type(uint type, bool create_if_unknown)
    519 {
    520 	if (dl_types[0].description == NULL)
    521 		dl_init_types();
    522 
    523 	if (type < __arraycount(dl_types))
    524 		return &dl_types[type];
    525 
    526 	for (size_t i = 0; i < dl_custom_ptype_count; i++)
    527 		if (dl_custom_ptypes[i].type == type)
    528 			return &dl_custom_ptypes[i].desc;
    529 
    530 	if (create_if_unknown) {
    531 		struct dl_custom_ptype *nt;
    532 
    533 		nt = realloc(dl_custom_ptypes, dl_custom_ptype_count+1);
    534 		if (nt == NULL)
    535 			return NULL;
    536 		dl_custom_ptypes = nt;
    537 		nt = dl_custom_ptypes + dl_custom_ptype_count;
    538 		dl_custom_ptype_count++;
    539 		memset(nt, 0, sizeof(*nt));
    540 		nt->type = type;
    541 		snprintf(nt->short_desc, sizeof(nt->short_desc), "%u", type);
    542 		nt->short_desc[sizeof(nt->short_desc)-1] = 0;
    543 		snprintf(nt->description, sizeof(nt->description),
    544 		    "%s (%u)", msg_string(MSG_custom_type), type);
    545 		nt->description[sizeof(nt->description)-1] = 0;
    546 		nt->desc.generic_ptype = PT_unknown;
    547 		nt->desc.short_desc = nt->short_desc;
    548 		nt->desc.description = nt->description;
    549 		return &nt->desc;
    550 	}
    551 
    552 	return NULL;
    553 }
    554 
    555 static const struct part_type_desc *
    556 disklabel_create_custom_part_type(const char *custom, const char **err_msg)
    557 {
    558 	char *endp;
    559 	unsigned long fstype;
    560 
    561 	fstype = strtoul(custom, &endp, 10);
    562 	if (*endp != 0) {
    563 		if (err_msg)
    564 			*err_msg = msg_string(MSG_dl_type_invalid);
    565 		return NULL;
    566 	}
    567 
    568 	return disklabel_find_type(fstype, true);
    569 }
    570 
    571 static const struct part_type_desc *
    572 disklabel_get_fs_part_type(unsigned fstype, unsigned subtype)
    573 {
    574 	return disklabel_find_type(fstype, false);
    575 }
    576 
    577 static const struct part_type_desc *
    578 disklabel_get_generic_type(enum part_type pt)
    579 {
    580 	size_t nt;
    581 
    582 	if (dl_types[0].description == NULL)
    583 		dl_init_types();
    584 
    585 	switch (pt) {
    586 	case PT_root:	nt = FS_BSDFFS; break;
    587 	case PT_swap:	nt = FS_SWAP; break;
    588 	case PT_FAT:
    589 	case PT_EFI_SYSTEM:
    590 			nt = FS_MSDOS; break;
    591 	default:	nt = FS_UNUSED; break;
    592 	}
    593 
    594 	return disklabel_get_type(nt);
    595 }
    596 
    597 static bool
    598 disklabel_get_part_info(const struct disk_partitions *arg, part_id id,
    599     struct disk_part_info *info)
    600 {
    601 	const struct disklabel_disk_partitions *parts =
    602 	    (const struct disklabel_disk_partitions*)arg;
    603 	part_id ndx;
    604 
    605 	if (dl_types[0].description == NULL)
    606 		dl_init_types();
    607 
    608 	ndx = 0;
    609 	for (int part = 0; part < parts->l.d_npartitions; part++) {
    610 		if (parts->l.d_partitions[part].p_fstype == FS_UNUSED
    611 		    && parts->l.d_partitions[part].p_size == 0)
    612 			continue;
    613 
    614 		if (ndx == id) {
    615 			memset(info, 0, sizeof(*info));
    616 			info->start = parts->l.d_partitions[part].p_offset;
    617 			info->size = parts->l.d_partitions[part].p_size;
    618 			info->nat_type = disklabel_find_type(
    619 			    parts->l.d_partitions[part].p_fstype, true);
    620 			if (parts->last_mounted[part][0] != 0)
    621 				info->last_mounted = parts->last_mounted[part];
    622 			info->fs_type = parts->l.d_partitions[part].p_fstype;
    623 			info->fs_sub_type = parts->fs_sub_type[part];
    624 			if (part == RAW_PART &&
    625 			    parts->l.d_partitions[part].p_fstype == FS_UNUSED)
    626 				info->flags |=
    627 				    PTI_PSCHEME_INTERNAL|PTI_RAW_PART;
    628 #if RAW_PART > 2
    629 			if (part == (RAW_PART-1) &&
    630 			    parts->l.d_partitions[part].p_fstype == FS_UNUSED)
    631 				info->flags |=
    632 				    PTI_PSCHEME_INTERNAL|PTI_WHOLE_DISK;
    633 #endif
    634 			return true;
    635 		}
    636 
    637 		ndx++;
    638 		if (ndx > parts->dp.num_part || ndx > id)
    639 			break;
    640 	}
    641 
    642 	return false;
    643 }
    644 
    645 static bool
    646 disklabel_set_part_info(struct disk_partitions *arg, part_id id,
    647     const struct disk_part_info *info, const char **err_msg)
    648 {
    649 	struct disklabel_disk_partitions *parts =
    650 	    (struct disklabel_disk_partitions*)arg;
    651 	part_id ndx;
    652 
    653 	if (dl_types[0].description == NULL)
    654 		dl_init_types();
    655 
    656 	ndx = 0;
    657 	for (int part = 0; part < parts->l.d_npartitions; part++) {
    658 		if (parts->l.d_partitions[part].p_fstype == FS_UNUSED
    659 		    && parts->l.d_partitions[part].p_size == 0)
    660 			continue;
    661 
    662 		if (ndx == id) {
    663 			parts->l.d_partitions[part].p_offset = info->start;
    664 			parts->l.d_partitions[part].p_size = info->size;
    665 			parts->l.d_partitions[part].p_fstype =
    666 			    dl_part_type_from_generic(info->nat_type);
    667 			if (info->last_mounted != NULL &&
    668 			    info->last_mounted != parts->last_mounted[part])
    669 				strlcpy(parts->last_mounted[part],
    670 				    info->last_mounted,
    671 				    sizeof(parts->last_mounted[part]));
    672 			assert(info->fs_type == 0 || info->fs_type ==
    673 			    parts->l.d_partitions[part].p_fstype);
    674 			if (info->fs_sub_type != 0)
    675 				parts->fs_sub_type[part] = info->fs_sub_type;
    676 			return true;
    677 		}
    678 
    679 		ndx++;
    680 		if (ndx > parts->dp.num_part || ndx > id)
    681 			break;
    682 	}
    683 
    684 	return false;
    685 }
    686 
    687 static size_t
    688 disklabel_get_free_spaces_internal(const struct
    689     disklabel_disk_partitions *parts,
    690     struct disk_part_free_space *result, size_t max_num_result,
    691     daddr_t min_space_size, daddr_t align, daddr_t start, daddr_t ignore)
    692 {
    693 	size_t cnt = 0, i;
    694 	daddr_t s, e, from, size, end_of_disk;
    695 
    696 	if (start < parts->dp.disk_start)
    697 		start = parts->dp.disk_start;
    698 	if (min_space_size < 1)
    699 		min_space_size = 1;
    700 	if (align > 1 && (start % align) != 0)
    701 		start = max(roundup(start, align), align);
    702 	end_of_disk = parts->dp.disk_start + parts->dp.disk_size;
    703 	from = start;
    704 	while (from < end_of_disk && cnt < max_num_result) {
    705 again:
    706 		size = parts->dp.disk_start + parts->dp.disk_size - from;
    707 		start = from;
    708 		for (i = 0; i < parts->l.d_npartitions; i++) {
    709 			if (i == RAW_PART)
    710 				continue;
    711 			if (parts->l.d_partitions[i].p_fstype == FS_UNUSED)
    712 				continue;
    713 
    714 			s = parts->l.d_partitions[i].p_offset;
    715 			e = parts->l.d_partitions[i].p_size + s;
    716 			if (s == ignore)
    717 				continue;
    718 			if (e < from)
    719 				continue;
    720 			if (s <= from && e > from) {
    721 				if (e - 1 >= end_of_disk)
    722 					return cnt;
    723 
    724 				from = e + 1;
    725 				if (align > 1) {
    726 					from = max(roundup(from, align), align);
    727 					if (from >= end_of_disk) {
    728 						size = 0;
    729 						break;
    730 					}
    731 				}
    732 				goto again;
    733 			}
    734 			if (s > from && s - from < size) {
    735 				size = s - from;
    736 			}
    737 		}
    738 		if (size >= min_space_size) {
    739 			result->start = start;
    740 			result->size = size;
    741 			result++;
    742 			cnt++;
    743 		}
    744 		from += size + 1;
    745 		if (align > 1)
    746 			from = max(roundup(from, align), align);
    747 	}
    748 
    749 	return cnt;
    750 }
    751 
    752 static bool
    753 disklabel_can_add_partition(const struct disk_partitions *arg)
    754 {
    755 	const struct disklabel_disk_partitions *parts =
    756 	    (const struct disklabel_disk_partitions*)arg;
    757 	struct disk_part_free_space space;
    758 	int i;
    759 
    760 	if (dl_maxpart == 0)
    761 		dl_maxpart = getmaxpartitions();
    762 	if (parts->dp.free_space < parts->ptn_alignment)
    763 		return false;
    764 	if (parts->dp.num_part >= dl_maxpart)
    765 		return false;
    766 	if (disklabel_get_free_spaces_internal(parts, &space, 1,
    767 	    parts->ptn_alignment, parts->ptn_alignment, 0, -1) < 1)
    768 		return false;
    769 
    770 	for (i = 0; i < parts->l.d_npartitions; i++) {
    771 		if (i == RAW_PART)
    772 			continue;
    773 #if RAW_PART > 2
    774 		if (i == RAW_PART-1)
    775 			continue;
    776 #endif
    777 		if (parts->l.d_partitions[i].p_fstype == FS_UNUSED)
    778 			return true;
    779 	}
    780 	return false;
    781 }
    782 
    783 static bool
    784 disklabel_get_disk_pack_name(const struct disk_partitions *arg,
    785     char *buf, size_t len)
    786 {
    787 	const struct disklabel_disk_partitions *parts =
    788 	    (const struct disklabel_disk_partitions*)arg;
    789 
    790 	strlcpy(buf, parts->l.d_packname, min(len,
    791 	    sizeof(parts->l.d_packname)+1));
    792 	return true;
    793 }
    794 
    795 static bool
    796 disklabel_set_disk_pack_name(struct disk_partitions *arg, const char *pack)
    797 {
    798 	struct disklabel_disk_partitions *parts =
    799 	    (struct disklabel_disk_partitions*)arg;
    800 
    801 	strncpy(parts->l.d_packname, pack, sizeof(parts->l.d_packname));
    802 	return true;
    803 }
    804 
    805 static bool
    806 disklabel_get_part_device(const struct disk_partitions *arg,
    807     part_id ptn, char *devname, size_t max_devname_len, int *part,
    808     enum dev_name_usage which_name, bool with_path)
    809 {
    810 
    811 	if (part != 0)
    812 		*part = ptn;
    813 
    814 	switch (which_name) {
    815 	case parent_device_only:
    816 		strlcpy(devname, arg->disk, max_devname_len);
    817 		return true;
    818 	case logical_name:
    819 	case plain_name:
    820 		if (with_path)
    821 			snprintf(devname, max_devname_len, _PATH_DEV "%s%c",
    822 			    arg->disk, (char)ptn + 'a');
    823 		else
    824 			snprintf(devname, max_devname_len, "%s%c",
    825 			    arg->disk, (char)ptn + 'a');
    826 		return true;
    827 	case raw_dev_name:
    828 		if (with_path)
    829 			snprintf(devname, max_devname_len, _PATH_DEV "r%s%c",
    830 			    arg->disk, (char)ptn + 'a');
    831 		else
    832 			snprintf(devname, max_devname_len, "r%s%c",
    833 			    arg->disk, (char)ptn + 'a');
    834 		return true;
    835 	}
    836 
    837 	return false;
    838 }
    839 
    840 static part_id
    841 disklabel_add_partition(struct disk_partitions *arg,
    842     const struct disk_part_info *info, const char **err_msg)
    843 {
    844 	struct disklabel_disk_partitions *parts =
    845 	    (struct disklabel_disk_partitions*)arg;
    846 	int i, part = -1;
    847 	part_id new_id;
    848 	struct disk_part_free_space space;
    849 	struct disk_part_info data = *info;
    850 
    851 	if (disklabel_get_free_spaces_internal(parts, &space, 1, 1, 1,
    852 	    info->start, -1) < 1) {
    853 		if (err_msg)
    854 			*err_msg = msg_string(MSG_No_free_space);
    855 		return NO_PART;
    856 	}
    857 	if (data.size > space.size)
    858 		data.size = space.size;
    859 	daddr_t dend = data.start+data.size;
    860 	if (space.start > data.start)
    861 		data.start = space.start;
    862 	if (space.start + space.size < dend)
    863 		data.size = space.start+space.size-data.start;
    864 
    865 	if (dl_maxpart == 0)
    866 		dl_maxpart = getmaxpartitions();
    867 
    868 	for (new_id = 0, i = 0; i < parts->l.d_npartitions; i++) {
    869 		if (parts->l.d_partitions[i].p_size > 0)
    870 			new_id++;
    871 		if (info->nat_type->generic_ptype != PT_root &&
    872 		    info->nat_type->generic_ptype != PT_swap && i < RAW_PART)
    873 			continue;
    874 		if (i == 0 && info->nat_type->generic_ptype != PT_root)
    875 			continue;
    876 		if (i == 1 && info->nat_type->generic_ptype != PT_swap)
    877 			continue;
    878 		if (i == RAW_PART)
    879 			continue;
    880 #if RAW_PART > 2
    881 		if (i == RAW_PART-1)
    882 			continue;
    883 #endif
    884 		if (parts->l.d_partitions[i].p_size > 0)
    885 			continue;
    886 		part = i;
    887 		break;
    888 	}
    889 
    890 	if (part < 0) {
    891 		if (parts->l.d_npartitions >= dl_maxpart) {
    892 			if (err_msg)
    893 				*err_msg =
    894 				    msg_string(MSG_err_too_many_partitions);
    895 			return NO_PART;
    896 		}
    897 
    898 		part = parts->l.d_npartitions++;
    899 	}
    900 	parts->l.d_partitions[part].p_offset = data.start;
    901 	parts->l.d_partitions[part].p_size = data.size;
    902 	parts->l.d_partitions[part].p_fstype =
    903 	     dl_part_type_from_generic(info->nat_type);
    904 	if (info->last_mounted && info->last_mounted[0])
    905 		strlcpy(parts->last_mounted[part], info->last_mounted,
    906 		    sizeof(parts->last_mounted[part]));
    907 	else
    908 		parts->last_mounted[part][0] = 0;
    909 	parts->fs_sub_type[part] = info->fs_sub_type;
    910 	parts->dp.num_part++;
    911 	if (data.size <= parts->dp.free_space)
    912 		parts->dp.free_space -= data.size;
    913 	else
    914 		parts->dp.free_space = 0;
    915 
    916 	return new_id;
    917 }
    918 
    919 static part_id
    920 disklabel_add_outer_partition(struct disk_partitions *arg,
    921     const struct disk_part_info *info, const char **err_msg)
    922 {
    923 	struct disklabel_disk_partitions *parts =
    924 	    (struct disklabel_disk_partitions*)arg;
    925 	int i, part = -1;
    926 	part_id new_id;
    927 
    928 	if (dl_maxpart == 0)
    929 		dl_maxpart = getmaxpartitions();
    930 
    931 	for (new_id = 0, i = 0; i < parts->l.d_npartitions; i++) {
    932 		if (parts->l.d_partitions[i].p_size > 0)
    933 			new_id++;
    934 		if (info->nat_type->generic_ptype != PT_root &&
    935 		    info->nat_type->generic_ptype != PT_swap && i < RAW_PART)
    936 			continue;
    937 		if (i == 0 && info->nat_type->generic_ptype != PT_root)
    938 			continue;
    939 		if (i == 1 && info->nat_type->generic_ptype != PT_swap)
    940 			continue;
    941 		if (i == RAW_PART)
    942 			continue;
    943 #if RAW_PART > 2
    944 		if (i == RAW_PART-1)
    945 			continue;
    946 #endif
    947 		if (parts->l.d_partitions[i].p_size > 0)
    948 			continue;
    949 		part = i;
    950 		break;
    951 	}
    952 
    953 	if (part < 0) {
    954 		if (parts->l.d_npartitions >= dl_maxpart) {
    955 			if (err_msg)
    956 				*err_msg =
    957 				    msg_string(MSG_err_too_many_partitions);
    958 			return NO_PART;
    959 		}
    960 
    961 		part = parts->l.d_npartitions++;
    962 	}
    963 	parts->l.d_partitions[part].p_offset = info->start;
    964 	parts->l.d_partitions[part].p_size = info->size;
    965 	parts->l.d_partitions[part].p_fstype =
    966 	     dl_part_type_from_generic(info->nat_type);
    967 	if (info->last_mounted && info->last_mounted[0])
    968 		strlcpy(parts->last_mounted[part], info->last_mounted,
    969 		    sizeof(parts->last_mounted[part]));
    970 	else
    971 		parts->last_mounted[part][0] = 0;
    972 	parts->fs_sub_type[part] = info->fs_sub_type;
    973 	parts->dp.num_part++;
    974 
    975 	return new_id;
    976 }
    977 
    978 static size_t
    979 disklabel_get_free_spaces(const struct disk_partitions *arg,
    980     struct disk_part_free_space *result, size_t max_num_result,
    981     daddr_t min_space_size, daddr_t align, daddr_t start, daddr_t ignore)
    982 {
    983 	const struct disklabel_disk_partitions *parts =
    984 	    (const struct disklabel_disk_partitions*)arg;
    985 
    986 	return disklabel_get_free_spaces_internal(parts, result,
    987 	    max_num_result, min_space_size, align, start, ignore);
    988 }
    989 
    990 static daddr_t
    991 disklabel_max_free_space_at(const struct disk_partitions *arg, daddr_t start)
    992 {
    993 	const struct disklabel_disk_partitions *parts =
    994 	    (const struct disklabel_disk_partitions*)arg;
    995 	struct disk_part_free_space space;
    996 
    997 	if (disklabel_get_free_spaces_internal(parts, &space, 1, 1, 0,
    998 	    start, start) == 1)
    999 		return space.size;
   1000 
   1001 	return 0;
   1002 }
   1003 
   1004 static daddr_t
   1005 disklabel_get_alignment(const struct disk_partitions *arg)
   1006 {
   1007 	const struct disklabel_disk_partitions *parts =
   1008 	    (const struct disklabel_disk_partitions*)arg;
   1009 
   1010 	return parts->ptn_alignment;
   1011 }
   1012 
   1013 static void
   1014 disklabel_free(struct disk_partitions *arg)
   1015 {
   1016 
   1017 	assert(arg != NULL);
   1018 	free(arg);
   1019 }
   1020 
   1021 const struct disk_partitioning_scheme
   1022 disklabel_parts = {
   1023 	.name = MSG_parttype_disklabel,
   1024 	.short_name = MSG_parttype_disklabel_short,
   1025 	.new_type_prompt = MSG_dl_get_custom_fstype,
   1026 	.size_limit = (daddr_t)UINT32_MAX,
   1027 	.write_to_disk = disklabel_write_to_disk,
   1028 	.read_from_disk = disklabel_parts_read,
   1029 	.create_new_for_disk = disklabel_parts_new,
   1030 	.change_disk_geom = disklabel_change_geom,
   1031 	.get_disk_pack_name = disklabel_get_disk_pack_name,
   1032 	.set_disk_pack_name = disklabel_set_disk_pack_name,
   1033 	.delete_all_partitions = disklabel_delete_all,
   1034 	.delete_partitions_in_range = disklabel_delete_range,
   1035 	.delete_partition = disklabel_delete,
   1036 	.get_part_types_count = disklabel_type_count,
   1037 	.get_part_type = disklabel_get_type,
   1038 	.get_generic_part_type = disklabel_get_generic_type,
   1039 	.get_fs_part_type = disklabel_get_fs_part_type,
   1040 	.create_custom_part_type = disklabel_create_custom_part_type,
   1041 	.get_part_alignment = disklabel_get_alignment,
   1042 	.get_part_info = disklabel_get_part_info,
   1043 	.can_add_partition = disklabel_can_add_partition,
   1044 	.set_part_info = disklabel_set_part_info,
   1045 	.add_partition = disklabel_add_partition,
   1046 	.add_outer_partition = disklabel_add_outer_partition,
   1047 	.max_free_space_at = disklabel_max_free_space_at,
   1048 	.get_free_spaces = disklabel_get_free_spaces,
   1049 	.get_part_device = disklabel_get_part_device,
   1050 	.free = disklabel_free,
   1051 };
   1052