xref: /illumos-gate/usr/src/cmd/fdisk/fdisk.c (revision 7e934d3a)

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright (c) 1992, 2010, Oracle and/or its affiliates. All rights reserved.
 * Copyright 2018 OmniOS Community Edition (OmniOSce) Association.
 */

/*	Copyright (c) 1990, 1991 UNIX System Laboratories, Inc.	*/
/*	Copyright (c) 1984, 1986, 1987, 1988, 1989, 1990 AT&T	*/
/*	  All Rights Reserved	*/

/*	Copyright (c) 1987, 1988 Microsoft Corporation	*/
/*	  All Rights Reserved	*/

/*
 * PROGRAM: fdisk(1M)
 * This program reads the partition table on the specified device and
 * also reads the drive parameters. The user can perform various
 * operations from a supplied menu or from the command line. Diagnostic
 * options are also available.
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include <fcntl.h>
#include <ctype.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <limits.h>
#include <sys/param.h>
#include <sys/systeminfo.h>
#include <sys/efi_partition.h>
#include <sys/byteorder.h>
#include <sys/systeminfo.h>

#include <sys/dktp/fdisk.h>
#include <sys/dkio.h>
#include <sys/vtoc.h>
#ifdef i386
#include <sys/tty.h>
#include <libfdisk.h>
#endif

#define	CLR_SCR ""
#define	CLR_LIN ""
#define	HOME "" \
	""
#define	Q_LINE ""

#ifdef i386
#define	W_LINE ""
#else
#define	W_LINE ""
#endif

#define	E_LINE ""

#ifdef i386
#define	M_LINE "" \
	""
#else
#define	M_LINE "" \
	""
#endif

#define	T_LINE ""

#define	DEFAULT_PATH	"/dev/rdsk/"

#define	DK_MAX_2TB	UINT32_MAX	/* Max # of sectors in 2TB */

/* for clear_vtoc() */
#define	OLD		0
#define	NEW		1

/* readvtoc/writevtoc return codes */
#define	VTOC_OK		0	/* Good VTOC */
#define	VTOC_INVAL	1	/* invalid VTOC */
#define	VTOC_NOTSUP	2	/* operation not supported - EFI label */
#define	VTOC_RWERR	3	/* couldn't read or write VTOC */

/*
 * Support for fdisk(1M) on the SPARC platform
 *	In order to convert little endian values to big endian for SPARC,
 *	byte/short and long values must be swapped.
 *	These swapping macros will be used to access information in the
 *	mboot and ipart structures.
 */

#ifdef sparc
#define	les(val)	((((val)&0xFF)<<8)|(((val)>>8)&0xFF))
#define	lel(val)	(((unsigned)(les((val)&0x0000FFFF))<<16) | \
			    (les((unsigned)((val)&0xffff0000)>>16)))
#else
#define	les(val)	(val)
#define	lel(val)	(val)
#endif

#if defined(_SUNOS_VTOC_16)
#define	VTOC_OFFSET	1
#elif defined(_SUNOS_VTOC_8)
#define	VTOC_OFFSET	0
#else
#error No VTOC format defined.
#endif

#ifdef i386
#define	FDISK_KB	(1024)
#define	FDISK_MB	(FDISK_KB * 1024)
#define	FDISK_GB	(FDISK_MB * 1024)
#define	TRUE	1

#define	FDISK_MAX_VALID_PART_ID	255
#define	FDISK_MAX_VALID_PART_NUM_DIGITS	2
#define	FDISK_MAX_VALID_PART_ID_DIGITS	3

/* Maximum number of digits for a valid partition size */
#define	FDISK_MAX_VALID_CYL_NUM_DIGITS	10

/* Minimum partition size in cylinders */
#define	FDISK_MIN_PART_SIZE	1
#endif

static char Usage[] = "Usage: fdisk\n"
"[ -A id:act:bhead:bsect:bcyl:ehead:esect:ecyl:rsect:numsect ]\n"
"[ -b masterboot ]\n"
"[ -D id:act:bhead:bsect:bcyl:ehead:esect:ecyl:rsect:numsect ]\n"
"[ -E [slot:active] ]\n"
"[ -F fdisk_file ] [ -h ] [ -o offset ] [ -P fill_patt ] [ -s size ]\n"
"[ -S geom_file ] [ [ -v ] -W { creat_fdisk_file | - } ]\n"
"[ -w | r | d | n | I | B | g | G | R | t | T ] rdevice";

static char Usage1[] = "    Partition options:\n"
"	-A id:act:bhead:bsect:bcyl:ehead:esect:ecyl:rsect:numsect\n"
"		Create a partition with specific attributes:\n"
"		id      = system id number (fdisk.h) for the partition type\n"
"		act     = active partition flag (0 is off and 128 is on)\n"
"		bhead   = beginning head for start of partition\n"
"		bsect   = beginning sector for start of partition\n"
"		bcyl    = beginning cylinder for start of partition\n"
"		ehead   = ending head for end of partition\n"
"		esect   = ending sector for end of partition\n"
"		ecyl    = ending cylinder for end of partition\n"
"		rsect   = sector number from start of disk for\n"
"			  start of partition\n"
"		numsect = partition size in sectors\n"
"	-b master_boot\n"
"		Use master_boot as the master boot file.\n"
"	-B	Create one Solaris partition that uses the entire disk.\n"
"	-D id:act:bhead:bsect:bcyl:ehead:esect:ecyl:rsect:numsect\n"
"		Delete a partition. See attribute definitions for -A.\n"
"	-E [slot:active]\n"
"		Create an EFI partition that uses the entire disk.\n"
"	-F fdisk_file\n"
"		Use fdisk_file to initialize on-line fdisk table.\n"
"	-I	Forego device checks. Generate a file image of what would go\n"
"		on a disk using the geometry specified with the -S option.\n"
"	-n	Do not run in interactive mode.\n"
"	-R	Open the disk device as read-only.\n"
"	-t	Check and adjust VTOC to be consistent with fdisk table.\n"
"		VTOC slices exceeding the partition size will be truncated.\n"
"	-T	Check and adjust VTOC to be consistent with fdisk table.\n"
"		VTOC slices exceeding the partition size will be removed.\n"
"	-W fdisk_file\n"
"		Write on-disk table to fdisk_file.\n"
"	-W -	Write on-disk table to standard output.\n"
"	-v	Display virtual geometry. Must be used with the -W option.\n"
"    Diagnostic options:\n"
"	-d	Activate debug information about progress.\n"
"	-g	Write label geometry to standard output:\n"
"		PCYL		number of physical cylinders\n"
"		NCYL		number of usable cylinders\n"
"		ACYL		number of alternate cylinders\n"
"		BCYL		cylinder offset\n"
"		NHEADS		number of heads\n"
"		NSECTORS	number of sectors per track\n"
"		SECTSIZ		size of a sector in bytes\n"
"	-G	Write physical geometry to standard output (see -g).\n"
"	-h	Issue this verbose help message.\n"
"	-o offset\n"
"		Block offset from start of disk (default 0). Ignored if\n"
"		-P # specified.\n"
"	-P fill_patt\n"
"		Fill disk with pattern fill_patt. fill_patt can be decimal or\n"
"		hexadecimal and is used as number for constant long word\n"
"		pattern. If fill_patt is \"#\" then pattern of block #\n"
"		for each block. Pattern is put in each block as long words\n"
"		and fills each block (see -o and -s).\n"
"	-r	Read from a disk to stdout (see -o and -s).\n"
"	-s size	Number of blocks on which to perform operation (see -o).\n"
"	-S geom_file\n"
"		Use geom_file to set the label geometry (see -g).\n"
"	-w	Write to a disk from stdin (see -o and -s).";

static char Ostr[] = "Other OS";
static char Dstr[] = "DOS12";
static char D16str[] = "DOS16";
static char DDstr[] = "DOS-DATA";
static char EDstr[] = "EXT-DOS";
static char DBstr[] = "DOS-BIG";
static char PCstr[] = "PCIX";
static char Ustr[] = "UNIX System";
static char SUstr[] = "Solaris";
static char SU2str[] = "Solaris2";
static char X86str[] = "x86 Boot";
static char DIAGstr[] = "Diagnostic";
static char IFSstr[] = "IFS: NTFS";
static char AIXstr[] = "AIX Boot";
static char AIXDstr[] = "AIX Data";
static char OS2str[] = "OS/2 Boot";
static char WINstr[] = "Win95 FAT32";
static char EWINstr[] = "Ext Win95";
static char FAT95str[] = "FAT16 LBA";
static char EXTLstr[] = "EXT LBA";
static char LINUXstr[] = "Linux";
static char CPMstr[] = "CP/M";
static char NOV2str[] = "Netware 286";
static char NOVstr[] = "Netware 3.x+";
static char QNXstr[] = "QNX 4.x";
static char QNX2str[] = "QNX part 2";
static char QNX3str[] = "QNX part 3";
static char LINNATstr[] = "Linux native";
#ifdef i386
static char LINSWAPstr[] = "Linux swap";
#endif
static char NTFSVOL1str[] = "NT volset 1";
static char NTFSVOL2str[] = "NT volset 2";
static char BSDstr[] = "BSD OS";
static char NEXTSTEPstr[] = "NeXTSTEP";
static char BSDIFSstr[] = "BSDI FS";
static char BSDISWAPstr[] = "BSDI swap";
static char Actvstr[] = "Active";
static char EFIstr[] = "EFI";
static char NAstr[] = "      ";

/* All the user options and flags */
static char *Dfltdev;			/* name of fixed disk drive */

/* Diagnostic options */
static int	io_wrt = 0;		/* write stdin to disk (-w) */
static int	io_rd = 0;		/* read disk and write stdout (-r) */
static char	*io_fatt;		/* user supplied pattern (-P pattern) */
static int	io_patt = 0;		/* write pattern to disk (-P pattern) */
static int	io_lgeom = 0;		/* get label geometry (-g) */
static int	io_pgeom = 0;		/* get drive physical geometry (-G) */
static char	*io_sgeom = 0;		/* set label geometry (-S geom_file) */
static int	io_readonly = 0;	/* do not write to disk (-R) */

/* The -o offset and -s size options specify the area of the disk on */
/* which to perform the particular operation; i.e., -P, -r, or -w. */
static off_t	io_offset = 0;		/* offset sector (-o offset) */
static off_t	io_size = 0;		/* size in sectors (-s size) */

/* Partition table flags */
static int	v_flag = 0;		/* virtual geometry-HBA flag (-v) */
static int 	stdo_flag = 0;		/* stdout flag (-W -) */
static int	io_fdisk = 0;		/* do fdisk operation */
static int	io_ifdisk = 0;		/* interactive partition */
static int	io_nifdisk = 0;		/* non-interactive partition (-n) */

static int	io_adjt = 0;		/* check/adjust VTOC (truncate (-t)) */
static int	io_ADJT = 0;		/* check/adjust VTOC (delete (-T)) */
static char	*io_ffdisk = 0;		/* input fdisk file name (-F file) */
static char	*io_Wfdisk = 0;		/* output fdisk file name (-W file) */
static char	*io_Afdisk = 0;		/* add entry to partition table (-A) */
static char	*io_Dfdisk = 0;		/* delete entry from part. table (-D) */

static char	*io_mboot = 0;		/* master boot record (-b boot_file) */

static struct mboot BootCod;		/* buffer for master boot record */

static int	io_wholedisk = 0;	/* use whole disk for Solaris (-B) */
static int	io_EFIdisk = 0;		/* use whole disk for EFI (-E) */
static int	io_EFIslot = 0;		/* slot in which to place EFI entry */
static int	io_EFIactive = 0;	/* mark EFI entry as active */
static int	io_debug = 0;		/* activate verbose mode (-d) */
static int	io_image = 0;		/* create image using geometry (-I) */

static struct mboot *Bootblk;		/* pointer to cut/paste sector zero */
static char	*Bootsect;		/* pointer to sector zero buffer */
static char	*Nullsect;
static struct extvtoc	disk_vtoc;	/* verify VTOC table */
static int	vt_inval = 0;
static int	no_virtgeom_ioctl = 0;	/* ioctl for virtual geometry failed */
static int	no_physgeom_ioctl = 0;	/* ioctl for physical geometry failed */

static struct ipart	Table[FD_NUMPART];
static struct ipart	Old_Table[FD_NUMPART];
static int		skip_verify[FD_NUMPART]; /* special case skip sz chk */

/* Disk geometry information */
static struct dk_minfo	minfo;
static struct dk_geom	disk_geom;

static int Dev;			/* fd for open device */

static diskaddr_t	dev_capacity;	/* number of blocks on device */
static diskaddr_t	chs_capacity;	/* Numcyl_usable * heads * sectors */

static int		Numcyl_usable;	/* Number of usable cylinders */
					/*  used to limit fdisk to 2TB */

/* Physical geometry for the drive */
static int	Numcyl;			/* number of cylinders */
static int	heads;			/* number of heads */
static int	sectors;		/* number of sectors per track */
static int	acyl;			/* number of alternate sectors */

/* HBA (virtual) geometry for the drive */
static int	hba_Numcyl;		/* number of cylinders */
static int	hba_heads;		/* number of heads */
static int	hba_sectors;		/* number of sectors per track */

static int	sectsiz;		/* sector size */

/* Load functions for fdisk table modification */
#define	LOADFILE	0	/* load fdisk from file */
#define	LOADDEL		1	/* delete an fdisk entry */
#define	LOADADD		2	/* add an fdisk entry */

#define	CBUFLEN 80
static char s[CBUFLEN];

#ifdef i386
/*
 * Complete list of all the 255 partition types. Some are unknown types
 * and some entries are known to be unused.
 *
 * Courtesy of http://www.win.tue.nl/~aeb/partitions/partition_types-1.html
 */
char *fdisk_part_types[] = {
	"Empty",				/* 0 */
	"FAT12",				/* 1 */
	"XENIX /",				/* 2 */
	"XENIX /usr",				/* 3 */
	"FAT16 (Upto 32M)",			/* 4 */
	"DOS Extended",				/* 5 */
	"FAT16 (>32M, HUGEDOS)",		/* 6 */
	"IFS: NTFS",				/* 7 */
	"AIX Boot/QNX(qny)",			/* 8 */
	"AIX Data/QNX(qnz)",			/* 9 */
	"OS/2 Boot/Coherent swap",		/* 10 */
	"WIN95 FAT32(Upto 2047GB)",		/* 11 */
	"WIN95 FAT32(LBA)",			/* 12 */
	"Unused",				/* 13 */
	"WIN95 FAT16(LBA)",			/* 14 */
	"WIN95 Extended(LBA)",			/* 15 */
	"OPUS",					/* 16 */
	"Hidden FAT12",				/* 17 */
	"Diagnostic",				/* 18 */
	"Unknown",				/* 19 */
	"Hidden FAT16(Upto 32M)",		/* 20 */
	"Unknown",				/* 21 */
	"Hidden FAT16(>=32M)",			/* 22 */
	"Hidden IFS: HPFS",			/* 23 */
	"AST SmartSleep Partition",		/* 24 */
	"Unused/Willowtech Photon",		/* 25 */
	"Unknown",				/* 26 */
	"Hidden FAT32",				/* 27 */
	"Hidden FAT32(LBA)",			/* 28 */
	"Unused",				/* 29 */
	"Hidden FAT16(LBA)",			/* 30 */
	"Unknown",				/* 31 */
	"Unused/OSF1",				/* 32 */
	"Reserved/FSo2(Oxygen FS)",		/* 33 */
	"Unused/(Oxygen EXT)",			/* 34 */
	"Reserved",				/* 35 */
	"NEC DOS 3.x",				/* 36 */
	"Unknown",				/* 37 */
	"Reserved",				/* 38 */
	"Unknown",				/* 39 */
	"Unknown",				/* 40 */
	"Unknown",				/* 41 */
	"AtheOS File System",			/* 42 */
	"SyllableSecure",			/* 43 */
	"Unknown",				/* 44 */
	"Unknown",				/* 45 */
	"Unknown",				/* 46 */
	"Unknown",				/* 47 */
	"Unknown",				/* 48 */
	"Reserved",				/* 49 */
	"NOS",					/* 50 */
	"Reserved",				/* 51 */
	"Reserved",				/* 52 */
	"JFS on OS/2",				/* 53 */
	"Reserved",				/* 54 */
	"Unknown",				/* 55 */
	"THEOS 3.2 2GB",			/* 56 */
	"Plan9/THEOS 4",			/* 57 */
	"THEOS 4 4GB",				/* 58 */
	"THEOS 4 Extended",			/* 59 */
	"PartitionMagic Recovery",		/* 60 */
	"Hidden NetWare",			/* 61 */
	"Unknown",				/* 62 */
	"Unknown",				/* 63 */
	"Venix 80286",				/* 64 */
	"MINIX/PPC PReP Boot",			/* 65 */
	"Win2K Dynamic Disk/SFS(DOS)",		/* 66 */
	"Linux+DRDOS shared",			/* 67 */
	"GoBack partition",			/* 68 */
	"Boot-US boot manager",			/* 69 */
	"EUMEL/Elan",				/* 70 */
	"EUMEL/Elan",				/* 71 */
	"EUMEL/Elan",				/* 72 */
	"Unknown",				/* 73 */
	"ALFS/THIN FS for DOS",			/* 74 */
	"Unknown",				/* 75 */
	"Oberon partition",			/* 76 */
	"QNX 4,x",				/* 77 */
	"QNX 4,x 2nd Part",			/* 78 */
	"QNX 4,x 3rd Part",			/* 79 */
	"OnTrack DM R/O, Lynx RTOS",		/* 80 */
	"OnTrack DM R/W, Novell",		/* 81 */
	"CP/M",					/* 82 */
	"Disk Manager 6.0 Aux3",		/* 83 */
	"Disk Manager 6.0 DDO",			/* 84 */
	"EZ-Drive",				/* 85 */
	"Golden Bow VFeature/AT&T MS-DOS",	/* 86 */
	"DrivePro",				/* 87 */
	"Unknown",				/* 88 */
	"Unknown",				/* 89 */
	"Unknown",				/* 90 */
	"Unknown",				/* 91 */
	"Priam EDisk",				/* 92 */
	"Unknown",				/* 93 */
	"Unknown",				/* 94 */
	"Unknown",				/* 95 */
	"Unknown",				/* 96 */
	"SpeedStor",				/* 97 */
	"Unknown",				/* 98 */
	"Unix SysV, Mach, GNU Hurd",		/* 99 */
	"PC-ARMOUR, Netware 286",		/* 100 */
	"Netware 386",				/* 101 */
	"Netware SMS",				/* 102 */
	"Novell",				/* 103 */
	"Novell",				/* 104 */
	"Netware NSS",				/* 105 */
	"Unknown",				/* 106 */
	"Unknown",				/* 107 */
	"Unknown",				/* 108 */
	"Unknown",				/* 109 */
	"Unknown",				/* 110 */
	"Unknown",				/* 111 */
	"DiskSecure Multi-Boot",		/* 112 */
	"Reserved",				/* 113 */
	"Unknown",				/* 114 */
	"Reserved",				/* 115 */
	"Scramdisk partition",			/* 116 */
	"IBM PC/IX",				/* 117 */
	"Reserved",				/* 118 */
	"M2FS/M2CS,Netware VNDI",		/* 119 */
	"XOSL FS",				/* 120 */
	"Unknown",				/* 121 */
	"Unknown",				/* 122 */
	"Unknown",				/* 123 */
	"Unknown",				/* 124 */
	"Unknown",				/* 125 */
	"Unused",				/* 126 */
	"Unused",				/* 127 */
	"MINIX until 1.4a",			/* 128 */
	"MINIX since 1.4b, early Linux",	/* 129 */
	"Solaris/Linux swap",			/* 130 */
	"Linux native",				/* 131 */
	"OS/2 hidden,Win Hibernation",		/* 132 */
	"Linux extended",			/* 133 */
	"Old Linux RAID,NT FAT16 RAID",		/* 134 */
	"NTFS volume set",			/* 135 */
	"Linux plaintext part table",		/* 136 */
	"Unknown",				/* 137 */
	"Linux Kernel Partition",		/* 138 */
	"Fault Tolerant FAT32 volume",		/* 139 */
	"Fault Tolerant FAT32 volume",		/* 140 */
	"Free FDISK hidden PDOS FAT12",		/* 141 */
	"Linux LVM partition",			/* 142 */
	"Unknown",				/* 143 */
	"Free FDISK hidden PDOS FAT16",		/* 144 */
	"Free FDISK hidden DOS EXT",		/* 145 */
	"Free FDISK hidden FAT16 Large",	/* 146 */
	"Hidden Linux native, Amoeba",		/* 147 */
	"Amoeba Bad Block Table",		/* 148 */
	"MIT EXOPC Native",			/* 149 */
	"Unknown",				/* 150 */
	"Free FDISK hidden PDOS FAT32",		/* 151 */
	"Free FDISK hidden FAT32 LBA",		/* 152 */
	"DCE376 logical drive",			/* 153 */
	"Free FDISK hidden FAT16 LBA",		/* 154 */
	"Free FDISK hidden DOS EXT",		/* 155 */
	"Unknown",				/* 156 */
	"Unknown",				/* 157 */
	"Unknown",				/* 158 */
	"BSD/OS",				/* 159 */
	"Laptop hibernation",			/* 160 */
	"Laptop hibernate,HP SpeedStor",	/* 161 */
	"Unknown",				/* 162 */
	"HP SpeedStor",				/* 163 */
	"HP SpeedStor",				/* 164 */
	"BSD/386,386BSD,NetBSD,FreeBSD",	/* 165 */
	"OpenBSD,HP SpeedStor",			/* 166 */
	"NeXTStep",				/* 167 */
	"Mac OS-X",				/* 168 */
	"NetBSD",				/* 169 */
	"Olivetti FAT12 1.44MB Service",	/* 170 */
	"Mac OS-X Boot",			/* 171 */
	"Unknown",				/* 172 */
	"Unknown",				/* 173 */
	"ShagOS filesystem",			/* 174 */
	"ShagOS swap",				/* 175 */
	"BootStar Dummy",			/* 176 */
	"HP SpeedStor",				/* 177 */
	"Unknown",				/* 178 */
	"HP SpeedStor",				/* 179 */
	"HP SpeedStor",				/* 180 */
	"Unknown",				/* 181 */
	"Corrupted FAT16 NT Mirror Set",	/* 182 */
	"Corrupted NTFS NT Mirror Set",		/* 183 */
	"Old BSDI BSD/386 swap",		/* 184 */
	"Unknown",				/* 185 */
	"Unknown",				/* 186 */
	"Boot Wizard hidden",			/* 187 */
	"Unknown",				/* 188 */
	"Unknown",				/* 189 */
	"Solaris x86 boot",			/* 190 */
	"Solaris2",				/* 191 */
	"REAL/32 or Novell DOS secured",	/* 192 */
	"DRDOS/secured(FAT12)",			/* 193 */
	"Hidden Linux",				/* 194 */
	"Hidden Linux swap",			/* 195 */
	"DRDOS/secured(FAT16,< 32M)",		/* 196 */
	"DRDOS/secured(Extended)",		/* 197 */
	"NT corrupted FAT16 volume",		/* 198 */
	"NT corrupted NTFS volume",		/* 199 */
	"DRDOS8.0+",				/* 200 */
	"DRDOS8.0+",				/* 201 */
	"DRDOS8.0+",				/* 202 */
	"DRDOS7.04+ secured FAT32(CHS)",	/* 203 */
	"DRDOS7.04+ secured FAT32(LBA)",	/* 204 */
	"CTOS Memdump",				/* 205 */
	"DRDOS7.04+ FAT16X(LBA)",		/* 206 */
	"DRDOS7.04+ secure EXT DOS(LBA)",	/* 207 */
	"REAL/32 secure big, MDOS",		/* 208 */
	"Old MDOS secure FAT12",		/* 209 */
	"Unknown",				/* 210 */
	"Unknown",				/* 211 */
	"Old MDOS secure FAT16 <32M",		/* 212 */
	"Old MDOS secure EXT",			/* 213 */
	"Old MDOS secure FAT16 >=32M",		/* 214 */
	"Unknown",				/* 215 */
	"CP/M-86",				/* 216 */
	"Unknown",				/* 217 */
	"Non-FS Data",				/* 218 */
	"CP/M,Concurrent DOS,CTOS",		/* 219 */
	"Unknown",				/* 220 */
	"Hidden CTOS memdump",			/* 221 */
	"Dell PowerEdge utilities(FAT)",	/* 222 */
	"DG/UX virtual disk manager",		/* 223 */
	"ST AVFS(STMicroelectronics)",		/* 224 */
	"SpeedStor 12-bit FAT EXT",		/* 225 */
	"Unknown",				/* 226 */
	"SpeedStor",				/* 227 */
	"SpeedStor 16-bit FAT EXT",		/* 228 */
	"Tandy MSDOS",				/* 229 */
	"Storage Dimensions SpeedStor",		/* 230 */
	"Unknown",				/* 231 */
	"Unknown",				/* 232 */
	"Unknown",				/* 233 */
	"Unknown",				/* 234 */
	"BeOS BFS",				/* 235 */
	"SkyOS SkyFS",				/* 236 */
	"Unused",				/* 237 */
	"EFI Header Indicator",			/* 238 */
	"EFI Filesystem",			/* 239 */
	"Linux/PA-RISC boot loader",		/* 240 */
	"SpeedStor",				/* 241 */
	"DOS 3.3+ secondary",			/* 242 */
	"SpeedStor Reserved",			/* 243 */
	"SpeedStor Large",			/* 244 */
	"Prologue multi-volume",		/* 245 */
	"SpeedStor",				/* 246 */
	"Unused",				/* 247 */
	"Unknown",				/* 248 */
	"pCache",				/* 249 */
	"Bochs",				/* 250 */
	"VMware File System",			/* 251 */
	"VMware swap",				/* 252 */
	"Linux raid autodetect",		/* 253 */
	"NT Disk Administrator hidden",		/* 254 */
	"Xenix Bad Block Table"			/* 255 */
};

