[mirror_ubuntu-bionic-kernel.git] / fs / partitions / ibm.c

/*
 * File...........: linux/fs/partitions/ibm.c
 * Author(s)......: Holger Smolinski <Holger.Smolinski@de.ibm.com>
 *                  Volker Sameske <sameske@de.ibm.com>
 * Bugreports.to..: <Linux390@de.ibm.com>
 * (C) IBM Corporation, IBM Deutschland Entwicklung GmbH, 1999,2000
 */

#include <linux/buffer_head.h>
#include <linux/hdreg.h>
#include <linux/slab.h>
#include <asm/dasd.h>
#include <asm/ebcdic.h>
#include <asm/uaccess.h>
#include <asm/vtoc.h>

#include "check.h"
#include "ibm.h"

/*
 * compute the block number from a
 * cyl-cyl-head-head structure
 */
static sector_t
cchh2blk (struct vtoc_cchh *ptr, struct hd_geometry *geo) {

	sector_t cyl;
	__u16 head;

	/*decode cylinder and heads for large volumes */
	cyl = ptr->hh & 0xFFF0;
	cyl <<= 12;
	cyl |= ptr->cc;
	head = ptr->hh & 0x000F;
	return cyl * geo->heads * geo->sectors +
	       head * geo->sectors;
}

/*
 * compute the block number from a
 * cyl-cyl-head-head-block structure
 */
static sector_t
cchhb2blk (struct vtoc_cchhb *ptr, struct hd_geometry *geo) {

	sector_t cyl;
	__u16 head;

	/*decode cylinder and heads for large volumes */
	cyl = ptr->hh & 0xFFF0;
	cyl <<= 12;
	cyl |= ptr->cc;
	head = ptr->hh & 0x000F;
	return	cyl * geo->heads * geo->sectors +
		head * geo->sectors +
		ptr->b;
}

/*
 */
