Home | History | Annotate | Line # | Download | only in dev
ccd.c revision 1.78
      1 /*	$NetBSD: ccd.c,v 1.78 2002/09/06 13:18:43 gehenna Exp $	*/
      2 
      3 /*-
      4  * Copyright (c) 1996, 1997, 1998, 1999 The NetBSD Foundation, Inc.
      5  * All rights reserved.
      6  *
      7  * This code is derived from software contributed to The NetBSD Foundation
      8  * by Jason R. Thorpe.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  * 3. All advertising materials mentioning features or use of this software
     19  *    must display the following acknowledgement:
     20  *        This product includes software developed by the NetBSD
     21  *        Foundation, Inc. and its contributors.
     22  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23  *    contributors may be used to endorse or promote products derived
     24  *    from this software without specific prior written permission.
     25  *
     26  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36  * POSSIBILITY OF SUCH DAMAGE.
     37  */
     38 
     39 /*
     40  * Copyright (c) 1988 University of Utah.
     41  * Copyright (c) 1990, 1993
     42  *	The Regents of the University of California.  All rights reserved.
     43  *
     44  * This code is derived from software contributed to Berkeley by
     45  * the Systems Programming Group of the University of Utah Computer
     46  * Science Department.
     47  *
     48  * Redistribution and use in source and binary forms, with or without
     49  * modification, are permitted provided that the following conditions
     50  * are met:
     51  * 1. Redistributions of source code must retain the above copyright
     52  *    notice, this list of conditions and the following disclaimer.
     53  * 2. Redistributions in binary form must reproduce the above copyright
     54  *    notice, this list of conditions and the following disclaimer in the
     55  *    documentation and/or other materials provided with the distribution.
     56  * 3. All advertising materials mentioning features or use of this software
     57  *    must display the following acknowledgement:
     58  *	This product includes software developed by the University of
     59  *	California, Berkeley and its contributors.
     60  * 4. Neither the name of the University nor the names of its contributors
     61  *    may be used to endorse or promote products derived from this software
     62  *    without specific prior written permission.
     63  *
     64  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     65  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     66  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     67  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     68  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     69  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     70  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     71  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     72  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     73  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     74  * SUCH DAMAGE.
     75  *
     76  * from: Utah $Hdr: cd.c 1.6 90/11/28$
     77  *
     78  *	@(#)cd.c	8.2 (Berkeley) 11/16/93
     79  */
     80 
     81 /*
     82  * "Concatenated" disk driver.
     83  *
     84  * Dynamic configuration and disklabel support by:
     85  *	Jason R. Thorpe <thorpej (at) nas.nasa.gov>
     86  *	Numerical Aerodynamic Simulation Facility
     87  *	Mail Stop 258-6
     88  *	NASA Ames Research Center
     89  *	Moffett Field, CA 94035
     90  */
     91 
     92 #include <sys/cdefs.h>
     93 __KERNEL_RCSID(0, "$NetBSD: ccd.c,v 1.78 2002/09/06 13:18:43 gehenna Exp $");
     94 
     95 #include <sys/param.h>
     96 #include <sys/systm.h>
     97 #include <sys/proc.h>
     98 #include <sys/errno.h>
     99 #include <sys/buf.h>
    100 #include <sys/malloc.h>
    101 #include <sys/pool.h>
    102 #include <sys/namei.h>
    103 #include <sys/stat.h>
    104 #include <sys/ioctl.h>
    105 #include <sys/disklabel.h>
    106 #include <sys/device.h>
    107 #include <sys/disk.h>
    108 #include <sys/syslog.h>
    109 #include <sys/fcntl.h>
    110 #include <sys/vnode.h>
    111 #include <sys/conf.h>
    112 #include <sys/lock.h>
    113 #include <sys/queue.h>
    114 
    115 #include <dev/ccdvar.h>
    116 
    117 #if defined(CCDDEBUG) && !defined(DEBUG)
    118 #define DEBUG
    119 #endif
    120 
    121 #ifdef DEBUG
    122 #define CCDB_FOLLOW	0x01
    123 #define CCDB_INIT	0x02
    124 #define CCDB_IO		0x04
    125 #define CCDB_LABEL	0x08
    126 #define CCDB_VNODE	0x10
    127 int ccddebug = 0x00;
    128 #endif
    129 
    130 #define	ccdunit(x)	DISKUNIT(x)
    131 
    132 struct ccdbuf {
    133 	struct buf	cb_buf;		/* new I/O buf */
    134 	struct buf	*cb_obp;	/* ptr. to original I/O buf */
    135 	struct ccd_softc *cb_sc;	/* pointer to ccd softc */
    136 	int		cb_comp;	/* target component */
    137 	SIMPLEQ_ENTRY(ccdbuf) cb_q;	/* fifo of component buffers */
    138 };
    139 
    140 /* component buffer pool */
    141 struct pool ccd_cbufpool;
    142 
    143 #define	CCD_GETBUF()		pool_get(&ccd_cbufpool, PR_NOWAIT)
    144 #define	CCD_PUTBUF(cbp)		pool_put(&ccd_cbufpool, cbp)
    145 
    146 #define CCDLABELDEV(dev)	\
    147 	(MAKEDISKDEV(major((dev)), ccdunit((dev)), RAW_PART))
    148 
    149 /* called by main() at boot time */
    150 void	ccdattach __P((int));
    151 
    152 /* called by biodone() at interrupt time */
    153 void	ccdiodone __P((struct buf *));
    154 
    155 static	void ccdstart __P((struct ccd_softc *, struct buf *));
    156 static	void ccdinterleave __P((struct ccd_softc *));
    157 static	void ccdintr __P((struct ccd_softc *, struct buf *));
    158 static	int ccdinit __P((struct ccd_softc *, char **, struct vnode **,
    159 	    struct proc *));
    160 static	int ccdlookup __P((char *, struct proc *p, struct vnode **));
    161 static	struct ccdbuf *ccdbuffer __P((struct ccd_softc *, struct buf *,
    162 		daddr_t, caddr_t, long));
    163 static	void ccdgetdefaultlabel __P((struct ccd_softc *, struct disklabel *));
    164 static	void ccdgetdisklabel __P((dev_t));
    165 static	void ccdmakedisklabel __P((struct ccd_softc *));
    166 
    167 dev_type_open(ccdopen);
    168 dev_type_close(ccdclose);
    169 dev_type_read(ccdread);
    170 dev_type_write(ccdwrite);
    171 dev_type_ioctl(ccdioctl);
    172 dev_type_strategy(ccdstrategy);
    173 dev_type_dump(ccddump);
    174 dev_type_size(ccdsize);
    175 
    176 const struct bdevsw ccd_bdevsw = {
    177 	ccdopen, ccdclose, ccdstrategy, ccdioctl, ccddump, ccdsize, D_DISK
    178 };
    179 
    180 const struct cdevsw ccd_cdevsw = {
    181 	ccdopen, ccdclose, ccdread, ccdwrite, ccdioctl,
    182 	nostop, notty, nopoll, nommap, D_DISK
    183 };
    184 
    185 #ifdef DEBUG
    186 static	void printiinfo __P((struct ccdiinfo *));
    187 #endif
    188 
    189 /* Non-private for the benefit of libkvm. */
    190 struct	ccd_softc *ccd_softc;
    191 int	numccd = 0;
    192 
    193 /*
    194  * Called by main() during pseudo-device attachment.  All we need
    195  * to do is allocate enough space for devices to be configured later.
    196  */
    197 void
    198 ccdattach(num)
    199 	int num;
    200 {
    201 	struct ccd_softc *cs;
    202 	int i;
    203 
    204 	if (num <= 0) {
    205 #ifdef DIAGNOSTIC
    206 		panic("ccdattach: count <= 0");
    207 #endif
    208 		return;
    209 	}
    210 
    211 	ccd_softc = (struct ccd_softc *)malloc(num * sizeof(struct ccd_softc),
    212 	    M_DEVBUF, M_NOWAIT|M_ZERO);
    213 	if (ccd_softc == NULL) {
    214 		printf("WARNING: no memory for concatenated disks\n");
    215 		return;
    216 	}
    217 	numccd = num;
    218 
    219 	/* Initialize the component buffer pool. */
    220 	pool_init(&ccd_cbufpool, sizeof(struct ccdbuf), 0,
    221 	    0, 0, "ccdpl", NULL);
    222 
    223 	/* Initialize per-softc structures. */
    224 	for (i = 0; i < num; i++) {
    225 		cs = &ccd_softc[i];
    226 		sprintf(cs->sc_xname, "ccd%d", i);	/* XXX */
    227 		cs->sc_dkdev.dk_name = cs->sc_xname;	/* XXX */
    228 		lockinit(&cs->sc_lock, PRIBIO, "ccdlk", 0, 0);
    229 	}
    230 }
    231 
    232 static int
    233 ccdinit(cs, cpaths, vpp, p)
    234 	struct ccd_softc *cs;
    235 	char **cpaths;
    236 	struct vnode **vpp;
    237 	struct proc *p;
    238 {
    239 	struct ccdcinfo *ci = NULL;
    240 	size_t size;
    241 	int ix;
    242 	struct vattr va;
    243 	size_t minsize;
    244 	int maxsecsize;
    245 	struct partinfo dpart;
    246 	struct ccdgeom *ccg = &cs->sc_geom;
    247 	char tmppath[MAXPATHLEN];
    248 	int error, path_alloced;
    249 
    250 #ifdef DEBUG
    251 	if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
    252 		printf("%s: ccdinit\n", cs->sc_xname);
    253 #endif
    254 
    255 	/* Allocate space for the component info. */
    256 	cs->sc_cinfo = malloc(cs->sc_nccdisks * sizeof(struct ccdcinfo),
    257 	    M_DEVBUF, M_WAITOK);
    258 
    259 	cs->sc_size = 0;
    260 
    261 	/*
    262 	 * Verify that each component piece exists and record
    263 	 * relevant information about it.
    264 	 */
    265 	maxsecsize = 0;
    266 	minsize = 0;
    267 	for (ix = 0, path_alloced = 0; ix < cs->sc_nccdisks; ix++) {
    268 		ci = &cs->sc_cinfo[ix];
    269 		ci->ci_vp = vpp[ix];
    270 
    271 		/*
    272 		 * Copy in the pathname of the component.
    273 		 */
    274 		memset(tmppath, 0, sizeof(tmppath));	/* sanity */
    275 		error = copyinstr(cpaths[ix], tmppath,
    276 		    MAXPATHLEN, &ci->ci_pathlen);
    277 		if (error) {
    278 #ifdef DEBUG
    279 			if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
    280 				printf("%s: can't copy path, error = %d\n",
    281 				    cs->sc_xname, error);
    282 #endif
    283 			goto out;
    284 		}
    285 		ci->ci_path = malloc(ci->ci_pathlen, M_DEVBUF, M_WAITOK);
    286 		memcpy(ci->ci_path, tmppath, ci->ci_pathlen);
    287 		path_alloced++;
    288 
    289 		/*
    290 		 * XXX: Cache the component's dev_t.
    291 		 */
    292 		if ((error = VOP_GETATTR(vpp[ix], &va, p->p_ucred, p)) != 0) {
    293 #ifdef DEBUG
    294 			if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
    295 				printf("%s: %s: getattr failed %s = %d\n",
    296 				    cs->sc_xname, ci->ci_path,
    297 				    "error", error);
    298 #endif
    299 			goto out;
    300 		}
    301 		ci->ci_dev = va.va_rdev;
    302 
    303 		/*
    304 		 * Get partition information for the component.
    305 		 */
    306 		error = VOP_IOCTL(vpp[ix], DIOCGPART, (caddr_t)&dpart,
    307 		    FREAD, p->p_ucred, p);
    308 		if (error) {
    309 #ifdef DEBUG
    310 			if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
    311 				 printf("%s: %s: ioctl failed, error = %d\n",
    312 				     cs->sc_xname, ci->ci_path, error);
    313 #endif
    314 			goto out;
    315 		}
    316 
    317 /*
    318  * This diagnostic test is disabled (for now?) since not all port supports
    319  * on-disk BSD disklabel.
    320  */
    321 #if 0 /* def DIAGNOSTIC */
    322 		/* Check fstype field of component. */
    323 		if (dpart.part->p_fstype != FS_CCD)
    324 			printf("%s: WARNING: %s: fstype %d != FS_CCD\n",
    325 			    cs->sc_xname, ci->ci_path, dpart.part->p_fstype);
    326 #endif
    327 
    328 		/*
    329 		 * Calculate the size, truncating to an interleave
    330 		 * boundary if necessary.
    331 		 */
    332 		maxsecsize =
    333 		    ((dpart.disklab->d_secsize > maxsecsize) ?
    334 		    dpart.disklab->d_secsize : maxsecsize);
    335 		size = dpart.part->p_size;
    336 		if (cs->sc_ileave > 1)
    337 			size -= size % cs->sc_ileave;
    338 
    339 		if (size == 0) {
    340 #ifdef DEBUG
    341 			if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
    342 				printf("%s: %s: size == 0\n",
    343 				    cs->sc_xname, ci->ci_path);
    344 #endif
    345 			error = ENODEV;
    346 			goto out;
    347 		}
    348 
    349 		if (minsize == 0 || size < minsize)
    350 			minsize = size;
    351 		ci->ci_size = size;
    352 		cs->sc_size += size;
    353 	}
    354 
    355 	/*
    356 	 * Don't allow the interleave to be smaller than
    357 	 * the biggest component sector.
    358 	 */
    359 	if ((cs->sc_ileave > 0) &&
    360 	    (cs->sc_ileave < (maxsecsize / DEV_BSIZE))) {
    361 #ifdef DEBUG
    362 		if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
    363 			printf("%s: interleave must be at least %d\n",
    364 			    cs->sc_xname, (maxsecsize / DEV_BSIZE));
    365 #endif
    366 		error = EINVAL;
    367 		goto out;
    368 	}
    369 
    370 	/*
    371 	 * If uniform interleave is desired set all sizes to that of
    372 	 * the smallest component.
    373 	 */
    374 	if (cs->sc_flags & CCDF_UNIFORM) {
    375 		for (ci = cs->sc_cinfo;
    376 		     ci < &cs->sc_cinfo[cs->sc_nccdisks]; ci++)
    377 			ci->ci_size = minsize;
    378 
    379 		cs->sc_size = cs->sc_nccdisks * minsize;
    380 	}
    381 
    382 	/*
    383 	 * Construct the interleave table.
    384 	 */
    385 	ccdinterleave(cs);
    386 
    387 	/*
    388 	 * Create pseudo-geometry based on 1MB cylinders.  It's
    389 	 * pretty close.
    390 	 */
    391 	ccg->ccg_secsize = DEV_BSIZE;
    392 	ccg->ccg_ntracks = 1;
    393 	ccg->ccg_nsectors = 1024 * (1024 / ccg->ccg_secsize);
    394 	ccg->ccg_ncylinders = cs->sc_size / ccg->ccg_nsectors;
    395 
    396 	cs->sc_flags |= CCDF_INITED;
    397 
    398 	return (0);
    399 
    400  out:
    401 	for (ix = 0; ix < path_alloced; ix++)
    402 		free(cs->sc_cinfo[ix].ci_path, M_DEVBUF);
    403 	free(cs->sc_cinfo, M_DEVBUF);
    404 	return (error);
    405 }
    406 
    407 static void
    408 ccdinterleave(cs)
    409 	struct ccd_softc *cs;
    410 {
    411 	struct ccdcinfo *ci, *smallci;
    412 	struct ccdiinfo *ii;
    413 	daddr_t bn, lbn;
    414 	int ix;
    415 	u_long size;
    416 
    417 #ifdef DEBUG
    418 	if (ccddebug & CCDB_INIT)
    419 		printf("ccdinterleave(%p): ileave %d\n", cs, cs->sc_ileave);
    420 #endif
    421 	/*
    422 	 * Allocate an interleave table.
    423 	 * Chances are this is too big, but we don't care.
    424 	 */
    425 	size = (cs->sc_nccdisks + 1) * sizeof(struct ccdiinfo);
    426 	cs->sc_itable = (struct ccdiinfo *)malloc(size, M_DEVBUF,
    427 	    M_WAITOK|M_ZERO);
    428 
    429 	/*
    430 	 * Trivial case: no interleave (actually interleave of disk size).
    431 	 * Each table entry represents a single component in its entirety.
    432 	 */
    433 	if (cs->sc_ileave == 0) {
    434 		bn = 0;
    435 		ii = cs->sc_itable;
    436 
    437 		for (ix = 0; ix < cs->sc_nccdisks; ix++) {
    438 			/* Allocate space for ii_index. */
    439 			ii->ii_index = malloc(sizeof(int), M_DEVBUF, M_WAITOK);
    440 			ii->ii_ndisk = 1;
    441 			ii->ii_startblk = bn;
    442 			ii->ii_startoff = 0;
    443 			ii->ii_index[0] = ix;
    444 			bn += cs->sc_cinfo[ix].ci_size;
    445 			ii++;
    446 		}
    447 		ii->ii_ndisk = 0;
    448 #ifdef DEBUG
    449 		if (ccddebug & CCDB_INIT)
    450 			printiinfo(cs->sc_itable);
    451 #endif
    452 		return;
    453 	}
    454 
    455 	/*
    456 	 * The following isn't fast or pretty; it doesn't have to be.
    457 	 */
    458 	size = 0;
    459 	bn = lbn = 0;
    460 	for (ii = cs->sc_itable; ; ii++) {
    461 		/* Allocate space for ii_index. */
    462 		ii->ii_index = malloc((sizeof(int) * cs->sc_nccdisks),
    463 		    M_DEVBUF, M_WAITOK);
    464 
    465 		/*
    466 		 * Locate the smallest of the remaining components
    467 		 */
    468 		smallci = NULL;
    469 		for (ci = cs->sc_cinfo;
    470 		     ci < &cs->sc_cinfo[cs->sc_nccdisks]; ci++)
    471 			if (ci->ci_size > size &&
    472 			    (smallci == NULL ||
    473 			     ci->ci_size < smallci->ci_size))
    474 				smallci = ci;
    475 
    476 		/*
    477 		 * Nobody left, all done
    478 		 */
    479 		if (smallci == NULL) {
    480 			ii->ii_ndisk = 0;
    481 			break;
    482 		}
    483 
    484 		/*
    485 		 * Record starting logical block and component offset
    486 		 */
    487 		ii->ii_startblk = bn / cs->sc_ileave;
    488 		ii->ii_startoff = lbn;
    489 
    490 		/*
    491 		 * Determine how many disks take part in this interleave
    492 		 * and record their indices.
    493 		 */
    494 		ix = 0;
    495 		for (ci = cs->sc_cinfo;
    496 		     ci < &cs->sc_cinfo[cs->sc_nccdisks]; ci++)
    497 			if (ci->ci_size >= smallci->ci_size)
    498 				ii->ii_index[ix++] = ci - cs->sc_cinfo;
    499 		ii->ii_ndisk = ix;
    500 		bn += ix * (smallci->ci_size - size);
    501 		lbn = smallci->ci_size / cs->sc_ileave;
    502 		size = smallci->ci_size;
    503 	}
    504 #ifdef DEBUG
    505 	if (ccddebug & CCDB_INIT)
    506 		printiinfo(cs->sc_itable);
    507 #endif
    508 }
    509 
    510 /* ARGSUSED */
    511 int
    512 ccdopen(dev, flags, fmt, p)
    513 	dev_t dev;
    514 	int flags, fmt;
    515 	struct proc *p;
    516 {
    517 	int unit = ccdunit(dev);
    518 	struct ccd_softc *cs;
    519 	struct disklabel *lp;
    520 	int error = 0, part, pmask;
    521 
    522 #ifdef DEBUG
    523 	if (ccddebug & CCDB_FOLLOW)
    524 		printf("ccdopen(0x%x, 0x%x)\n", dev, flags);
    525 #endif
    526 	if (unit >= numccd)
    527 		return (ENXIO);
    528 	cs = &ccd_softc[unit];
    529 
    530 	if ((error = lockmgr(&cs->sc_lock, LK_EXCLUSIVE, NULL)) != 0)
    531 		return (error);
    532 
    533 	lp = cs->sc_dkdev.dk_label;
    534 
    535 	part = DISKPART(dev);
    536 	pmask = (1 << part);
    537 
    538 	/*
    539 	 * If we're initialized, check to see if there are any other
    540 	 * open partitions.  If not, then it's safe to update
    541 	 * the in-core disklabel.
    542 	 */
    543 	if ((cs->sc_flags & CCDF_INITED) && (cs->sc_dkdev.dk_openmask == 0))
    544 		ccdgetdisklabel(dev);
    545 
    546 	/* Check that the partition exists. */
    547 	if (part != RAW_PART) {
    548 		if (((cs->sc_flags & CCDF_INITED) == 0) ||
    549 		    ((part >= lp->d_npartitions) ||
    550 		     (lp->d_partitions[part].p_fstype == FS_UNUSED))) {
    551 			error = ENXIO;
    552 			goto done;
    553 		}
    554 	}
    555 
    556 	/* Prevent our unit from being unconfigured while open. */
    557 	switch (fmt) {
    558 	case S_IFCHR:
    559 		cs->sc_dkdev.dk_copenmask |= pmask;
    560 		break;
    561 
    562 	case S_IFBLK:
    563 		cs->sc_dkdev.dk_bopenmask |= pmask;
    564 		break;
    565 	}
    566 	cs->sc_dkdev.dk_openmask =
    567 	    cs->sc_dkdev.dk_copenmask | cs->sc_dkdev.dk_bopenmask;
    568 
    569  done:
    570 	(void) lockmgr(&cs->sc_lock, LK_RELEASE, NULL);
    571 	return (error);
    572 }
    573 
    574 /* ARGSUSED */
    575 int
    576 ccdclose(dev, flags, fmt, p)
    577 	dev_t dev;
    578 	int flags, fmt;
    579 	struct proc *p;
    580 {
    581 	int unit = ccdunit(dev);
    582 	struct ccd_softc *cs;
    583 	int error = 0, part;
    584 
    585 #ifdef DEBUG
    586 	if (ccddebug & CCDB_FOLLOW)
    587 		printf("ccdclose(0x%x, 0x%x)\n", dev, flags);
    588 #endif
    589 
    590 	if (unit >= numccd)
    591 		return (ENXIO);
    592 	cs = &ccd_softc[unit];
    593 
    594 	if ((error = lockmgr(&cs->sc_lock, LK_EXCLUSIVE, NULL)) != 0)
    595 		return (error);
    596 
    597 	part = DISKPART(dev);
    598 
    599 	/* ...that much closer to allowing unconfiguration... */
    600 	switch (fmt) {
    601 	case S_IFCHR:
    602 		cs->sc_dkdev.dk_copenmask &= ~(1 << part);
    603 		break;
    604 
    605 	case S_IFBLK:
    606 		cs->sc_dkdev.dk_bopenmask &= ~(1 << part);
    607 		break;
    608 	}
    609 	cs->sc_dkdev.dk_openmask =
    610 	    cs->sc_dkdev.dk_copenmask | cs->sc_dkdev.dk_bopenmask;
    611 
    612 	(void) lockmgr(&cs->sc_lock, LK_RELEASE, NULL);
    613 	return (0);
    614 }
    615 
    616 void
    617 ccdstrategy(bp)
    618 	struct buf *bp;
    619 {
    620 	int unit = ccdunit(bp->b_dev);
    621 	struct ccd_softc *cs = &ccd_softc[unit];
    622 	int s;
    623 	int wlabel;
    624 	struct disklabel *lp;
    625 
    626 #ifdef DEBUG
    627 	if (ccddebug & CCDB_FOLLOW)
    628 		printf("ccdstrategy(%p): unit %d\n", bp, unit);
    629 #endif
    630 	if ((cs->sc_flags & CCDF_INITED) == 0) {
    631 #ifdef DEBUG
    632 		if (ccddebug & CCDB_FOLLOW)
    633 			printf("ccdstrategy: unit %d: not inited\n", unit);
    634 #endif
    635 		bp->b_error = ENXIO;
    636 		bp->b_flags |= B_ERROR;
    637 		goto done;
    638 	}
    639 
    640 	/* If it's a nil transfer, wake up the top half now. */
    641 	if (bp->b_bcount == 0)
    642 		goto done;
    643 
    644 	lp = cs->sc_dkdev.dk_label;
    645 
    646 	/*
    647 	 * Do bounds checking and adjust transfer.  If there's an
    648 	 * error, the bounds check will flag that for us.
    649 	 */
    650 	wlabel = cs->sc_flags & (CCDF_WLABEL|CCDF_LABELLING);
    651 	if (DISKPART(bp->b_dev) != RAW_PART)
    652 		if (bounds_check_with_label(bp, lp, wlabel) <= 0)
    653 			goto done;
    654 
    655 	bp->b_resid = bp->b_bcount;
    656 
    657 	/*
    658 	 * "Start" the unit.
    659 	 */
    660 	s = splbio();
    661 	ccdstart(cs, bp);
    662 	splx(s);
    663 	return;
    664 done:
    665 	biodone(bp);
    666 }
    667 
    668 static void
    669 ccdstart(cs, bp)
    670 	struct ccd_softc *cs;
    671 	struct buf *bp;
    672 {
    673 	long bcount, rcount;
    674 	struct ccdbuf *cbp;
    675 	caddr_t addr;
    676 	daddr_t bn;
    677 	struct partition *pp;
    678 	SIMPLEQ_HEAD(, ccdbuf) cbufq;
    679 
    680 #ifdef DEBUG
    681 	if (ccddebug & CCDB_FOLLOW)
    682 		printf("ccdstart(%p, %p)\n", cs, bp);
    683 #endif
    684 
    685 	/* Instrumentation. */
    686 	disk_busy(&cs->sc_dkdev);
    687 
    688 	/*
    689 	 * Translate the partition-relative block number to an absolute.
    690 	 */
    691 	bn = bp->b_blkno;
    692 	if (DISKPART(bp->b_dev) != RAW_PART) {
    693 		pp = &cs->sc_dkdev.dk_label->d_partitions[DISKPART(bp->b_dev)];
    694 		bn += pp->p_offset;
    695 	}
    696 
    697 	/*
    698 	 * Allocate the component buffers.
    699 	 */
    700 	SIMPLEQ_INIT(&cbufq);
    701 	addr = bp->b_data;
    702 	for (bcount = bp->b_bcount; bcount > 0; bcount -= rcount) {
    703 		cbp = ccdbuffer(cs, bp, bn, addr, bcount);
    704 		if (cbp == NULL) {
    705 			/* Free the already allocated component buffers. */
    706 			while ((cbp = SIMPLEQ_FIRST(&cbufq)) != NULL) {
    707 				SIMPLEQ_REMOVE_HEAD(&cbufq, cb_q);
    708 				CCD_PUTBUF(cbp);
    709 			}
    710 
    711 			/* Notify the upper layer we are out of memory. */
    712 			bp->b_error = ENOMEM;
    713 			bp->b_flags |= B_ERROR;
    714 			biodone(bp);
    715 			disk_unbusy(&cs->sc_dkdev, 0);
    716 			return;
    717 		}
    718 		SIMPLEQ_INSERT_TAIL(&cbufq, cbp, cb_q);
    719 		rcount = cbp->cb_buf.b_bcount;
    720 		bn += btodb(rcount);
    721 		addr += rcount;
    722 	}
    723 
    724 	/* Now fire off the requests. */
    725 	while ((cbp = SIMPLEQ_FIRST(&cbufq)) != NULL) {
    726 		SIMPLEQ_REMOVE_HEAD(&cbufq, cb_q);
    727 		if ((cbp->cb_buf.b_flags & B_READ) == 0)
    728 			cbp->cb_buf.b_vp->v_numoutput++;
    729 		VOP_STRATEGY(&cbp->cb_buf);
    730 	}
    731 }
    732 
    733 /*
    734  * Build a component buffer header.
    735  */
    736 static struct ccdbuf *
    737 ccdbuffer(cs, bp, bn, addr, bcount)
    738 	struct ccd_softc *cs;
    739 	struct buf *bp;
    740 	daddr_t bn;
    741 	caddr_t addr;
    742 	long bcount;
    743 {
    744 	struct ccdcinfo *ci;
    745 	struct ccdbuf *cbp;
    746 	daddr_t cbn, cboff;
    747 	u_int64_t cbc;
    748 	int ccdisk;
    749 
    750 #ifdef DEBUG
    751 	if (ccddebug & CCDB_IO)
    752 		printf("ccdbuffer(%p, %p, %d, %p, %ld)\n",
    753 		       cs, bp, bn, addr, bcount);
    754 #endif
    755 	/*
    756 	 * Determine which component bn falls in.
    757 	 */
    758 	cbn = bn;
    759 	cboff = 0;
    760 
    761 	/*
    762 	 * Serially concatenated
    763 	 */
    764 	if (cs->sc_ileave == 0) {
    765 		daddr_t sblk;
    766 
    767 		sblk = 0;
    768 		for (ccdisk = 0, ci = &cs->sc_cinfo[ccdisk];
    769 		    cbn >= sblk + ci->ci_size;
    770 		    ccdisk++, ci = &cs->sc_cinfo[ccdisk])
    771 			sblk += ci->ci_size;
    772 		cbn -= sblk;
    773 	}
    774 	/*
    775 	 * Interleaved
    776 	 */
    777 	else {
    778 		struct ccdiinfo *ii;
    779 		int off;
    780 
    781 		cboff = cbn % cs->sc_ileave;
    782 		cbn /= cs->sc_ileave;
    783 		for (ii = cs->sc_itable; ii->ii_ndisk; ii++)
    784 			if (ii->ii_startblk > cbn)
    785 				break;
    786 		ii--;
    787 		off = cbn - ii->ii_startblk;
    788 		if (ii->ii_ndisk == 1) {
    789 			ccdisk = ii->ii_index[0];
    790 			cbn = ii->ii_startoff + off;
    791 		} else {
    792 			ccdisk = ii->ii_index[off % ii->ii_ndisk];
    793 			cbn = ii->ii_startoff + off / ii->ii_ndisk;
    794 		}
    795 		cbn *= cs->sc_ileave;
    796 		ci = &cs->sc_cinfo[ccdisk];
    797 	}
    798 
    799 	/*
    800 	 * Fill in the component buf structure.
    801 	 */
    802 	cbp = CCD_GETBUF();
    803 	if (cbp == NULL)
    804 		return (NULL);
    805 	cbp->cb_buf.b_flags = bp->b_flags | B_CALL;
    806 	cbp->cb_buf.b_iodone = ccdiodone;
    807 	cbp->cb_buf.b_proc = bp->b_proc;
    808 	cbp->cb_buf.b_dev = ci->ci_dev;		/* XXX */
    809 	cbp->cb_buf.b_blkno = cbn + cboff;
    810 	cbp->cb_buf.b_data = addr;
    811 	cbp->cb_buf.b_vp = ci->ci_vp;
    812 	LIST_INIT(&cbp->cb_buf.b_dep);
    813 	if (cs->sc_ileave == 0)
    814 		cbc = dbtob((u_int64_t)(ci->ci_size - cbn));
    815 	else
    816 		cbc = dbtob((u_int64_t)(cs->sc_ileave - cboff));
    817 	cbp->cb_buf.b_bcount = cbc < bcount ? cbc : bcount;
    818 
    819 	/*
    820 	 * context for ccdiodone
    821 	 */
    822 	cbp->cb_obp = bp;
    823 	cbp->cb_sc = cs;
    824 	cbp->cb_comp = ccdisk;
    825 
    826 #ifdef DEBUG
    827 	if (ccddebug & CCDB_IO)
    828 		printf(" dev 0x%x(u%lu): cbp %p bn %d addr %p bcnt %ld\n",
    829 		    ci->ci_dev, (unsigned long) (ci-cs->sc_cinfo), cbp,
    830 		    cbp->cb_buf.b_blkno, cbp->cb_buf.b_data,
    831 		    cbp->cb_buf.b_bcount);
    832 #endif
    833 
    834 	return (cbp);
    835 }
    836 
    837 static void
    838 ccdintr(cs, bp)
    839 	struct ccd_softc *cs;
    840 	struct buf *bp;
    841 {
    842 
    843 #ifdef DEBUG
    844 	if (ccddebug & CCDB_FOLLOW)
    845 		printf("ccdintr(%p, %p)\n", cs, bp);
    846 #endif
    847 	/*
    848 	 * Request is done for better or worse, wakeup the top half.
    849 	 */
    850 	if (bp->b_flags & B_ERROR)
    851 		bp->b_resid = bp->b_bcount;
    852 	disk_unbusy(&cs->sc_dkdev, (bp->b_bcount - bp->b_resid));
    853 	biodone(bp);
    854 }
    855 
    856 /*
    857  * Called at interrupt time.
    858  * Mark the component as done and if all components are done,
    859  * take a ccd interrupt.
    860  */
    861 void
    862 ccdiodone(vbp)
    863 	struct buf *vbp;
    864 {
    865 	struct ccdbuf *cbp = (struct ccdbuf *) vbp;
    866 	struct buf *bp = cbp->cb_obp;
    867 	struct ccd_softc *cs = cbp->cb_sc;
    868 	int count, s;
    869 
    870 	s = splbio();
    871 #ifdef DEBUG
    872 	if (ccddebug & CCDB_FOLLOW)
    873 		printf("ccdiodone(%p)\n", cbp);
    874 	if (ccddebug & CCDB_IO) {
    875 		printf("ccdiodone: bp %p bcount %ld resid %ld\n",
    876 		       bp, bp->b_bcount, bp->b_resid);
    877 		printf(" dev 0x%x(u%d), cbp %p bn %d addr %p bcnt %ld\n",
    878 		       cbp->cb_buf.b_dev, cbp->cb_comp, cbp,
    879 		       cbp->cb_buf.b_blkno, cbp->cb_buf.b_data,
    880 		       cbp->cb_buf.b_bcount);
    881 	}
    882 #endif
    883 
    884 	if (cbp->cb_buf.b_flags & B_ERROR) {
    885 		bp->b_flags |= B_ERROR;
    886 		bp->b_error = cbp->cb_buf.b_error ?
    887 		    cbp->cb_buf.b_error : EIO;
    888 
    889 		printf("%s: error %d on component %d\n",
    890 		       cs->sc_xname, bp->b_error, cbp->cb_comp);
    891 	}
    892 	count = cbp->cb_buf.b_bcount;
    893 	CCD_PUTBUF(cbp);
    894 
    895 	/*
    896 	 * If all done, "interrupt".
    897 	 */
    898 	bp->b_resid -= count;
    899 	if (bp->b_resid < 0)
    900 		panic("ccdiodone: count");
    901 	if (bp->b_resid == 0)
    902 		ccdintr(cs, bp);
    903 	splx(s);
    904 }
    905 
    906 /* ARGSUSED */
    907 int
    908 ccdread(dev, uio, flags)
    909 	dev_t dev;
    910 	struct uio *uio;
    911 	int flags;
    912 {
    913 	int unit = ccdunit(dev);
    914 	struct ccd_softc *cs;
    915 
    916 #ifdef DEBUG
    917 	if (ccddebug & CCDB_FOLLOW)
    918 		printf("ccdread(0x%x, %p)\n", dev, uio);
    919 #endif
    920 	if (unit >= numccd)
    921 		return (ENXIO);
    922 	cs = &ccd_softc[unit];
    923 
    924 	if ((cs->sc_flags & CCDF_INITED) == 0)
    925 		return (ENXIO);
    926 
    927 	/*
    928 	 * XXX: It's not clear that using minphys() is completely safe,
    929 	 * in particular, for raw I/O.  Underlying devices might have some
    930 	 * non-obvious limits, because of the copy to user-space.
    931 	 */
    932 	return (physio(ccdstrategy, NULL, dev, B_READ, minphys, uio));
    933 }
    934 
    935 /* ARGSUSED */
    936 int
    937 ccdwrite(dev, uio, flags)
    938 	dev_t dev;
    939 	struct uio *uio;
    940 	int flags;
    941 {
    942 	int unit = ccdunit(dev);
    943 	struct ccd_softc *cs;
    944 
    945 #ifdef DEBUG
    946 	if (ccddebug & CCDB_FOLLOW)
    947 		printf("ccdwrite(0x%x, %p)\n", dev, uio);
    948 #endif
    949 	if (unit >= numccd)
    950 		return (ENXIO);
    951 	cs = &ccd_softc[unit];
    952 
    953 	if ((cs->sc_flags & CCDF_INITED) == 0)
    954 		return (ENXIO);
    955 
    956 	/*
    957 	 * XXX: It's not clear that using minphys() is completely safe,
    958 	 * in particular, for raw I/O.  Underlying devices might have some
    959 	 * non-obvious limits, because of the copy to user-space.
    960 	 */
    961 	return (physio(ccdstrategy, NULL, dev, B_WRITE, minphys, uio));
    962 }
    963 
    964 int
    965 ccdioctl(dev, cmd, data, flag, p)
    966 	dev_t dev;
    967 	u_long cmd;
    968 	caddr_t data;
    969 	int flag;
    970 	struct proc *p;
    971 {
    972 	int unit = ccdunit(dev);
    973 	int i, j, lookedup = 0, error;
    974 	int part, pmask;
    975 	struct ccd_softc *cs;
    976 	struct ccd_ioctl *ccio = (struct ccd_ioctl *)data;
    977 	char **cpp;
    978 	struct vnode **vpp;
    979 #ifdef __HAVE_OLD_DISKLABEL
    980 	struct disklabel newlabel;
    981 #endif
    982 
    983 	if (unit >= numccd)
    984 		return (ENXIO);
    985 	cs = &ccd_softc[unit];
    986 
    987 	/* Must be open for writes for these commands... */
    988 	switch (cmd) {
    989 	case CCDIOCSET:
    990 	case CCDIOCCLR:
    991 	case DIOCSDINFO:
    992 	case DIOCWDINFO:
    993 #ifdef __HAVE_OLD_DISKLABEL
    994 	case ODIOCSDINFO:
    995 	case ODIOCWDINFO:
    996 #endif
    997 	case DIOCWLABEL:
    998 		if ((flag & FWRITE) == 0)
    999 			return (EBADF);
   1000 	}
   1001 
   1002 	if ((error = lockmgr(&cs->sc_lock, LK_EXCLUSIVE, NULL)) != 0)
   1003 		return (error);
   1004 
   1005 	/* Must be initialized for these... */
   1006 	switch (cmd) {
   1007 	case CCDIOCCLR:
   1008 	case DIOCGDINFO:
   1009 	case DIOCSDINFO:
   1010 	case DIOCWDINFO:
   1011 	case DIOCGPART:
   1012 	case DIOCWLABEL:
   1013 	case DIOCGDEFLABEL:
   1014 #ifdef __HAVE_OLD_DISKLABEL
   1015 	case ODIOCGDINFO:
   1016 	case ODIOCSDINFO:
   1017 	case ODIOCWDINFO:
   1018 	case ODIOCGDEFLABEL:
   1019 #endif
   1020 		if ((cs->sc_flags & CCDF_INITED) == 0) {
   1021 			error = ENXIO;
   1022 			goto out;
   1023 		}
   1024 	}
   1025 
   1026 	switch (cmd) {
   1027 	case CCDIOCSET:
   1028 		if (cs->sc_flags & CCDF_INITED) {
   1029 			error = EBUSY;
   1030 			goto out;
   1031 		}
   1032 
   1033 		/* Validate the flags. */
   1034 		if ((ccio->ccio_flags & CCDF_USERMASK) != ccio->ccio_flags) {
   1035 			error = EINVAL;
   1036 			goto out;
   1037 		}
   1038 
   1039 		if (ccio->ccio_ndisks > CCD_MAXNDISKS) {
   1040 			error = EINVAL;
   1041 			goto out;
   1042 		}
   1043 
   1044 		/* Fill in some important bits. */
   1045 		cs->sc_ileave = ccio->ccio_ileave;
   1046 		cs->sc_nccdisks = ccio->ccio_ndisks;
   1047 		cs->sc_flags = ccio->ccio_flags & CCDF_USERMASK;
   1048 
   1049 		/*
   1050 		 * Allocate space for and copy in the array of
   1051 		 * componet pathnames and device numbers.
   1052 		 */
   1053 		cpp = malloc(ccio->ccio_ndisks * sizeof(char *),
   1054 		    M_DEVBUF, M_WAITOK);
   1055 		vpp = malloc(ccio->ccio_ndisks * sizeof(struct vnode *),
   1056 		    M_DEVBUF, M_WAITOK);
   1057 
   1058 		error = copyin((caddr_t)ccio->ccio_disks, (caddr_t)cpp,
   1059 		    ccio->ccio_ndisks * sizeof(char **));
   1060 		if (error) {
   1061 			free(vpp, M_DEVBUF);
   1062 			free(cpp, M_DEVBUF);
   1063 			goto out;
   1064 		}
   1065 
   1066 #ifdef DEBUG
   1067 		if (ccddebug & CCDB_INIT)
   1068 			for (i = 0; i < ccio->ccio_ndisks; ++i)
   1069 				printf("ccdioctl: component %d: 0x%p\n",
   1070 				    i, cpp[i]);
   1071 #endif
   1072 
   1073 		for (i = 0; i < ccio->ccio_ndisks; ++i) {
   1074 #ifdef DEBUG
   1075 			if (ccddebug & CCDB_INIT)
   1076 				printf("ccdioctl: lookedup = %d\n", lookedup);
   1077 #endif
   1078 			if ((error = ccdlookup(cpp[i], p, &vpp[i])) != 0) {
   1079 				for (j = 0; j < lookedup; ++j)
   1080 					(void)vn_close(vpp[j], FREAD|FWRITE,
   1081 					    p->p_ucred, p);
   1082 				free(vpp, M_DEVBUF);
   1083 				free(cpp, M_DEVBUF);
   1084 				goto out;
   1085 			}
   1086 			++lookedup;
   1087 		}
   1088 
   1089 		/*
   1090 		 * Initialize the ccd.  Fills in the softc for us.
   1091 		 */
   1092 		if ((error = ccdinit(cs, cpp, vpp, p)) != 0) {
   1093 			for (j = 0; j < lookedup; ++j)
   1094 				(void)vn_close(vpp[j], FREAD|FWRITE,
   1095 				    p->p_ucred, p);
   1096 			free(vpp, M_DEVBUF);
   1097 			free(cpp, M_DEVBUF);
   1098 			goto out;
   1099 		}
   1100 
   1101 		/* We can free the temporary variables now. */
   1102 		free(vpp, M_DEVBUF);
   1103 		free(cpp, M_DEVBUF);
   1104 
   1105 		/*
   1106 		 * The ccd has been successfully initialized, so
   1107 		 * we can place it into the array.  Don't try to
   1108 		 * read the disklabel until the disk has been attached,
   1109 		 * because space for the disklabel is allocated
   1110 		 * in disk_attach();
   1111 		 */
   1112 		ccio->ccio_unit = unit;
   1113 		ccio->ccio_size = cs->sc_size;
   1114 
   1115 		/* Attach the disk. */
   1116 		disk_attach(&cs->sc_dkdev);
   1117 
   1118 		/* Try and read the disklabel. */
   1119 		ccdgetdisklabel(dev);
   1120 		break;
   1121 
   1122 	case CCDIOCCLR:
   1123 		/*
   1124 		 * Don't unconfigure if any other partitions are open
   1125 		 * or if both the character and block flavors of this
   1126 		 * partition are open.
   1127 		 */
   1128 		part = DISKPART(dev);
   1129 		pmask = (1 << part);
   1130 		if ((cs->sc_dkdev.dk_openmask & ~pmask) ||
   1131 		    ((cs->sc_dkdev.dk_bopenmask & pmask) &&
   1132 		    (cs->sc_dkdev.dk_copenmask & pmask))) {
   1133 			error = EBUSY;
   1134 			goto out;
   1135 		}
   1136 
   1137 		/*
   1138 		 * Free ccd_softc information and clear entry.
   1139 		 */
   1140 
   1141 		/* Close the components and free their pathnames. */
   1142 		for (i = 0; i < cs->sc_nccdisks; ++i) {
   1143 			/*
   1144 			 * XXX: this close could potentially fail and
   1145 			 * cause Bad Things.  Maybe we need to force
   1146 			 * the close to happen?
   1147 			 */
   1148 #ifdef DEBUG
   1149 			if (ccddebug & CCDB_VNODE)
   1150 				vprint("CCDIOCCLR: vnode info",
   1151 				    cs->sc_cinfo[i].ci_vp);
   1152 #endif
   1153 			(void)vn_close(cs->sc_cinfo[i].ci_vp, FREAD|FWRITE,
   1154 			    p->p_ucred, p);
   1155 			free(cs->sc_cinfo[i].ci_path, M_DEVBUF);
   1156 		}
   1157 
   1158 		/* Free interleave index. */
   1159 		for (i = 0; cs->sc_itable[i].ii_ndisk; ++i)
   1160 			free(cs->sc_itable[i].ii_index, M_DEVBUF);
   1161 
   1162 		/* Free component info and interleave table. */
   1163 		free(cs->sc_cinfo, M_DEVBUF);
   1164 		free(cs->sc_itable, M_DEVBUF);
   1165 		cs->sc_flags &= ~CCDF_INITED;
   1166 
   1167 		/* Detatch the disk. */
   1168 		disk_detach(&cs->sc_dkdev);
   1169 		break;
   1170 
   1171 	case DIOCGDINFO:
   1172 		*(struct disklabel *)data = *(cs->sc_dkdev.dk_label);
   1173 		break;
   1174 #ifdef __HAVE_OLD_DISKLABEL
   1175 	case ODIOCGDINFO:
   1176 		newlabel = *(cs->sc_dkdev.dk_label);
   1177 		if (newlabel.d_npartitions > OLDMAXPARTITIONS)
   1178 			return ENOTTY;
   1179 		memcpy(data, &newlabel, sizeof (struct olddisklabel));
   1180 		break;
   1181 #endif
   1182 
   1183 	case DIOCGPART:
   1184 		((struct partinfo *)data)->disklab = cs->sc_dkdev.dk_label;
   1185 		((struct partinfo *)data)->part =
   1186 		    &cs->sc_dkdev.dk_label->d_partitions[DISKPART(dev)];
   1187 		break;
   1188 
   1189 	case DIOCWDINFO:
   1190 	case DIOCSDINFO:
   1191 #ifdef __HAVE_OLD_DISKLABEL
   1192 	case ODIOCWDINFO:
   1193 	case ODIOCSDINFO:
   1194 #endif
   1195 	{
   1196 		struct disklabel *lp;
   1197 #ifdef __HAVE_OLD_DISKLABEL
   1198 		if (cmd == ODIOCSDINFO || cmd == ODIOCWDINFO) {
   1199 			memset(&newlabel, 0, sizeof newlabel);
   1200 			memcpy(&newlabel, data, sizeof (struct olddisklabel));
   1201 			lp = &newlabel;
   1202 		} else
   1203 #endif
   1204 		lp = (struct disklabel *)data;
   1205 
   1206 		cs->sc_flags |= CCDF_LABELLING;
   1207 
   1208 		error = setdisklabel(cs->sc_dkdev.dk_label,
   1209 		    lp, 0, cs->sc_dkdev.dk_cpulabel);
   1210 		if (error == 0) {
   1211 			if (cmd == DIOCWDINFO
   1212 #ifdef __HAVE_OLD_DISKLABEL
   1213 			    || cmd == ODIOCWDINFO
   1214 #endif
   1215 			   )
   1216 				error = writedisklabel(CCDLABELDEV(dev),
   1217 				    ccdstrategy, cs->sc_dkdev.dk_label,
   1218 				    cs->sc_dkdev.dk_cpulabel);
   1219 		}
   1220 
   1221 		cs->sc_flags &= ~CCDF_LABELLING;
   1222 		break;
   1223 	}
   1224 
   1225 	case DIOCWLABEL:
   1226 		if (*(int *)data != 0)
   1227 			cs->sc_flags |= CCDF_WLABEL;
   1228 		else
   1229 			cs->sc_flags &= ~CCDF_WLABEL;
   1230 		break;
   1231 
   1232 	case DIOCGDEFLABEL:
   1233 		ccdgetdefaultlabel(cs, (struct disklabel *)data);
   1234 		break;
   1235 
   1236 #ifdef __HAVE_OLD_DISKLABEL
   1237 	case ODIOCGDEFLABEL:
   1238 		ccdgetdefaultlabel(cs, &newlabel);
   1239 		if (newlabel.d_npartitions > OLDMAXPARTITIONS)
   1240 			return ENOTTY;
   1241 		memcpy(data, &newlabel, sizeof (struct olddisklabel));
   1242 		break;
   1243 #endif
   1244 
   1245 	default:
   1246 		error = ENOTTY;
   1247 	}
   1248 
   1249  out:
   1250 	(void) lockmgr(&cs->sc_lock, LK_RELEASE, NULL);
   1251 	return (error);
   1252 }
   1253 
   1254 int
   1255 ccdsize(dev)
   1256 	dev_t dev;
   1257 {
   1258 	struct ccd_softc *cs;
   1259 	struct disklabel *lp;
   1260 	int part, unit, omask, size;
   1261 
   1262 	unit = ccdunit(dev);
   1263 	if (unit >= numccd)
   1264 		return (-1);
   1265 	cs = &ccd_softc[unit];
   1266 
   1267 	if ((cs->sc_flags & CCDF_INITED) == 0)
   1268 		return (-1);
   1269 
   1270 	part = DISKPART(dev);
   1271 	omask = cs->sc_dkdev.dk_openmask & (1 << part);
   1272 	lp = cs->sc_dkdev.dk_label;
   1273 
   1274 	if (omask == 0 && ccdopen(dev, 0, S_IFBLK, curproc))
   1275 		return (-1);
   1276 
   1277 	if (lp->d_partitions[part].p_fstype != FS_SWAP)
   1278 		size = -1;
   1279 	else
   1280 		size = lp->d_partitions[part].p_size *
   1281 		    (lp->d_secsize / DEV_BSIZE);
   1282 
   1283 	if (omask == 0 && ccdclose(dev, 0, S_IFBLK, curproc))
   1284 		return (-1);
   1285 
   1286 	return (size);
   1287 }
   1288 
   1289 int
   1290 ccddump(dev, blkno, va, size)
   1291 	dev_t dev;
   1292 	daddr_t blkno;
   1293 	caddr_t va;
   1294 	size_t size;
   1295 {
   1296 
   1297 	/* Not implemented. */
   1298 	return ENXIO;
   1299 }
   1300 
   1301 /*
   1302  * Lookup the provided name in the filesystem.  If the file exists,
   1303  * is a valid block device, and isn't being used by anyone else,
   1304  * set *vpp to the file's vnode.
   1305  */
   1306 static int
   1307 ccdlookup(path, p, vpp)
   1308 	char *path;
   1309 	struct proc *p;
   1310 	struct vnode **vpp;	/* result */
   1311 {
   1312 	struct nameidata nd;
   1313 	struct vnode *vp;
   1314 	struct vattr va;
   1315 	int error;
   1316 
   1317 	NDINIT(&nd, LOOKUP, FOLLOW, UIO_USERSPACE, path, p);
   1318 	if ((error = vn_open(&nd, FREAD|FWRITE, 0)) != 0) {
   1319 #ifdef DEBUG
   1320 		if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
   1321 			printf("ccdlookup: vn_open error = %d\n", error);
   1322 #endif
   1323 		return (error);
   1324 	}
   1325 	vp = nd.ni_vp;
   1326 
   1327 	if (vp->v_usecount > 1) {
   1328 		VOP_UNLOCK(vp, 0);
   1329 		(void)vn_close(vp, FREAD|FWRITE, p->p_ucred, p);
   1330 		return (EBUSY);
   1331 	}
   1332 
   1333 	if ((error = VOP_GETATTR(vp, &va, p->p_ucred, p)) != 0) {
   1334 #ifdef DEBUG
   1335 		if (ccddebug & (CCDB_FOLLOW|CCDB_INIT))
   1336 			printf("ccdlookup: getattr error = %d\n", error);
   1337 #endif
   1338 		VOP_UNLOCK(vp, 0);
   1339 		(void)vn_close(vp, FREAD|FWRITE, p->p_ucred, p);
   1340 		return (error);
   1341 	}
   1342 
   1343 	/* XXX: eventually we should handle VREG, too. */
   1344 	if (va.va_type != VBLK) {
   1345 		VOP_UNLOCK(vp, 0);
   1346 		(void)vn_close(vp, FREAD|FWRITE, p->p_ucred, p);
   1347 		return (ENOTBLK);
   1348 	}
   1349 
   1350 #ifdef DEBUG
   1351 	if (ccddebug & CCDB_VNODE)
   1352 		vprint("ccdlookup: vnode info", vp);
   1353 #endif
   1354 
   1355 	VOP_UNLOCK(vp, 0);
   1356 	*vpp = vp;
   1357 	return (0);
   1358 }
   1359 
   1360 static void
   1361 ccdgetdefaultlabel(cs, lp)
   1362 	struct ccd_softc *cs;
   1363 	struct disklabel *lp;
   1364 {
   1365 	struct ccdgeom *ccg = &cs->sc_geom;
   1366 
   1367 	memset(lp, 0, sizeof(*lp));
   1368 
   1369 	lp->d_secperunit = cs->sc_size;
   1370 	lp->d_secsize = ccg->ccg_secsize;
   1371 	lp->d_nsectors = ccg->ccg_nsectors;
   1372 	lp->d_ntracks = ccg->ccg_ntracks;
   1373 	lp->d_ncylinders = ccg->ccg_ncylinders;
   1374 	lp->d_secpercyl = lp->d_ntracks * lp->d_nsectors;
   1375 
   1376 	strncpy(lp->d_typename, "ccd", sizeof(lp->d_typename));
   1377 	lp->d_type = DTYPE_CCD;
   1378 	strncpy(lp->d_packname, "fictitious", sizeof(lp->d_packname));
   1379 	lp->d_rpm = 3600;
   1380 	lp->d_interleave = 1;
   1381 	lp->d_flags = 0;
   1382 
   1383 	lp->d_partitions[RAW_PART].p_offset = 0;
   1384 	lp->d_partitions[RAW_PART].p_size = cs->sc_size;
   1385 	lp->d_partitions[RAW_PART].p_fstype = FS_UNUSED;
   1386 	lp->d_npartitions = RAW_PART + 1;
   1387 
   1388 	lp->d_magic = DISKMAGIC;
   1389 	lp->d_magic2 = DISKMAGIC;
   1390 	lp->d_checksum = dkcksum(cs->sc_dkdev.dk_label);
   1391 }
   1392 
   1393 /*
   1394  * Read the disklabel from the ccd.  If one is not present, fake one
   1395  * up.
   1396  */
   1397 static void
   1398 ccdgetdisklabel(dev)
   1399 	dev_t dev;
   1400 {
   1401 	int unit = ccdunit(dev);
   1402 	struct ccd_softc *cs = &ccd_softc[unit];
   1403 	char *errstring;
   1404 	struct disklabel *lp = cs->sc_dkdev.dk_label;
   1405 	struct cpu_disklabel *clp = cs->sc_dkdev.dk_cpulabel;
   1406 
   1407 	memset(clp, 0, sizeof(*clp));
   1408 
   1409 	ccdgetdefaultlabel(cs, lp);
   1410 
   1411 	/*
   1412 	 * Call the generic disklabel extraction routine.
   1413 	 */
   1414 	errstring = readdisklabel(CCDLABELDEV(dev), ccdstrategy,
   1415 	    cs->sc_dkdev.dk_label, cs->sc_dkdev.dk_cpulabel);
   1416 	if (errstring)
   1417 		ccdmakedisklabel(cs);
   1418 	else {
   1419 		int i;
   1420 		struct partition *pp;
   1421 
   1422 		/*
   1423 		 * Sanity check whether the found disklabel is valid.
   1424 		 *
   1425 		 * This is necessary since total size of ccd may vary
   1426 		 * when an interleave is changed even though exactly
   1427 		 * same componets are used, and old disklabel may used
   1428 		 * if that is found.
   1429 		 */
   1430 		if (lp->d_secperunit != cs->sc_size)
   1431 			printf("WARNING: %s: "
   1432 			    "total sector size in disklabel (%d) != "
   1433 			    "the size of ccd (%lu)\n", cs->sc_xname,
   1434 			    lp->d_secperunit, (u_long)cs->sc_size);
   1435 		for (i = 0; i < lp->d_npartitions; i++) {
   1436 			pp = &lp->d_partitions[i];
   1437 			if (pp->p_offset + pp->p_size > cs->sc_size)
   1438 				printf("WARNING: %s: end of partition `%c' "
   1439 				    "exceeds the size of ccd (%lu)\n",
   1440 				    cs->sc_xname, 'a' + i, (u_long)cs->sc_size);
   1441 		}
   1442 	}
   1443 
   1444 #ifdef DEBUG
   1445 	/* It's actually extremely common to have unlabeled ccds. */
   1446 	if (ccddebug & CCDB_LABEL)
   1447 		if (errstring != NULL)
   1448 			printf("%s: %s\n", cs->sc_xname, errstring);
   1449 #endif
   1450 }
   1451 
   1452 /*
   1453  * Take care of things one might want to take care of in the event
   1454  * that a disklabel isn't present.
   1455  */
   1456 static void
   1457 ccdmakedisklabel(cs)
   1458 	struct ccd_softc *cs;
   1459 {
   1460 	struct disklabel *lp = cs->sc_dkdev.dk_label;
   1461 
   1462 	/*
   1463 	 * For historical reasons, if there's no disklabel present
   1464 	 * the raw partition must be marked FS_BSDFFS.
   1465 	 */
   1466 	lp->d_partitions[RAW_PART].p_fstype = FS_BSDFFS;
   1467 
   1468 	strncpy(lp->d_packname, "default label", sizeof(lp->d_packname));
   1469 
   1470 	lp->d_checksum = dkcksum(lp);
   1471 }
   1472 
   1473 #ifdef DEBUG
   1474 static void
   1475 printiinfo(ii)
   1476 	struct ccdiinfo *ii;
   1477 {
   1478 	int ix, i;
   1479 
   1480 	for (ix = 0; ii->ii_ndisk; ix++, ii++) {
   1481 		printf(" itab[%d]: #dk %d sblk %d soff %d",
   1482 		    ix, ii->ii_ndisk, ii->ii_startblk, ii->ii_startoff);
   1483 		for (i = 0; i < ii->ii_ndisk; i++)
   1484 			printf(" %d", ii->ii_index[i]);
   1485 		printf("\n");
   1486 	}
   1487 }
   1488 #endif
   1489