/* Allowed extended partition menu options */
static char ext_part_menu_opts[] = "adhipr";

/*
 * Structure holding all information about the extended partition
 * NOTE : As of now, there will be just one instance of ext_part_t, since most
 * known systems allow only one extended dos partition per disk.
 */
static ext_part_t *epp;
#endif

static void update_disk_and_exit(boolean_t table_changed);
int main(int argc, char *argv[]);
static int read_geom(char *sgeom);
static void dev_mboot_read(void);
static void dev_mboot_write(off_t sect, char *buff, int bootsiz);
static void mboot_read(void);
static void fill_patt(void);
static void abs_read(void);
static void abs_write(void);
static void load(int funct, char *file);
static void Set_Table_CHS_Values(int ti);
static int nopartdefined();
static int insert_tbl(int id, int act,
    int bhead, int bsect, int bcyl,
    int ehead, int esect, int ecyl,
    uint32_t rsect, uint32_t numsect, int startindex);
static int entry_from_old_table(int id, int act,
    int bhead, int bsect, int bcyl,
    int ehead, int esect, int ecyl,
    uint32_t rsect, uint32_t numsect, int startindex);
static int verify_tbl(void);
static int pars_fdisk(char *line,
    int *id, int *act,
    int *bhead, int *bsect, int *bcyl,
    int *ehead, int *esect, int *ecyl,
    uint32_t *rsect, uint32_t *numsect);
static int validate_part(int id, uint32_t rsect, uint32_t numsect);
static void stage0(void);
static int pcreate(void);
static int specify(uchar_t tsystid);
static void dispmenu(void);
static int pchange(void);
static int ppartid(void);
static char pdelete(void);
static void rm_blanks(char *s);
static int getcyl(void);
static void disptbl(void);
static void print_Table(void);
static void copy_Table_to_Old_Table(void);
static void nulltbl(void);
static void copy_Bootblk_to_Table(void);
static void fill_ipart(char *bootptr, struct ipart *partp);
#ifdef sparc
uchar_t getbyte(char **bp);
uint32_t getlong(char **bp);
#endif
static void copy_Table_to_Bootblk(void);
static int TableChanged(void);
static void ffile_write(char *file);
static void fix_slice(void);
static int yesno(void);
static int readvtoc(void);
static int writevtoc(void);
static int efi_ioctl(int fd, int cmd, dk_efi_t *dk_ioc);
static int clear_efi(void);
static void clear_vtoc(int table, int part);
static int lecture_and_query(char *warning, char *devname);
static void sanity_check_provided_device(char *devname, int fd);
static char *get_node(char *devname);
static int efi_create(void);

#ifdef i386
static void id_to_name(uchar_t sysid, char *buffer);
static void ext_read_input(char *buf);
static int ext_read_options(char *buf);
static int ext_invalid_option(char ch);
static void ext_read_valid_part_num(int *pno);
static void ext_read_valid_part_id(uchar_t *partid);
static int ext_read_valid_partition_start(uint32_t *begsec);
static void ext_read_valid_partition_size(uint32_t begsec, uint32_t *endsec);
static void ext_part_menu();
static void add_logical_drive();
static void delete_logical_drive();
static void ext_print_help_menu();
static void ext_change_logical_drive_id();
static void ext_print_part_types();
static void ext_print_logical_drive_layout();
static void preach_and_continue();
#ifdef DEBUG
static void ext_print_logdrive_layout_debug();
#endif	/* DEBUG */
#endif	/* i386 */

/*
 * This function is called only during the non-interactive mode.
 * It is touchy and does not tolerate any errors. If there are
 * mounted logical drives, changes to the partition table
 * are disallowed.
 */
static void
update_disk_and_exit(boolean_t table_changed)
{
#ifdef i386
	int rval;
#endif
	if (table_changed) {
		/*
		 * Copy the new table back to the sector buffer
		 * and write it to disk
		 */
		copy_Table_to_Bootblk();
		dev_mboot_write(0, Bootsect, sectsiz);
	}

	/* If the VTOC table is wrong fix it (truncation only) */
	if (io_adjt)
		fix_slice();

#ifdef i386
	if (!io_readonly) {
		rval = fdisk_commit_ext_part(epp);
		switch (rval) {
			case FDISK_SUCCESS:
				/* Success */
				break;
			case FDISK_ENOEXTPART:
				/* Nothing to do */
				break;
			default:
				(void) fprintf(stderr, "Error in"
				    " fdisk_commit_ext_part\n");
				exit(rval);
		}
	}
	libfdisk_fini(&epp);
#endif
	exit(0);
}

/*
 * main
 * Process command-line options.
 */
int
main(int argc, char *argv[])
{
	int c, i;
	extern	int optind;
	extern	char *optarg;
	int	errflg = 0;
	int	diag_cnt = 0;
	int openmode;
#ifdef i386
	int rval;
	int lf_op_flag = 0;
#endif

	setbuf(stderr, 0);	/* so all output gets out on exit */
	setbuf(stdout, 0);

	/* Process the options. */
	while ((c = getopt(argc, argv, "o:s:P:F:b:A:D:W:S:tTIhwvrndgGRBE:"))
	    != EOF) {
		switch (c) {

			case 'o':
				io_offset = (off_t)strtoull(optarg, 0, 0);
				continue;
			case 's':
				io_size = (off_t)strtoull(optarg, 0, 0);
				continue;
			case 'P':
				diag_cnt++;
				io_patt++;
				io_fatt = optarg;
				continue;
			case 'w':
				diag_cnt++;
				io_wrt++;
				continue;
			case 'r':
				diag_cnt++;
				io_rd++;
				continue;
			case 'd':
				io_debug++;
				continue;
			case 'I':
				io_image++;
				continue;
			case 'R':
				io_readonly++;
				continue;
			case 'S':
				diag_cnt++;
				io_sgeom = optarg;
				continue;
			case 'T':
				io_ADJT++;
				/* FALLTHROUGH */
			case 't':
				io_adjt++;
				continue;
			case 'B':
				io_wholedisk++;
				io_fdisk++;
				continue;
			case 'E':
				if (sscanf(optarg, "%d:%d",
				    &io_EFIslot, &io_EFIactive) != 2) {
					io_EFIslot = io_EFIactive = 0;
					optind--;
				}
				io_EFIdisk++;
				io_fdisk++;
				continue;
			case 'g':
				diag_cnt++;
				io_lgeom++;
				continue;
			case 'G':
				diag_cnt++;
				io_pgeom++;
				continue;
			case 'n':
				io_nifdisk++;
				io_fdisk++;
				continue;
			case 'F':
				io_fdisk++;
				io_ffdisk = optarg;
				continue;
			case 'b':
				io_mboot = optarg;
				continue;
			case 'W':
				/*
				 * If '-' is the -W argument, then write
				 * to standard output, otherwise write
				 * to the specified file.
				 */
				if (strncmp(optarg, "-", 1) == 0)
					stdo_flag = 1;
				else
					io_Wfdisk = optarg;
				io_fdisk++;
				continue;
			case 'A':
				io_fdisk++;
				io_Afdisk = optarg;
				continue;
			case 'D':
				io_fdisk++;
				io_Dfdisk = optarg;
				continue;
			case 'h':
				(void) fprintf(stderr, "%s\n", Usage);
				(void) fprintf(stderr, "%s\n", Usage1);
				exit(0);
				/* FALLTHROUGH */
			case 'v':
				v_flag = 1;
				continue;
			case '?':
				errflg++;
				break;
		}
		break;
	}

	if (io_image && io_sgeom && diag_cnt == 1) {
		diag_cnt = 0;
	}

	/* User option checking */

	/* By default, run in interactive mode */
	if (!io_fdisk && !diag_cnt && !io_nifdisk) {
		io_ifdisk++;
		io_fdisk++;
	}
	if (((io_fdisk || io_adjt) && diag_cnt) || (diag_cnt > 1)) {
		errflg++;
	}

	/* Was any error detected? */
	if (errflg || argc == optind) {
		(void) fprintf(stderr, "%s\n", Usage);
		(void) fprintf(stderr,
		    "\nDetailed help is available with the -h option.\n");
		exit(2);
	}

	/* Figure out the correct device node to open */
	Dfltdev = get_node(argv[optind]);

	if (io_readonly)
		openmode = O_RDONLY;
	else
		openmode = O_RDWR|O_CREAT;

	if ((Dev = open(Dfltdev, openmode, 0666)) == -1) {
		(void) fprintf(stderr,
		    "fdisk: Cannot open device %s.\n",
		    Dfltdev);
		exit(1);
	}
	/*
	 * not all disk (or disklike) drivers support DKIOCGMEDIAINFO
	 * in that case leave the minfo structure zeroed
	 */
	if (ioctl(Dev, DKIOCGMEDIAINFO, &minfo)) {
		(void) memset(&minfo, 0, sizeof (minfo));
	}

	/* Get the disk geometry */
	if (!io_image) {
		/* Get disk's HBA (virtual) geometry */
		errno = 0;
		if (ioctl(Dev, DKIOCG_VIRTGEOM, &disk_geom)) {

			/*
			 * If ioctl isn't implemented on this platform, then
			 * turn off flag to print out virtual geometry (-v),
			 * otherwise use the virtual geometry.
			 */

			if (errno == ENOTTY) {
				v_flag = 0;
				no_virtgeom_ioctl = 1;
			} else if (errno == EINVAL) {
				/*
				 * This means that the ioctl exists, but
				 * is invalid for this disk, meaning the
				 * disk doesn't have an HBA geometry
				 * (like, say, it's larger than 8GB).
				 */
				v_flag = 0;
				hba_Numcyl = hba_heads = hba_sectors = 0;
			} else {
				(void) fprintf(stderr,
				    "%s: Cannot get virtual disk geometry.\n",
				    argv[optind]);
				exit(1);
			}
		} else {
			/* save virtual geometry values obtained by ioctl */
			hba_Numcyl = disk_geom.dkg_ncyl;
			hba_heads = disk_geom.dkg_nhead;
			hba_sectors = disk_geom.dkg_nsect;
		}

		errno = 0;
		if (ioctl(Dev, DKIOCG_PHYGEOM, &disk_geom)) {
			if (errno == ENOTTY) {
				no_physgeom_ioctl = 1;
			} else {
				(void) fprintf(stderr,
				    "%s: Cannot get physical disk geometry.\n",
				    argv[optind]);
				exit(1);
			}

		}
		/*
		 * Call DKIOCGGEOM if the ioctls for physical and virtual
		 * geometry fail. Get both from this generic call.
		 */
		if (no_virtgeom_ioctl && no_physgeom_ioctl) {
			errno = 0;
			if (ioctl(Dev, DKIOCGGEOM, &disk_geom)) {
				(void) fprintf(stderr,
				    "%s: Cannot get disk label geometry.\n",
				    argv[optind]);
				exit(1);
			}
		}

		Numcyl = disk_geom.dkg_ncyl;
		heads = disk_geom.dkg_nhead;
		sectors = disk_geom.dkg_nsect;

		if (minfo.dki_lbsize != 0)
			sectsiz = minfo.dki_lbsize;
		else
			sectsiz = 512;

		acyl = disk_geom.dkg_acyl;

		/*
		 * if hba geometry was not set by DKIOC_VIRTGEOM
		 * or we got an invalid hba geometry
		 * then set hba geometry based on max values
		 */
		if (no_virtgeom_ioctl ||
		    disk_geom.dkg_ncyl == 0 ||
		    disk_geom.dkg_nhead == 0 ||
		    disk_geom.dkg_nsect == 0 ||
		    disk_geom.dkg_ncyl > MAX_CYL ||
		    disk_geom.dkg_nhead > MAX_HEAD + 1 ||
		    disk_geom.dkg_nsect > MAX_SECT) {

			/*
			 * turn off flag to print out virtual geometry (-v)
			 */
			v_flag = 0;
			hba_sectors	= MAX_SECT;
			hba_heads	= MAX_HEAD + 1;
			hba_Numcyl	= (Numcyl * heads * sectors) /
			    (hba_sectors * hba_heads);
		}

		if (io_debug) {
			(void) fprintf(stderr, "Physical Geometry:\n");
			(void) fprintf(stderr,
			    "  cylinders[%d] heads[%d] sectors[%d]\n"
			    "  sector size[%d] blocks[%d] mbytes[%d]\n",
			    Numcyl,
			    heads,
			    sectors,
			    sectsiz,
			    Numcyl * heads * sectors,
			    (Numcyl * heads * sectors * sectsiz) / 1048576);
			(void) fprintf(stderr, "Virtual (HBA) Geometry:\n");
			(void) fprintf(stderr,
			    "  cylinders[%d] heads[%d] sectors[%d]\n"
			    "  sector size[%d] blocks[%d] mbytes[%d]\n",
			    hba_Numcyl,
			    hba_heads,
			    hba_sectors,
			    sectsiz,
			    hba_Numcyl * hba_heads * hba_sectors,
			    (hba_Numcyl * hba_heads * hba_sectors * sectsiz) /
			    1048576);
		}
	}

	/* If user has requested a geometry report just do it and exit */
	if (io_lgeom) {
		if (ioctl(Dev, DKIOCGGEOM, &disk_geom)) {
			(void) fprintf(stderr,
			    "%s: Cannot get disk label geometry.\n",
			    argv[optind]);
			exit(1);
		}
		Numcyl = disk_geom.dkg_ncyl;
		heads = disk_geom.dkg_nhead;
		sectors = disk_geom.dkg_nsect;
		if (minfo.dki_lbsize != 0)
			sectsiz = minfo.dki_lbsize;
		else
			sectsiz = 512;

		acyl = disk_geom.dkg_acyl;
		(void) printf("* Label geometry for device %s\n", Dfltdev);
		(void) printf(
		    "* PCYL     NCYL     ACYL     BCYL     NHEAD NSECT"
		    " SECSIZ\n");
		(void) printf("  %-8d %-8d %-8d %-8d %-5d %-5d %-6d\n",
		    Numcyl,
		    disk_geom.dkg_ncyl,
		    disk_geom.dkg_acyl,
		    disk_geom.dkg_bcyl,
		    heads,
		    sectors,
		    sectsiz);
		exit(0);
	} else if (io_pgeom) {
		if (ioctl(Dev, DKIOCG_PHYGEOM, &disk_geom)) {
			(void) fprintf(stderr,
			    "%s: Cannot get physical disk geometry.\n",
			    argv[optind]);
			exit(1);
		}
		(void) printf("* Physical geometry for device %s\n", Dfltdev);
		(void) printf(
		    "* PCYL     NCYL     ACYL     BCYL     NHEAD NSECT"
		    " SECSIZ\n");
		(void) printf("  %-8d %-8d %-8d %-8d %-5d %-5d %-6d\n",
		    disk_geom.dkg_pcyl,
		    disk_geom.dkg_ncyl,
		    disk_geom.dkg_acyl,
		    disk_geom.dkg_bcyl,
		    disk_geom.dkg_nhead,
		    disk_geom.dkg_nsect,
		    sectsiz);
		exit(0);
	} else if (io_sgeom) {
		if (read_geom(io_sgeom)) {
			exit(1);
		} else if (!io_image) {
			exit(0);
		}
	}

	/*
	 * some drivers may not support DKIOCGMEDIAINFO
	 * in that case use CHS
	 */
	chs_capacity = (diskaddr_t)Numcyl * heads * sectors;
	dev_capacity = chs_capacity;
	Numcyl_usable = Numcyl;

	if (chs_capacity > DK_MAX_2TB) {
		/* limit to 2TB */
		Numcyl_usable = DK_MAX_2TB / (heads * sectors);
		chs_capacity = (diskaddr_t)Numcyl_usable * heads * sectors;
	}

	if (minfo.dki_capacity > 0)
		dev_capacity = minfo.dki_capacity;

	/* Allocate memory to hold three complete sectors */
	Bootsect = (char *)calloc(3 * sectsiz, 1);
	if (Bootsect == NULL) {
		(void) fprintf(stderr,
		    "fdisk: Unable to obtain enough buffer memory"
		    " (%d bytes).\n",
		    3 * sectsiz);
		exit(1);
	}

	Nullsect = Bootsect + sectsiz;
	/* Zero out the "NULL" sector */
	for (i = 0; i < sectsiz; i++) {
		Nullsect[i] = 0;
	}

	/* Find out what the user wants done */
	if (io_rd) {		/* abs disk read */
		abs_read();	/* will not return */
	} else if (io_wrt && !io_readonly) {
		abs_write();	/* will not return */
	} else if (io_patt && !io_readonly) {
		fill_patt();	/* will not return */
	}

	/* This is the fdisk edit, the real reason for the program.	*/

	sanity_check_provided_device(Dfltdev, Dev);

	/* Get the new BOOT program in case we write a new fdisk table */
	mboot_read();

	/* Read from disk master boot */
	dev_mboot_read();

	/*
	 * Verify and copy the device's fdisk table. This will be used
	 * as the prototype mboot if the device's mboot looks invalid.
	 */
	Bootblk = (struct mboot *)Bootsect;
	copy_Bootblk_to_Table();

	/* save away a copy of Table in Old_Table for sensing changes */
	copy_Table_to_Old_Table();

#ifdef i386
	/*
	 * Read extended partition only when the fdisk table is not
	 * supplied from a file
	 */
	if (!io_ffdisk) {
		lf_op_flag |= FDISK_READ_DISK;
	}
	if ((rval = libfdisk_init(&epp, Dfltdev, &Table[0], lf_op_flag))
	    != FDISK_SUCCESS) {
		switch (rval) {
			/*
			 * FDISK_EBADLOGDRIVE, FDISK_ENOLOGDRIVE and
			 * FDISK_EBADMAGIC can be considered as
			 * soft errors and hence we do not exit
			 */
			case FDISK_EBADLOGDRIVE:
				break;
			case FDISK_ENOLOGDRIVE:
				break;
			case FDISK_EBADMAGIC:
				break;
			case FDISK_ENOVGEOM:
				(void) fprintf(stderr, "Could not get virtual"
				    " geometry for this device\n");
				exit(1);
				break;
			case FDISK_ENOPGEOM:
				(void) fprintf(stderr, "Could not get physical"
				    " geometry for this device\n");
				exit(1);
				break;
			case FDISK_ENOLGEOM:
				(void) fprintf(stderr, "Could not get label"
				    " geometry for this device\n");
				exit(1);
				break;
			default:
				perror("Failed to initialise libfdisk.\n");
				exit(1);
				break;
		}
	}
#endif

	/* Load fdisk table from specified file (-F fdisk_file) */
	if (io_ffdisk) {
		/* Load and verify user-specified table parameters */
		load(LOADFILE, io_ffdisk);
	}

	/* Does user want to delete or add an entry? */
	if (io_Dfdisk) {
		load(LOADDEL, io_Dfdisk);
	}
	if (io_Afdisk) {
		load(LOADADD, io_Afdisk);
	}

	if (!io_ffdisk && !io_Afdisk && !io_Dfdisk) {
		/* Check if there is no fdisk table */
		if (nopartdefined() || io_wholedisk || io_EFIdisk) {
			if (io_ifdisk && !io_wholedisk && !io_EFIdisk) {
				(void) printf(
				    "No fdisk table exists. The default"
				    " partition for the disk is:\n\n"
				    "  a 100%% \"SOLARIS System\" "
				    "partition\n\n"
				    "Type \"y\" to accept the default "
				    "partition,  otherwise type \"n\" to "
				    "edit the\n partition table.\n");

				if (Numcyl > Numcyl_usable)
					(void) printf("WARNING: Disk is larger"
					    " than 2TB. Solaris partition will"
					    " be limited to 2 TB.\n");
			}

			/* Edit the partition table as directed */
			if (io_wholedisk ||(io_ifdisk && yesno())) {

				/* Default scenario */
				nulltbl();
				/* now set up UNIX System partition */
				Table[0].bootid = ACTIVE;
				Table[0].relsect = LE_32(heads * sectors);

				Table[0].numsect =
				    LE_32((ulong_t)((Numcyl_usable - 1) *
				    heads * sectors));

				Table[0].systid = SUNIXOS2;   /* Solaris */

				/* calculate CHS values for table entry 0 */
				Set_Table_CHS_Values(0);
				update_disk_and_exit(B_TRUE);
			} else if (io_EFIdisk) {
				if (efi_create() == 0) {
					(void) fprintf(stderr,
					    "Error creating EFI partition\n");
					exit(1);
				}
				(void) close(Dev);
				exit(0);
				/* NOTREACHED */
			}
		}
	}

	/* Display complete fdisk table entries for debugging purposes */
	if (io_debug) {
		(void) fprintf(stderr, "Partition Table Entry Values:\n");
		print_Table();
		if (io_ifdisk) {
			(void) fprintf(stderr, "\n");
			(void) fprintf(stderr, "Press Enter to continue.\n");
			(void) fgets(s, sizeof (s), stdin);
		}
	}

	/* Interactive fdisk mode */
	if (io_ifdisk) {
		(void) printf(CLR_SCR);
		disptbl();
		for (;;) {
			stage0();
			copy_Bootblk_to_Table();
			disptbl();
		}
	}

	/* If user wants to write the table to a file, do it */
	if (io_Wfdisk)
		ffile_write(io_Wfdisk);
	else if (stdo_flag)
		ffile_write((char *)stdout);

	update_disk_and_exit(TableChanged() == 1);
	return (0);
}

