[deliverable/linux.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 = state->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;
	sector_t labelsect;
	char tmp[64];

	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;

	/*
	 * Special case for FBA disks: label sector does not depend on
	 * blocksize.
	 */
	if ((info->cu_type == 0x6310 && info->dev_type == 0x9336) ||
	    (info->cu_type == 0x3880 && info->dev_type == 0x3370))
		labelsect = info->label_block;
	else
		labelsect = info->label_block * (blocksize >> 9);

	/*
	 * Get volume label, extract name and type.
	 */
	data = read_part_sector(state, labelsect, &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) {
				snprintf(tmp, sizeof(tmp), "CMS1/%8s(MDSK):", name);
				strlcat(state->pp_buf, tmp, PAGE_SIZE);
				/* disk is reserved minidisk */
				offset = label->cms.disk_offset;
				size = (label->cms.block_count - 1)
					* (blocksize >> 9);
			} else {
				snprintf(tmp, sizeof(tmp), "CMS1/%8s:", name);
				strlcat(state->pp_buf, tmp, PAGE_SIZE);
				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) {
				snprintf(tmp, sizeof(tmp), "LNX1/%8s:", name);
				strlcat(state->pp_buf, tmp, PAGE_SIZE);
				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 */
				strlcat(state->pp_buf, "(nonl)", PAGE_SIZE);
				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) {
			snprintf(tmp, sizeof(tmp), "VOL1/%8s:", name);
			strlcat(state->pp_buf, tmp, PAGE_SIZE);
			/*
			 * get block number and read then go through format1
			 * labels
			 */
			blk = cchhb2blk(&label->vol.vtoc, geo) + 1;
			counter = 0;
			data = read_part_sector(state, 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_part_sector(state,
						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_part_sector(state,
						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");

	}

	strlcat(state->pp_buf, "\n", PAGE_SIZE);
	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	*/
1493bf21	61	int ibm_partition(struct parsed_partitions *state)
1da177e4	62	{
1493bf21	63	struct block_device *bdev = state->bdev;
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;
1da177e4 LT	76	Sector sect;
cffab6bc	77	sector_t labelsect;
9c867fbe	78	char tmp[64];
1da177e4	79
57881dd9	80	res = 0;
e1defc4f	81	blocksize = bdev_logical_block_size(bdev);
90f0094d	82	if (blocksize <= 0)
57881dd9	83	goto out_exit;
90f0094d HH	84	i_size = i_size_read(bdev->bd_inode);
90f0094d HH	85	if (i_size == 0)
57881dd9	86	goto out_exit;
90f0094d	87
bf1a95a2 SH	88	info = kmalloc(sizeof(dasd_information2_t), GFP_KERNEL);
bf1a95a2 SH	89	if (info == NULL)
57881dd9	90	goto out_exit;
bf1a95a2 SH	91	geo = kmalloc(sizeof(struct hd_geometry), GFP_KERNEL);
bf1a95a2 SH	92	if (geo == NULL)
1da177e4	93	goto out_nogeo;
bf1a95a2 SH	94	label = kmalloc(sizeof(union label_t), GFP_KERNEL);
bf1a95a2 SH	95	if (label == NULL)
56dc6a88	96	goto out_nolab;
ef1597d5	97
bf1a95a2	98	if (ioctl_by_bdev(bdev, BIODASDINFO2, (unsigned long)info) != 0 \|\|
1da177e4	99	ioctl_by_bdev(bdev, HDIO_GETGEO, (unsigned long)geo) != 0)
57881dd9	100	goto out_freeall;
1da177e4	101
cffab6bc PO	102	/*
	103	* Special case for FBA disks: label sector does not depend on
	104	* blocksize.
	105	*/
	106	if ((info->cu_type == 0x6310 && info->dev_type == 0x9336) \|\|
	107	(info->cu_type == 0x3880 && info->dev_type == 0x3370))
	108	labelsect = info->label_block;
	109	else
	110	labelsect = info->label_block * (blocksize >> 9);
	111
1da177e4 LT	112	/*
	113	* Get volume label, extract name and type.
	114	*/
cffab6bc	115	data = read_part_sector(state, labelsect, &sect);
1da177e4 LT	116	if (data == NULL)
	117	goto out_readerr;
	118
56dc6a88	119	memcpy(label, data, sizeof(union label_t));
1da177e4 LT	120	put_dev_sector(sect);
1da177e4 LT	121
b44b0ab3 SW	122	if ((!info->FBA_layout) && (!strcmp(info->type, "ECKD"))) {
	123	strncpy(type, label->vol.vollbl, 4);
	124	strncpy(name, label->vol.volid, 6);
	125	} else {
	126	strncpy(type, label->lnx.vollbl, 4);
	127	strncpy(name, label->lnx.volid, 6);
	128	}
1da177e4 LT	129	EBCASC(type, 4);
	130	EBCASC(name, 6);
	131
57881dd9 S	132	res = 1;
57881dd9 S	133
1da177e4	134	/*
bf1a95a2 SH	135	* Three different formats: LDL, CDL and unformated disk
	136	*
	137	* identified by info->format
	138	*
	139	* unformated disks we do not have to care about
1da177e4	140	*/
bf1a95a2 SH	141	if (info->format == DASD_FORMAT_LDL) {
	142	if (strncmp(type, "CMS1", 4) == 0) {
	143	/*
	144	* VM style CMS1 labeled disk
	145	*/
b44b0ab3	146	blocksize = label->cms.block_size;
bf1a95a2	147	if (label->cms.disk_offset != 0) {
9c867fbe AD	148	snprintf(tmp, sizeof(tmp), "CMS1/%8s(MDSK):", name);
9c867fbe AD	149	strlcat(state->pp_buf, tmp, PAGE_SIZE);
bf1a95a2	150	/* disk is reserved minidisk */
bf1a95a2 SH	151	offset = label->cms.disk_offset;
	152	size = (label->cms.block_count - 1)
	153	* (blocksize >> 9);
	154	} else {
9c867fbe AD	155	snprintf(tmp, sizeof(tmp), "CMS1/%8s:", name);
9c867fbe AD	156	strlcat(state->pp_buf, tmp, PAGE_SIZE);
bf1a95a2	157	offset = (info->label_block + 1);
b44b0ab3 SW	158	size = label->cms.block_count
b44b0ab3 SW	159	* (blocksize >> 9);
bf1a95a2	160	}
b44b0ab3 SW	161	put_partition(state, 1, offset*(blocksize >> 9),
b44b0ab3 SW	162	size-offset*(blocksize >> 9));
1da177e4	163	} else {
b44b0ab3	164	if (strncmp(type, "LNX1", 4) == 0) {
9c867fbe AD	165	snprintf(tmp, sizeof(tmp), "LNX1/%8s:", name);
9c867fbe AD	166	strlcat(state->pp_buf, tmp, PAGE_SIZE);
b44b0ab3 SW	167	if (label->lnx.ldl_version == 0xf2) {
	168	fmt_size = label->lnx.formatted_blocks
	169	* (blocksize >> 9);
	170	} else if (!strcmp(info->type, "ECKD")) {
	171	/* formated w/o large volume support */
	172	fmt_size = geo->cylinders * geo->heads
	173	* geo->sectors * (blocksize >> 9);
	174	} else {
	175	/* old label and no usable disk geometry
	176	* (e.g. DIAG) */
	177	fmt_size = i_size >> 9;
	178	}
	179	size = i_size >> 9;
	180	if (fmt_size < size)
	181	size = fmt_size;
	182	offset = (info->label_block + 1);
	183	} else {
	184	/* unlabeled disk */
2041f657	185	strlcat(state->pp_buf, "(nonl)", PAGE_SIZE);
b44b0ab3 SW	186	size = i_size >> 9;
	187	offset = (info->label_block + 1);
	188	}
	189	put_partition(state, 1, offset*(blocksize >> 9),
bf1a95a2	190	size-offset*(blocksize >> 9));
b44b0ab3	191	}
bf1a95a2	192	} else if (info->format == DASD_FORMAT_CDL) {
1da177e4	193	/*
bf1a95a2	194	* New style CDL formatted disk
1da177e4	195	*/
b44b0ab3	196	sector_t blk;
1da177e4 LT	197	int counter;
1da177e4 LT	198
1da177e4	199	/*
bf1a95a2 SH	200	* check if VOL1 label is available
bf1a95a2 SH	201	* if not, something is wrong, skipping partition detection
1da177e4	202	*/
bf1a95a2	203	if (strncmp(type, "VOL1", 4) == 0) {
9c867fbe AD	204	snprintf(tmp, sizeof(tmp), "VOL1/%8s:", name);
9c867fbe AD	205	strlcat(state->pp_buf, tmp, PAGE_SIZE);
bf1a95a2 SH	206	/*
	207	* get block number and read then go through format1
	208	* labels
	209	*/
	210	blk = cchhb2blk(&label->vol.vtoc, geo) + 1;
	211	counter = 0;
1493bf21 TH	212	data = read_part_sector(state, blk * (blocksize/512),
1493bf21 TH	213	&sect);
bf1a95a2 SH	214	while (data != NULL) {
	215	struct vtoc_format1_label f1;
	216
	217	memcpy(&f1, data,
	218	sizeof(struct vtoc_format1_label));
	219	put_dev_sector(sect);
	220
	221	/* skip FMT4 / FMT5 / FMT7 labels */
	222	if (f1.DS1FMTID == _ascebc['4']
	223	\|\| f1.DS1FMTID == _ascebc['5']
b44b0ab3 SW	224	\|\| f1.DS1FMTID == _ascebc['7']
b44b0ab3 SW	225	\|\| f1.DS1FMTID == _ascebc['9']) {
bf1a95a2	226	blk++;
1493bf21 TH	227	data = read_part_sector(state,
1493bf21 TH	228	blk * (blocksize/512), &sect);
bf1a95a2 SH	229	continue;
	230	}
	231
b44b0ab3 SW	232	/* only FMT1 and 8 labels valid at this point */
	233	if (f1.DS1FMTID != _ascebc['1'] &&
	234	f1.DS1FMTID != _ascebc['8'])
bf1a95a2 SH	235	break;
	236
	237	/* OK, we got valid partition data */
	238	offset = cchh2blk(&f1.DS1EXT1.llimit, geo);
	239	size = cchh2blk(&f1.DS1EXT1.ulimit, geo) -
	240	offset + geo->sectors;
	241	if (counter >= state->limit)
	242	break;
	243	put_partition(state, counter + 1,
	244	offset * (blocksize >> 9),
	245	size * (blocksize >> 9));
	246	counter++;
	247	blk++;
1493bf21 TH	248	data = read_part_sector(state,
1493bf21 TH	249	blk * (blocksize/512), &sect);
bf1a95a2 SH	250	}
	251
	252	if (!data)
	253	/* Are we not supposed to report this ? */
	254	goto out_readerr;
	255	} else
	256	printk(KERN_WARNING "Warning, expected Label VOL1 not "
	257	"found, treating as CDL formated Disk");
	258
1da177e4 LT	259	}
1da177e4 LT	260
9c867fbe	261	strlcat(state->pp_buf, "\n", PAGE_SIZE);
57881dd9 S	262	goto out_freeall;
57881dd9 S	263
ef1597d5	264
1da177e4	265	out_readerr:
57881dd9 S	266	res = -1;
57881dd9 S	267	out_freeall:
56dc6a88 PO	268	kfree(label);
56dc6a88 PO	269	out_nolab:
1da177e4 LT	270	kfree(geo);
	271	out_nogeo:
	272	kfree(info);
57881dd9 S	273	out_exit:
57881dd9 S	274	return res;
1da177e4	275	}