[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;

	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_part_sector(state, 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_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;
	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	*/
1493bf21 TH	103	data = read_part_sector(state, info->label_block*(blocksize/512),
1493bf21 TH	104	&sect);
1da177e4 LT	105	if (data == NULL)
	106	goto out_readerr;
	107
56dc6a88	108	memcpy(label, data, sizeof(union label_t));
1da177e4 LT	109	put_dev_sector(sect);
1da177e4 LT	110
b44b0ab3 SW	111	if ((!info->FBA_layout) && (!strcmp(info->type, "ECKD"))) {
	112	strncpy(type, label->vol.vollbl, 4);
	113	strncpy(name, label->vol.volid, 6);
	114	} else {
	115	strncpy(type, label->lnx.vollbl, 4);
	116	strncpy(name, label->lnx.volid, 6);
	117	}
1da177e4 LT	118	EBCASC(type, 4);
	119	EBCASC(name, 6);
	120
57881dd9 S	121	res = 1;
57881dd9 S	122
1da177e4	123	/*
bf1a95a2 SH	124	* Three different formats: LDL, CDL and unformated disk
	125	*
	126	* identified by info->format
	127	*
	128	* unformated disks we do not have to care about
1da177e4	129	*/
bf1a95a2 SH	130	if (info->format == DASD_FORMAT_LDL) {
	131	if (strncmp(type, "CMS1", 4) == 0) {
	132	/*
	133	* VM style CMS1 labeled disk
	134	*/
b44b0ab3	135	blocksize = label->cms.block_size;
bf1a95a2 SH	136	if (label->cms.disk_offset != 0) {
	137	printk("CMS1/%8s(MDSK):", name);
	138	/* disk is reserved minidisk */
bf1a95a2 SH	139	offset = label->cms.disk_offset;
	140	size = (label->cms.block_count - 1)
	141	* (blocksize >> 9);
	142	} else {
	143	printk("CMS1/%8s:", name);
	144	offset = (info->label_block + 1);
b44b0ab3 SW	145	size = label->cms.block_count
b44b0ab3 SW	146	* (blocksize >> 9);
bf1a95a2	147	}
b44b0ab3 SW	148	put_partition(state, 1, offset*(blocksize >> 9),
b44b0ab3 SW	149	size-offset*(blocksize >> 9));
1da177e4	150	} else {
b44b0ab3 SW	151	if (strncmp(type, "LNX1", 4) == 0) {
	152	printk("LNX1/%8s:", name);
	153	if (label->lnx.ldl_version == 0xf2) {
	154	fmt_size = label->lnx.formatted_blocks
	155	* (blocksize >> 9);
	156	} else if (!strcmp(info->type, "ECKD")) {
	157	/* formated w/o large volume support */
	158	fmt_size = geo->cylinders * geo->heads
	159	* geo->sectors * (blocksize >> 9);
	160	} else {
	161	/* old label and no usable disk geometry
	162	* (e.g. DIAG) */
	163	fmt_size = i_size >> 9;
	164	}
	165	size = i_size >> 9;
	166	if (fmt_size < size)
	167	size = fmt_size;
	168	offset = (info->label_block + 1);
	169	} else {
	170	/* unlabeled disk */
bf1a95a2	171	printk("(nonl)");
b44b0ab3 SW	172	size = i_size >> 9;
	173	offset = (info->label_block + 1);
	174	}
	175	put_partition(state, 1, offset*(blocksize >> 9),
bf1a95a2	176	size-offset*(blocksize >> 9));
b44b0ab3	177	}
bf1a95a2	178	} else if (info->format == DASD_FORMAT_CDL) {
1da177e4	179	/*
bf1a95a2	180	* New style CDL formatted disk
1da177e4	181	*/
b44b0ab3	182	sector_t blk;
1da177e4 LT	183	int counter;
1da177e4 LT	184
1da177e4	185	/*
bf1a95a2 SH	186	* check if VOL1 label is available
bf1a95a2 SH	187	* if not, something is wrong, skipping partition detection
1da177e4	188	*/
bf1a95a2 SH	189	if (strncmp(type, "VOL1", 4) == 0) {
	190	printk("VOL1/%8s:", name);
	191	/*
	192	* get block number and read then go through format1
	193	* labels
	194	*/
	195	blk = cchhb2blk(&label->vol.vtoc, geo) + 1;
	196	counter = 0;
1493bf21 TH	197	data = read_part_sector(state, blk * (blocksize/512),
1493bf21 TH	198	&sect);
bf1a95a2 SH	199	while (data != NULL) {
	200	struct vtoc_format1_label f1;
	201
	202	memcpy(&f1, data,
	203	sizeof(struct vtoc_format1_label));
	204	put_dev_sector(sect);
	205
	206	/* skip FMT4 / FMT5 / FMT7 labels */
	207	if (f1.DS1FMTID == _ascebc['4']
	208	\|\| f1.DS1FMTID == _ascebc['5']
b44b0ab3 SW	209	\|\| f1.DS1FMTID == _ascebc['7']
b44b0ab3 SW	210	\|\| f1.DS1FMTID == _ascebc['9']) {
bf1a95a2	211	blk++;
1493bf21 TH	212	data = read_part_sector(state,
1493bf21 TH	213	blk * (blocksize/512), &sect);
bf1a95a2 SH	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++;
1493bf21 TH	233	data = read_part_sector(state,
1493bf21 TH	234	blk * (blocksize/512), &sect);
bf1a95a2 SH	235	}
	236
	237	if (!data)
	238	/* Are we not supposed to report this ? */
	239	goto out_readerr;
	240	} else
	241	printk(KERN_WARNING "Warning, expected Label VOL1 not "
	242	"found, treating as CDL formated Disk");
	243
1da177e4 LT	244	}
	245
	246	printk("\n");
57881dd9 S	247	goto out_freeall;
57881dd9 S	248
ef1597d5	249
1da177e4	250	out_readerr:
57881dd9 S	251	res = -1;
57881dd9 S	252	out_freeall:
56dc6a88 PO	253	kfree(label);
56dc6a88 PO	254	out_nolab:
1da177e4 LT	255	kfree(geo);
	256	out_nogeo:
	257	kfree(info);
57881dd9 S	258	out_exit:
57881dd9 S	259	return res;
1da177e4	260	}