1/*-
2 * Copyright (c) 2001, 2002 Scott Long <scottl@freebsd.org>
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 *
26 * $FreeBSD$
27 */
28
29/* udf_vfsops.c */
30/* Implement the VFS side of things */
31
32/*
33 * Ok, here's how it goes.  The UDF specs are pretty clear on how each data
34 * structure is made up, but not very clear on how they relate to each other.
35 * Here is the skinny... This demostrates a filesystem with one file in the
36 * root directory.  Subdirectories are treated just as normal files, but they
37 * have File Id Descriptors of their children as their file data.  As for the
38 * Anchor Volume Descriptor Pointer, it can exist in two of the following three
39 * places: sector 256, sector n (the max sector of the disk), or sector
40 * n - 256.  It's a pretty good bet that one will exist at sector 256 though.
41 * One caveat is unclosed CD media.  For that, sector 256 cannot be written,
42 * so the Anchor Volume Descriptor Pointer can exist at sector 512 until the
43 * media is closed.
44 *
45 *  Sector:
46 *     256:
47 *       n: Anchor Volume Descriptor Pointer
48 * n - 256:	|
49 *		|
50 *		|-->Main Volume Descriptor Sequence
51 *			|	|
52 *			|	|
53 *			|	|-->Logical Volume Descriptor
54 *			|			  |
55 *			|-->Partition Descriptor  |
56 *				|		  |
57 *				|		  |
58 *				|-->Fileset Descriptor
59 *					|
60 *					|
61 *					|-->Root Dir File Entry
62 *						|
63 *						|
64 *						|-->File data:
65 *						    File Id Descriptor
66 *							|
67 *							|
68 *							|-->File Entry
69 *								|
70 *								|
71 *								|-->File data
72 */
73#include <sys/types.h>
74#include <sys/param.h>
75#include <sys/systm.h>
76#include <sys/uio.h>
77#include <sys/bio.h>
78#include <sys/buf.h>
79#include <sys/conf.h>
80#include <sys/dirent.h>
81#include <sys/fcntl.h>
82#include <sys/iconv.h>
83#include <sys/kernel.h>
84#include <sys/malloc.h>
85#include <sys/mount.h>
86#include <sys/namei.h>
87#include <sys/priv.h>
88#include <sys/proc.h>
89#include <sys/queue.h>
90#include <sys/vnode.h>
91#include <sys/endian.h>
92
93#include <geom/geom.h>
94#include <geom/geom_vfs.h>
95
96#include <vm/uma.h>
97
98#include <fs/udf/ecma167-udf.h>
99#include <fs/udf/osta.h>
100#include <fs/udf/udf.h>
101#include <fs/udf/udf_mount.h>
102
103static MALLOC_DEFINE(M_UDFMOUNT, "udf_mount", "UDF mount structure");
104MALLOC_DEFINE(M_UDFFENTRY, "udf_fentry", "UDF file entry structure");
105
106struct iconv_functions *udf_iconv = NULL;
107
108/* Zones */
109uma_zone_t udf_zone_trans = NULL;
110uma_zone_t udf_zone_node = NULL;
111uma_zone_t udf_zone_ds = NULL;
112
113static vfs_init_t      udf_init;
114static vfs_uninit_t    udf_uninit;
115static vfs_mount_t     udf_mount;
116static vfs_root_t      udf_root;
117static vfs_statfs_t    udf_statfs;
118static vfs_unmount_t   udf_unmount;
119static vfs_fhtovp_t	udf_fhtovp;
120
121static int udf_find_partmaps(struct udf_mnt *, struct logvol_desc *);
122
123static struct vfsops udf_vfsops = {
124	.vfs_fhtovp =		udf_fhtovp,
125	.vfs_init =		udf_init,
126	.vfs_mount =		udf_mount,
127	.vfs_root =		udf_root,
128	.vfs_statfs =		udf_statfs,
129	.vfs_uninit =		udf_uninit,
130	.vfs_unmount =		udf_unmount,
131	.vfs_vget =		udf_vget,
132};
133VFS_SET(udf_vfsops, udf, VFCF_READONLY);
134
135MODULE_VERSION(udf, 1);
136
137static int udf_mountfs(struct vnode *, struct mount *);
138
139static int
140udf_init(struct vfsconf *foo)
141{
142
143	/*
144	 * This code used to pre-allocate a certain number of pages for each
145	 * pool, reducing the need to grow the zones later on.  UMA doesn't
146	 * advertise any such functionality, unfortunately =-<
147	 */
148	udf_zone_trans = uma_zcreate("UDF translation buffer, zone", MAXNAMLEN *
149	    sizeof(unicode_t), NULL, NULL, NULL, NULL, 0, 0);
150
151	udf_zone_node = uma_zcreate("UDF Node zone", sizeof(struct udf_node),
152	    NULL, NULL, NULL, NULL, 0, 0);
153
154	udf_zone_ds = uma_zcreate("UDF Dirstream zone",
155	    sizeof(struct udf_dirstream), NULL, NULL, NULL, NULL, 0, 0);
156
157	if ((udf_zone_node == NULL) || (udf_zone_trans == NULL) ||
158	    (udf_zone_ds == NULL)) {
159		printf("Cannot create allocation zones.\n");
160		return (ENOMEM);
161	}
162
163	return 0;
164}
165
166static int
167udf_uninit(struct vfsconf *foo)
168{
169
170	if (udf_zone_trans != NULL) {
171		uma_zdestroy(udf_zone_trans);
172		udf_zone_trans = NULL;
173	}
174
175	if (udf_zone_node != NULL) {
176		uma_zdestroy(udf_zone_node);
177		udf_zone_node = NULL;
178	}
179
180	if (udf_zone_ds != NULL) {
181		uma_zdestroy(udf_zone_ds);
182		udf_zone_ds = NULL;
183	}
184
185	return (0);
186}
187
188static int
189udf_mount(struct mount *mp)
190{
191	struct vnode *devvp;	/* vnode of the mount device */
192	struct thread *td;
193	struct udf_mnt *imp = NULL;
194	struct vfsoptlist *opts;
195	char *fspec, *cs_disk, *cs_local;
196	int error, len, *udf_flags;
197	struct nameidata nd, *ndp = &nd;
198
199	td = curthread;
200	opts = mp->mnt_optnew;
201
202	/*
203	 * Unconditionally mount as read-only.
204	 */
205	MNT_ILOCK(mp);
206	mp->mnt_flag |= MNT_RDONLY;
207	MNT_IUNLOCK(mp);
208
209	/*
210	 * No root filesystem support.  Probably not a big deal, since the
211	 * bootloader doesn't understand UDF.
212	 */
213	if (mp->mnt_flag & MNT_ROOTFS)
214		return (ENOTSUP);
215
216	fspec = NULL;
217	error = vfs_getopt(opts, "from", (void **)&fspec, &len);
218	if (!error && fspec[len - 1] != '\0')
219		return (EINVAL);
220
221	if (mp->mnt_flag & MNT_UPDATE) {
222		return (0);
223	}
224
225	/* Check that the mount device exists */
226	if (fspec == NULL)
227		return (EINVAL);
228	NDINIT(ndp, LOOKUP, FOLLOW | LOCKLEAF, UIO_SYSSPACE, fspec, td);
229	if ((error = namei(ndp)))
230		return (error);
231	NDFREE(ndp, NDF_ONLY_PNBUF);
232	devvp = ndp->ni_vp;
233
234	if (vn_isdisk(devvp, &error) == 0) {
235		vput(devvp);
236		return (error);
237	}
238
239	/* Check the access rights on the mount device */
240	error = VOP_ACCESS(devvp, VREAD, td->td_ucred, td);
241	if (error)
242		error = priv_check(td, PRIV_VFS_MOUNT_PERM);
243	if (error) {
244		vput(devvp);
245		return (error);
246	}
247
248	if ((error = udf_mountfs(devvp, mp))) {
249		vrele(devvp);
250		return (error);
251	}
252
253	imp = VFSTOUDFFS(mp);
254
255	udf_flags = NULL;
256	error = vfs_getopt(opts, "flags", (void **)&udf_flags, &len);
257	if (error || len != sizeof(int))
258		return (EINVAL);
259	imp->im_flags = *udf_flags;
260
261	if (imp->im_flags & UDFMNT_KICONV && udf_iconv) {
262		cs_disk = NULL;
263		error = vfs_getopt(opts, "cs_disk", (void **)&cs_disk, &len);
264		if (!error && cs_disk[len - 1] != '\0')
265			return (EINVAL);
266		cs_local = NULL;
267		error = vfs_getopt(opts, "cs_local", (void **)&cs_local, &len);
268		if (!error && cs_local[len - 1] != '\0')
269			return (EINVAL);
270		udf_iconv->open(cs_local, cs_disk, &imp->im_d2l);
271#if 0
272		udf_iconv->open(cs_disk, cs_local, &imp->im_l2d);
273#endif
274	}
275
276	vfs_mountedfrom(mp, fspec);
277	return 0;
278};
279
280/*
281 * Check the descriptor tag for both the correct id and correct checksum.
282 * Return zero if all is good, EINVAL if not.
283 */
284int
285udf_checktag(struct desc_tag *tag, uint16_t id)
286{
287	uint8_t *itag;
288	uint8_t i, cksum = 0;
289
290	itag = (uint8_t *)tag;
291
292	if (le16toh(tag->id) != id)
293		return (EINVAL);
294
295	for (i = 0; i < 16; i++)
296		cksum = cksum + itag[i];
297	cksum = cksum - itag[4];
298
299	if (cksum == tag->cksum)
300		return (0);
301
302	return (EINVAL);
303}
304
305static int
306udf_mountfs(struct vnode *devvp, struct mount *mp)
307{
308	struct buf *bp = NULL;
309	struct cdev *dev;
310	struct anchor_vdp avdp;
311	struct udf_mnt *udfmp = NULL;
312	struct part_desc *pd;
313	struct logvol_desc *lvd;
314	struct fileset_desc *fsd;
315	struct file_entry *root_fentry;
316	uint32_t sector, size, mvds_start, mvds_end;
317	uint32_t logical_secsize;
318	uint32_t fsd_offset = 0;
319	uint16_t part_num = 0, fsd_part = 0;
320	int error = EINVAL;
321	int logvol_found = 0, part_found = 0, fsd_found = 0;
322	int bsize;
323	struct g_consumer *cp;
324	struct bufobj *bo;
325
326	dev = devvp->v_rdev;
327	dev_ref(dev);
328	DROP_GIANT();
329	g_topology_lock();
330	error = g_vfs_open(devvp, &cp, "udf", 0);
331	g_topology_unlock();
332	PICKUP_GIANT();
333	VOP_UNLOCK(devvp, 0);
334	if (error)
335		goto bail;
336
337	bo = &devvp->v_bufobj;
338
339	if (devvp->v_rdev->si_iosize_max != 0)
340		mp->mnt_iosize_max = devvp->v_rdev->si_iosize_max;
341	if (mp->mnt_iosize_max > MAXPHYS)
342		mp->mnt_iosize_max = MAXPHYS;
343
344	/* XXX: should be M_WAITOK */
345	udfmp = malloc(sizeof(struct udf_mnt), M_UDFMOUNT,
346	    M_NOWAIT | M_ZERO);
347	if (udfmp == NULL) {
348		printf("Cannot allocate UDF mount struct\n");
349		error = ENOMEM;
350		goto bail;
351	}
352
353	mp->mnt_data = udfmp;
354	mp->mnt_stat.f_fsid.val[0] = dev2udev(devvp->v_rdev);
355	mp->mnt_stat.f_fsid.val[1] = mp->mnt_vfc->vfc_typenum;
356	MNT_ILOCK(mp);
357	mp->mnt_flag |= MNT_LOCAL;
358	mp->mnt_kern_flag |= MNTK_LOOKUP_SHARED | MNTK_EXTENDED_SHARED;
359	MNT_IUNLOCK(mp);
360	udfmp->im_mountp = mp;
361	udfmp->im_dev = dev;
362	udfmp->im_devvp = devvp;
363	udfmp->im_d2l = NULL;
364	udfmp->im_cp = cp;
365	udfmp->im_bo = bo;
366
367#if 0
368	udfmp->im_l2d = NULL;
369#endif
370	/*
371	 * The UDF specification defines a logical sectorsize of 2048
372	 * for DVD media.
373	 */
374	logical_secsize = 2048;
375
376	if (((logical_secsize % cp->provider->sectorsize) != 0) ||
377	    (logical_secsize < cp->provider->sectorsize)) {
378		error = EINVAL;
379		goto bail;
380	}
381
382	bsize = cp->provider->sectorsize;
383
384	/*
385	 * Get the Anchor Volume Descriptor Pointer from sector 256.
386	 * XXX Should also check sector n - 256, n, and 512.
387	 */
388	sector = 256;
389	if ((error = bread(devvp, sector * btodb(logical_secsize), bsize,
390			   NOCRED, &bp)) != 0)
391		goto bail;
392	if ((error = udf_checktag((struct desc_tag *)bp->b_data, TAGID_ANCHOR)))
393		goto bail;
394
395	bcopy(bp->b_data, &avdp, sizeof(struct anchor_vdp));
396	brelse(bp);
397	bp = NULL;
398
399	/*
400	 * Extract the Partition Descriptor and Logical Volume Descriptor
401	 * from the Volume Descriptor Sequence.
402	 * XXX Should we care about the partition type right now?
403	 * XXX What about multiple partitions?
404	 */
405	mvds_start = le32toh(avdp.main_vds_ex.loc);
406	mvds_end = mvds_start + (le32toh(avdp.main_vds_ex.len) - 1) / bsize;
407	for (sector = mvds_start; sector < mvds_end; sector++) {
408		if ((error = bread(devvp, sector * btodb(logical_secsize),
409				   bsize, NOCRED, &bp)) != 0) {
410			printf("Can't read sector %d of VDS\n", sector);
411			goto bail;
412		}
413		lvd = (struct logvol_desc *)bp->b_data;
414		if (!udf_checktag(&lvd->tag, TAGID_LOGVOL)) {
415			udfmp->bsize = le32toh(lvd->lb_size);
416			udfmp->bmask = udfmp->bsize - 1;
417			udfmp->bshift = ffs(udfmp->bsize) - 1;
418			fsd_part = le16toh(lvd->_lvd_use.fsd_loc.loc.part_num);
419			fsd_offset = le32toh(lvd->_lvd_use.fsd_loc.loc.lb_num);
420			if (udf_find_partmaps(udfmp, lvd))
421				break;
422			logvol_found = 1;
423		}
424		pd = (struct part_desc *)bp->b_data;
425		if (!udf_checktag(&pd->tag, TAGID_PARTITION)) {
426			part_found = 1;
427			part_num = le16toh(pd->part_num);
428			udfmp->part_len = le32toh(pd->part_len);
429			udfmp->part_start = le32toh(pd->start_loc);
430		}
431
432		brelse(bp);
433		bp = NULL;
434		if ((part_found) && (logvol_found))
435			break;
436	}
437
438	if (!part_found || !logvol_found) {
439		error = EINVAL;
440		goto bail;
441	}
442
443	if (fsd_part != part_num) {
444		printf("FSD does not lie within the partition!\n");
445		error = EINVAL;
446		goto bail;
447	}
448
449
450	/*
451	 * Grab the Fileset Descriptor
452	 * Thanks to Chuck McCrobie <mccrobie@cablespeed.com> for pointing
453	 * me in the right direction here.
454	 */
455	sector = udfmp->part_start + fsd_offset;
456	if ((error = RDSECTOR(devvp, sector, udfmp->bsize, &bp)) != 0) {
457		printf("Cannot read sector %d of FSD\n", sector);
458		goto bail;
459	}
460	fsd = (struct fileset_desc *)bp->b_data;
461	if (!udf_checktag(&fsd->tag, TAGID_FSD)) {
462		fsd_found = 1;
463		bcopy(&fsd->rootdir_icb, &udfmp->root_icb,
464		    sizeof(struct long_ad));
465	}
466
467	brelse(bp);
468	bp = NULL;
469
470	if (!fsd_found) {
471		printf("Couldn't find the fsd\n");
472		error = EINVAL;
473		goto bail;
474	}
475
476	/*
477	 * Find the file entry for the root directory.
478	 */
479	sector = le32toh(udfmp->root_icb.loc.lb_num) + udfmp->part_start;
480	size = le32toh(udfmp->root_icb.len);
481	if ((error = udf_readdevblks(udfmp, sector, size, &bp)) != 0) {
482		printf("Cannot read sector %d\n", sector);
483		goto bail;
484	}
485
486	root_fentry = (struct file_entry *)bp->b_data;
487	if ((error = udf_checktag(&root_fentry->tag, TAGID_FENTRY))) {
488		printf("Invalid root file entry!\n");
489		goto bail;
490	}
491
492	brelse(bp);
493	bp = NULL;
494
495	return 0;
496
497bail:
498	if (udfmp != NULL)
499		free(udfmp, M_UDFMOUNT);
500	if (bp != NULL)
501		brelse(bp);
502	if (cp != NULL) {
503		DROP_GIANT();
504		g_topology_lock();
505		g_vfs_close(cp);
506		g_topology_unlock();
507		PICKUP_GIANT();
508	}
509	dev_rel(dev);
510	return error;
511};
512
513static int
514udf_unmount(struct mount *mp, int mntflags)
515{
516	struct udf_mnt *udfmp;
517	int error, flags = 0;
518
519	udfmp = VFSTOUDFFS(mp);
520
521	if (mntflags & MNT_FORCE)
522		flags |= FORCECLOSE;
523
524	if ((error = vflush(mp, 0, flags, curthread)))
525		return (error);
526
527	if (udfmp->im_flags & UDFMNT_KICONV && udf_iconv) {
528		if (udfmp->im_d2l)
529			udf_iconv->close(udfmp->im_d2l);
530#if 0
531		if (udfmp->im_l2d)
532			udf_iconv->close(udfmp->im_l2d);
533#endif
534	}
535
536	DROP_GIANT();
537	g_topology_lock();
538	g_vfs_close(udfmp->im_cp);
539	g_topology_unlock();
540	PICKUP_GIANT();
541	vrele(udfmp->im_devvp);
542	dev_rel(udfmp->im_dev);
543
544	if (udfmp->s_table != NULL)
545		free(udfmp->s_table, M_UDFMOUNT);
546
547	free(udfmp, M_UDFMOUNT);
548
549	mp->mnt_data = NULL;
550	MNT_ILOCK(mp);
551	mp->mnt_flag &= ~MNT_LOCAL;
552	MNT_IUNLOCK(mp);
553
554	return (0);
555}
556
557static int
558udf_root(struct mount *mp, int flags, struct vnode **vpp)
559{
560	struct udf_mnt *udfmp;
561	ino_t id;
562
563	udfmp = VFSTOUDFFS(mp);
564
565	id = udf_getid(&udfmp->root_icb);
566
567	return (udf_vget(mp, id, flags, vpp));
568}
569
570static int
571udf_statfs(struct mount *mp, struct statfs *sbp)
572{
573	struct udf_mnt *udfmp;
574
575	udfmp = VFSTOUDFFS(mp);
576
577	sbp->f_bsize = udfmp->bsize;
578	sbp->f_iosize = udfmp->bsize;
579	sbp->f_blocks = udfmp->part_len;
580	sbp->f_bfree = 0;
581	sbp->f_bavail = 0;
582	sbp->f_files = 0;
583	sbp->f_ffree = 0;
584	return 0;
585}
586
587int
588udf_vget(struct mount *mp, ino_t ino, int flags, struct vnode **vpp)
589{
590	struct buf *bp;
591	struct vnode *devvp;
592	struct udf_mnt *udfmp;
593	struct thread *td;
594	struct vnode *vp;
595	struct udf_node *unode;
596	struct file_entry *fe;
597	int error, sector, size;
598
599	error = vfs_hash_get(mp, ino, flags, curthread, vpp, NULL, NULL);
600	if (error || *vpp != NULL)
601		return (error);
602
603	/*
604	 * We must promote to an exclusive lock for vnode creation.  This
605	 * can happen if lookup is passed LOCKSHARED.
606 	 */
607	if ((flags & LK_TYPE_MASK) == LK_SHARED) {
608		flags &= ~LK_TYPE_MASK;
609		flags |= LK_EXCLUSIVE;
610	}
611
612	/*
613	 * We do not lock vnode creation as it is believed to be too
614	 * expensive for such rare case as simultaneous creation of vnode
615	 * for same ino by different processes. We just allow them to race
616	 * and check later to decide who wins. Let the race begin!
617	 */
618
619	td = curthread;
620	udfmp = VFSTOUDFFS(mp);
621
622	unode = uma_zalloc(udf_zone_node, M_WAITOK | M_ZERO);
623
624	if ((error = udf_allocv(mp, &vp, td))) {
625		printf("Error from udf_allocv\n");
626		uma_zfree(udf_zone_node, unode);
627		return (error);
628	}
629
630	unode->i_vnode = vp;
631	unode->hash_id = ino;
632	unode->udfmp = udfmp;
633	vp->v_data = unode;
634
635	lockmgr(vp->v_vnlock, LK_EXCLUSIVE, NULL);
636	error = insmntque(vp, mp);
637	if (error != 0) {
638		uma_zfree(udf_zone_node, unode);
639		return (error);
640	}
641	error = vfs_hash_insert(vp, ino, flags, td, vpp, NULL, NULL);
642	if (error || *vpp != NULL)
643		return (error);
644
645	/*
646	 * Copy in the file entry.  Per the spec, the size can only be 1 block.
647	 */
648	sector = ino + udfmp->part_start;
649	devvp = udfmp->im_devvp;
650	if ((error = RDSECTOR(devvp, sector, udfmp->bsize, &bp)) != 0) {
651		printf("Cannot read sector %d\n", sector);
652		vgone(vp);
653		vput(vp);
654		brelse(bp);
655		*vpp = NULL;
656		return (error);
657	}
658
659	fe = (struct file_entry *)bp->b_data;
660	if (udf_checktag(&fe->tag, TAGID_FENTRY)) {
661		printf("Invalid file entry!\n");
662		vgone(vp);
663		vput(vp);
664		brelse(bp);
665		*vpp = NULL;
666		return (ENOMEM);
667	}
668	size = UDF_FENTRY_SIZE + le32toh(fe->l_ea) + le32toh(fe->l_ad);
669	unode->fentry = malloc(size, M_UDFFENTRY, M_NOWAIT | M_ZERO);
670	if (unode->fentry == NULL) {
671		printf("Cannot allocate file entry block\n");
672		vgone(vp);
673		vput(vp);
674		brelse(bp);
675		*vpp = NULL;
676		return (ENOMEM);
677	}
678
679	bcopy(bp->b_data, unode->fentry, size);
680
681	brelse(bp);
682	bp = NULL;
683
684	switch (unode->fentry->icbtag.file_type) {
685	default:
686		vp->v_type = VBAD;
687		break;
688	case 4:
689		vp->v_type = VDIR;
690		break;
691	case 5:
692		vp->v_type = VREG;
693		break;
694	case 6:
695		vp->v_type = VBLK;
696		break;
697	case 7:
698		vp->v_type = VCHR;
699		break;
700	case 9:
701		vp->v_type = VFIFO;
702		vp->v_op = &udf_fifoops;
703		break;
704	case 10:
705		vp->v_type = VSOCK;
706		break;
707	case 12:
708		vp->v_type = VLNK;
709		break;
710	}
711
712	if (vp->v_type != VFIFO)
713		VN_LOCK_ASHARE(vp);
714
715	if (ino == udf_getid(&udfmp->root_icb))
716		vp->v_vflag |= VV_ROOT;
717
718	*vpp = vp;
719
720	return (0);
721}
722
723static int
724udf_fhtovp(struct mount *mp, struct fid *fhp, int flags, struct vnode **vpp)
725{
726	struct ifid *ifhp;
727	struct vnode *nvp;
728	struct udf_node *np;
729	off_t fsize;
730	int error;
731
732	ifhp = (struct ifid *)fhp;
733
734	if ((error = VFS_VGET(mp, ifhp->ifid_ino, LK_EXCLUSIVE, &nvp)) != 0) {
735		*vpp = NULLVP;
736		return (error);
737	}
738
739	np = VTON(nvp);
740	fsize = le64toh(np->fentry->inf_len);
741
742	*vpp = nvp;
743	vnode_create_vobject(*vpp, fsize, curthread);
744	return (0);
745}
746
747static int
748udf_find_partmaps(struct udf_mnt *udfmp, struct logvol_desc *lvd)
749{
750	struct part_map_spare *pms;
751	struct regid *pmap_id;
752	struct buf *bp;
753	unsigned char regid_id[UDF_REGID_ID_SIZE + 1];
754	int i, k, ptype, psize, error;
755	uint8_t *pmap = (uint8_t *) &lvd->maps[0];
756
757	for (i = 0; i < le32toh(lvd->n_pm); i++) {
758		ptype = pmap[0];
759		psize = pmap[1];
760		if (((ptype != 1) && (ptype != 2)) ||
761		    ((psize != UDF_PMAP_TYPE1_SIZE) &&
762		     (psize != UDF_PMAP_TYPE2_SIZE))) {
763			printf("Invalid partition map found\n");
764			return (1);
765		}
766
767		if (ptype == 1) {
768			/* Type 1 map.  We don't care */
769			pmap += UDF_PMAP_TYPE1_SIZE;
770			continue;
771		}
772
773		/* Type 2 map.  Gotta find out the details */
774		pmap_id = (struct regid *)&pmap[4];
775		bzero(&regid_id[0], UDF_REGID_ID_SIZE);
776		bcopy(&pmap_id->id[0], &regid_id[0], UDF_REGID_ID_SIZE);
777
778		if (bcmp(&regid_id[0], "*UDF Sparable Partition",
779		    UDF_REGID_ID_SIZE)) {
780			printf("Unsupported partition map: %s\n", &regid_id[0]);
781			return (1);
782		}
783
784		pms = (struct part_map_spare *)pmap;
785		pmap += UDF_PMAP_TYPE2_SIZE;
786		udfmp->s_table = malloc(le32toh(pms->st_size),
787		    M_UDFMOUNT, M_NOWAIT | M_ZERO);
788		if (udfmp->s_table == NULL)
789			return (ENOMEM);
790
791		/* Calculate the number of sectors per packet. */
792		/* XXX Logical or physical? */
793		udfmp->p_sectors = le16toh(pms->packet_len) / udfmp->bsize;
794
795		/*
796		 * XXX If reading the first Sparing Table fails, should look
797		 * for another table.
798		 */
799		if ((error = udf_readdevblks(udfmp, le32toh(pms->st_loc[0]),
800					   le32toh(pms->st_size), &bp)) != 0) {
801			if (bp != NULL)
802				brelse(bp);
803			printf("Failed to read Sparing Table at sector %d\n",
804			    le32toh(pms->st_loc[0]));
805			free(udfmp->s_table, M_UDFMOUNT);
806			return (error);
807		}
808		bcopy(bp->b_data, udfmp->s_table, le32toh(pms->st_size));
809		brelse(bp);
810
811		if (udf_checktag(&udfmp->s_table->tag, 0)) {
812			printf("Invalid sparing table found\n");
813			free(udfmp->s_table, M_UDFMOUNT);
814			return (EINVAL);
815		}
816
817		/* See how many valid entries there are here.  The list is
818		 * supposed to be sorted. 0xfffffff0 and higher are not valid
819		 */
820		for (k = 0; k < le16toh(udfmp->s_table->rt_l); k++) {
821			udfmp->s_table_entries = k;
822			if (le32toh(udfmp->s_table->entries[k].org) >=
823			    0xfffffff0)
824				break;
825		}
826	}
827
828	return (0);
829}
830