int
ibm_partition(struct parsed_partitions *state, struct block_device *bdev)
{
	int blocksize, res;
	loff_t i_size, offset, size, fmt_size;
	dasd_information2_t *info;
	struct hd_geometry *geo;
	char type[5] = {0,};
	char name[7] = {0,};
	union label_t {
		struct vtoc_volume_label_cdl vol;
		struct vtoc_volume_label_ldl lnx;
		struct vtoc_cms_label cms;
	} *label;
	unsigned char *data;
	Sector sect;

	res = 0;
	blocksize = bdev_logical_block_size(bdev);
	if (blocksize <= 0)
		goto out_exit;
	i_size = i_size_read(bdev->bd_inode);
	if (i_size == 0)
		goto out_exit;

	info = kmalloc(sizeof(dasd_information2_t), GFP_KERNEL);
	if (info == NULL)
		goto out_exit;
	geo = kmalloc(sizeof(struct hd_geometry), GFP_KERNEL);
	if (geo == NULL)
		goto out_nogeo;
	label = kmalloc(sizeof(union label_t), GFP_KERNEL);
	if (label == NULL)
		goto out_nolab;

	if (ioctl_by_bdev(bdev, BIODASDINFO2, (unsigned long)info) != 0 ||
	    ioctl_by_bdev(bdev, HDIO_GETGEO, (unsigned long)geo) != 0)
		goto out_freeall;

	/*
	 * Get volume label, extract name and type.
	 */
	data = read_dev_sector(bdev, info->label_block*(blocksize/512), &sect);
	if (data == NULL)
		goto out_readerr;

	memcpy(label, data, sizeof(union label_t));
	put_dev_sector(sect);

	if ((!info->FBA_layout) && (!strcmp(info->type, "ECKD"))) {
		strncpy(type, label->vol.vollbl, 4);
		strncpy(name, label->vol.volid, 6);
	} else {
		strncpy(type, label->lnx.vollbl, 4);
		strncpy(name, label->lnx.volid, 6);
	}
	EBCASC(type, 4);
	EBCASC(name, 6);

	res = 1;

	/*
	 * Three different formats: LDL, CDL and unformated disk
	 *
	 * identified by info->format
	 *
	 * unformated disks we do not have to care about
	 */
	if (info->format == DASD_FORMAT_LDL) {
		if (strncmp(type, "CMS1", 4) == 0) {
			/*
			 * VM style CMS1 labeled disk
			 */
			blocksize = label->cms.block_size;
			if (label->cms.disk_offset != 0) {
				printk("CMS1/%8s(MDSK):", name);
				/* disk is reserved minidisk */
				offset = label->cms.disk_offset;
				size = (label->cms.block_count - 1)
					* (blocksize >> 9);
			} else {
				printk("CMS1/%8s:", name);
				offset = (info->label_block + 1);
				size = label->cms.block_count
					* (blocksize >> 9);
			}
			put_partition(state, 1, offset*(blocksize >> 9),
				      size-offset*(blocksize >> 9));
		} else {
			if (strncmp(type, "LNX1", 4) == 0) {
				printk("LNX1/%8s:", name);
				if (label->lnx.ldl_version == 0xf2) {
					fmt_size = label->lnx.formatted_blocks
						* (blocksize >> 9);
				} else if (!strcmp(info->type, "ECKD")) {
					/* formated w/o large volume support */
					fmt_size = geo->cylinders * geo->heads
					      * geo->sectors * (blocksize >> 9);
				} else {
					/* old label and no usable disk geometry
					 * (e.g. DIAG) */
					fmt_size = i_size >> 9;
				}
				size = i_size >> 9;
				if (fmt_size < size)
					size = fmt_size;
				offset = (info->label_block + 1);
			} else {
				/* unlabeled disk */
				printk("(nonl)");
				size = i_size >> 9;
				offset = (info->label_block + 1);
			}
			put_partition(state, 1, offset*(blocksize >> 9),
				      size-offset*(blocksize >> 9));
		}
	} else if (info->format == DASD_FORMAT_CDL) {
		/*
		 * New style CDL formatted disk
		 */
		sector_t blk;
		int counter;

		/*
		 * check if VOL1 label is available
		 * if not, something is wrong, skipping partition detection
		 */
		if (strncmp(type, "VOL1",  4) == 0) {
			printk("VOL1/%8s:", name);
			/*
			 * get block number and read then go through format1
			 * labels
			 */
			blk = cchhb2blk(&label->vol.vtoc, geo) + 1;
			counter = 0;
			data = read_dev_sector(bdev, blk * (blocksize/512),
					       &sect);
			while (data != NULL) {
				struct vtoc_format1_label f1;

				memcpy(&f1, data,
				       sizeof(struct vtoc_format1_label));
				put_dev_sector(sect);

				/* skip FMT4 / FMT5 / FMT7 labels */
				if (f1.DS1FMTID == _ascebc['4']
				    || f1.DS1FMTID == _ascebc['5']
				    || f1.DS1FMTID == _ascebc['7']
				    || f1.DS1FMTID == _ascebc['9']) {
					blk++;
					data = read_dev_sector(bdev, blk *
							       (blocksize/512),
								&sect);
					continue;
				}

				/* only FMT1 and 8 labels valid at this point */
				if (f1.DS1FMTID != _ascebc['1'] &&
				    f1.DS1FMTID != _ascebc['8'])
					break;

				/* OK, we got valid partition data */
				offset = cchh2blk(&f1.DS1EXT1.llimit, geo);
				size  = cchh2blk(&f1.DS1EXT1.ulimit, geo) -
					offset + geo->sectors;
				if (counter >= state->limit)
					break;
				put_partition(state, counter + 1,
					      offset * (blocksize >> 9),
					      size * (blocksize >> 9));
				counter++;
				blk++;
				data = read_dev_sector(bdev,
						       blk * (blocksize/512),
						       &sect);
			}

			if (!data)
				/* Are we not supposed to report this ? */
				goto out_readerr;
		} else
			printk(KERN_WARNING "Warning, expected Label VOL1 not "
			       "found, treating as CDL formated Disk");

	}

	printk("\n");
	goto out_freeall;


out_readerr:
	res = -1;
out_freeall:
	kfree(label);
out_nolab:
	kfree(geo);
out_nogeo:
	kfree(info);
out_exit:
	return res;
}
Commit	Line	Data
1da177e4	1	/*
ef1597d5	2	* File...........: linux/fs/partitions/ibm.c
1da177e4 LT	3	* Author(s)......: Holger Smolinski <Holger.Smolinski@de.ibm.com>
	4	* Volker Sameske <sameske@de.ibm.com>
	5	* Bugreports.to..: <Linux390@de.ibm.com>
	6	* (C) IBM Corporation, IBM Deutschland Entwicklung GmbH, 1999,2000
1da177e4 LT	7	*/
1da177e4 LT	8
1da177e4 LT	9	#include <linux/buffer_head.h>
	10	#include <linux/hdreg.h>
	11	#include <linux/slab.h>
	12	#include <asm/dasd.h>
	13	#include <asm/ebcdic.h>
	14	#include <asm/uaccess.h>
	15	#include <asm/vtoc.h>
	16
	17	#include "check.h"
	18	#include "ibm.h"
	19
	20	/*
ef1597d5	21	* compute the block number from a
1da177e4 LT	22	* cyl-cyl-head-head structure
1da177e4 LT	23	*/
b44b0ab3	24	static sector_t
4cd5b9f6	25	cchh2blk (struct vtoc_cchh ptr, struct hd_geometry geo) {
b44b0ab3 SW	26
	27	sector_t cyl;
	28	__u16 head;
	29
	30	/decode cylinder and heads for large volumes /
	31	cyl = ptr->hh & 0xFFF0;
	32	cyl <<= 12;
	33	cyl \|= ptr->cc;
	34	head = ptr->hh & 0x000F;
	35	return cyl * geo->heads * geo->sectors +
	36	head * geo->sectors;
1da177e4 LT	37	}
1da177e4 LT	38
1da177e4	39	/*
ef1597d5	40	* compute the block number from a
1da177e4 LT	41	* cyl-cyl-head-head-block structure
1da177e4 LT	42	*/
b44b0ab3	43	static sector_t
4cd5b9f6	44	cchhb2blk (struct vtoc_cchhb ptr, struct hd_geometry geo) {
b44b0ab3 SW	45
	46	sector_t cyl;
	47	__u16 head;
	48
	49	/decode cylinder and heads for large volumes /
	50	cyl = ptr->hh & 0xFFF0;
	51	cyl <<= 12;
	52	cyl \|= ptr->cc;
	53	head = ptr->hh & 0x000F;
	54	return cyl * geo->heads * geo->sectors +
	55	head * geo->sectors +
1da177e4 LT	56	ptr->b;
	57	}
	58
	59	/*
	60	*/