/*
 * read_geom
 * Read geometry from specified file (-S).
 */

static int
read_geom(char *sgeom)
{
	char	line[256];
	FILE *fp;

	/* open the prototype file */
	if ((fp = fopen(sgeom, "r")) == NULL) {
		(void) fprintf(stderr, "fdisk: Cannot open file %s.\n",
		    io_sgeom);
		return (1);
	}

	/* Read a line from the file */
	while (fgets(line, sizeof (line) - 1, fp)) {
		if (line[0] == '\0' || line[0] == '\n' || line[0] == '*')
			continue;
		else {
			line[strlen(line)] = '\0';
			if (sscanf(line, "%hu %hu %hu %hu %hu %hu %d",
			    &disk_geom.dkg_pcyl,
			    &disk_geom.dkg_ncyl,
			    &disk_geom.dkg_acyl,
			    &disk_geom.dkg_bcyl,
			    &disk_geom.dkg_nhead,
			    &disk_geom.dkg_nsect,
			    &sectsiz) != 7) {
				(void) fprintf(stderr,
				    "Syntax error:\n	\"%s\".\n",
				    line);
				return (1);
			}
			break;
		} /* else */
	} /* while (fgets(line, sizeof (line) - 1, fp)) */

	if (!io_image) {
		if (ioctl(Dev, DKIOCSGEOM, &disk_geom)) {
			(void) fprintf(stderr,
			    "fdisk: Cannot set label geometry.\n");
			return (1);
		}
	} else {
		Numcyl = hba_Numcyl = disk_geom.dkg_ncyl;
		heads = hba_heads = disk_geom.dkg_nhead;
		sectors = hba_sectors = disk_geom.dkg_nsect;
		acyl = disk_geom.dkg_acyl;
	}

	(void) fclose(fp);
	return (0);
}

/*
 * dev_mboot_read
 * Read the master boot sector from the device.
 */
static void
dev_mboot_read(void)
{
	if ((ioctl(Dev, DKIOCGMBOOT, Bootsect) < 0) && (errno != ENOTTY)) {
		perror("Error in ioctl DKIOCGMBOOT");
	}
	if (errno == 0)
		return;
	if (lseek(Dev, 0, SEEK_SET) == -1) {
		(void) fprintf(stderr,
		    "fdisk: Error seeking to partition table on %s.\n",
		    Dfltdev);
		if (!io_image)
			exit(1);
	}
	if (read(Dev, Bootsect, sectsiz) != sectsiz) {
		(void) fprintf(stderr,
		    "fdisk: Error reading partition table from %s.\n",
		    Dfltdev);
		if (!io_image)
			exit(1);
	}
}

/*
 * dev_mboot_write
 * Write the master boot sector to the device.
 */
static void
dev_mboot_write(off_t sect, char *buff, int bootsiz)
{
	int 	new_pt, old_pt, error;
	int	clr_efi = -1;

	if (io_readonly)
		return;

	if (io_debug) {
		(void) fprintf(stderr, "About to write fdisk table:\n");
		print_Table();
		if (io_ifdisk) {
			(void) fprintf(stderr, "Press Enter to continue.\n");
			(void) fgets(s, sizeof (s), stdin);
		}
	}

	/*
	 * If the new table has any Solaris partitions and the old
	 * table does not have an entry that describes it
	 * exactly then clear the old vtoc (if any).
	 */
	for (new_pt = 0; new_pt < FD_NUMPART; new_pt++) {

		/* We only care about potential Solaris parts. */
		if (Table[new_pt].systid != SUNIXOS &&
		    Table[new_pt].systid != SUNIXOS2)
			continue;

		/* Does the old table have an exact entry for the new entry? */
		for (old_pt = 0; old_pt < FD_NUMPART; old_pt++) {

			/* We only care about old Solaris partitions. */
			if ((Old_Table[old_pt].systid == SUNIXOS) ||
			    (Old_Table[old_pt].systid == SUNIXOS2)) {

				/* Is this old one the same as a new one? */
				if ((Old_Table[old_pt].relsect ==
				    Table[new_pt].relsect) &&
				    (Old_Table[old_pt].numsect ==
				    Table[new_pt].numsect))
					break; /* Yes */
			}
		}

		/* Did a solaris partition change location or size? */
		if (old_pt >= FD_NUMPART) {
			/* Yes clear old vtoc */
			if (io_debug) {
				(void) fprintf(stderr,
				    "Clearing VTOC labels from NEW"
				    " table\n");
			}
			clear_vtoc(NEW, new_pt);
		}
	}

	/* see if the old table had EFI */
	for (old_pt = 0; old_pt < FD_NUMPART; old_pt++) {
		if (Old_Table[old_pt].systid == EFI_PMBR) {
			clr_efi = old_pt;
		}
	}

	/* look to see if a EFI partition changed in relsect/numsect */
	for (new_pt = 0; new_pt < FD_NUMPART; new_pt++) {
		if (Table[new_pt].systid != EFI_PMBR)
			continue;
		for (old_pt = 0; old_pt < FD_NUMPART; old_pt++) {
			if ((Old_Table[old_pt].systid ==
			    Table[new_pt].systid) &&
			    (Old_Table[old_pt].relsect ==
			    Table[new_pt].relsect) &&
			    (Old_Table[old_pt].numsect ==
			    Table[new_pt].numsect)) {
				/*
				 * New EFI guard partition matches old.
				 * Do not clear EFI labels in this case.
				 */
				clr_efi = -1;
				break;
			}
		}

		/*
		 * if EFI partition changed, set the flag to clear
		 * the EFI GPT
		 */
		if (old_pt == FD_NUMPART && Table[new_pt].begcyl != 0) {
			clr_efi = 0;
		}
		break;
	}

	/* clear labels if necessary */
	if (clr_efi >= 0) {
		if (io_debug) {
			(void) fprintf(stderr, "Clearing EFI labels\n");
		}
		if ((error = clear_efi()) != 0) {
			if (io_debug) {
				(void) fprintf(stderr,
				    "\tError %d clearing EFI labels"
				    " (probably no EFI labels exist)\n",
				    error);
			}
		}
	}

	if ((ioctl(Dev, DKIOCSMBOOT, buff) == -1) && (errno != ENOTTY)) {
		(void) fprintf(stderr,
		    "fdisk: Error in ioctl DKIOCSMBOOT on %s.\n",
		    Dfltdev);
	}
	if (errno == 0)
		return;

	/* write to disk drive */
	if (lseek(Dev, sect, SEEK_SET) == -1) {
		(void) fprintf(stderr,
		    "fdisk: Error seeking to master boot record on %s.\n",
		    Dfltdev);
		exit(1);
	}
	if (write(Dev, buff, bootsiz) != bootsiz) {
		(void) fprintf(stderr,
		    "fdisk: Error writing master boot record to %s.\n",
		    Dfltdev);
		exit(1);
	}
}

/*
 * mboot_read
 * Read the prototype boot records from the files.
 */
static void
mboot_read(void)
{
	int mDev, i;
	struct ipart *part;

#if defined(i386) || defined(sparc)
	/*
	 * If the master boot file hasn't been specified, use the
	 * implementation architecture name to generate the default one.
	 */
	if (io_mboot == (char *)0) {
		/*
		 * Bug ID 1249035:
		 *	The mboot file must be delivered on all platforms
		 *	and installed in a non-platform-dependent
		 *	directory; i.e., /usr/lib/fs/ufs.
		 */
		io_mboot = "/usr/lib/fs/ufs/mboot";
	}

	/* First read in the master boot record */

	/* Open the master boot proto file */
	if ((mDev = open(io_mboot, O_RDONLY, 0666)) == -1) {
		(void) fprintf(stderr,
		    "fdisk: Cannot open master boot file %s.\n",
		    io_mboot);
		exit(1);
	}

	/* Read the master boot program */
	if (read(mDev, &BootCod, sizeof (struct mboot)) != sizeof
	    (struct mboot)) {
		(void) fprintf(stderr,
		    "fdisk: Cannot read master boot file %s.\n",
		    io_mboot);
		exit(1);
	}

	/* Is this really a master boot record? */
	if (LE_16(BootCod.signature) != MBB_MAGIC) {
		(void) fprintf(stderr,
		    "fdisk: Invalid master boot file %s.\n", io_mboot);
		(void) fprintf(stderr,
		    "Bad magic number: is %x, but should be %x.\n",
		    LE_16(BootCod.signature), MBB_MAGIC);
		exit(1);
	}

	(void) close(mDev);
#else
#error	fdisk needs to be ported to new architecture
#endif

	/* Zero out the partitions part of this record */
	part = (struct ipart *)BootCod.parts;
	for (i = 0; i < FD_NUMPART; i++, part++) {
		(void) memset(part, 0, sizeof (struct ipart));
	}

}

/*
 * fill_patt
 * Fill the disk with user/sector number pattern.
 */
static void
fill_patt(void)
{
	int	*buff_ptr, i;
	off_t	*off_ptr;
	int	io_fpatt = 0;
	int	io_ipatt = 0;

	if (strncmp(io_fatt, "#", 1) != 0) {
		io_fpatt++;
		io_ipatt = strtoul(io_fatt, 0, 0);
		buff_ptr = (int *)Bootsect;
		for (i = 0; i < sectsiz; i += 4, buff_ptr++)
			*buff_ptr = io_ipatt;
	}

	/*
	 * Fill disk with pattern based on block number.
	 * Write to the disk at absolute relative block io_offset
	 * for io_size blocks.
	 */
	while (io_size--) {
		off_ptr = (off_t *)Bootsect;
		if (!io_fpatt) {
			for (i = 0; i < sectsiz;
			    i += sizeof (off_t), off_ptr++)
				*off_ptr = io_offset;
		}
		/* Write the data to disk */
		if (lseek(Dev, (off_t)(sectsiz * io_offset++),
		    SEEK_SET) == -1) {
			(void) fprintf(stderr, "fdisk: Error seeking on %s.\n",
			    Dfltdev);
			exit(1);
		}
		if (write(Dev, Bootsect, sectsiz) != sectsiz) {
			(void) fprintf(stderr, "fdisk: Error writing %s.\n",
			    Dfltdev);
			exit(1);
		}
	} /* while (--io_size); */
}

/*
 * abs_read
 * Read from the disk at absolute relative block io_offset for
 * io_size blocks. Write the data to standard ouput (-r).
 */
static void
abs_read(void)
{
	int c;

	while (io_size--) {
		if (lseek(Dev, (off_t)(sectsiz * io_offset++),
		    SEEK_SET) == -1) {
			(void) fprintf(stderr, "fdisk: Error seeking on %s.\n",
			    Dfltdev);
			exit(1);
		}
		if (read(Dev, Bootsect, sectsiz) != sectsiz) {
			(void) fprintf(stderr, "fdisk: Error reading %s.\n",
			    Dfltdev);
			exit(1);
		}

		/* Write to standard ouptut */
		if ((c = write(1, Bootsect, (unsigned)sectsiz)) != sectsiz) {
			if (c >= 0) {
				if (io_debug)
					(void) fprintf(stderr,
					    "fdisk: Output warning: %d of %d"
					    " characters written.\n",
					    c, sectsiz);
				exit(2);
			} else {
				perror("write error on output file.");
				exit(2);
			}
		} /* if ((c = write(1, Bootsect, (unsigned)sectsiz)) */
			/* != sectsiz) */
	} /* while (--io_size); */
	exit(0);
}

/*
 * abs_write
 * Read the data from standard input. Write to the disk at
 * absolute relative block io_offset for io_size blocks (-w).
 */
static void
abs_write(void)
{
	int c, i;

	while (io_size--) {
		int part_exit = 0;
		/* Read from standard input */
		if ((c = read(0, Bootsect, (unsigned)sectsiz)) != sectsiz) {
			if (c >= 0) {
				if (io_debug)
				(void) fprintf(stderr,
				    "fdisk: WARNING: Incomplete read (%d of"
				    " %d characters read) on input file.\n",
				    c, sectsiz);
				/* Fill pattern to mark partial sector in buf */
				for (i = c; i < sectsiz; ) {
					Bootsect[i++] = 0x41;
					Bootsect[i++] = 0x62;
					Bootsect[i++] = 0x65;
					Bootsect[i++] = 0;
				}
				part_exit++;
			} else {
				perror("read error on input file.");
				exit(2);
			}

		}
		/* Write to disk drive */
		if (lseek(Dev, (off_t)(sectsiz * io_offset++),
		    SEEK_SET) == -1) {
			(void) fprintf(stderr, "fdisk: Error seeking on %s.\n",
			    Dfltdev);
			exit(1);
		}
		if (write(Dev, Bootsect, sectsiz) != sectsiz) {
			(void) fprintf(stderr, "fdisk: Error writing %s.\n",
			    Dfltdev);
			exit(1);
		}
		if (part_exit)
		exit(0);
	} /* while (--io_size); */
	exit(1);
}


/*
 * load
 * Load will either read the fdisk table from a file or add or
 * delete an entry (-A, -D, -F).
 */

