[net-next-2.6.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;

	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) {
				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_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");

	}

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