ef1597d5	61	int
1da177e4 LT	62	ibm_partition(struct parsed_partitions state, struct block_device bdev)
1da177e4 LT	63	{
b44b0ab3 SW	64	int blocksize, res;
b44b0ab3 SW	65	loff_t i_size, offset, size, fmt_size;
bf1a95a2	66	dasd_information2_t *info;
1da177e4 LT	67	struct hd_geometry *geo;
	68	char type[5] = {0,};
	69	char name[7] = {0,};
56dc6a88	70	union label_t {
b44b0ab3 SW	71	struct vtoc_volume_label_cdl vol;
b44b0ab3 SW	72	struct vtoc_volume_label_ldl lnx;
56dc6a88 PO	73	struct vtoc_cms_label cms;
56dc6a88 PO	74	} *label;
1da177e4 LT	75	unsigned char *data;
	76	Sector sect;
	77
57881dd9	78	res = 0;
e1defc4f	79	blocksize = bdev_logical_block_size(bdev);
90f0094d	80	if (blocksize <= 0)
57881dd9	81	goto out_exit;
90f0094d HH	82	i_size = i_size_read(bdev->bd_inode);
90f0094d HH	83	if (i_size == 0)
57881dd9	84	goto out_exit;
90f0094d	85
bf1a95a2 SH	86	info = kmalloc(sizeof(dasd_information2_t), GFP_KERNEL);
bf1a95a2 SH	87	if (info == NULL)
57881dd9	88	goto out_exit;
bf1a95a2 SH	89	geo = kmalloc(sizeof(struct hd_geometry), GFP_KERNEL);
bf1a95a2 SH	90	if (geo == NULL)
1da177e4	91	goto out_nogeo;
bf1a95a2 SH	92	label = kmalloc(sizeof(union label_t), GFP_KERNEL);
bf1a95a2 SH	93	if (label == NULL)
56dc6a88	94	goto out_nolab;
ef1597d5	95
bf1a95a2	96	if (ioctl_by_bdev(bdev, BIODASDINFO2, (unsigned long)info) != 0 \|\|
1da177e4	97	ioctl_by_bdev(bdev, HDIO_GETGEO, (unsigned long)geo) != 0)
57881dd9	98	goto out_freeall;
1da177e4 LT	99
	100	/*
	101	* Get volume label, extract name and type.
	102	*/
	103	data = read_dev_sector(bdev, info->label_block*(blocksize/512), &sect);
	104	if (data == NULL)
	105	goto out_readerr;
	106
56dc6a88	107	memcpy(label, data, sizeof(union label_t));
1da177e4 LT	108	put_dev_sector(sect);
1da177e4 LT	109
b44b0ab3 SW	110	if ((!info->FBA_layout) && (!strcmp(info->type, "ECKD"))) {
	111	strncpy(type, label->vol.vollbl, 4);
	112	strncpy(name, label->vol.volid, 6);
	113	} else {
	114	strncpy(type, label->lnx.vollbl, 4);
	115	strncpy(name, label->lnx.volid, 6);
	116	}
1da177e4 LT	117	EBCASC(type, 4);
	118	EBCASC(name, 6);
	119
57881dd9 S	120	res = 1;
57881dd9 S	121
1da177e4	122	/*
bf1a95a2 SH	123	* Three different formats: LDL, CDL and unformated disk
	124	*
	125	* identified by info->format
	126	*
	127	* unformated disks we do not have to care about
1da177e4	128	*/
bf1a95a2 SH	129	if (info->format == DASD_FORMAT_LDL) {
	130	if (strncmp(type, "CMS1", 4) == 0) {
	131	/*
	132	* VM style CMS1 labeled disk
	133	*/
b44b0ab3	134	blocksize = label->cms.block_size;
bf1a95a2 SH	135	if (label->cms.disk_offset != 0) {
	136	printk("CMS1/%8s(MDSK):", name);
	137	/* disk is reserved minidisk */
bf1a95a2 SH	138	offset = label->cms.disk_offset;
	139	size = (label->cms.block_count - 1)
	140	* (blocksize >> 9);
	141	} else {
	142	printk("CMS1/%8s:", name);
	143	offset = (info->label_block + 1);
b44b0ab3 SW	144	size = label->cms.block_count
b44b0ab3 SW	145	* (blocksize >> 9);
bf1a95a2	146	}
b44b0ab3 SW	147	put_partition(state, 1, offset*(blocksize >> 9),
b44b0ab3 SW	148	size-offset*(blocksize >> 9));
1da177e4	149	} else {
b44b0ab3 SW	150	if (strncmp(type, "LNX1", 4) == 0) {
	151	printk("LNX1/%8s:", name);
	152	if (label->lnx.ldl_version == 0xf2) {
	153	fmt_size = label->lnx.formatted_blocks
	154	* (blocksize >> 9);
	155	} else if (!strcmp(info->type, "ECKD")) {
	156	/* formated w/o large volume support */
	157	fmt_size = geo->cylinders * geo->heads
	158	* geo->sectors * (blocksize >> 9);
	159	} else {
	160	/* old label and no usable disk geometry
	161	* (e.g. DIAG) */
	162	fmt_size = i_size >> 9;
	163	}
	164	size = i_size >> 9;
	165	if (fmt_size < size)
	166	size = fmt_size;
	167	offset = (info->label_block + 1);
	168	} else {
	169	/* unlabeled disk */
bf1a95a2	170	printk("(nonl)");
b44b0ab3 SW	171	size = i_size >> 9;
	172	offset = (info->label_block + 1);
	173	}
	174	put_partition(state, 1, offset*(blocksize >> 9),
bf1a95a2	175	size-offset*(blocksize >> 9));
b44b0ab3	176	}
bf1a95a2	177	} else if (info->format == DASD_FORMAT_CDL) {
1da177e4	178	/*
bf1a95a2	179	* New style CDL formatted disk
1da177e4	180	*/
b44b0ab3	181	sector_t blk;
1da177e4 LT	182	int counter;
1da177e4 LT	183
1da177e4	184	/*
bf1a95a2 SH	185	* check if VOL1 label is available
bf1a95a2 SH	186	* if not, something is wrong, skipping partition detection
1da177e4	187	*/
bf1a95a2 SH	188	if (strncmp(type, "VOL1", 4) == 0) {
	189	printk("VOL1/%8s:", name);
	190	/*
	191	* get block number and read then go through format1
	192	* labels
	193	*/
	194	blk = cchhb2blk(&label->vol.vtoc, geo) + 1;
	195	counter = 0;
	196	data = read_dev_sector(bdev, blk * (blocksize/512),
	197	&sect);
	198	while (data != NULL) {
	199	struct vtoc_format1_label f1;
	200
	201	memcpy(&f1, data,
	202	sizeof(struct vtoc_format1_label));
	203	put_dev_sector(sect);
	204
	205	/* skip FMT4 / FMT5 / FMT7 labels */
	206	if (f1.DS1FMTID == _ascebc['4']
	207	\|\| f1.DS1FMTID == _ascebc['5']
b44b0ab3 SW	208	\|\| f1.DS1FMTID == _ascebc['7']
b44b0ab3 SW	209	\|\| f1.DS1FMTID == _ascebc['9']) {
bf1a95a2 SH	210	blk++;
	211	data = read_dev_sector(bdev, blk *
	212	(blocksize/512),
	213	&sect);
	214	continue;
	215	}
	216
b44b0ab3 SW	217	/* only FMT1 and 8 labels valid at this point */
	218	if (f1.DS1FMTID != _ascebc['1'] &&
	219	f1.DS1FMTID != _ascebc['8'])
bf1a95a2 SH	220	break;
	221
	222	/* OK, we got valid partition data */
	223	offset = cchh2blk(&f1.DS1EXT1.llimit, geo);
	224	size = cchh2blk(&f1.DS1EXT1.ulimit, geo) -
	225	offset + geo->sectors;
	226	if (counter >= state->limit)
	227	break;
	228	put_partition(state, counter + 1,
	229	offset * (blocksize >> 9),
	230	size * (blocksize >> 9));
	231	counter++;
	232	blk++;
	233	data = read_dev_sector(bdev,
	234	blk * (blocksize/512),
	235	&sect);
	236	}
	237
	238	if (!data)
	239	/* Are we not supposed to report this ? */
	240	goto out_readerr;
	241	} else
	242	printk(KERN_WARNING "Warning, expected Label VOL1 not "
	243	"found, treating as CDL formated Disk");
	244
1da177e4 LT	245	}
	246
	247	printk("\n");
57881dd9 S	248	goto out_freeall;
57881dd9 S	249
ef1597d5	250
1da177e4	251	out_readerr:
57881dd9 S	252	res = -1;
57881dd9 S	253	out_freeall:
56dc6a88 PO	254	kfree(label);
56dc6a88 PO	255	out_nolab:
1da177e4 LT	256	kfree(geo);
	257	out_nogeo:
	258	kfree(info);
57881dd9 S	259	out_exit:
57881dd9 S	260	return res;
1da177e4	261	}