static void
load(int funct, char *file)
{
	int	id;
	int	act;
	int	bhead;
	int	bsect;
	int	bcyl;
	int	ehead;
	int	esect;
	int	ecyl;
	uint32_t	rsect;
	uint32_t	numsect;
	char	line[256];
	int	i = 0;
	FILE *fp;
	int	startindex = 0;
	int	tmpindex = 0;
#ifdef i386
	int 	ext_part_present = 0;
	uint32_t	begsec, endsec, relsect;
	logical_drive_t *temp;
	int part_count = 0, ldcnt = 0;
	uint32_t ext_beg_sec;
	uint32_t old_ext_beg_sec = 0, old_ext_num_sec = 0;
	uint32_t new_ext_beg_sec = 0, new_ext_num_sec = 0;
	int ext_part_inited = 0;
	uchar_t	systid;
#endif

	switch (funct) {

	case LOADFILE:

		/*
		 * Zero out the table before loading it, which will
		 * force it to be updated on disk later (-F
		 * fdisk_file).
		 */
		nulltbl();

		/* Open the prototype file */
		if ((fp = fopen(file, "r")) == NULL) {
			(void) fprintf(stderr,
			    "fdisk: Cannot open prototype partition file %s.\n",
			    file);
			exit(1);
		}

		/* Read a line from the file */
		while (fgets(line, sizeof (line) - 1, fp)) {
			if (pars_fdisk(line, &id, &act, &bhead, &bsect,
			    &bcyl, &ehead, &esect, &ecyl, &rsect, &numsect)) {
				continue;
			}
#ifdef i386
			part_count++;

			if (fdisk_is_dos_extended((uchar_t)id)) {
				if (ext_part_present) {
					(void) fprintf(stderr,
					    "Extended partition"
					    " already exists\n");
					(void) fprintf(stderr, "fdisk: Error on"
					    " entry \"%s\".\n", line);
					exit(1);
				}
				ext_part_present = 1;
				/*
				 * If the existing extended partition's start
				 * and size matches the new one, do not
				 * initialize the extended partition EBR
				 * (Extended Boot Record) because there could
				 * be existing logical drives.
				 */
				for (i = 0; i < FD_NUMPART; i++) {
					systid = Old_Table[i].systid;
					if (fdisk_is_dos_extended(systid)) {
						old_ext_beg_sec =
						    Old_Table[i].relsect;
						old_ext_num_sec =
						    Old_Table[i].numsect;
						break;
					}
				}
				new_ext_beg_sec = rsect;
				new_ext_num_sec = numsect;
				if ((old_ext_beg_sec != new_ext_beg_sec) ||
				    (old_ext_num_sec != new_ext_num_sec)) {
					(void) fdisk_init_ext_part(epp,
					    new_ext_beg_sec, new_ext_num_sec);
					ext_part_inited = 1;
				}
			}

			if (part_count > FD_NUMPART) {
				/* This line should be logical drive info */
				int offset = MAX_LOGDRIVE_OFFSET;
				if (!ext_part_present) {
					/* Erroneous input file */
					(void) fprintf(stderr,
					    "More than 4 primary"
					    " partitions found in input\n");
					(void) fprintf(stderr, "Exiting...\n");
					exit(1);
				}

				if (numsect == 0) {
					continue;
				}

				/*
				 * If the start and size of the existing
				 * extended partition matches the new one and
				 * new logical drives are being defined via
				 * the input file, initialize the EBR.
				 */
				if (!ext_part_inited) {
					(void) fdisk_init_ext_part(epp,
					    new_ext_beg_sec, new_ext_num_sec);
					ext_part_inited = 1;
				}

				begsec = rsect - offset;
				if ((ldcnt =
				    fdisk_get_logical_drive_count(epp)) == 0) {
					/* Adding the first logical drive */
					/*
					 * Make sure that begsec doesnt wrap
					 * around. This can happen if rsect is
					 * less than offset.
					 */
					if (rsect < offset) {
						(void) fprintf(stderr,
						    "Minimum of "
						    "63 free sectors required "
						    "before the beginning of "
						    "a logical drive.");
						exit(1);
					}
					/*
					 * Check if the first logical drive
					 * is out of order. In that case, do
					 * not subtract MAX_LOGDRIVE_OFFSET
					 * from the given start of partition.
					 */
					if (begsec != new_ext_beg_sec) {
						begsec = rsect;
						offset = 0;
					}
				}
				if (ldcnt >= MAX_EXT_PARTS) {
					(void) fprintf(stderr,
					    "\nError : Number of "
					    "logical drives exceeds limit of "
					    "%d.\n", MAX_EXT_PARTS);
					exit(1);
				}

				if (id > FDISK_MAX_VALID_PART_ID) {
					(void) fprintf(stderr,
					    "Invalid partition ID\n");
					(void) fprintf(stderr, "fdisk: Error on"
					    " entry \"%s\".\n", line);
					exit(1);
				}

				endsec = rsect + numsect - 1;
				if (fdisk_validate_logical_drive(epp,
				    begsec, offset, numsect) == 0) {
					if (id == EFI_PMBR) {
						(void) fprintf(stderr, "EFI "
						    "partitions not supported "
						    "inside extended "
						    "partition\n");
						exit(1);
					}
					fdisk_add_logical_drive(epp, begsec,
					    endsec, id);
					continue;
				} else {
					(void) fprintf(stderr, "fdisk: Error on"
					    " entry \"%s\".\n", line);
					exit(1);
				}
			}
#endif

			/*
			 * Validate the partition. It cannot start at sector
			 * 0 unless it is UNUSED or already exists
			 */
			if (validate_part(id, rsect, numsect) < 0) {
				(void) fprintf(stderr,
				    "fdisk: Error on entry \"%s\".\n",
				    line);
				exit(1);
			}

			if ((tmpindex = entry_from_old_table(id, act, bhead,
			    bsect, bcyl, ehead, esect, ecyl, rsect, numsect,
			    startindex)) != -1) {
				/*
				 * If we got here it means we copied an
				 * unmodified entry. So there is no need
				 * to insert it in the table or do any
				 * checks against disk size.
				 *
				 * This is a work around on the following
				 * situation (for IDE disks, at least):
				 * Different operation systems calculate
				 * disk size different ways, of which there
				 * are two main ways.
				 *
				 * The first, rounds the disk size to modulo
				 * cylinder size (virtual made-up cylinder
				 * usually based on maximum number of heads
				 * and sectors in partition table fields).
				 * Our OS's (for IDE) and most other "Unix"
				 * type OS's do this.
				 *
				 * The second, uses every single block
				 * on the disk (to maximize available space).
				 * Since disk manufactures do not know about
				 * "virtual cylinders", there are some number
				 * of blocks that make up a partial cylinder
				 * at the end of the disk.
				 *
				 * The difference between these two methods
				 * is where the problem is. When one
				 * tries to install Solaris/OpenSolaris on
				 * a disk that has another OS using that
				 * "partial cylinder", install fails. It fails
				 * since fdisk thinks its asked to create a
				 * partition with the -F option that contains
				 * a partition that runs off the end of the
				 * disk.
				 */
				startindex = tmpindex + 1;
				continue;
			}

			/*
			 * Find an unused entry to use and put the entry
			 * in table
			 */
			if ((startindex = insert_tbl(id, act, bhead, bsect,
			    bcyl, ehead, esect, ecyl, rsect, numsect,
			    startindex)) < 0) {
				(void) fprintf(stderr,
				    "fdisk: Error on entry \"%s\".\n",
				    line);
				exit(1);
			}
			startindex++;
		} /* while (fgets(line, sizeof (line) - 1, fp)) */

		if (verify_tbl() < 0) {
			(void) fprintf(stderr,
			    "fdisk: Cannot create partition table\n");
			exit(1);
		}

		(void) fclose(fp);
		return;

	case LOADDEL:

		/* Parse the user-supplied deletion line (-D) */
		if (pars_fdisk(file, &id, &act, &bhead, &bsect, &bcyl,
		    &ehead, &esect, &ecyl, &rsect, &numsect)) {
			(void) fprintf(stderr,
			    "fdisk: Syntax error \"%s\"\n", file);
			exit(1);
		}

		/* Find the exact entry in the table */
		for (i = 0; i < FD_NUMPART; i++) {
			if (Table[i].systid == id &&
			    Table[i].bootid == act &&
			    Table[i].beghead == bhead &&
			    Table[i].begsect == ((bsect & 0x3f) |
			    (uchar_t)((bcyl>>2) & 0xc0)) &&
			    Table[i].begcyl == (uchar_t)(bcyl & 0xff) &&
			    Table[i].endhead == ehead &&
			    Table[i].endsect == ((esect & 0x3f) |
			    (uchar_t)((ecyl>>2) & 0xc0)) &&
			    Table[i].endcyl == (uchar_t)(ecyl & 0xff) &&
			    Table[i].relsect == LE_32(rsect) &&
			    Table[i].numsect == LE_32(numsect)) {

				(void) memset(&Table[i], 0,
				    sizeof (struct ipart));
#ifdef i386
				if (fdisk_is_dos_extended(id)) {
					(void) fdisk_delete_ext_part(epp);
				}
#endif
				return;
			}
		}

#ifdef i386
		ldcnt = FD_NUMPART + 1;
		for (temp = fdisk_get_ld_head(epp); temp != NULL;
		    temp = temp->next) {
			relsect = temp->abs_secnum + temp->logdrive_offset;
			if (temp->parts[0].systid == id &&
			    temp->parts[0].bootid == act &&
			    temp->parts[0].beghead == bhead &&
			    temp->parts[0].begsect == ((bsect & 0x3f) |
			    (uchar_t)((bcyl>>2) & 0xc0)) &&
			    temp->parts[0].begcyl == (uchar_t)(bcyl & 0xff) &&
			    temp->parts[0].endhead == ehead &&
			    temp->parts[0].endsect == ((esect & 0x3f) |
			    (uchar_t)((ecyl>>2) & 0xc0)) &&
			    temp->parts[0].endcyl == (uchar_t)(ecyl & 0xff) &&
			    relsect == LE_32(rsect) &&
			    temp->parts[0].numsect == LE_32(numsect)) {
				fdisk_delete_logical_drive(epp, ldcnt);
				return;
			}
			ldcnt++;
		}
#endif

		(void) fprintf(stderr,
		    "fdisk: Entry does not match any existing partition:\n"
		    "	\"%s\"\n",
		    file);
		exit(1);
		/* FALLTHROUGH */

	case LOADADD:

		/* Parse the user-supplied addition line (-A) */
		if (pars_fdisk(file, &id, &act, &bhead, &bsect, &bcyl, &ehead,
		    &esect, &ecyl, &rsect, &numsect)) {
			(void) fprintf(stderr,
			    "fdisk: Syntax error \"%s\"\n", file);
			exit(1);
		}

		/* Validate the partition. It cannot start at sector 0 */
		if (rsect == 0) {
			(void) fprintf(stderr,
			    "fdisk: New partition cannot start at sector 0:\n"
			    "   \"%s\".\n",
			    file);
			exit(1);
		}

		/*
		 * if the user wishes to add an EFI partition, we need
		 * more extensive validation.  rsect should be 1, and
		 * numsect should equal the entire disk capacity - 1
		 */

		if (id == EFI_PMBR) {
			if (rsect != 1) {
				(void) fprintf(stderr,
				    "fdisk: EFI partitions must start at sector"
				    " 1 (input rsect = %d)\n", rsect);
				exit(1);
			}


			if (dev_capacity > DK_MAX_2TB) {
				if (numsect != DK_MAX_2TB) {
					(void) fprintf(stderr,
					    "fdisk: EFI partitions must "
					    "encompass the entire maximum 2 TB "
					    "(input numsect: %u - max: %llu)\n",
					    numsect, (diskaddr_t)DK_MAX_2TB);
				exit(1);
				}
			} else if (numsect != dev_capacity - 1) {
				(void) fprintf(stderr,
				    "fdisk: EFI partitions must encompass the "
				    "entire disk\n"
				    "(input numsect: %u - avail: %llu)\n",
				    numsect,
				    dev_capacity - 1);
				exit(1);
			}
		}

#ifdef i386
		if (id > FDISK_MAX_VALID_PART_ID) {
			(void) printf("Invalid partition ID\n");
			exit(1);
		}

		if ((fdisk_ext_part_exists(epp)) &&
		    (fdisk_is_dos_extended(id))) {
			(void) fprintf(stderr,
			    "Extended partition already exists.\n");
			(void) fprintf(stderr,
			    "fdisk: Invalid entry could not be "
			    "inserted:\n        \"%s\"\n", file);
			exit(1);
		}

		if (fdisk_ext_part_exists(epp) &&
		    (rsect >= (ext_beg_sec = fdisk_get_ext_beg_sec(epp))) &&
		    (rsect <= (fdisk_get_ext_end_sec(epp)))) {
			int offset = MAX_LOGDRIVE_OFFSET;

			/*
			 * Make sure that begsec doesnt wrap around.
			 * This can happen if rsect is less than offset
			 */
			if (rsect < offset) {
				return;
			}
			begsec = rsect - offset;
			if ((ldcnt = fdisk_get_logical_drive_count(epp)) == 0) {
				/*
				 * Adding the first logical drive
				 * Check if the first logical drive
				 * is out of order. In that case, do
				 * not subtract MAX_LOGDRIVE_OFFSET
				 * from the given start of partition.
				 */
				if (begsec != ext_beg_sec) {
					begsec = rsect;
					offset = 0;
				}
			}

			if (ldcnt >= MAX_EXT_PARTS) {
				(void) printf("\nNumber of logical drives "
				    "exceeds limit of %d.\n", MAX_EXT_PARTS);
				(void) printf("Failing further additions.\n");
				exit(1);
			}

			if (numsect == 0) {
				(void) fprintf(stderr,
				    "fdisk: Partition size cannot be zero:\n"
				    "   \"%s\".\n",
				    file);
				exit(1);
			}
			endsec = rsect + numsect - 1;
			if (fdisk_validate_logical_drive(epp, begsec,
			    offset, numsect) == 0) {
				/* Valid logical drive */
				fdisk_add_logical_drive(epp, begsec, endsec,
				    id);
				return;
			} else {
				(void) fprintf(stderr,
				    "fdisk: Invalid entry could not be "
				    "inserted:\n        \"%s\"\n", file);
				exit(1);
			}
		}
#endif

		/* Find unused entry for use and put entry in table */
		if (insert_tbl(id, act, bhead, bsect, bcyl, ehead, esect,
		    ecyl, rsect, numsect, 0) < 0) {
			(void) fprintf(stderr,
			    "fdisk: Invalid entry could not be inserted:\n"
			    "	\"%s\"\n",
			    file);
			exit(1);
		}

		/* Make sure new entry does not overlap existing entry */
		if (verify_tbl() < 0) {
			(void) fprintf(stderr,
			    "fdisk: Cannot create partition \"%s\"\n", file);
			exit(1);
		}
	} /* switch funct */
}

/*
 * Set_Table_CHS_Values
 *
 * This will calculate the CHS values for beginning and ending CHS
 * for a single partition table entry (ti) based on the relsect
 * and numsect values contained in the partion table entry.
 *
 * hba_heads and hba_sectors contain the number of heads and sectors.
 *
 * If the number of cylinders exceeds the MAX_CYL,
 * then maximum values will be placed in the corresponding chs entry.
 */
static void
Set_Table_CHS_Values(int ti)
{
	uint32_t	lba, cy, hd, sc;

	lba = (uint32_t)Table[ti].relsect;
	if (lba >= hba_heads * hba_sectors * MAX_CYL) {
		/*
		 * the lba address cannot be expressed in CHS value
		 * so store the maximum CHS field values in the CHS fields.
		 */
		cy = MAX_CYL + 1;
		hd = MAX_HEAD + 1;
		sc = MAX_SECT;
	} else {
		cy = lba / hba_sectors / hba_heads;
		hd = lba / hba_sectors % hba_heads;
		sc = lba % hba_sectors + 1;
	}
	Table[ti].begcyl = cy & 0xff;
	Table[ti].beghead = (uchar_t)hd;
	Table[ti].begsect = (uchar_t)(((cy >> 2) & 0xc0) | sc);

	/*
	 * This code is identical to the code above
	 * except that it works on ending CHS values
	 */
	lba = (uint32_t)(Table[ti].relsect + Table[ti].numsect - 1);
	if (lba >= hba_heads * hba_sectors * MAX_CYL) {
		cy = MAX_CYL + 1;
		hd = MAX_HEAD + 1;
		sc = MAX_SECT;
	} else {
		cy = lba / hba_sectors / hba_heads;
		hd = lba / hba_sectors % hba_heads;
		sc = lba % hba_sectors + 1;
	}
	Table[ti].endcyl = cy & 0xff;
	Table[ti].endhead = (uchar_t)hd;
	Table[ti].endsect = (uchar_t)(((cy >> 2) & 0xc0) | sc);
}

/*
 * insert_tbl
 * 	Insert entry into fdisk table. Check all user-supplied values
 *	for the entry, but not the validity relative to other table
 *	entries!
 */
static int
insert_tbl(
    int id, int act,
    int bhead, int bsect, int bcyl,
    int ehead, int esect, int ecyl,
    uint32_t rsect, uint32_t numsect, int startindex)
{
	int	i;

	/* validate partition size */
	if (((diskaddr_t)rsect + numsect) > dev_capacity) {
		(void) fprintf(stderr,
		    "fdisk: Partition table exceeds the size of the disk.\n");
		return (-1);
	}


	/* find UNUSED partition table entry */
	for (i = startindex; i < FD_NUMPART; i++) {
		if (Table[i].systid == UNUSED) {
			break;
		}
	}
	if (i >= FD_NUMPART) {
		(void) fprintf(stderr, "fdisk: Partition table is full.\n");
		return (-1);
	}

	Table[i].systid = (uchar_t)id;
	Table[i].bootid = (uchar_t)act;
	Table[i].numsect = LE_32(numsect);
	Table[i].relsect = LE_32(rsect);

	if (id == UNUSED) {
		(void) memset(&Table[i], 0, sizeof (struct ipart));
	} else if (0 < bsect && bsect <= MAX_SECT &&
	    0 <= bhead && bhead <= MAX_HEAD + 1 &&
	    0 < esect && esect <= MAX_SECT &&
	    0 <= ehead && ehead <= MAX_HEAD + 1) {

		/*
		 * If we have been called with a valid geometry, use it
		 * valid means non-zero values that fit in the BIOS fields
		 */
		if (bcyl > MAX_CYL) {
			/*
			 * bcyl is set to the special fence value indicating
			 * that the geometry is not representable for the
			 * start LBA.
			 * Set all fields to the maximum values.
			 */
			bcyl = MAX_CYL + 1;
			bhead = MAX_HEAD + 1;
			bsect = MAX_SECT;
		}
		if (ecyl > MAX_CYL) {
			ecyl = MAX_CYL + 1;
			ehead = MAX_HEAD + 1;
			esect = MAX_SECT;
		}
		Table[i].begcyl = bcyl & 0xff;
		Table[i].endcyl = ecyl & 0xff;
		Table[i].beghead = (uchar_t)bhead;
		Table[i].endhead = (uchar_t)ehead;
		Table[i].begsect = (uchar_t)(((bcyl >> 2) & 0xc0) | bsect);
		Table[i].endsect = ((ecyl >> 2) & 0xc0) | esect;
	} else {

		/*
		 * The specified values are invalid,
		 * so calculate the values based on hba_heads, hba_sectors
		 */
		Set_Table_CHS_Values(i);
	}

	/*
	 * return partition index
	 */
	return (i);
}

/*
 * entry_from_old_table
 *	If the specified entry is in the old table and is not a Solaris entry
 *	then insert same entry into new fdisk table. If we do this then
 *	all checks are skipped for that entry!
 */
static int
entry_from_old_table(
    int id, int act,
    int bhead, int bsect, int bcyl,
    int ehead, int esect, int ecyl,
    uint32_t rsect, uint32_t numsect, int startindex)
{
	uint32_t	i, j;

	if (id == SUNIXOS || id == SUNIXOS2 || id == UNUSED)
		return (-1);
	for (i = 0; i < FD_NUMPART; i++) {
		if (Old_Table[i].systid == id &&
		    Old_Table[i].bootid == act &&
		    Old_Table[i].beghead == bhead &&
		    Old_Table[i].begsect == ((bsect & 0x3f) |
		    (uchar_t)((bcyl>>2) & 0xc0)) &&
		    Old_Table[i].begcyl == (uchar_t)(bcyl & 0xff) &&
		    Old_Table[i].endhead == ehead &&
		    Old_Table[i].endsect == ((esect & 0x3f) |
		    (uchar_t)((ecyl>>2) & 0xc0)) &&
		    Old_Table[i].endcyl == (uchar_t)(ecyl & 0xff) &&
		    Old_Table[i].relsect == lel(rsect) &&
		    Old_Table[i].numsect == lel(numsect)) {
			/* find UNUSED partition table entry */
			for (j = startindex; j < FD_NUMPART; j++) {
				if (Table[j].systid == UNUSED) {
					(void) memcpy(&Table[j], &Old_Table[i],
					    sizeof (Table[0]));
					skip_verify[j] = 1;
					return (j);

				}
			}
			return (-1);
		}

	}
	return (-1);
}

/*
 * verify_tbl
 * Verify that no partition entries overlap or exceed the size of
 * the disk.
 */
static int
verify_tbl(void)
{
	uint32_t	i, j, rsect, numsect;
	int	noMoreParts = 0;
	int	numParts = 0;

	/* Make sure new entry does not overlap an existing entry */
	for (i = 0; i < FD_NUMPART - 1; i++) {
		if (Table[i].systid != UNUSED) {
			numParts++;
			/*
			 * No valid partitions allowed after EFI_PMBR part
			 */
			if (noMoreParts) {
				return (-1);
			}

			if (Table[i].systid == EFI_PMBR) {
				/*
				 * EFI_PMBR partition must be the only
				 * partition
				 */
				noMoreParts = 1;

				if (Table[i].relsect != 1) {
					(void) fprintf(stderr, "ERROR: "
					    "Invalid starting sector "
					    "for EFI_PMBR partition:\n"
					    "relsect %d "
					    "(should be 1)\n",
					    Table[i].relsect);

					return (-1);
				}

				if (Table[i].numsect !=
				    ((dev_capacity > DK_MAX_2TB) ? DK_MAX_2TB:
				    (dev_capacity - 1))) {

					(void) fprintf(stderr, "ERROR: "
					    "EFI_PMBR partition must "
					    "encompass the entire");

					if (dev_capacity > DK_MAX_2TB)
						(void) fprintf(stderr,
						    "maximum 2 TB.\n "
						    "numsect %u - "
						    "actual %llu\n",
						    Table[i].numsect,
						    (diskaddr_t)DK_MAX_2TB);

					else
						(void) fprintf(stderr,
						    "disk.\n numsect %u - "
						    "actual %llu\n",
						    Table[i].numsect,
						    dev_capacity - 1);

					return (-1);
				}
			}

			/* make sure the partition isn't larger than the disk */
			rsect = LE_32(Table[i].relsect);
			numsect = LE_32(Table[i].numsect);

			if ((((diskaddr_t)rsect + numsect) > dev_capacity) ||
			    (((diskaddr_t)rsect + numsect) > DK_MAX_2TB)) {
				if (!skip_verify[i])
					return (-1);
			}

			for (j = i + 1; j < FD_NUMPART; j++) {
				if (Table[j].systid != UNUSED) {
					uint32_t t_relsect =
					    LE_32(Table[j].relsect);
					uint32_t t_numsect =
					    LE_32(Table[j].numsect);

					if (noMoreParts) {
						(void) fprintf(stderr,
						    "Cannot add partition to "
						    "table; no more partitions "
						    "allowed\n");

						if (io_debug) {
							(void) fprintf(stderr,
							    "DEBUG: Current "
							    "partition:\t"
							    "%d:%d:%d:%d:%d:"
							    "%d:%d:%d:%d:%d\n"
							    "       Next "
							    "partition:\t\t"
							    "%d:%d:%d:%d:%d:"
							    "%d:%d:%d:%d:%d\n",
							    Table[i].systid,
							    Table[i].bootid,
							    Table[i].begcyl,
							    Table[i].beghead,
							    Table[i].begsect,
							    Table[i].endcyl,
							    Table[i].endhead,
							    Table[i].endsect,
							    Table[i].relsect,
							    Table[i].numsect,
							    Table[j].systid,
							    Table[j].bootid,
							    Table[j].begcyl,
							    Table[j].beghead,
							    Table[j].begsect,
							    Table[j].endcyl,
							    Table[j].endhead,
							    Table[j].endsect,
							    Table[j].relsect,
							    Table[j].numsect);
						}

						return (-1);
					}
					if ((rsect >=
					    (t_relsect + t_numsect)) ||
					    ((rsect + numsect) <= t_relsect)) {
						continue;
					} else {
						(void) fprintf(stderr, "ERROR: "
						    "current partition overlaps"
						    " following partition\n");

						return (-1);
					}
				}
			}
		}
	}
	if (Table[i].systid != UNUSED) {
		if (noMoreParts)
			return (-1);
		if (!skip_verify[i] &&
		    ((((diskaddr_t)lel(Table[i].relsect) +
		    lel(Table[i].numsect)) > dev_capacity) ||
		    (((diskaddr_t)lel(Table[i].relsect) +
		    lel(Table[i].numsect)) > DK_MAX_2TB))) {
			return (-1);
		}
	}

	return (numParts);
}

/*
 * pars_fdisk
 * Parse user-supplied data to set up fdisk partitions
 * (-A, -D, -F).
 */
static int
pars_fdisk(
    char *line,
    int *id, int *act,
    int *bhead, int *bsect, int *bcyl,
    int *ehead, int *esect, int *ecyl,
    uint32_t *rsect, uint32_t *numsect)
{
	int	i;
	int64_t test;
	char *tok, *p;
	char buf[256];

	if (line[0] == '\0' || line[0] == '\n' || line[0] == '*')
		return (1);
	line[strlen(line)] = '\0';
	for (i = 0; i < strlen(line); i++) {
		if (line[i] == '\0') {
			break;
		} else if (line[i] == ':') {
			line[i] = ' ';
		}
	}
	(void) strncpy(buf, line, 256);
	errno = 0;
	tok = strtok(buf, ": \t\n");
	while (tok != NULL) {
		for (p = tok; *p != '\0'; p++) {
			if (!isdigit(*p)) {
				(void) printf("Invalid input %s in line %s.\n",
				    tok, line);
				exit(1);
			}
		}

		test = strtoll(tok, (char **)NULL, 10);
		if ((test < 0) || (test > 0xFFFFFFFF) || (errno != 0)) {
			(void) printf("Invalid input %s in line %s.\n", tok,
			    line);
			exit(1);
		}
		tok = strtok(NULL, ": \t\n");
	}
	if (sscanf(line, "%d %d %d %d %d %d %d %d %u %u",
	    id, act, bhead, bsect, bcyl, ehead, esect, ecyl,
	    rsect, numsect) != 10) {
		(void) fprintf(stderr, "Syntax error:\n	\"%s\".\n", line);
		exit(1);
	}
	return (0);
}

/*
 * validate_part
 * Validate that a new partition does not start at sector 0. Only UNUSED
 * partitions and previously existing partitions are allowed to start at 0.
 */
static int
validate_part(int id, uint32_t rsect, uint32_t numsect)
{
	int i;
	if ((id != UNUSED) && (rsect == 0)) {
		for (i = 0; i < FD_NUMPART; i++) {
			if ((Old_Table[i].systid == id) &&
			    (Old_Table[i].relsect == LE_32(rsect)) &&
			    (Old_Table[i].numsect == LE_32(numsect)))
				return (0);
		}
		(void) fprintf(stderr,
		    "New partition cannot start at sector 0\n");
		return (-1);
	}
#ifdef i386
	if (id > FDISK_MAX_VALID_PART_ID) {
		(void) fprintf(stderr, "Invalid partition ID\n");
		return (-1);
	}
#endif
	return (0);
}

/*
 * stage0
 * Print out interactive menu and process user input.
 */
static void
stage0(void)
{
#ifdef i386
	int rval;
#endif
	dispmenu();
	for (;;) {
		(void) printf(Q_LINE);
		(void) printf("Enter Selection: ");
		(void) fgets(s, sizeof (s), stdin);
		rm_blanks(s);
#ifdef i386
		while (!((s[0] > '0') && (s[0] < '8') &&
		    ((s[1] == '\0') || (s[1] == '\n')))) {
#else
		while (!((s[0] > '0') && (s[0] < '7') &&
		    ((s[1] == '\0') || (s[1] == '\n')))) {
#endif
			(void) printf(E_LINE); /* Clear any previous error */
#ifdef i386
			(void) printf(
			    "Enter a one-digit number between 1 and 7.");
#else
			(void) printf(
			    "Enter a one-digit number between 1 and 6.");
#endif
			(void) printf(Q_LINE);
			(void) printf("Enter Selection: ");
			(void) fgets(s, sizeof (s), stdin);
			rm_blanks(s);
		}
		(void) printf(E_LINE);
		switch (s[0]) {
			case '1':
				if (pcreate() == -1)
					return;
				break;
			case '2':
				if (pchange() == -1)
					return;
				break;
			case '3':
				if (pdelete() == -1)
					return;
				break;
			case '4':
				if (ppartid() == -1)
					return;
				break;
#ifdef i386
			case '5':
				if (fdisk_ext_part_exists(epp)) {
					ext_part_menu();
				} else {
					(void) printf(Q_LINE);
					(void) printf("\nNo extended partition"
					    " found\n");
					(void) printf("Press enter to "
					    "continue\n");
					ext_read_input(s);
				}
				break;
			case '6':
				/* update disk partition table, if changed */
				if (TableChanged() == 1) {
					copy_Table_to_Bootblk();
					dev_mboot_write(0, Bootsect, sectsiz);
				}

				/*
				 * If the VTOC table is wrong fix it
				 * (truncate only)
				 */
				if (io_adjt) {
					fix_slice();
				}
				if (!io_readonly) {
					rval = fdisk_commit_ext_part(epp);
					switch (rval) {
						case FDISK_SUCCESS:
							/* Success */
							/* Fallthrough */
						case FDISK_ENOEXTPART:
							/* Nothing to do */
							break;
						case FDISK_EMOUNTED:
							(void) printf(Q_LINE);
							preach_and_continue();
							continue;
						default:
							perror("Commit failed");
							exit(1);
					}
					libfdisk_fini(&epp);
				}
				(void) close(Dev);
				exit(0);
				/* NOTREACHED */
#else
			case '5':
				/* update disk partition table, if changed */
				if (TableChanged() == 1) {
					copy_Table_to_Bootblk();
					dev_mboot_write(0, Bootsect, sectsiz);
				}
				/*
				 * If the VTOC table is wrong fix it
				 * (truncate only)
				 */
				if (io_adjt) {
					fix_slice();
				}
				(void) close(Dev);
				exit(0);
				/* FALLTHROUGH */
#endif
#ifdef i386
			case '7':
#else
			case '6':
#endif
				/*
				 * If the VTOC table is wrong fix it
				 * (truncate only)
				 */
				if (io_adjt) {
					fix_slice();
				}
				(void) close(Dev);
				exit(0);
				/* FALLTHROUGH */
			default:
				break;
		}
		copy_Table_to_Bootblk();
		disptbl();
		dispmenu();
	}
}

/*
 * pcreate
 * Create partition entry in the table (interactive mode).
 */
static int
pcreate(void)
{
	uchar_t tsystid = 'z';
	int i, j;
	uint32_t numsect;
	int retCode = 0;
#ifdef i386
	int ext_part_present = 0;
#endif

	i = 0;
	for (;;) {
		if (i == FD_NUMPART) {
			(void) printf(E_LINE);
			(void) printf(
			    "The partition table is full!\n"
			    "You must delete a partition before creating"
			    " a new one.\n");
			return (-1);
		}
		if (Table[i].systid == UNUSED) {
			break;
		}
		i++;
	}

	numsect = 0;
	for (i = 0; i < FD_NUMPART; i++) {
		if (Table[i].systid != UNUSED) {
			numsect += LE_32(Table[i].numsect);
		}
#ifdef i386
		/* Check if an extended partition already exists */
		if (fdisk_is_dos_extended(Table[i].systid)) {
			ext_part_present = 1;
		}
#endif
		if (numsect >= chs_capacity) {
			(void) printf(E_LINE);
			(void) printf("There is no more room on the disk for"
			    " another partition.\n");
			(void) printf(
			    "You must delete a partition before creating"
			    " a new one.\n");
			return (-1);
		}
	}
	while (tsystid == 'z') {

		/*
		 * The question here is expanding to more than what is
		 * allocated for question lines (Q_LINE) which garbles
		 * at least warning line. Clearing warning line as workaround
		 * for now.
		 */

		(void) printf(W_LINE);
		(void) printf(Q_LINE);
		(void) printf(
		    "Select the partition type to create:\n"
		    "   1=SOLARIS2  2=UNIX        3=PCIXOS     4=Other\n"
		    "   5=DOS12     6=DOS16       7=DOSEXT     8=DOSBIG\n"
		    "   9=DOS16LBA  A=x86 Boot    B=Diagnostic C=FAT32\n"
		    "   D=FAT32LBA  E=DOSEXTLBA   F=EFI        0=Exit? ");
		(void) fgets(s, sizeof (s), stdin);
		rm_blanks(s);
		if ((s[1] != '\0') && (s[1] != '\n')) {
			(void) printf(E_LINE);
			(void) printf("Invalid selection, try again.");
			continue;
		}
		switch (s[0]) {
		case '0':		/* exit */
			(void) printf(E_LINE);
			return (-1);
		case '1':		/* Solaris partition */
			tsystid = SUNIXOS2;
			break;
		case '2':		/* UNIX partition */
			tsystid = UNIXOS;
			break;
		case '3':		/* PCIXOS partition */
			tsystid = PCIXOS;
			break;
		case '4':		/* OTHEROS System partition */
			tsystid = OTHEROS;
			break;
		case '5':
			tsystid = DOSOS12; /* DOS 12 bit fat */
			break;
		case '6':
			tsystid = DOSOS16; /* DOS 16 bit fat */
			break;
		case '7':
#ifdef i386
			if (ext_part_present) {
				(void) printf(Q_LINE);
				(void) printf(E_LINE);
				(void) fprintf(stderr,
				    "Extended partition already exists\n");
				(void) fprintf(stderr,
				    "Press enter to continue\n");
				ext_read_input(s);
				continue;
			}
#endif
			tsystid = EXTDOS;
			break;
		case '8':
			tsystid = DOSHUGE;
			break;
		case '9':
			tsystid = FDISK_FAT95;  /* FAT16, need extended int13 */
			break;
		case 'a':		/* x86 Boot partition */
		case 'A':
			tsystid = X86BOOT;
			break;
		case 'b':		/* Diagnostic boot partition */
		case 'B':
			tsystid = DIAGPART;
			break;
		case 'c':		/* FAT32 */
		case 'C':
			tsystid = FDISK_WINDOWS;
			break;
		case 'd':		/* FAT32 and need extended int13 */
		case 'D':
			tsystid = FDISK_EXT_WIN;
			break;
		case 'e':	/* Extended partition, need extended int13 */
		case 'E':
#ifdef i386
			if (ext_part_present) {
				(void) printf(Q_LINE);
				(void) printf(E_LINE);
				(void) fprintf(stderr,
				    "Extended partition already exists\n");
				(void) fprintf(stderr,
				    "Press enter to continue\n");
				ext_read_input(s);
				continue;
			}
#endif
			tsystid = FDISK_EXTLBA;
			break;
		case 'f':
		case 'F':
			tsystid = EFI_PMBR;
			break;
		default:
			(void) printf(E_LINE);
			(void) printf("Invalid selection, try again.");
			continue;
		}
	}

	(void) printf(E_LINE);

	if (tsystid != EFI_PMBR) {
		(void) printf(W_LINE);
		if ((dev_capacity > DK_MAX_2TB))
			(void) printf("WARNING: Disk is larger than 2 TB. "
			    "Upper limit is 2 TB for non-EFI partition ID\n");

		/* create the new partition */
		i = specify(tsystid);

		if (i != -1) {
			/* see if it should be the active partition */
			(void) printf(E_LINE);
			(void) printf(Q_LINE);

			(void) printf(
			    "Should this become the active partition? If "
			    "yes, it  will be activated\n"
			    "each time the computer is reset or turned on.\n"
			    "Please type \"y\" or \"n\". ");

			if (yesno()) {
				(void) printf(E_LINE);
				for (j = 0; j < FD_NUMPART; j++) {
					if (j == i) {
						Table[j].bootid = ACTIVE;
						(void) printf(E_LINE);
						(void) printf(
						    "Partition %d is now "
						    "the active partition.",
						    j + 1);
					} else {
						Table[j].bootid = 0;
					}
				}
			} else {
				Table[i].bootid = 0;
			}

#ifdef i386
			/*
			 * If partition created is an extended partition, null
			 * out the first sector of the first cylinder of the
			 * extended partition
			 */
			if (fdisk_is_dos_extended(Table[i].systid)) {
				(void) fdisk_init_ext_part(epp,
				    LE_32(Table[i].relsect),
				    LE_32(Table[i].numsect));
			}
#endif
			/* set up the return code */
			i = 1;
		}
	} else {
		/*
		 * partitions of type EFI_PMBR must be the only partitions in
		 * the table
		 *
		 * First, make sure there were no errors the table is
		 * empty
		 */
		retCode = verify_tbl();

		if (retCode < 0) {
			(void) fprintf(stderr,
			    "fdisk: Cannot create EFI partition table; \n"
			    "current partition table is invalid.\n");
			return (-1);
		} else if (retCode > 0) {
			(void) printf(
			    "An EFI partition must be the only partition on "
			    "disk.  You may manually delete existing\n"
			    "partitions, or fdisk can do it.\n"
			    "Do you want fdisk to destroy existing "
			    "partitions?\n"
			    "Please type \"y\" or \"n\". ");

			if (yesno()) {
				nulltbl();
			} else {
				return (-1);
			}
		}

		/* create the table entry - i should be 0 */
		i = insert_tbl(tsystid, 0, 0, 0, 0, 0, 0, 0, 1,
		    (dev_capacity > DK_MAX_2TB) ? DK_MAX_2TB:
		    (dev_capacity - 1), 0);

		if (i != 0) {
			(void) printf("Error creating EFI partition!!!\n");
			i = -1;
		} else {

			/* EFI partitions are currently never active */
			Table[i].bootid = 0;

			/* set up the return code */
			i = 1;
		}
	}

	return (i);
}

/*
 * specify
 * Query the user to specify the size of the new partition in
 * terms of percentage of the disk or by specifying the starting
 * cylinder and length in cylinders.
 */
static int
specify(uchar_t tsystid)
{
	int	i, j, percent = -1;
	int	cyl, cylen;
	diskaddr_t first_free, size_free;
	diskaddr_t max_free;
	int	cyl_size;
	struct ipart *partition[FD_NUMPART];
	struct ipart localpart[FD_NUMPART];

	cyl_size = heads * sectors;

	/*
	 * make a local copy of the partition table
	 * and sort it into relsect order
	 */


	for (i = 0, j = 0; i < FD_NUMPART; i++) {
		if (Table[i].systid != UNUSED) {
			localpart[j] = Table[i];
			j++;
		}
	}

	while (j < FD_NUMPART) {
		(void) memset(&localpart[j], 0, sizeof (struct ipart));
		j++;
	}

	for (i = 0; i < FD_NUMPART; i++)
		partition[i] = &localpart[i];

	for (i = 0; i < FD_NUMPART - 1; i++) {
		if (partition[i]->systid == UNUSED)
			break;
		for (j = i + 1; j < FD_NUMPART; j++) {
			if (partition[j]->systid == UNUSED)
				break;
			if (LE_32(partition[j]->relsect) <
			    LE_32(partition[i]->relsect)) {
				struct ipart *temp = partition[i];
				partition[i] = partition[j];
				partition[j] = temp;
			}
		}
	}


	(void) printf(Q_LINE);
	(void) printf(
	    "Specify the percentage of disk to use for this partition\n"
	    "(or type \"c\" to specify the size in cylinders). ");
	(void) fgets(s, sizeof (s), stdin);
	rm_blanks(s);
	if (s[0] != 'c') {	/* Specify size in percentage of disk */
		i = 0;
		while ((s[i] != '\0') && (s[i] != '\n')) {
			if (s[i] < '0' || s[i] > '9') {
				(void) printf(E_LINE);
				(void) printf("Invalid percentage value "
				    "specified; retry the operation.");
				return (-1);
			}
			i++;
			if (i > 3) {
				(void) printf(E_LINE);
				(void) printf("Invalid percentage value "
				    "specified; retry the operation.");
				return (-1);
			}
		}
		if ((percent = atoi(s)) > 100) {
			(void) printf(E_LINE);
			(void) printf(
			    "Percentage value is too large. The value must be"
			    " between 1 and 100;\nretry the operation.\n");
			return (-1);
		}
		if (percent < 1) {
			(void) printf(E_LINE);
			(void) printf(
			    "Percentage value is too small. The value must be"
			    " between 1 and 100;\nretry the operation.\n");
			return (-1);
		}

		if (percent == 100)
			cylen = Numcyl_usable - 1;
		else
			cylen = (Numcyl_usable * percent) / 100;

		/* Verify DOS12 partition doesn't exceed max size of 32MB. */
		if ((tsystid == DOSOS12) &&
		    ((long)((long)cylen * cyl_size) > MAXDOS)) {
			int n;
			n = MAXDOS * 100 / (int)(cyl_size) / Numcyl_usable;
			(void) printf(E_LINE);
			(void) printf("Maximum size for a DOS partition "
			    "is %d%%; retry the operation.",
			    n <= 100 ? n : 100);
			return (-1);
		}


		max_free = 0;
		for (i = 0; i < FD_NUMPART; i++) {

			/*
			 * check for free space before partition i
			 * where i varies from 0 to 3
			 *
			 * freespace after partition 3 is unusable
			 * because there are no free partitions
			 *
			 * freespace begins at the end of previous partition
			 * or cylinder 1
			 */
			if (i) {
				/* Not an empty table */
				first_free = LE_32(partition[i - 1]->relsect) +
				    LE_32(partition[i - 1]->numsect);
			} else {
				first_free = cyl_size;
			}

			/*
			 * freespace ends before the current partition
			 * or the end of the disk (chs end)
			 */
			if (partition[i]->systid == UNUSED) {
				size_free = chs_capacity - first_free;
			} else {
				/*
				 * Partition might start before cylinder 1.
				 * Make sure free space is not negative.
				 */
				size_free =
				    (LE_32(partition[i]->relsect > first_free))
				    ? (LE_32(partition[i]->relsect) -
				    first_free) : 0;
			}

			/* save largest free space */
			if (max_free < size_free)
				max_free = size_free;

			if (((uint64_t)cylen * cyl_size) <= size_free) {
				/* We found a place to use */
				break;
			}
			if (partition[i]->systid == UNUSED) {
				(void) printf(E_LINE);
				max_free /= (cyl_size);
				(void) fprintf(stderr, "fdisk: "
				    "Maximum percentage available is %lld\n",
				    100 * max_free / Numcyl_usable);
				return (-1);
			}
		}

		(void) printf(E_LINE);
		if (i >= FD_NUMPART) {
			(void) fprintf(stderr,
			    "fdisk: Partition table is full.\n");
			return (-1);
		}

		if ((i = insert_tbl(tsystid, 0, 0, 0, 0, 0, 0, 0,
		    first_free, cylen * cyl_size, 0)) >= 0)  {
			return (i);
		}
		return (-1);
	} else {

		/* Specifying size in cylinders */
		(void) printf(E_LINE);
		(void) printf(Q_LINE);
		(void) printf("Enter starting cylinder number: ");
		if ((cyl = getcyl()) == -1) {
			(void) printf(E_LINE);
			(void) printf("Invalid number; retry the operation.");
			return (-1);
		}
		if (cyl == 0) {
			(void) printf(E_LINE);
			(void) printf(
			    "New partition cannot start at cylinder 0.\n");
			return (-1);
		}


		if (cyl >= Numcyl_usable) {
			(void) printf(E_LINE);
			(void) printf(
			    "Cylinder %d is out of bounds, "
			    "the maximum is %d.\n",
			    cyl, Numcyl_usable - 1);
			return (-1);
		}

		(void) printf(Q_LINE);
		(void) printf("Enter partition size in cylinders: ");
		if ((cylen = getcyl()) == -1) {
			(void) printf(E_LINE);
			(void) printf("Invalid number, retry the operation.");
			return (-1);
		}

		for (i = 0; i < FD_NUMPART; i++) {
			uint32_t	t_relsect, t_numsect;

			if (partition[i]->systid == UNUSED)
				break;
			t_relsect = LE_32(partition[i]->relsect);
			t_numsect = LE_32(partition[i]->numsect);

			if (cyl * cyl_size >= t_relsect &&
			    cyl * cyl_size < t_relsect + t_numsect) {
				(void) printf(E_LINE);
				(void) printf(
				    "Cylinder %d is already allocated"
				    "\nretry the operation.",
				    cyl);
				return (-1);
			}

			if (cyl * cyl_size < t_relsect &&
			    (cyl + cylen - 1) * cyl_size > t_relsect) {
				(void) printf(E_LINE);
				(void) printf(
				    "Maximum size for partition is %u cylinders"
				    "\nretry the operation.",
				    (t_relsect - cyl * cyl_size) / cyl_size);
				return (-1);
			}
		}

		/* Verify partition doesn't exceed disk size or 2 TB */
		if (cyl + cylen > Numcyl_usable) {
			(void) printf(E_LINE);
			if (Numcyl > Numcyl_usable) {
				(void) printf(
				    "Maximum size for partition is %d "
				    "cylinders; \nretry the operation.",
				    Numcyl_usable - cyl);
			} else {
				(void) printf(
				    "Maximum size for partition is %d "
				    "cylinders; \nretry the operation.",
				    Numcyl_usable - cyl);
			}
			return (-1);
		}

		/* Verify DOS12 partition doesn't exceed max size of 32MB. */
		if ((tsystid == DOSOS12) &&
		    ((long)((long)cylen * cyl_size) > MAXDOS)) {
			(void) printf(E_LINE);
			(void) printf(
			    "Maximum size for a %s partition is %ld cylinders;"
			    "\nretry the operation.",
			    Dstr, MAXDOS / (int)(cyl_size));
			return (-1);
		}

		(void) printf(E_LINE);
		i = insert_tbl(tsystid, 0, 0, 0, 0, 0, 0, 0,
		    cyl * cyl_size, cylen * cyl_size, 0);
		if (i < 0)
			return (-1);

		if (verify_tbl() < 0) {
			(void) printf(E_LINE);
			(void) printf("fdisk: Cannot create partition table\n");
			return (-1);
		}

		return (i);
	}
}

/*
 * dispmenu
 * Display command menu (interactive mode).
 */
static void
dispmenu(void)
{
	(void) printf(M_LINE);
#ifdef i386
	(void) printf(
	    "SELECT ONE OF THE FOLLOWING:\n"
	    "   1. Create a partition\n"
	    "   2. Specify the active partition\n"
	    "   3. Delete a partition\n"
	    "   4. Change between Solaris and Solaris2 Partition IDs\n"
	    "   5. Edit/View extended partitions\n"
	    "   6. Exit (update disk configuration and exit)\n"
	    "   7. Cancel (exit without updating disk configuration)\n");
#else
	(void) printf(
	    "SELECT ONE OF THE FOLLOWING:\n"
	    "   1. Create a partition\n"
	    "   2. Specify the active partition\n"
	    "   3. Delete a partition\n"
	    "   4. Change between Solaris and Solaris2 Partition IDs\n"
	    "   5. Exit (update disk configuration and exit)\n"
	    "   6. Cancel (exit without updating disk configuration)\n");
#endif
}

/*
 * pchange
 * Change the ACTIVE designation of a partition.
 */
static int
pchange(void)
{
	char s[80];
	int i, j;

	for (;;) {
		(void) printf(Q_LINE);
			{
			(void) printf(
			    "Specify the partition number to boot from"
			    " (or specify 0 for none): ");
			}
		(void) fgets(s, sizeof (s), stdin);
		rm_blanks(s);
		if (((s[1] != '\0') && (s[1] != '\n')) ||
		    (s[0] < '0') || (s[0] > '4')) {
			(void) printf(E_LINE);
			(void) printf(
			    "Invalid response, please specify a number"
			    " between 0 and 4.\n");
		} else {
			break;
		}
	}
	if (s[0] == '0') {	/* No active partitions */
		for (i = 0; i < FD_NUMPART; i++) {
			if (Table[i].systid != UNUSED &&
			    Table[i].bootid == ACTIVE)
				Table[i].bootid = 0;
		}
		(void) printf(E_LINE);
			(void) printf(
			    "No partition is currently marked as active.");
		return (0);
	} else {	/* User has selected a partition to be active */

		i = s[0] - '1';

		if (Table[i].systid == UNUSED) {
			(void) printf(E_LINE);
			(void) printf("Partition does not exist.");
			return (-1);
		}
		/* a DOS-DATA or EXT-DOS partition cannot be active */
		else if ((Table[i].systid == DOSDATA) ||
		    (Table[i].systid == EXTDOS) ||
		    (Table[i].systid == FDISK_EXTLBA)) {
			(void) printf(E_LINE);
			(void) printf(
			    "DOS-DATA, EXT_DOS and EXT_DOS_LBA partitions "
			    "cannot be made active.\n");
			(void) printf("Select another partition.");
			return (-1);
		}
		Table[i].bootid = ACTIVE;
		for (j = 0; j < FD_NUMPART; j++) {
			if (j != i)
			Table[j].bootid = 0;
		}
	}
	(void) printf(E_LINE);
		{
		(void) printf(
		    "Partition %d is now active. The system will start up"
		    " from this\n", i + 1);
		(void) printf("partition after the next reboot.");
		}
	return (1);
}

/*
 * Change between SOLARIS and SOLARIS2 partition id
 */
static int
ppartid(void)
{
	char	*p, s[80];
	int	i;

	for (;;) {
		(void) printf(Q_LINE);
		(void) printf("Specify the partition number to change"
		    " (or enter 0 to exit): ");
		if (!fgets(s, sizeof (s), stdin))
			return (1);
		i = strtol(s, &p, 10);

		if (*p != '\n' || i < 0 || i > FD_NUMPART) {
			(void) printf(E_LINE);
			(void) printf(
			    "Invalid response, retry the operation.\n");
			continue;
		}

		if (i == 0) {
			/* exit delete command */
			(void) printf(E_LINE); /* clear error message */
			return (1);
		}

		i -= 1;

		if (Table[i].systid == SUNIXOS) {
			Table[i].systid = SUNIXOS2;
		} else if (Table[i].systid == SUNIXOS2) {
			Table[i].systid = SUNIXOS;
		} else {
			(void) printf(E_LINE);
			(void) printf(
			    "Partition %d is not a Solaris partition.",
			    i + 1);
			continue;
		}

		(void) printf(E_LINE);
		(void) printf("Partition %d has been changed.", i + 1);
		return (1);
	}
}

/*
 * pdelete
 * Remove partition entry from the table (interactive mode).
 */
static char
pdelete(void)
{
	char s[80];
	int i;
	char pactive;

DEL1:	(void) printf(Q_LINE);
	(void) printf("Specify the partition number to delete"
	    " (or enter 0 to exit): ");
	(void) fgets(s, sizeof (s), stdin);
	rm_blanks(s);
	if ((s[0] == '0')) {	/* exit delete command */
		(void) printf(E_LINE);	/* clear error message */
		return (1);
	}
	/* Accept only a single digit between 1 and 4 */
	if (((s[1] != '\0') && (s[1] != '\n')) ||
	    (i = atoi(s)) < 1 || i > FD_NUMPART) {
		(void) printf(E_LINE);
		(void) printf("Invalid response, retry the operation.\n");
		goto DEL1;
	} else {		/* Found a digit between 1 and 4 */
		--i;	/* Structure begins with element 0 */
	}

	if (Table[i].systid == UNUSED) {
		(void) printf(E_LINE);
		(void) printf("Partition %d does not exist.", i + 1);
		return (-1);
	}

#ifdef i386
	if (fdisk_is_dos_extended(Table[i].systid) &&
	    (Table[i].relsect == fdisk_get_ext_beg_sec(epp)) &&
	    fdisk_get_logical_drive_count(epp)) {
		(void) printf(Q_LINE);
		(void) printf("There are logical drives inside the"
		    " extended partition\n");
		(void) printf("Are you sure of proceeding with deletion ?"
		    " (type \"y\" or \"n\") ");

		(void) printf(E_LINE);
		if (! yesno()) {
			return (1);
		}
		if (fdisk_mounted_logical_drives(epp) == FDISK_EMOUNTED) {
			(void) printf(Q_LINE);
			(void) printf("There are mounted logical drives. "
			    "Committing changes now can cause data loss or "
			    "corruption. Unmount all logical drives and then "
			    "try committing the changes again.\n");
			(void) printf("Press enter to continue.\n");
			ext_read_input(s);
			return (1);
		}
		(void) fdisk_delete_ext_part(epp);
	} else {
#endif
		(void) printf(Q_LINE);
		(void) printf("Are you sure you want to delete partition %d?"
		    " This will make all files and \n", i + 1);
		(void) printf("programs in this partition inaccessible (type"
		    " \"y\" or \"n\"). ");

		(void) printf(E_LINE);
		if (! yesno()) {
			return (1);
		}
#ifdef i386
	}
#endif

	if (Table[i].bootid == ACTIVE) {
		pactive = 1;
	} else {
		pactive = 0;
	}

	(void) memset(&Table[i], 0, sizeof (struct ipart));

	(void) printf(E_LINE);
	(void) printf("Partition %d has been deleted.", i + 1);

	if (pactive) {
		(void) printf(" This was the active partition.");
	}

	return (1);
}

/*
 * rm_blanks
 * Remove blanks from strings of user responses.
 */
static void
rm_blanks(char *s)
{
	register int i, j;

	for (i = 0; i < CBUFLEN; i++) {
		if ((s[i] == ' ') || (s[i] == '\t'))
			continue;
		else
			/* Found first non-blank character of the string */
			break;
	}
	for (j = 0; i < CBUFLEN; j++, i++) {
		if ((s[j] = s[i]) == '\0') {
			/* Reached end of string */
			return;
		}
	}
}

/*
 * getcyl
 * Take the user-specified cylinder number and convert it from a
 * string to a decimal value.
 */
static int
getcyl(void)
{
int slen, i, j;
unsigned int cyl;
	(void) fgets(s, sizeof (s), stdin);
	rm_blanks(s);
	slen = strlen(s);
	if (s[slen - 1] == '\n')
		slen--;
	j = 1;
	cyl = 0;
	for (i = slen - 1; i >= 0; i--) {
		if (s[i] < '0' || s[i] > '9') {
			return (-1);
		}
		cyl += (j * (s[i] - '0'));
		j *= 10;
	}
	return (cyl);
}

/*
 * disptbl
 * Display the current fdisk table; determine percentage
 * of the disk used for each partition.
 */
static void
disptbl(void)
{
	int i;
	unsigned int startcyl, endcyl, length, percent, remainder;
	char *stat, *type;
	int is_pmbr = 0;

	if ((heads == 0) || (sectors == 0)) {
		(void) printf("WARNING: critical disk geometry information"
		    " missing!\n");
		(void) printf("\theads = %d, sectors = %d\n", heads, sectors);
		exit(1);
	}

	(void) printf(HOME);
	(void) printf(T_LINE);
	(void) printf("             Total disk size is %d cylinders\n", Numcyl);
	(void) printf("             Cylinder size is %d (%d byte) blocks\n\n",
	    heads * sectors, sectsiz);
	(void) printf(
	    "                                               Cylinders\n");
	(void) printf(
	    "      Partition   Status    Type          Start   End   Length"
	    "    %%\n");
	(void) printf(
	    "      =========   ======    ============  =====   ===   ======"
	    "   ===");


	for (i = 0; i < FD_NUMPART; i++) {

		if (Table[i].systid == UNUSED) {
			continue;
		}

		if (Table[i].bootid == ACTIVE)
			stat = Actvstr;
		else
			stat = NAstr;
		switch (Table[i].systid) {
		case UNIXOS:
			type = Ustr;
			break;
		case SUNIXOS:
			type = SUstr;
#ifdef i386
			if (fdisk_is_linux_swap(epp, Table[i].relsect,
			    NULL) == 0)
				type = LINSWAPstr;
#endif
			break;
		case SUNIXOS2:
			type = SU2str;
			break;
		case X86BOOT:
			type = X86str;
			break;
		case DOSOS12:
			type = Dstr;
			break;
		case DOSOS16:
			type = D16str;
			break;
		case EXTDOS:
			type = EDstr;
			break;
		case DOSDATA:
			type = DDstr;
			break;
		case DOSHUGE:
			type = DBstr;
			break;
		case PCIXOS:
			type = PCstr;
			break;
		case DIAGPART:
			type = DIAGstr;
			break;
		case FDISK_IFS:
			type = IFSstr;
			break;
		case FDISK_AIXBOOT:
			type = AIXstr;
			break;
		case FDISK_AIXDATA:
			type = AIXDstr;
			break;
		case FDISK_OS2BOOT:
			type = OS2str;
			break;
		case FDISK_WINDOWS:
			type = WINstr;
			break;
		case FDISK_EXT_WIN:
			type = EWINstr;
			break;
		case FDISK_FAT95:
			type = FAT95str;
			break;
		case FDISK_EXTLBA:
			type = EXTLstr;
			break;
		case FDISK_LINUX:
			type = LINUXstr;
			break;
		case FDISK_CPM:
			type = CPMstr;
			break;
		case FDISK_NOVELL2:
			type = NOV2str;
			break;
		case FDISK_NOVELL3:
			type = NOVstr;
			break;
		case FDISK_QNX4:
			type = QNXstr;
			break;
		case FDISK_QNX42:
			type = QNX2str;
			break;
		case FDISK_QNX43:
			type = QNX3str;
			break;
		case FDISK_LINUXNAT:
			type = LINNATstr;
			break;
		case FDISK_NTFSVOL1:
			type = NTFSVOL1str;
			break;
		case FDISK_NTFSVOL2:
			type = NTFSVOL2str;
			break;
		case FDISK_BSD:
			type = BSDstr;
			break;
		case FDISK_NEXTSTEP:
			type = NEXTSTEPstr;
			break;
		case FDISK_BSDIFS:
			type = BSDIFSstr;
			break;
		case FDISK_BSDISWAP:
			type = BSDISWAPstr;
			break;
		case EFI_PMBR:
			type = EFIstr;
			if (LE_32(Table[i].numsect) == DK_MAX_2TB)
				is_pmbr = 1;

			break;
		default:
			type = Ostr;
			break;
		}
		startcyl = LE_32(Table[i].relsect) /
		    (unsigned long)(heads * sectors);

		if (LE_32(Table[i].numsect) == DK_MAX_2TB) {
			endcyl = Numcyl - 1;
			length = endcyl - startcyl + 1;
		} else {
			length = LE_32(Table[i].numsect) /
			    (unsigned long)(heads * sectors);
			if (LE_32(Table[i].numsect) %
			    (unsigned long)(heads * sectors))
				length++;
			endcyl = startcyl + length - 1;
		}

		percent = length * 100 / Numcyl_usable;
		if ((remainder = (length * 100 % Numcyl_usable)) != 0) {
			if ((remainder * 100 / Numcyl_usable) > 50) {
				/* round up */
				percent++;
			}
			/* Else leave the percent as is since it's already */
			/* rounded down */
		}
		if (percent > 100)
			percent = 100;
		(void) printf(
		    "\n          %d       %s    %-12.12s   %4d  %4d    %4d"
		    "    %3d",
		    i + 1, stat, type, startcyl, endcyl, length, percent);
	}

	/* Print warning message if table is empty */
	if (nopartdefined()) {
		(void) printf(W_LINE);
		(void) printf("WARNING: no partitions are defined!");
	} else {
		/* Clear the warning line */
		(void) printf(W_LINE);

		/* Print warning if disk > 2TB and is not EFI PMBR */
		if (!is_pmbr && (dev_capacity > DK_MAX_2TB))
			(void) printf("WARNING: Disk is larger than 2 TB. "
			    "Upper limit is 2 TB for non-EFI partition ID\n");
	}
}

/*
 * print_Table
 * Write the detailed fdisk table to standard error for
 * the selected disk device.
 */
static void
print_Table(void)
{
	int i;

	(void) fprintf(stderr,
	    "  SYSID ACT BHEAD BSECT BEGCYL   EHEAD ESECT ENDCYL   RELSECT"
	    "   NUMSECT\n");

	for (i = 0; i < FD_NUMPART; i++) {
		(void) fprintf(stderr, "  %-5d ", Table[i].systid);
		(void) fprintf(stderr, "%-3d ", Table[i].bootid);
		(void) fprintf(stderr, "%-5d ", Table[i].beghead);
		(void) fprintf(stderr, "%-5d ", Table[i].begsect & 0x3f);
		(void) fprintf(stderr, "%-8d ",
		    (((uint_t)Table[i].begsect & 0xc0) << 2) + Table[i].begcyl);

		(void) fprintf(stderr, "%-5d ", Table[i].endhead);
		(void) fprintf(stderr, "%-5d ", Table[i].endsect & 0x3f);
		(void) fprintf(stderr, "%-8d ",
		    (((uint_t)Table[i].endsect & 0xc0) << 2) + Table[i].endcyl);
		(void) fprintf(stderr, "%-10u ", LE_32(Table[i].relsect));
		(void) fprintf(stderr, "%-10u\n", LE_32(Table[i].numsect));

	}
}

/*
 * copy_Table_to_Old_Table
 * Copy Table into Old_Table. The function only copies the systid,
 * numsect, relsect, and bootid values because they are the only
 * ones compared when determining if Table has changed.
 */
static void
copy_Table_to_Old_Table(void)
{
	int i;
	for (i = 0; i < FD_NUMPART; i++)  {
		(void) memcpy(&Old_Table[i], &Table[i], sizeof (Table[0]));
	}
}

/*
 * nulltbl
 * Zero out the systid, numsect, relsect, and bootid values in the
 * fdisk table.
 */
static void
nulltbl(void)
{
	int i;

	for (i = 0; i < FD_NUMPART; i++)  {
		Table[i].systid = UNUSED;
		Table[i].numsect = LE_32(UNUSED);
		Table[i].relsect = LE_32(UNUSED);
		Table[i].bootid = 0;
		skip_verify[i] = 0;
	}
}

/*
 * copy_Bootblk_to_Table
 * Copy the bytes from the boot record to an internal "Table".
 * All unused are padded with zeros starting at offset 446.
 */
static void
copy_Bootblk_to_Table(void)
{
	int i;
	char *bootptr;
	struct ipart iparts[FD_NUMPART];

	/* Get an aligned copy of the partition tables */
	(void) memcpy(iparts, Bootblk->parts, sizeof (iparts));
	bootptr = (char *)iparts;	/* Points to start of partition table */
	if (LE_16(Bootblk->signature) != MBB_MAGIC)  {
		/* Signature is missing */
		nulltbl();
		(void) memcpy(Bootblk->bootinst, &BootCod, BOOTSZ);
		return;
	}
	/*
	 * When the DOS fdisk command deletes a partition, it is not
	 * recognized by the old algorithm.  The algorithm that
	 * follows looks at each entry in the Bootrec and copies all
	 * those that are valid.
	 */
	for (i = 0; i < FD_NUMPART; i++) {
		if (iparts[i].systid == 0) {
			/* Null entry */
			(void) memset(&Table[i], 0, sizeof (struct ipart));
		} else {
			fill_ipart(bootptr, &Table[i]);
		}
		bootptr += sizeof (struct ipart);
	}

	/* For now, always replace the bootcode with ours */
	(void) memcpy(Bootblk->bootinst, &BootCod, BOOTSZ);
	copy_Table_to_Bootblk();
}

/*
 * fill_ipart
 * Initialize ipart structure values.
 */
static void
fill_ipart(char *bootptr, struct ipart *partp)
{
#ifdef sparc
	/* Packing struct ipart for Sparc */
	partp->bootid	= getbyte(&bootptr);
	partp->beghead	= getbyte(&bootptr);
	partp->begsect	= getbyte(&bootptr);
	partp->begcyl	= getbyte(&bootptr);
	partp->systid	= getbyte(&bootptr);
	partp->endhead	= getbyte(&bootptr);
	partp->endsect	= getbyte(&bootptr);
	partp->endcyl	= getbyte(&bootptr);
	partp->relsect	= (int32_t)getlong(&bootptr);
	partp->numsect	= (int32_t)getlong(&bootptr);
#else
	*partp = *(struct ipart *)bootptr;
#endif
}

/*
 * getbyte, getlong
 * 	Get a byte, a short, or a long (SPARC only).
 */
#ifdef sparc
uchar_t
getbyte(char **bp)
{
	uchar_t	b;

	b = (uchar_t)**bp;
	*bp = *bp + 1;
	return (b);
}

uint32_t
getlong(char **bp)
{
	int32_t	b, bh, bl;

	bh = ((**bp) << 8) | *(*bp + 1);
	*bp += 2;
	bl = ((**bp) << 8) | *(*bp + 1);
	*bp += 2;

	b = (bh << 16) | bl;
	return ((uint32_t)b);
}
#endif

/*
 * copy_Table_to_Bootblk
 * Copy the table into the boot record. Note that the unused
 * entries will always be the last ones in the table and they are
 * marked with 100 in sysind. The the unused portion of the table
 * is padded with zeros in the bytes after the used entries.
 */
static void
copy_Table_to_Bootblk(void)
{
	struct ipart *boot_ptr, *tbl_ptr;

	boot_ptr = (struct ipart *)Bootblk->parts;
	tbl_ptr = (struct ipart *)&Table[0].bootid;
	for (; tbl_ptr < (struct ipart *)&Table[FD_NUMPART].bootid;
	    tbl_ptr++, boot_ptr++) {
		if (tbl_ptr->systid == UNUSED)
			(void) memset(boot_ptr, 0, sizeof (struct ipart));
		else
			(void) memcpy(boot_ptr, tbl_ptr, sizeof (struct ipart));
	}
	Bootblk->signature = LE_16(MBB_MAGIC);
}

/*
 * TableChanged
 * 	Check for any changes in the partition table.
 */
static int
TableChanged(void)
{
	int i, changed;

	changed = 0;
	for (i = 0; i < FD_NUMPART; i++) {
		if (memcmp(&Old_Table[i], &Table[i], sizeof (Table[0])) != 0) {
			/* Partition table changed, write back to disk */
			changed = 1;
		}
	}

	return (changed);
}

/*
 * ffile_write
 * 	Display contents of partition table to standard output or
 *	another file name without writing it to the disk (-W file).
 */
static void
ffile_write(char *file)
{
	register int	i;
	FILE *fp;

	/*
	 * If file isn't standard output, then it's a file name.
	 * Open file and write it.
	 */
	if (file != (char *)stdout) {
		if ((fp = fopen(file, "w")) == NULL) {
			(void) fprintf(stderr,
			    "fdisk: Cannot open output file %s.\n",
			    file);
			exit(1);
		}
	}
	else
		fp = stdout;

	/*
	 * Write the fdisk table information
	 */
	(void) fprintf(fp, "\n* %s default fdisk table\n", Dfltdev);
	(void) fprintf(fp, "* Dimensions:\n");
	(void) fprintf(fp, "*   %4d bytes/sector\n", sectsiz);
	(void) fprintf(fp, "*   %4d sectors/track\n", sectors);
	(void) fprintf(fp, "*   %4d tracks/cylinder\n", heads);
	(void) fprintf(fp, "*   %4d cylinders\n", Numcyl);
	(void) fprintf(fp, "*\n");
	/* Write virtual (HBA) geometry, if required	*/
	if (v_flag) {
		(void) fprintf(fp, "* HBA Dimensions:\n");
		(void) fprintf(fp, "*   %4d bytes/sector\n", sectsiz);
		(void) fprintf(fp, "*   %4d sectors/track\n", hba_sectors);
		(void) fprintf(fp, "*   %4d tracks/cylinder\n", hba_heads);
		(void) fprintf(fp, "*   %4d cylinders\n", hba_Numcyl);
		(void) fprintf(fp, "*\n");
	}
	(void) fprintf(fp, "* systid:\n");
	(void) fprintf(fp, "*    1: DOSOS12\n");
	(void) fprintf(fp, "*    2: PCIXOS\n");
	(void) fprintf(fp, "*    4: DOSOS16\n");
	(void) fprintf(fp, "*    5: EXTDOS\n");
	(void) fprintf(fp, "*    6: DOSBIG\n");
	(void) fprintf(fp, "*    7: FDISK_IFS\n");
	(void) fprintf(fp, "*    8: FDISK_AIXBOOT\n");
	(void) fprintf(fp, "*    9: FDISK_AIXDATA\n");
	(void) fprintf(fp, "*   10: FDISK_0S2BOOT\n");
	(void) fprintf(fp, "*   11: FDISK_WINDOWS\n");
	(void) fprintf(fp, "*   12: FDISK_EXT_WIN\n");
	(void) fprintf(fp, "*   14: FDISK_FAT95\n");
	(void) fprintf(fp, "*   15: FDISK_EXTLBA\n");
	(void) fprintf(fp, "*   18: DIAGPART\n");
	(void) fprintf(fp, "*   65: FDISK_LINUX\n");
	(void) fprintf(fp, "*   82: FDISK_CPM\n");
	(void) fprintf(fp, "*   86: DOSDATA\n");
	(void) fprintf(fp, "*   98: OTHEROS\n");
	(void) fprintf(fp, "*   99: UNIXOS\n");
	(void) fprintf(fp, "*  100: FDISK_NOVELL2\n");
	(void) fprintf(fp, "*  101: FDISK_NOVELL3\n");
	(void) fprintf(fp, "*  119: FDISK_QNX4\n");
	(void) fprintf(fp, "*  120: FDISK_QNX42\n");
	(void) fprintf(fp, "*  121: FDISK_QNX43\n");
	(void) fprintf(fp, "*  130: SUNIXOS\n");
	(void) fprintf(fp, "*  131: FDISK_LINUXNAT\n");
	(void) fprintf(fp, "*  134: FDISK_NTFSVOL1\n");
	(void) fprintf(fp, "*  135: FDISK_NTFSVOL2\n");
	(void) fprintf(fp, "*  165: FDISK_BSD\n");
	(void) fprintf(fp, "*  167: FDISK_NEXTSTEP\n");
	(void) fprintf(fp, "*  183: FDISK_BSDIFS\n");
	(void) fprintf(fp, "*  184: FDISK_BSDISWAP\n");
	(void) fprintf(fp, "*  190: X86BOOT\n");
	(void) fprintf(fp, "*  191: SUNIXOS2\n");
	(void) fprintf(fp, "*  238: EFI_PMBR\n");
	(void) fprintf(fp, "*  239: EFI_FS\n");
	(void) fprintf(fp, "*\n");
	(void) fprintf(fp,
	    "\n* Id    Act  Bhead  Bsect  Bcyl    Ehead  Esect  Ecyl"
	    "    Rsect      Numsect\n");

	for (i = 0; i < FD_NUMPART; i++) {
		(void) fprintf(fp,
		    "  %-5d %-4d %-6d %-6d %-7d %-6d %-6d %-7d %-10u"
		    " %-10u\n",
		    Table[i].systid,
		    Table[i].bootid,
		    Table[i].beghead,
		    Table[i].begsect & 0x3f,
		    ((Table[i].begcyl & 0xff) | ((Table[i].begsect &
		    0xc0) << 2)),
		    Table[i].endhead,
		    Table[i].endsect & 0x3f,
		    ((Table[i].endcyl & 0xff) | ((Table[i].endsect &
		    0xc0) << 2)),
		    LE_32(Table[i].relsect),
		    LE_32(Table[i].numsect));
	}
#ifdef i386
	if (fdisk_ext_part_exists(epp)) {
		struct ipart ext_tab;
		logical_drive_t *temp;
		uint32_t rsect, numsect, tempsect = 0;
		for (temp = fdisk_get_ld_head(epp); temp != NULL;
		    temp = temp->next) {
			ext_tab = temp->parts[0];
			rsect = tempsect + LE_32(ext_tab.relsect) +
			    fdisk_get_ext_beg_sec(epp);
			numsect = LE_32(ext_tab.numsect);
			tempsect = LE_32(temp->parts[1].relsect);
			(void) fprintf(fp,
			    "  %-5d %-4d %-6d %-6d %-7d %-6d %-6d "
			    "%-7d %-8u %-8u\n",
			    ext_tab.systid,
			    ext_tab.bootid,
			    ext_tab.beghead,
			    ext_tab.begsect & 0x3f,
			    ((ext_tab.begcyl & 0xff) |
			    ((ext_tab.begsect & 0xc0) << 2)),
			    ext_tab.endhead,
			    ext_tab.endsect & 0x3f,
			    ((ext_tab.endcyl & 0xff) |
			    ((ext_tab.endsect & 0xc0) << 2)),
			    rsect,
			    numsect);
		}
	}
#endif

	if (fp != stdout)
		(void) fclose(fp);
}

/*
 * fix_slice
 * 	Read the VTOC table on the Solaris partition and check that no
 *	slices exist that extend past the end of the Solaris partition.
 *	If no Solaris partition exists, nothing is done.
 */
static void
fix_slice(void)
{
	int	i;
	uint32_t	numsect;

	if (io_image) {
		return;
	}

	for (i = 0; i < FD_NUMPART; i++) {
		if (Table[i].systid == SUNIXOS || Table[i].systid == SUNIXOS2) {
			/*
			 * Only the size matters (not starting point), since
			 * VTOC entries are relative to the start of
			 * the partition.
			 */
			numsect = LE_32(Table[i].numsect);
			break;
		}
	}

	if (i >= FD_NUMPART) {
		if (!io_nifdisk) {
			(void) fprintf(stderr,
			    "fdisk: No Solaris partition found - VTOC not"
			    " checked.\n");
		}
		return;
	}

	if (readvtoc() != VTOC_OK) {
		exit(1);		/* Failed to read the VTOC */
	}
	for (i = 0; i < V_NUMPAR; i++) {
		/* Special case for slice two (entire disk) */
		if (i == 2) {
			if (disk_vtoc.v_part[i].p_start != 0) {
				(void) fprintf(stderr,
				    "slice %d starts at %llu, is not at"
				    " start of partition",
				    i, disk_vtoc.v_part[i].p_start);
				if (!io_nifdisk) {
					(void) printf(" adjust ?:");
					if (yesno())
						disk_vtoc.v_part[i].p_start = 0;
				} else {
					disk_vtoc.v_part[i].p_start = 0;
					(void) fprintf(stderr, " adjusted!\n");
				}

			}
			if (disk_vtoc.v_part[i].p_size != numsect) {
				(void) fprintf(stderr,
				    "slice %d size %llu does not cover"
				    " complete partition",
				    i, disk_vtoc.v_part[i].p_size);
				if (!io_nifdisk) {
					(void) printf(" adjust ?:");
					if (yesno())
						disk_vtoc.v_part[i].p_size =
						    numsect;
				} else {
					disk_vtoc.v_part[i].p_size = numsect;
					(void) fprintf(stderr, " adjusted!\n");
				}
			}
			if (disk_vtoc.v_part[i].p_tag != V_BACKUP) {
				(void) fprintf(stderr,
				    "slice %d tag was %d should be %d",
				    i, disk_vtoc.v_part[i].p_tag,
				    V_BACKUP);
				if (!io_nifdisk) {
					(void) printf(" fix ?:");
					if (yesno())
						disk_vtoc.v_part[i].p_tag =
						    V_BACKUP;
				} else {
					disk_vtoc.v_part[i].p_tag = V_BACKUP;
					(void) fprintf(stderr, " fixed!\n");
				}
			}
			continue;
		}
		if (io_ADJT) {
			if (disk_vtoc.v_part[i].p_start > numsect ||
			    disk_vtoc.v_part[i].p_start +
			    disk_vtoc.v_part[i].p_size > numsect) {
				(void) fprintf(stderr,
				    "slice %d (start %llu, end %llu)"
				    " is larger than the partition",
				    i, disk_vtoc.v_part[i].p_start,
				    disk_vtoc.v_part[i].p_start +
				    disk_vtoc.v_part[i].p_size);
				if (!io_nifdisk) {
					(void) printf(" remove ?:");
					if (yesno()) {
						disk_vtoc.v_part[i].p_size = 0;
						disk_vtoc.v_part[i].p_start = 0;
						disk_vtoc.v_part[i].p_tag = 0;
						disk_vtoc.v_part[i].p_flag = 0;
					}
				} else {
					disk_vtoc.v_part[i].p_size = 0;
					disk_vtoc.v_part[i].p_start = 0;
					disk_vtoc.v_part[i].p_tag = 0;
					disk_vtoc.v_part[i].p_flag = 0;
					(void) fprintf(stderr,
					    " removed!\n");
				}
			}
			continue;
		}
		if (disk_vtoc.v_part[i].p_start > numsect) {
			(void) fprintf(stderr,
			    "slice %d (start %llu) is larger than the "
			    "partition", i, disk_vtoc.v_part[i].p_start);
			if (!io_nifdisk) {
				(void) printf(" remove ?:");
				if (yesno()) {
					disk_vtoc.v_part[i].p_size = 0;
					disk_vtoc.v_part[i].p_start = 0;
					disk_vtoc.v_part[i].p_tag = 0;
					disk_vtoc.v_part[i].p_flag = 0;
				}
			} else {
				disk_vtoc.v_part[i].p_size = 0;
				disk_vtoc.v_part[i].p_start = 0;
				disk_vtoc.v_part[i].p_tag = 0;
				disk_vtoc.v_part[i].p_flag = 0;
				(void) fprintf(stderr,
				" removed!\n");
			}
		} else if (disk_vtoc.v_part[i].p_start
		    + disk_vtoc.v_part[i].p_size > numsect) {
			(void) fprintf(stderr,
			    "slice %d (end %llu) is larger"
			    " than the partition",
			    i,
			    disk_vtoc.v_part[i].p_start +
			    disk_vtoc.v_part[i].p_size);
			if (!io_nifdisk) {
				(void) printf(" adjust ?:");
				if (yesno()) {
					disk_vtoc.v_part[i].p_size = numsect;
				}
			} else {
				disk_vtoc.v_part[i].p_size = numsect;
				(void) fprintf(stderr, " adjusted!\n");
			}
		}
	}
#if 1		/* bh for now */
	/* Make the VTOC look sane - ha ha */
	disk_vtoc.v_version = V_VERSION;
	disk_vtoc.v_sanity = VTOC_SANE;
	disk_vtoc.v_nparts = V_NUMPAR;
	if (disk_vtoc.v_sectorsz == 0)
		disk_vtoc.v_sectorsz = NBPSCTR;
#endif

	/* Write the VTOC back to the disk */
	if (!io_readonly)
		(void) writevtoc();
}

/*
 * yesno
 * Get yes or no answer. Return 1 for yes and 0 for no.
 */

static int
yesno(void)
{
	char	s[80];

	for (;;) {
		(void) fgets(s, sizeof (s), stdin);
		rm_blanks(s);
		if (((s[1] != '\0') && (s[1] != '\n')) ||
		    ((s[0] != 'y') && (s[0] != 'n'))) {
			(void) printf(E_LINE);
			(void) printf("Please answer with \"y\" or \"n\": ");
			continue;
		}
		if (s[0] == 'y')
			return (1);
		else
			return (0);
	}
}

/*
 * readvtoc
 * 	Read the VTOC from the Solaris partition of the device.
 */
static int
readvtoc(void)
{
	int	i;
	int	retval = VTOC_OK;

	if ((i = read_extvtoc(Dev, &disk_vtoc)) < VTOC_OK) {
		if (i == VT_EINVAL) {
			(void) fprintf(stderr, "fdisk: Invalid VTOC.\n");
			vt_inval++;
			retval = VTOC_INVAL;
		} else if (i == VT_ENOTSUP) {
			(void) fprintf(stderr, "fdisk: partition may have EFI "
			    "GPT\n");
			retval = VTOC_NOTSUP;
		} else {
			(void) fprintf(stderr, "fdisk: Cannot read VTOC.\n");
			retval = VTOC_RWERR;
		}
	}
	return (retval);
}

/*
 * writevtoc
 * 	Write the VTOC to the Solaris partition on the device.
 */
static int
writevtoc(void)
{
	int	i;
	int	retval = 0;

	if ((i = write_extvtoc(Dev, &disk_vtoc)) != 0) {
		if (i == VT_EINVAL) {
			(void) fprintf(stderr,
			    "fdisk: Invalid entry exists in VTOC.\n");
			retval = VTOC_INVAL;
		} else if (i == VT_ENOTSUP) {
			(void) fprintf(stderr, "fdisk: partition may have EFI "
			    "GPT\n");
			retval = VTOC_NOTSUP;
		} else {
			(void) fprintf(stderr, "fdisk: Cannot write VTOC.\n");
			retval = VTOC_RWERR;
		}
	}
	return (retval);
}

/*
 * efi_ioctl
 * issues DKIOCSETEFI IOCTL
 * (duplicate of private efi_ioctl() in rdwr_efi.c
 */
static int
efi_ioctl(int fd, int cmd, dk_efi_t *dk_ioc)
{
	void *data = dk_ioc->dki_data;
	int error;

	dk_ioc->dki_data_64 = (uintptr_t)data;
	error = ioctl(fd, cmd, (void *)dk_ioc);

	return (error);
}

/*
 * clear_efi
 * Clear EFI labels from the EFI_PMBR partition on the device
 * This function is modeled on the libefi(3LIB) call efi_write()
 */
static int
clear_efi(void)
{
	struct dk_gpt	*efi_vtoc;
	dk_efi_t	dk_ioc;

	/*
	 * see if we can read the EFI label
	 */
	if (efi_alloc_and_read(Dev, &efi_vtoc) < 0) {
		return (VT_ERROR);
	}

	/*
	 * set up the dk_ioc structure for writing
	 */
	dk_ioc.dki_lba = 1;
	dk_ioc.dki_length = EFI_MIN_ARRAY_SIZE + efi_vtoc->efi_lbasize;

	if ((dk_ioc.dki_data = calloc(dk_ioc.dki_length, 1)) == NULL) {
		return (VT_ERROR);
	}

	/*
	 * clear the primary label
	 */
	if (io_debug) {
		(void) fprintf(stderr,
		    "\tClearing primary EFI label at block %lld\n",
		    dk_ioc.dki_lba);
	}

	if (efi_ioctl(Dev, DKIOCSETEFI, &dk_ioc) == -1) {
		free(dk_ioc.dki_data);
		switch (errno) {
			case EIO:
				return (VT_EIO);
			case EINVAL:
				return (VT_EINVAL);
			default:
				return (VT_ERROR);
		}
	}

	/*
	 * clear the backup partition table
	 */
	dk_ioc.dki_lba = efi_vtoc->efi_last_u_lba + 1;
	dk_ioc.dki_length -= efi_vtoc->efi_lbasize;
	dk_ioc.dki_data = (efi_gpt_t *)((char *)dk_ioc.dki_data +
	    efi_vtoc->efi_lbasize);
	if (io_debug) {
		(void) fprintf(stderr,
		    "\tClearing backup partition table at block %lld\n",
		    dk_ioc.dki_lba);
	}

	if (efi_ioctl(Dev, DKIOCSETEFI, &dk_ioc) == -1) {
		(void) fprintf(stderr, "\tUnable to clear backup EFI label at "
		    "block %llu; errno %d\n", efi_vtoc->efi_last_u_lba + 1,
		    errno);
	}

	/*
	 * clear the backup label
	 */
	dk_ioc.dki_lba = efi_vtoc->efi_last_lba;
	dk_ioc.dki_length = efi_vtoc->efi_lbasize;
	dk_ioc.dki_data = (efi_gpt_t *)((char *)dk_ioc.dki_data -
	    efi_vtoc->efi_lbasize);
	if (io_debug) {
		(void) fprintf(stderr, "\tClearing backup label at block "
		    "%lld\n", dk_ioc.dki_lba);
	}

	if (efi_ioctl(Dev, DKIOCSETEFI, &dk_ioc) == -1) {
		(void) fprintf(stderr,
		    "\tUnable to clear backup EFI label at "
		    "block %llu; errno %d\n",
		    efi_vtoc->efi_last_lba,
		    errno);
	}

	free(dk_ioc.dki_data);
	efi_free(efi_vtoc);

	return (0);
}

/*
 * clear_vtoc
 * 	Clear the VTOC from the current or previous Solaris partition on the
 *      device.
 */
static void
clear_vtoc(int table, int part)
{
	struct ipart *clr_table;
	char *disk_label;
	uint32_t pcyl, ncyl, count;
	diskaddr_t backup_block, solaris_offset;
	ssize_t bytes;
	off_t seek_byte;

#ifdef DEBUG
	char *read_label;
#endif /* DEBUG */

	if (table == OLD) {
		clr_table = &Old_Table[part];
	} else {
		clr_table = &Table[part];
	}

	disk_label = (char *)calloc(sectsiz, 1);
	if (disk_label == NULL) {
		return;
	}

	seek_byte = (off_t)(LE_32(clr_table->relsect) + VTOC_OFFSET) * sectsiz;

	if (io_debug) {
		(void) fprintf(stderr,
		    "\tClearing primary VTOC at byte %llu (block %llu)\n",
		    (uint64_t)seek_byte,
		    (uint64_t)(LE_32(clr_table->relsect) + VTOC_OFFSET));
	}

	if (lseek(Dev, seek_byte, SEEK_SET) == -1) {
		(void) fprintf(stderr,
		    "\tError seeking to primary label at byte %llu\n",
		    (uint64_t)seek_byte);
		free(disk_label);
		return;
	}

	bytes = write(Dev, disk_label, sectsiz);

	if (bytes != sectsiz) {
		(void) fprintf(stderr,
		    "\tWarning: only %d bytes written to clear primary"
		    " VTOC!\n", bytes);
	}

#ifdef DEBUG
	if (lseek(Dev, seek_byte, SEEK_SET) == -1) {
		(void) fprintf(stderr,
		    "DEBUG: Error seeking to primary label at byte %llu\n",
		    (uint64_t)seek_byte);
		free(disk_label);
		return;
	} else {
		(void) fprintf(stderr,
		    "DEBUG: Successful lseek() to byte %llu\n",
		    (uint64_t)seek_byte);
	}

	read_label = (char *)calloc(sectsiz, 1);
	if (read_label == NULL) {
		free(disk_label);
		return;
	}

	bytes = read(Dev, read_label, sectsiz);

	if (bytes != sectsiz) {
		(void) fprintf(stderr,
		    "DEBUG: Warning: only %d bytes read of label\n",
		    bytes);
	}

	if (memcmp(disk_label, read_label, sectsiz) != 0) {
		(void) fprintf(stderr,
		    "DEBUG: Warning: disk_label and read_label differ!!!\n");
	} else {
		(void) fprintf(stderr, "DEBUG Good compare of disk_label and "
		    "read_label\n");
	}
#endif /* DEBUG */

	/* Clear backup label */
	pcyl = LE_32(clr_table->numsect) / (heads * sectors);
	solaris_offset = LE_32(clr_table->relsect);
	ncyl = pcyl - acyl;

	backup_block = ((ncyl + acyl - 1) *
	    (heads * sectors)) + ((heads - 1) * sectors) + 1;

	for (count = 1; count < 6; count++) {
		seek_byte = (off_t)(solaris_offset + backup_block) * sectsiz;

		if (lseek(Dev, seek_byte, SEEK_SET) == -1) {
			(void) fprintf(stderr,
			    "\tError seeking to backup label at byte %llu on "
			    "%s.\n", (uint64_t)seek_byte, Dfltdev);
			free(disk_label);
#ifdef DEBUG
			free(read_label);
#endif /* DEBUG */
			return;
		}

		if (io_debug) {
			(void) fprintf(stderr, "\tClearing backup VTOC at"
			    " byte %llu (block %llu)\n",
			    (uint64_t)seek_byte,
			    (uint64_t)(solaris_offset + backup_block));
		}

		bytes = write(Dev, disk_label, sectsiz);

		if (bytes != sectsiz) {
			(void) fprintf(stderr,
			    "\t\tWarning: only %d bytes written to "
			    "clear backup VTOC at block %llu!\n", bytes,
			    (uint64_t)(solaris_offset + backup_block));
		}

#ifdef DEBUG
	if (lseek(Dev, seek_byte, SEEK_SET) == -1) {
		(void) fprintf(stderr,
		    "DEBUG: Error seeking to backup label at byte %llu\n",
		    (uint64_t)seek_byte);
		free(disk_label);
		free(read_label);
		return;
	} else {
		(void) fprintf(stderr,
		    "DEBUG: Successful lseek() to byte %llu\n",
		    (uint64_t)seek_byte);
	}

	bytes = read(Dev, read_label, sectsiz);

	if (bytes != sectsiz) {
		(void) fprintf(stderr,
		    "DEBUG: Warning: only %d bytes read of backup label\n",
		    bytes);
	}

	if (memcmp(disk_label, read_label, sectsiz) != 0) {
		(void) fprintf(stderr,
		    "DEBUG: Warning: disk_label and read_label differ!!!\n");
	} else {
		(void) fprintf(stderr,
		    "DEBUG: Good compare of disk_label and backup "
		    "read_label\n");
	}

#endif /* DEBUG */

		backup_block += 2;
	}

#ifdef DEBUG
	free(read_label);
#endif /* DEBUG */
	free(disk_label);
}

#define	FDISK_STANDARD_LECTURE \
	"Fdisk is normally used with the device that " \
	"represents the entire fixed disk.\n" \
	"(For example, /dev/rdsk/c0d0p0 on x86 or " \
	"/dev/rdsk/c0t5d0s2 on sparc).\n"

#define	FDISK_LECTURE_NOT_SECTOR_ZERO \
	"The device does not appear to include absolute\n" \
	"sector 0 of the PHYSICAL disk " \
	"(the normal location for an fdisk table).\n"

#define	FDISK_LECTURE_NOT_FULL \
	"The device does not appear to encompass the entire PHYSICAL disk.\n"

#define	FDISK_LECTURE_NO_VTOC \
	"Unable to find a volume table of contents.\n" \
	"Cannot verify the device encompasses the full PHYSICAL disk.\n"

#define	FDISK_LECTURE_NO_GEOM \
	"Unable to get geometry from device.\n" \
	"Cannot verify the device encompasses the full PHYSICAL disk.\n"

#define	FDISK_SHALL_I_CONTINUE \
	"Are you sure you want to continue? (y/n) "

/*
 *  lecture_and_query
 *	Called when a sanity check fails.  This routine gives a warning
 *	specific to the check that fails, followed by a generic lecture
 *	about the "right" device to supply as input.  Then, if appropriate,
 *	it will prompt the user on whether or not they want to continue.
 *	Inappropriate times for prompting are when the user has selected
 *	non-interactive mode or read-only mode.
 */
static int
lecture_and_query(char *warning, char *devname)
{
	if (io_nifdisk)
		return (0);

	(void) fprintf(stderr, "WARNING: Device %s: \n", devname);
	(void) fprintf(stderr, "%s", warning);
	(void) fprintf(stderr, FDISK_STANDARD_LECTURE);
	(void) fprintf(stderr, FDISK_SHALL_I_CONTINUE);

	return (yesno());
}

static void
sanity_check_provided_device(char *devname, int fd)
{
	struct extvtoc v;
	struct dk_geom d;
	struct part_info pi;
	struct extpart_info extpi;
	diskaddr_t totsize;
	int idx = -1;

	/*
	 *  First try the PARTINFO ioctl.  If it works, we will be able
	 *  to tell if they've specified the full disk partition by checking
	 *  to see if they've specified a partition that starts at sector 0.
	 */
	if (ioctl(fd, DKIOCEXTPARTINFO, &extpi) != -1) {
		if (extpi.p_start != 0) {
			if (!lecture_and_query(FDISK_LECTURE_NOT_SECTOR_ZERO,
			    devname)) {
				(void) close(fd);
				exit(1);
			}
		}
	} else if (ioctl(fd, DKIOCPARTINFO, &pi) != -1) {
		if (pi.p_start != 0) {
			if (!lecture_and_query(FDISK_LECTURE_NOT_SECTOR_ZERO,
			    devname)) {
				(void) close(fd);
				exit(1);
			}
		}
	} else {
		if ((idx = read_extvtoc(fd, &v)) < 0) {
			if (!lecture_and_query(FDISK_LECTURE_NO_VTOC,
			    devname)) {
				(void) close(fd);
				exit(1);
			}
			return;
		}
		if (ioctl(fd, DKIOCGGEOM, &d) == -1) {
			perror(devname);
			if (!lecture_and_query(FDISK_LECTURE_NO_GEOM,
			    devname)) {
				(void) close(fd);
				exit(1);
			}
			return;
		}
		totsize = (diskaddr_t)d.dkg_ncyl * d.dkg_nhead * d.dkg_nsect;
		if (v.v_part[idx].p_size != totsize) {
			if (!lecture_and_query(FDISK_LECTURE_NOT_FULL,
			    devname)) {
				(void) close(fd);
				exit(1);
			}
		}
	}
}


/*
 * get_node
 * Called from main to construct the name of the device node to open.
 * Initially tries to stat the node exactly as provided, if that fails
 * we prepend the default path (/dev/rdsk/).
 */
static char *
get_node(char *devname)
{
	char *node;
	struct stat statbuf;
	size_t space;

	/* Don't do anything if we are skipping device checks */
	if (io_image)
		return (devname);

	node = devname;

	/* Try the node as provided first */
	if (stat(node, (struct stat *)&statbuf) == -1) {
		/*
		 * Copy the passed in string to a new buffer, prepend the
		 * default path and try again.
		 */
		space = strlen(DEFAULT_PATH) + strlen(devname) + 1;

		if ((node = malloc(space)) == NULL) {
			(void) fprintf(stderr, "fdisk: Unable to obtain memory "
			    "for device node.\n");
			exit(1);
		}

		/* Copy over the default path and the provided node */
		(void) strncpy(node, DEFAULT_PATH, strlen(DEFAULT_PATH));
		space -= strlen(DEFAULT_PATH);
		(void) strlcpy(node + strlen(DEFAULT_PATH), devname, space);

		/* Try to stat it again */
		if (stat(node, (struct stat *)&statbuf) == -1) {
			/* Failed all options, give up */
			(void) fprintf(stderr,
			    "fdisk: Cannot stat device %s.\n",
			    devname);
			exit(1);
		}
	}

	/* Make sure the device specified is the raw device */
	if ((statbuf.st_mode & S_IFMT) != S_IFCHR) {
		(void) fprintf(stderr,
		    "fdisk: %s must be a raw device.\n", node);
		exit(1);
	}

	return (node);
}

#ifdef i386
static void
preach_and_continue()
{
	(void) fprintf(stderr, "There are mounted logical drives. Committing "
	    "changes now can lead to inconsistancy in internal system state "
	    "which can eventually cause data loss or corruption. Unmount all "
	    "logical drives and try committing the changes again.\n");
	ext_read_input(s);
}

/*
 * Convert a given partition ID to an descriptive string.
 * Just an index into the partition types table.
 */
void
id_to_name(uchar_t sysid, char *buffer)
{
	(void) strcpy(buffer, fdisk_part_types[sysid]);
}

/*
 * Procedure to check the validity of the extended partition menu option
 * entered by the user
 */
static int
ext_invalid_option(char ch)
{
	char *p;

	p = strchr(ext_part_menu_opts, tolower(ch));

	if (p == NULL) {
		return (1);
	}
	return (0);
}

/*
 * Read 16 bytes of the input (assuming that no valid user input spans more
 * than that). Flush the input stream, so that the next read does not reap
 * stale data from the previous input that was not processed.
 * Note that fgets also reads the trailing '\n'
 */
static void
ext_read_input(char *buf)
{
	(void) fgets(buf, 16, stdin);
	(void) fflush(stdin);
}

/*
 * Procedure to read and validate the user option at the extended partition menu
 */
static int
ext_read_options(char *buf)
{
	ext_read_input(buf);
	if ((strlen(buf) != 2) || (ext_invalid_option(buf[0]))) {
		(void) printf("\nUnknown Command\n");
		return (-1);
	}
	return (0);
}

/*
 * Procedure to print the list of known partition types and their IDs
 */
static void
ext_print_part_types()
{
	int i, rowmax, rowcount = 1;
	struct winsize ws;
	char buf[80];

	/* Get the current window dimensions */
	if (ioctl(STDIN_FILENO, TIOCGWINSZ, &ws) < 0) {
		perror("ioctl");
		rowmax = 20;
	} else {
		/*
		 * Accommodate the initial headings by reducing the number of
		 * partition IDs being printed.
		 */
		rowmax = ws.ws_row - 5;
	}

	if (rowmax < 3) {
		(void) fprintf(stderr, "Window size too small."
		    " Try resizing the window\n");
		return;
	}

	(void) printf("List of known partition types : \n");
	(void) printf("PartID          Partition Type\n");
	(void) printf("======          ==============\n");
	for (i = 0; i <= FDISK_MAX_VALID_PART_ID; i++) {
		(void) printf("%-3d          %s\n", i, fdisk_part_types[i]);
		rowcount++;
		if (rowcount == rowmax) {
			/*
			 * After the initial screen, use all the rows for
			 * printing the partition IDs, but one.
			 */
			rowmax = ws.ws_row - 1;
			(void) fprintf(stderr, "\nPress enter to see next "
			    "page or 'q' to quit : ");
			ext_read_input(buf);
			if ((strlen(buf) == 2) && (tolower(buf[0]) == 'q')) {
				return;
			}
			rowcount = 1;
		}
	}
}

static void
ext_read_valid_part_num(int *pno)
{
	char buf[80];
	int len, i;

	for (;;) {
		(void) printf("Enter the partition number : ");
		ext_read_input(buf);

		len = strlen(buf);

		/* Check length of the input */
		if ((len < 2) || (len > (FDISK_MAX_VALID_PART_NUM_DIGITS+1))) {
			goto print_error_and_continue;
		}

		/* Check if there is a non-digit in the input */
		for (i = 0; i < len-1; i++) {
			if (!isdigit(buf[i])) {
				goto print_error_and_continue;
			}
		}

		*pno = atoi(buf);

		if ((*pno <= FD_NUMPART) ||
		    *pno > (fdisk_get_logical_drive_count(epp) + FD_NUMPART)) {
			goto print_error_and_continue;
		}

		break;
print_error_and_continue:
		(void) printf("Invalid partition number\n");
		continue;
	}
}

static void
ext_read_valid_part_id(uchar_t *partid)
{
	char buf[80];
	int len, i, id;

	for (;;) {
		(void) printf("Enter the ID ( Type I for list of "
		    "partition IDs ) : ");
		ext_read_input(buf);
		len = strlen(buf);

		if ((len < 2) || (len > (FDISK_MAX_VALID_PART_ID_DIGITS + 1))) {
			(void) printf("Invalid partition ID\n");
			continue;
		}

		if ((len == 2) && (toupper(buf[0]) == 'I')) {
			ext_print_part_types();
			continue;
		}

		/* Check if there is a non-digit in the input */
		for (i = 0; i < len-1; i++) {
			if (!isdigit(buf[i])) {
				(void) printf("Invalid partition ID\n");
				break;
			}
		}

		if (i < len - 1) {
			continue;
		}

		/* Check if the (now) valid number is greater than the limit */
		if ((id = atoi(buf)) > FDISK_MAX_VALID_PART_ID) {
			(void) printf("Invalid partition ID\n");
			continue;
		}

		*partid = (uchar_t)id;

		/* Disallow multiple extended partitions */
		if (fdisk_is_dos_extended(*partid)) {
			(void) printf("Multiple extended partitions not "
			    "allowed\n");
			continue;
		}

		/* Disallow EFI partitions within extended partition */
		if (*partid == EFI_PMBR) {
			(void) printf("EFI partitions within an extended "
			    "partition is not allowed\n");
			continue;
		}

		return; /* Valid partition ID is in partid */
	}
}

static void
delete_logical_drive()
{
	int pno;

	if (!fdisk_get_logical_drive_count(epp)) {
		(void) printf("\nNo logical drives defined.\n");
		return;
	}

	(void) printf("\n");
	ext_read_valid_part_num(&pno);
	fdisk_delete_logical_drive(epp, pno);
	(void) printf("Partition %d deleted\n", pno);
}

static int
ext_read_valid_partition_start(uint32_t *begsec)
{
	char buf[80];
	int ret, len, i;
	uint32_t begcyl;
	uint32_t first_free_cyl;
	uint32_t first_free_sec;

	ret = fdisk_ext_find_first_free_sec(epp, &first_free_sec);
	if (ret != FDISK_SUCCESS) {
		return (ret);
	}

	first_free_cyl = FDISK_SECT_TO_CYL(epp, first_free_sec);
	for (;;) {
		(void) printf("Enter the beginning cylinder (Default - %d) : ",
		    first_free_cyl);
		ext_read_input(buf);
		len = strlen(buf);
		if (len == 1) { /* User accepted the default value */
			*begsec = first_free_sec;
			return (FDISK_SUCCESS);
		}

		if (len > (FDISK_MAX_VALID_CYL_NUM_DIGITS + 1)) {
			(void) printf("Input too long\n");
			(void) printf("Invalid beginning cylinder number\n");
			continue;
		}
		/* Check if there is a non-digit in the input */
		for (i = 0; i < len - 1; i++) {
			if (!isdigit(buf[i])) {
				(void) printf("Invalid beginning cylinder "
				    "number\n");
				break;
			}
		}
		if (i < len - 1) {
			continue;
		}

		begcyl = atoi(buf);
		ret = fdisk_ext_validate_part_start(epp, begcyl, begsec);
		switch (ret) {
			case FDISK_SUCCESS:
				/*
				 * Success.
				 * Valid beginning sector is in begsec
				 */
				break;

			case FDISK_EOVERLAP:
				(void) printf("Partition boundary overlaps "
				    "with ");
				(void) printf("existing partitions\n");
				(void) printf("Invalid beginning cylinder "
				    "number\n");
				continue;

			case FDISK_EOOBOUND:
				(void) printf("Cylinder boundary beyond the "
				    "limits\n");
				(void) printf("Invalid beginning cylinder "
				    "number\n");
				continue;
		}
		return (FDISK_SUCCESS);
	}
}

/*
 * Algorithm :
 * 1. Check if the first character is a +
 *	a) If yes, check if the last character is 'k', 'm' or 'g'
 * 2. If not, check if there are any non-digits
 * 3. Check for the length of the numeral string
 * 4. atoi the numeral string
 * 5. In case of data entered in KB, MB or GB, convert it to number of cylinders
 *	a) Adjust size to be cylinder boundary aligned
 * 6. If size specifies is zero, flag error
 * 7. Check if the size is less than 1 cylinder
 *	a) If yes, default the size FDISK_MIN_PART_SIZE
 * 	b) If no, Check if the size is within endcyl - begcyl
 */
static void
ext_read_valid_partition_size(uint32_t begsec, uint32_t *endsec)
{
	char buf[80];
	uint32_t last_free_sec;
	uint32_t last_free_cyl;
	int i, len, ch, mbgb = 0, scale = FDISK_SECTS_PER_CYL(epp);
	uint64_t size = 0;
	int copy_len;
	char numbuf[FDISK_MAX_VALID_CYL_NUM_DIGITS + 1];
	int sectsize = fdisk_get_disk_geom(epp, PHYSGEOM, SSIZE);
	uint32_t remdr, spc, poss_end;

	if (sectsize == EINVAL) {
		(void) fprintf(stderr, "Unsupported geometry statistics.\n");
		exit(1);
	}

	last_free_sec = fdisk_ext_find_last_free_sec(epp, begsec);
	last_free_cyl = FDISK_SECT_TO_CYL(epp, last_free_sec);

	for (;;) {
		(void) printf("Enter the size in cylinders (Default End "
		    "Cylinder -");
		(void) printf(" %u)\n", last_free_cyl);
		(void) printf("Type +<size>K, +<size>M or +<size>G to enter "
		    "size in");
		(void) printf("KB, MB or GB : ");
		ext_read_input(buf);
		len = strlen(buf);
		mbgb = 0;
		scale = FDISK_SECTS_PER_CYL(epp);

		if (len == 1) { /* User accepted the default value */
			*endsec = last_free_sec;
			return;
		}

		copy_len = len - 1;

		if ((buf[0] == '+') && (isdigit(buf[1]))) {
			copy_len--;
			if ((ch = toupper(buf[len - 2])) == 'B') {
				ch = toupper(buf[len - 3]);
				copy_len--;
			}

			if (!((ch == 'K') || (ch == 'M') || (ch == 'G'))) {
				(void) printf("Invalid partition size\n");
				continue;
			}

			copy_len--;
			mbgb = 1;
			scale = ((ch == 'K') ? FDISK_KB :
			    ((ch == 'M') ? FDISK_MB : FDISK_GB));
		}

		if (copy_len > FDISK_MAX_VALID_CYL_NUM_DIGITS) {
			(void) printf("Input too long\n");
			(void) printf("Invalid partition size\n");
			continue;
		}

		(void) strncpy(numbuf, &buf[mbgb], copy_len);
		numbuf[copy_len] = '\0';

		for (i = mbgb; i < copy_len + mbgb; i++) {
			if (!isdigit(buf[i])) {
				break;
			}
		}

		if (i < copy_len + mbgb) {
			(void) printf("Invalid partition size\n");
			continue;
		}

		size = (atoll(numbuf) * (scale));

		if (size == 0) {
			(void) printf("Zero size is invalid\n");
			(void) printf("Invalid partition size\n");
			continue;
		}

		if (mbgb) {
			size /= sectsize;
		}

		if (size > (last_free_sec - begsec + 1)) {
			(void) printf("Cylinder boundary beyond the limits");
			(void) printf(" or overlaps with existing");
			(void) printf(" partitions\n");
			(void) printf("Invalid partition size\n");
			continue;
		}

		/*
		 * Adjust the ending sector such that there are no partial
		 * cylinders allocated. But at the same time, make sure it
		 * doesn't over shoot boundaries.
		 */
		spc = FDISK_SECTS_PER_CYL(epp);
		poss_end = begsec + size - 1;
		if ((remdr = (poss_end % spc)) != 0) {
			poss_end += spc - remdr - 1;
		}
		*endsec = (poss_end > last_free_sec) ? last_free_sec :
		    poss_end;

		return;
	}
}

/*
 * ALGORITHM:
 * 1. Get the starting and ending sectors/cylinder of the extended partition.
 * 2. Keep track of the first free sector/cylinder
 * 3. Allow the user to specify the beginning cylinder of the new partition
 * 4. Check for the validity of the entered data
 *	a) If it is non-numeric
 *	b) If it is beyond the extended partition limits
 *	c) If it overlaps with the current logical drives
 * 5. Allow the user to specify the size in cylinders/ human readable form
 * 6. Check for the validity of the entered data
 *	a) If it is non-numeric
 *	b) If it is beyond the extended partition limits
 *	c) If it overlaps with the current logical drives
 *	d) If it is a number lesser than the starting cylinder
 * 7. Request partition ID for the new partition.
 * 8. Update the first free cylinder available
 * 9. Display Success message
 */

static void
add_logical_drive()
{
	uint32_t begsec, endsec;
	uchar_t partid;
	char buf[80];
	int rval;

	if (fdisk_get_logical_drive_count(epp) >= MAX_EXT_PARTS) {
		(void) printf("\nNumber of logical drives exceeds limit of "
		    "%d.\n", MAX_EXT_PARTS);
		(void) printf("Command did not succeed. Press enter to "
		    "continue\n");
		ext_read_input(buf);
		return;
	}

	(void) printf("\n");
	rval = ext_read_valid_partition_start(&begsec);
	switch (rval) {
		case FDISK_SUCCESS:
			break;

		case FDISK_EOOBOUND:
			(void) printf("\nNo space left in the extended "
			    "partition\n");
			(void) printf("Press enter to continue\n");
			ext_read_input(buf);
			return;
	}

	ext_read_valid_partition_size(begsec, &endsec);
	ext_read_valid_part_id(&partid);
	fdisk_add_logical_drive(epp, begsec, endsec, partid);

	(void) printf("New partition with ID %d added\n", partid);
}

static void
ext_change_logical_drive_id()
{
	int pno;
	uchar_t partid;

	if (!fdisk_get_logical_drive_count(epp)) {
		(void) printf("\nNo logical drives defined.\n");
		return;
	}

	(void) printf("\n");
	ext_read_valid_part_num(&pno);
	ext_read_valid_part_id(&partid);
	fdisk_change_logical_drive_id(epp, pno, partid);

	(void) printf("Partition ID of partition %d changed to %d\n", pno,
	    partid);
}

#ifdef DEBUG
static void
ext_print_logdrive_layout_debug()
{
	int pno;
	char namebuff[255];
	logical_drive_t *head = fdisk_get_ld_head(epp);
	logical_drive_t *temp;

	if (!fdisk_get_logical_drive_count(epp)) {
		(void) printf("\nNo logical drives defined.\n");
		return;
	}

	(void) printf("\n\n");
	puts("#  start block  end block    abs start    abs end      OSType");
	for (temp = head, pno = 5; temp != NULL; temp = temp->next, pno++) {
		/* Print the logical drive details */
		id_to_name(temp->parts[0].systid, namebuff);
		(void) printf("%d: %.10u   %.10u   %.10u   %.10u",
		    pno,
		    LE_32(temp->parts[0].relsect),
		    LE_32(temp->parts[0].numsect),
		    temp->abs_secnum,
		    temp->abs_secnum + temp->numsect - 1 +
		    MAX_LOGDRIVE_OFFSET);
		(void) printf("   %s\n", namebuff);
		/*
		 * Print the second entry in the EBR which is information
		 * about the location and the size of the next extended
		 * partition.
		 */
		id_to_name(temp->parts[1].systid, namebuff);
		(void) printf("%d: %.10u   %.10u   %.10s   %.10s",
		    pno,
		    LE_32(temp->parts[1].relsect),
		    LE_32(temp->parts[1].numsect),
		    "          ", "          ");
		(void) printf("   %s\n", namebuff);
	}
}
#endif

static void
ext_print_logical_drive_layout()
{
	int sysid;
	unsigned int startcyl, endcyl, length, percent, remainder;
	logical_drive_t *temp;
	uint32_t part_start;
	struct ipart *fpart;
	char namebuff[255];
	int numcyl = fdisk_get_disk_geom(epp, PHYSGEOM, NCYL);
	int pno;

	if (numcyl == EINVAL) {
		(void) fprintf(stderr, "Unsupported geometry statistics.\n");
		exit(1);
	}

	if (!fdisk_get_logical_drive_count(epp)) {
		(void) printf("\nNo logical drives defined.\n");
		return;
	}

	(void) printf("\n");
	(void) printf("Number of cylinders in disk              : %u\n",
	    numcyl);
	(void) printf("Beginning cylinder of extended partition : %u\n",
	    fdisk_get_ext_beg_cyl(epp));
	(void) printf("Ending cylinder of extended partition    : %u\n",
	    fdisk_get_ext_end_cyl(epp));
	(void) printf("\n");
	(void) printf("Part#   StartCyl   EndCyl     Length    %%     "
	"Part ID (Type)\n");
	(void) printf("=====   ========   ========   =======   ==="
	"   ==============\n");
	for (temp = fdisk_get_ld_head(epp), pno = 5; temp != NULL;
	    temp = temp->next, pno++) {
		/* Print the logical drive details */
		fpart = &temp->parts[0];
		sysid = fpart->systid;
		/*
		 * Check if partition id 0x82 is Solaris
		 * or a Linux swap. Print the string
		 * accordingly.
		 */
		if (sysid == SUNIXOS) {
			part_start = temp->abs_secnum +
			    temp->logdrive_offset;
			if (fdisk_is_linux_swap(epp, part_start,
			    NULL) == 0)
				(void) strcpy(namebuff, LINSWAPstr);
			else
				(void) strcpy(namebuff, SUstr);
		} else {
			id_to_name(sysid, namebuff);
		}
		startcyl = temp->begcyl;
		endcyl = temp->endcyl;
		if (startcyl == endcyl) {
			length = 1;
		} else {
			length = endcyl - startcyl + 1;
		}
		percent = length * 100 / numcyl;
		if ((remainder = (length * 100 % numcyl)) != 0) {
			if ((remainder * 100 / numcyl) > 50) {
				/* round up */
				percent++;
			}
			/* Else leave the percent as is since it's already */
			/* rounded down */
		}
		if (percent > 100) {
			percent = 100;
		}
		(void) printf("%-5d   %-8u   %-8u   %-7u   %-3d   "
		    "%-3d (%-.28s)\n",
		    pno, startcyl, endcyl, length, percent, sysid, namebuff);
	}
#ifdef DEBUG
	ext_print_logdrive_layout_debug();
#endif
	(void) printf("\n");
}

static void
ext_print_help_menu()
{
	(void) printf("\n");
	(void) printf("a	Add a logical drive\n");
	(void) printf("d	Delete a logical drive\n");
	(void) printf("h	Print this help menu\n");
	(void) printf("i	Change the id of the logical drive\n");
	(void) printf("p	Print the logical drive layout\n");
	(void) printf("r	Return to the main fdisk menu\n");
	(void) printf("        (To commit or cancel the changes)\n");
	(void) printf("\n");
}

static void
ext_part_menu()
{
	char buf[80];
	uchar_t *bbsigp;
	static int bbsig_disp_flag = 1;

	int i;

	(void) printf(CLR_SCR);

	if (fdisk_corrupt_logical_drives(epp)) {
		(void) printf("One or more logical drives seem to be "
		    "corrupt.\n");
		(void) printf("Displaying only sane logical drives.\n");
	}

	if (bbsig_disp_flag && fdisk_invalid_bb_sig(epp, &bbsigp)) {
		(void) printf("The following logical drives have a wrong "
		    "boot block signature :\n\n");
		for (i = 0; bbsigp[i]; i++) {
			(void) printf("%d ", bbsigp[i]);
		}
		(void) printf("\n\n");
		(void) printf("They will be corrected when you choose to "
		    "commit\n");
		bbsig_disp_flag = 0;
	}

	(void) printf("Extended partition menu\n");

	for (;;) {
		(void) printf("\nEnter Command (Type h for help) : ");
		if ((ext_read_options(buf)) < 0) {
			(void) printf("\nCommand Options : \n");
			ext_print_help_menu();
			continue;
		}
		switch (buf[0]) {
			case 'a':
				add_logical_drive();
				break;
			case 'd':
				delete_logical_drive();
				break;
			case 'h':
				ext_print_help_menu();
				break;
			case 'i':
				ext_change_logical_drive_id();
				break;
			case 'p':
				ext_print_logical_drive_layout();
				break;
			case 'r':
				(void) printf(CLR_SCR);
				return;
			default : /* NOTREACHED */
				break;
		}
	}
}
#endif /* i386 */

static int
nopartdefined()
{
	int i;

	for (i = 0; i < FD_NUMPART; i++)
		if (Table[i].systid != UNUSED)
			return (0);
	return (1);
}

/* create an EFI partition for the whole disk */
static int
efi_create()
{
	if (io_EFIslot < 0 || io_EFIslot > 3) {
		(void) fprintf(stderr,
		    "EFI partition slot must be between 0 and 3 inclusive.\n");
		return (0);
	}
	if (io_EFIactive != 0 && io_EFIactive != 1) {
		(void) fprintf(stderr,
		    "EFI partition active flag must be 0 or 1.\n");
		return (0);
	}

	nulltbl();
	/*
	 * In the following call, start and end cylinder values are set to one
	 * above the maximum number of cylinders. This is a special fence
	 * value which indicates that the geometry for the corresponding LBA
	 * is not representable. This results in a protective MBR which
	 * is the same as that created by libefi.
	 */
	if (insert_tbl(EFI_PMBR,
	    io_EFIactive ? ACTIVE : NOTACTIVE,
	    MAX_HEAD + 1, MAX_SECT, MAX_CYL + 1,
	    MAX_HEAD + 1, MAX_SECT, MAX_CYL + 1,
	    1,
	    (dev_capacity > DK_MAX_2TB) ? DK_MAX_2TB : (dev_capacity - 1),
	    io_EFIslot) != io_EFIslot)
		return (0);
	copy_Table_to_Bootblk();
	dev_mboot_write(0, Bootsect, sectsiz);
	return (1);
}