xref: /titanic_52/usr/src/uts/common/ipp/ippctl.c (revision 53dbcc5939527e6d5d52d814e51e364b5e8bb532)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  */
25 
26 
27 /*
28  * IP Policy Framework config driver
29  */
30 
31 #include <sys/types.h>
32 #include <sys/cmn_err.h>
33 #include <sys/kmem.h>
34 #include <sys/errno.h>
35 #include <sys/cpuvar.h>
36 #include <sys/open.h>
37 #include <sys/stat.h>
38 #include <sys/conf.h>
39 #include <sys/ddi.h>
40 #include <sys/sunddi.h>
41 #include <sys/modctl.h>
42 #include <sys/stream.h>
43 #include <ipp/ipp.h>
44 #include <ipp/ippctl.h>
45 #include <sys/nvpair.h>
46 #include <sys/policy.h>
47 
48 /*
49  * Debug switch.
50  */
51 
52 #if	defined(DEBUG)
53 #define	IPPCTL_DEBUG
54 #endif
55 
56 /*
57  * Debug macros.
58  */
59 
60 #ifdef	IPPCTL_DEBUG
61 
62 #define	DBG_MODLINK	0x00000001ull
63 #define	DBG_DEVOPS	0x00000002ull
64 #define	DBG_CBOPS	0x00000004ull
65 
66 static	uint64_t	ippctl_debug_flags =
67 /*
68  * DBG_MODLINK |
69  * DBG_DEVOPS |
70  * DBG_CBOPS |
71  */
72 0;
73 
74 static kmutex_t	debug_mutex[1];
75 
76 /*PRINTFLIKE3*/
77 static void	ippctl_debug(uint64_t, char *, char *, ...)
78 	__PRINTFLIKE(3);
79 
80 #define	DBG0(_type, _fmt)		    			\
81 	ippctl_debug((_type), __FN__, (_fmt));
82 
83 #define	DBG1(_type, _fmt, _a1) 					\
84 	ippctl_debug((_type), __FN__, (_fmt), (_a1));
85 
86 #define	DBG2(_type, _fmt, _a1, _a2)				\
87 	ippctl_debug((_type), __FN__, (_fmt), (_a1), (_a2));
88 
89 #define	DBG3(_type, _fmt, _a1, _a2, _a3)			\
90 	ippctl_debug((_type), __FN__, (_fmt), (_a1), (_a2),	\
91 	    (_a3));
92 
93 #define	DBG4(_type, _fmt, _a1, _a2, _a3, _a4)			\
94 	ippctl_debug((_type), __FN__, (_fmt), (_a1), (_a2),	\
95 	    (_a3), (_a4));
96 
97 #define	DBG5(_type, _fmt, _a1, _a2, _a3, _a4, _a5)		\
98 	ippctl_debug((_type), __FN__, (_fmt), (_a1), (_a2),	\
99 	    (_a3), (_a4), (_a5));
100 
101 #else	/* IPPCTL_DBG */
102 
103 #define	DBG0(_type, _fmt)
104 #define	DBG1(_type, _fmt, _a1)
105 #define	DBG2(_type, _fmt, _a1, _a2)
106 #define	DBG3(_type, _fmt, _a1, _a2, _a3)
107 #define	DBG4(_type, _fmt, _a1, _a2, _a3, _a4)
108 #define	DBG5(_type, _fmt, _a1, _a2, _a3, _a4, _a5)
109 
110 #endif	/* IPPCTL_DBG */
111 
112 /*
113  * cb_ops
114  */
115 
116 static int	ippctl_open(dev_t *, int, int, cred_t *);
117 static int	ippctl_close(dev_t, int, int, cred_t *);
118 static int	ippctl_ioctl(dev_t, int, intptr_t, int, cred_t *, int *);
119 
120 static	struct cb_ops	ippctl_cb_ops = {
121 	ippctl_open,	/* cb_open */
122 	ippctl_close,	/* cb_close */
123 	nodev,		/* cb_strategy */
124 	nodev,		/* cb_print */
125 	nodev,		/* cb_dump */
126 	nodev,		/* cb_read */
127 	nodev,		/* cb_write */
128 	ippctl_ioctl,	/* cb_ioctl */
129 	nodev,		/* cb_devmap */
130 	nodev,		/* cb_mmap */
131 	nodev,		/* cb_segmap */
132 	nochpoll,	/* cb_chpoll */
133 	ddi_prop_op,	/* cb_prop_op */
134 	0,		/* cb_str */
135 	D_NEW | D_MP,	/* cb_flag */
136 	CB_REV,		/* cb_rev */
137 	nodev,		/* cb_aread */
138 	nodev		/* cb_awrite */
139 };
140 
141 /*
142  * dev_ops
143  */
144 
145 static	int	ippctl_info(dev_info_t *, ddi_info_cmd_t, void *, void **);
146 static	int	ippctl_attach(dev_info_t *, ddi_attach_cmd_t);
147 static	int	ippctl_detach(dev_info_t *, ddi_detach_cmd_t);
148 
149 static	struct dev_ops	ippctl_dev_ops = {
150 	DEVO_REV,		/* devo_rev, */
151 	0,			/* devo_refcnt  */
152 	ippctl_info,		/* devo_getinfo */
153 	nulldev,		/* devo_identify */
154 	nulldev,		/* devo_probe */
155 	ippctl_attach,		/* devo_attach */
156 	ippctl_detach,		/* devo_detach */
157 	nodev,			/* devo_reset */
158 	&ippctl_cb_ops,		/* devo_cb_ops */
159 	(struct bus_ops *)0,	/* devo_bus_ops */
160 	NULL,			/* devo_power */
161 	ddi_quiesce_not_needed,		/* devo_quiesce */
162 };
163 
164 static	struct modldrv modldrv = {
165 	&mod_driverops,
166 	"IP Policy Configuration Driver",
167 	&ippctl_dev_ops,
168 };
169 
170 static	struct modlinkage modlinkage = {
171 	MODREV_1,
172 	&modldrv,
173 	NULL
174 };
175 
176 /*
177  * Local definitions, types and prototypes.
178  */
179 
180 #define	MAXUBUFLEN	(1 << 16)
181 
182 #define	FREE_TEXT(_string)					\
183 	kmem_free((_string), strlen(_string) + 1)
184 
185 #define	FREE_TEXT_ARRAY(_array, _nelt)				\
186 	{							\
187 		int	j;					\
188 								\
189 		for (j = 0; j < (_nelt); j++)			\
190 			if ((_array)[j] != NULL)		\
191 				FREE_TEXT((_array)[j]);		\
192 		kmem_free((_array), (_nelt) * sizeof (char *));	\
193 	}
194 
195 typedef	struct ippctl_buf	ippctl_buf_t;
196 
197 struct ippctl_buf {
198 	char	*buf;
199 	size_t	buflen;
200 };
201 
202 static int	ippctl_copyin(caddr_t, int, char **, size_t *);
203 static int	ippctl_copyout(caddr_t, int, char *, size_t);
204 static int	ippctl_extract_op(nvlist_t *, uint8_t *);
205 static int	ippctl_extract_aname(nvlist_t *, char **);
206 static int	ippctl_extract_modname(nvlist_t *, char **);
207 static int	ippctl_attach_modname(nvlist_t *nvlp, char *val);
208 static int	ippctl_attach_modname_array(nvlist_t *nvlp, char **val, int);
209 static int	ippctl_attach_aname_array(nvlist_t *nvlp, char **val, int);
210 static int	ippctl_extract_flags(nvlist_t *, ipp_flags_t *);
211 static int	ippctl_cmd(char *, size_t, size_t *);
212 static int	ippctl_action_create(char *, char *, nvlist_t *, ipp_flags_t);
213 static int	ippctl_action_destroy(char *, ipp_flags_t);
214 static int	ippctl_action_modify(char *, nvlist_t *, ipp_flags_t);
215 static int	ippctl_action_info(char *, ipp_flags_t);
216 static int	ippctl_action_mod(char *);
217 static int	ippctl_list_mods(void);
218 static int	ippctl_mod_list_actions(char *);
219 static int	ippctl_data(char **, size_t *, size_t *);
220 static void	ippctl_flush(void);
221 static int	ippctl_add_nvlist(nvlist_t *, int);
222 static int	ippctl_callback(nvlist_t *, void *);
223 static int	ippctl_set_rc(int);
224 static void	ippctl_alloc(int);
225 static void	ippctl_realloc(void);
226 static void	ippctl_free(void);
227 
228 /*
229  * Global data
230  */
231 
232 static dev_info_t	*ippctl_dip = NULL;
233 static kmutex_t		ippctl_lock;
234 static boolean_t	ippctl_busy;
235 static ippctl_buf_t	*ippctl_array = NULL;
236 static int		ippctl_limit = -1;
237 static int		ippctl_rindex = -1;
238 static int		ippctl_windex = -1;
239 
240 /*
241  * Module linkage functions
242  */
243 
244 #define	__FN__	"_init"
245 int
246 _init(
247 	void)
248 {
249 	int	rc;
250 
251 	if ((rc = mod_install(&modlinkage)) != 0) {
252 		DBG0(DBG_MODLINK, "mod_install failed\n");
253 		return (rc);
254 	}
255 
256 	return (rc);
257 }
258 #undef	__FN__
259 
260 #define	__FN__	"_fini"
261 int
262 _fini(
263 	void)
264 {
265 	int	rc;
266 
267 	if ((rc = mod_remove(&modlinkage)) == 0) {
268 		return (rc);
269 	}
270 
271 	DBG0(DBG_MODLINK, "mod_remove failed\n");
272 	return (rc);
273 }
274 #undef	__FN__
275 
276 #define	__FN__	"_info"
277 int
278 _info(
279 	struct modinfo	*modinfop)
280 {
281 	DBG0(DBG_MODLINK, "calling mod_info\n");
282 	return (mod_info(&modlinkage, modinfop));
283 }
284 #undef	__FN__
285 
286 /*
287  * Driver interface functions (dev_ops and cb_ops)
288  */
289 
290 #define	__FN__	"ippctl_info"
291 /*ARGSUSED*/
292 static	int
293 ippctl_info(
294 	dev_info_t	*dip,
295 	ddi_info_cmd_t	cmd,
296 	void		*arg,
297 	void 		**result)
298 {
299 	int		rc = DDI_FAILURE;
300 
301 	switch (cmd) {
302 	case DDI_INFO_DEVT2INSTANCE:
303 		*result = (void *)0;	/* Single instance driver */
304 		rc = DDI_SUCCESS;
305 		break;
306 	case DDI_INFO_DEVT2DEVINFO:
307 		*result = (void *)ippctl_dip;
308 		rc = DDI_SUCCESS;
309 		break;
310 	default:
311 		break;
312 	}
313 
314 	return (rc);
315 }
316 #undef	__FN__
317 
318 #define	__FN__	"ippctl_attach"
319 static	int
320 ippctl_attach(
321 	dev_info_t		*dip,
322 	ddi_attach_cmd_t	cmd)
323 {
324 	switch (cmd) {
325 	case DDI_ATTACH:
326 		break;
327 	case DDI_PM_RESUME:
328 		/*FALLTHRU*/
329 	case DDI_RESUME:
330 		/*FALLTHRU*/
331 	default:
332 		return (DDI_FAILURE);
333 	}
334 
335 	DBG0(DBG_DEVOPS, "DDI_ATTACH\n");
336 
337 	/*
338 	 * This is strictly a single instance driver.
339 	 */
340 
341 	if (ippctl_dip != NULL)
342 		return (DDI_FAILURE);
343 
344 	/*
345 	 * Create minor node.
346 	 */
347 
348 	if (ddi_create_minor_node(dip, "ctl", S_IFCHR, 0,
349 	    DDI_PSEUDO, 0) != DDI_SUCCESS)
350 		return (DDI_FAILURE);
351 
352 	/*
353 	 * No need for per-instance structure, just store vital data in
354 	 * globals.
355 	 */
356 
357 	ippctl_dip = dip;
358 	mutex_init(&ippctl_lock, NULL, MUTEX_DRIVER, NULL);
359 	ippctl_busy = B_FALSE;
360 
361 	return (DDI_SUCCESS);
362 }
363 #undef	__FN__
364 
365 #define	__FN__	"ippctl_detach"
366 /*ARGSUSED*/
367 static	int
368 ippctl_detach(
369 	dev_info_t		*dip,
370 	ddi_detach_cmd_t	cmd)
371 {
372 	switch (cmd) {
373 	case DDI_DETACH:
374 		break;
375 	case DDI_PM_SUSPEND:
376 		/*FALLTHRU*/
377 	case DDI_SUSPEND:
378 		/*FALLTHRU*/
379 	default:
380 		return (DDI_FAILURE);
381 	}
382 
383 	DBG0(DBG_DEVOPS, "DDI_DETACH\n");
384 
385 	ASSERT(dip == ippctl_dip);
386 
387 	ddi_remove_minor_node(dip, NULL);
388 	mutex_destroy(&ippctl_lock);
389 	ippctl_dip = NULL;
390 
391 	return (DDI_SUCCESS);
392 }
393 #undef	__FN__
394 
395 #define	__FN__	"ippctl_open"
396 /*ARGSUSED*/
397 static	int
398 ippctl_open(
399 	dev_t	*devp,
400 	int	flag,
401 	int	otyp,
402 	cred_t	*credp)
403 {
404 	minor_t	minor = getminor(*devp);
405 #define	LIMIT	4
406 
407 	DBG0(DBG_CBOPS, "open\n");
408 
409 	/*
410 	 * Only allow privileged users to open our device.
411 	 */
412 
413 	if (secpolicy_net_config(credp, B_FALSE) != 0) {
414 		DBG0(DBG_CBOPS, "not privileged user\n");
415 		return (EPERM);
416 	}
417 
418 	/*
419 	 * Sanity check other arguments.
420 	 */
421 
422 	if (minor != 0) {
423 		DBG0(DBG_CBOPS, "bad minor\n");
424 		return (ENXIO);
425 	}
426 
427 	if (otyp != OTYP_CHR) {
428 		DBG0(DBG_CBOPS, "bad device type\n");
429 		return (EINVAL);
430 	}
431 
432 	/*
433 	 * This is also a single dev_t driver.
434 	 */
435 
436 	mutex_enter(&ippctl_lock);
437 	if (ippctl_busy) {
438 		mutex_exit(&ippctl_lock);
439 		return (EBUSY);
440 	}
441 	ippctl_busy = B_TRUE;
442 	mutex_exit(&ippctl_lock);
443 
444 	/*
445 	 * Allocate data buffer array (starting with length LIMIT, defined
446 	 * at the start of this function).
447 	 */
448 
449 	ippctl_alloc(LIMIT);
450 
451 	DBG0(DBG_CBOPS, "success\n");
452 
453 	return (0);
454 
455 #undef	LIMIT
456 }
457 #undef	__FN__
458 
459 #define	__FN__	"ippctl_close"
460 /*ARGSUSED*/
461 static	int
462 ippctl_close(
463 	dev_t	dev,
464 	int	flag,
465 	int	otyp,
466 	cred_t	*credp)
467 {
468 	minor_t	minor = getminor(dev);
469 
470 	DBG0(DBG_CBOPS, "close\n");
471 
472 	ASSERT(minor == 0);
473 
474 	/*
475 	 * Free the data buffer array.
476 	 */
477 
478 	ippctl_free();
479 
480 	mutex_enter(&ippctl_lock);
481 	ippctl_busy = B_FALSE;
482 	mutex_exit(&ippctl_lock);
483 
484 	DBG0(DBG_CBOPS, "success\n");
485 
486 	return (0);
487 }
488 #undef	__FN__
489 
490 #define	__FN__	"ippctl_ioctl"
491 static int
492 ippctl_ioctl(
493 	dev_t			dev,
494 	int			cmd,
495 	intptr_t		arg,
496 	int			mode,
497 	cred_t			*credp,
498 	int			*rvalp)
499 {
500 	minor_t			minor = getminor(dev);
501 	char			*cbuf;
502 	char			*dbuf;
503 	size_t			cbuflen;
504 	size_t			dbuflen;
505 	size_t			nextbuflen;
506 	int			rc;
507 
508 	/*
509 	 * Paranoia check.
510 	 */
511 
512 	if (secpolicy_net_config(credp, B_FALSE) != 0) {
513 		DBG0(DBG_CBOPS, "not privileged user\n");
514 		return (EPERM);
515 	}
516 
517 	if (minor != 0) {
518 		DBG0(DBG_CBOPS, "bad minor\n");
519 		return (ENXIO);
520 	}
521 
522 	switch (cmd) {
523 	case IPPCTL_CMD:
524 		DBG0(DBG_CBOPS, "command\n");
525 
526 		/*
527 		 * Copy in the command buffer from user space.
528 		 */
529 
530 		if ((rc = ippctl_copyin((caddr_t)arg, mode, &cbuf,
531 		    &cbuflen)) != 0)
532 			break;
533 
534 		/*
535 		 * Execute the command.
536 		 */
537 
538 		rc = ippctl_cmd(cbuf, cbuflen, &nextbuflen);
539 
540 		/*
541 		 * Pass back the length of the first data buffer.
542 		 */
543 
544 		DBG1(DBG_CBOPS, "nextbuflen = %lu\n", nextbuflen);
545 		*rvalp = nextbuflen;
546 
547 		/*
548 		 * Free the kernel copy of the command buffer.
549 		 */
550 
551 		kmem_free(cbuf, cbuflen);
552 		break;
553 
554 	case IPPCTL_DATA:
555 		DBG0(DBG_CBOPS, "data\n");
556 
557 		/*
558 		 * Grab the next data buffer from the array of pending
559 		 * buffers.
560 		 */
561 
562 		if ((rc = ippctl_data(&dbuf, &dbuflen, &nextbuflen)) != 0)
563 			break;
564 
565 		/*
566 		 * Copy it out to user space.
567 		 */
568 
569 		rc = ippctl_copyout((caddr_t)arg, mode, dbuf, dbuflen);
570 
571 		/*
572 		 * Pass back the length of the next data buffer.
573 		 */
574 
575 		DBG1(DBG_CBOPS, "nextbuflen = %lu\n", nextbuflen);
576 		*rvalp = nextbuflen;
577 		break;
578 
579 	default:
580 		DBG0(DBG_CBOPS, "unrecognized ioctl\n");
581 		rc = EINVAL;
582 		break;
583 	}
584 
585 	DBG1(DBG_CBOPS, "rc = %d\n", rc);
586 	return (rc);
587 }
588 #undef	__FN__
589 
590 /*
591  * Local functions
592  */
593 
594 #define	__FN__	"ippctl_copyin"
595 static int
596 ippctl_copyin(
597 	caddr_t		arg,
598 	int		mode,
599 	char		**kbufp,
600 	size_t		*kbuflenp)
601 {
602 	ippctl_ioctl_t	iioc;
603 	caddr_t		ubuf;
604 	char		*kbuf;
605 	size_t		ubuflen;
606 
607 	DBG0(DBG_CBOPS, "copying in ioctl structure\n");
608 
609 	/*
610 	 * Copy in the ioctl structure from user-space, converting from 32-bit
611 	 * as necessary.
612 	 */
613 
614 #ifdef	_MULTI_DATAMODEL
615 	switch (ddi_model_convert_from(mode & FMODELS)) {
616 	case DDI_MODEL_ILP32:
617 		{
618 			ippctl_ioctl32_t	iioc32;
619 
620 			DBG0(DBG_CBOPS, "converting from 32-bit\n");
621 
622 			if (ddi_copyin(arg, (caddr_t)&iioc32,
623 			    sizeof (ippctl_ioctl32_t), mode) != 0)
624 				return (EFAULT);
625 
626 			ubuf = (caddr_t)(uintptr_t)iioc32.ii32_buf;
627 			ubuflen = (size_t)iioc32.ii32_buflen;
628 		}
629 		break;
630 	case DDI_MODEL_NONE:
631 		if (ddi_copyin(arg, (caddr_t)&iioc, sizeof (ippctl_ioctl_t),
632 		    mode) != 0)
633 			return (EFAULT);
634 
635 		ubuf = iioc.ii_buf;
636 		ubuflen = iioc.ii_buflen;
637 		break;
638 	default:
639 		return (EFAULT);
640 	}
641 #else	/* _MULTI_DATAMODEL */
642 	if (ddi_copyin(arg, (caddr_t)&iioc, sizeof (ippctl_ioctl_t),
643 	    mode) != 0)
644 		return (EFAULT);
645 
646 	ubuf = iioc.ii_buf;
647 	ubuflen = iioc.ii_buflen;
648 #endif	/* _MULTI_DATAMODEL */
649 
650 	DBG1(DBG_CBOPS, "ubuf = 0x%p\n", (void *)ubuf);
651 	DBG1(DBG_CBOPS, "ubuflen = %lu\n", ubuflen);
652 
653 	/*
654 	 * Sanity check the command buffer information.
655 	 */
656 
657 	if (ubuflen == 0 || ubuf == NULL)
658 		return (EINVAL);
659 	if (ubuflen > MAXUBUFLEN)
660 		return (E2BIG);
661 
662 	/*
663 	 * Allocate some memory for the command buffer and copy it in.
664 	 */
665 
666 	kbuf = kmem_zalloc(ubuflen, KM_SLEEP);
667 	DBG0(DBG_CBOPS, "copying in nvlist\n");
668 	if (ddi_copyin(ubuf, (caddr_t)kbuf, ubuflen, mode) != 0) {
669 		kmem_free(kbuf, ubuflen);
670 		return (EFAULT);
671 	}
672 
673 	*kbufp = kbuf;
674 	*kbuflenp = ubuflen;
675 	return (0);
676 }
677 #undef	__FN__
678 
679 #define	__FN__	"ippctl_copyout"
680 static int
681 ippctl_copyout(
682 	caddr_t		arg,
683 	int		mode,
684 	char		*kbuf,
685 	size_t		kbuflen)
686 {
687 	ippctl_ioctl_t	iioc;
688 	caddr_t		ubuf;
689 	int		ubuflen;
690 
691 	DBG0(DBG_CBOPS, "copying out ioctl structure\n");
692 
693 	/*
694 	 * Copy in the ioctl structure from user-space, converting from 32-bit
695 	 * as necessary.
696 	 */
697 
698 #ifdef	_MULTI_DATAMODEL
699 	switch (ddi_model_convert_from(mode & FMODELS)) {
700 	case DDI_MODEL_ILP32:
701 		{
702 			ippctl_ioctl32_t	iioc32;
703 
704 			if (ddi_copyin(arg, (caddr_t)&iioc32,
705 			    sizeof (ippctl_ioctl32_t), mode) != 0)
706 				return (EFAULT);
707 
708 			ubuf = (caddr_t)(uintptr_t)iioc32.ii32_buf;
709 			ubuflen = iioc32.ii32_buflen;
710 		}
711 		break;
712 	case DDI_MODEL_NONE:
713 		if (ddi_copyin(arg, (caddr_t)&iioc, sizeof (ippctl_ioctl_t),
714 		    mode) != 0)
715 			return (EFAULT);
716 
717 		ubuf = iioc.ii_buf;
718 		ubuflen = iioc.ii_buflen;
719 		break;
720 	default:
721 		return (EFAULT);
722 	}
723 #else	/* _MULTI_DATAMODEL */
724 	if (ddi_copyin(arg, (caddr_t)&iioc, sizeof (ippctl_ioctl_t),
725 	    mode) != 0)
726 		return (EFAULT);
727 
728 	ubuf = iioc.ii_buf;
729 	ubuflen = iioc.ii_buflen;
730 #endif	/* _MULTI_DATAMODEL */
731 
732 	DBG1(DBG_CBOPS, "ubuf = 0x%p\n", (void *)ubuf);
733 	DBG1(DBG_CBOPS, "ubuflen = %d\n", ubuflen);
734 
735 	/*
736 	 * Sanity check the data buffer details.
737 	 */
738 
739 	if (ubuflen == 0 || ubuf == NULL)
740 		return (EINVAL);
741 
742 	if (ubuflen < kbuflen)
743 		return (ENOSPC);
744 	if (ubuflen > MAXUBUFLEN)
745 		return (E2BIG);
746 
747 	/*
748 	 * Copy out the data buffer to user space.
749 	 */
750 
751 	DBG0(DBG_CBOPS, "copying out nvlist\n");
752 	if (ddi_copyout((caddr_t)kbuf, ubuf, kbuflen, mode) != 0)
753 		return (EFAULT);
754 
755 	return (0);
756 }
757 #undef	__FN__
758 
759 #define	__FN__	"ippctl_extract_op"
760 static int
761 ippctl_extract_op(
762 	nvlist_t	*nvlp,
763 	uint8_t		*valp)
764 {
765 	int		rc;
766 
767 	/*
768 	 * Look-up and remove the opcode passed from libipp from the
769 	 * nvlist.
770 	 */
771 
772 	if ((rc = nvlist_lookup_byte(nvlp, IPPCTL_OP, valp)) != 0)
773 		return (rc);
774 
775 	(void) nvlist_remove_all(nvlp, IPPCTL_OP);
776 	return (0);
777 }
778 #undef	__FN__
779 
780 #define	__FN__	"ippctl_extract_aname"
781 static int
782 ippctl_extract_aname(
783 	nvlist_t	*nvlp,
784 	char		**valp)
785 {
786 	int		rc;
787 	char		*ptr;
788 
789 	/*
790 	 * Look-up and remove the action name passed from libipp from the
791 	 * nvlist.
792 	 */
793 
794 	if ((rc = nvlist_lookup_string(nvlp, IPPCTL_ANAME, &ptr)) != 0)
795 		return (rc);
796 
797 	*valp = kmem_alloc(strlen(ptr) + 1, KM_SLEEP);
798 	(void) strcpy(*valp, ptr);
799 	(void) nvlist_remove_all(nvlp, IPPCTL_ANAME);
800 	return (0);
801 }
802 #undef	__FN__
803 
804 #define	__FN__	"ippctl_extract_modname"
805 static int
806 ippctl_extract_modname(
807 	nvlist_t	*nvlp,
808 	char		**valp)
809 {
810 	int		rc;
811 	char		*ptr;
812 
813 	/*
814 	 * Look-up and remove the module name passed from libipp from the
815 	 * nvlist.
816 	 */
817 
818 	if ((rc = nvlist_lookup_string(nvlp, IPPCTL_MODNAME, &ptr)) != 0)
819 		return (rc);
820 
821 	*valp = kmem_alloc(strlen(ptr) + 1, KM_SLEEP);
822 	(void) strcpy(*valp, ptr);
823 	(void) nvlist_remove_all(nvlp, IPPCTL_MODNAME);
824 	return (0);
825 }
826 #undef	__FN__
827 
828 #define	__FN__	"ippctl_attach_modname"
829 static int
830 ippctl_attach_modname(
831 	nvlist_t	*nvlp,
832 	char		*modname)
833 {
834 	/*
835 	 * Add a module name to an nvlist for passing back to user
836 	 * space.
837 	 */
838 
839 	return (nvlist_add_string(nvlp, IPPCTL_MODNAME, modname));
840 }
841 #undef	__FN__
842 
843 #define	__FN__	"ippctl_attach_modname_array"
844 static int
845 ippctl_attach_modname_array(
846 	nvlist_t	*nvlp,
847 	char		**modname_array,
848 	int		nelt)
849 {
850 	/*
851 	 * Add a module name array to an nvlist for passing back to user
852 	 * space.
853 	 */
854 
855 	return (nvlist_add_string_array(nvlp, IPPCTL_MODNAME_ARRAY,
856 	    modname_array, nelt));
857 }
858 #undef	__FN__
859 
860 #define	__FN__	"ippctl_attach_aname_array"
861 static int
862 ippctl_attach_aname_array(
863 	nvlist_t	*nvlp,
864 	char		**aname_array,
865 	int		nelt)
866 {
867 	/*
868 	 * Add an action name array to an nvlist for passing back to user
869 	 * space.
870 	 */
871 
872 	return (nvlist_add_string_array(nvlp, IPPCTL_ANAME_ARRAY,
873 	    aname_array, nelt));
874 }
875 #undef	__FN__
876 
877 #define	__FN__	"ippctl_extract_flags"
878 static int
879 ippctl_extract_flags(
880 	nvlist_t	*nvlp,
881 	ipp_flags_t	*valp)
882 {
883 	int		rc;
884 
885 	/*
886 	 * Look-up and remove the flags passed from libipp from the
887 	 * nvlist.
888 	 */
889 
890 	if ((rc = nvlist_lookup_uint32(nvlp, IPPCTL_FLAGS,
891 	    (uint32_t *)valp)) != 0)
892 		return (rc);
893 
894 	(void) nvlist_remove_all(nvlp, IPPCTL_FLAGS);
895 	return (0);
896 }
897 #undef	__FN__
898 
899 #define	__FN__	"ippctl_cmd"
900 static int
901 ippctl_cmd(
902 	char		*cbuf,
903 	size_t		cbuflen,
904 	size_t		*nextbuflenp)
905 {
906 	nvlist_t	*nvlp = NULL;
907 	int		rc;
908 	char		*aname = NULL;
909 	char		*modname = NULL;
910 	ipp_flags_t	flags;
911 	uint8_t		op;
912 
913 	/*
914 	 * Start a new command cycle by flushing any previous data buffers.
915 	 */
916 
917 	ippctl_flush();
918 	*nextbuflenp = 0;
919 
920 	/*
921 	 * Unpack the nvlist from the command buffer.
922 	 */
923 
924 	if ((rc = nvlist_unpack(cbuf, cbuflen, &nvlp, KM_SLEEP)) != 0)
925 		return (rc);
926 
927 	/*
928 	 * Extract the opcode to find out what we should do.
929 	 */
930 
931 	if ((rc = ippctl_extract_op(nvlp, &op)) != 0) {
932 		nvlist_free(nvlp);
933 		return (rc);
934 	}
935 
936 	switch (op) {
937 	case IPPCTL_OP_ACTION_CREATE:
938 		/*
939 		 * Create a new action.
940 		 */
941 
942 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_ACTION_CREATE\n");
943 
944 		/*
945 		 * Extract the module name, action name and flags from the
946 		 * nvlist.
947 		 */
948 
949 		if ((rc = ippctl_extract_modname(nvlp, &modname)) != 0) {
950 			nvlist_free(nvlp);
951 			return (rc);
952 		}
953 
954 		if ((rc = ippctl_extract_aname(nvlp, &aname)) != 0) {
955 			FREE_TEXT(modname);
956 			nvlist_free(nvlp);
957 			return (rc);
958 		}
959 
960 		if ((rc = ippctl_extract_flags(nvlp, &flags)) != 0) {
961 			FREE_TEXT(aname);
962 			FREE_TEXT(modname);
963 			nvlist_free(nvlp);
964 			return (rc);
965 		}
966 
967 
968 		rc = ippctl_action_create(modname, aname, nvlp, flags);
969 		break;
970 
971 	case IPPCTL_OP_ACTION_MODIFY:
972 
973 		/*
974 		 * Modify an existing action.
975 		 */
976 
977 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_ACTION_MODIFY\n");
978 
979 		/*
980 		 * Extract the action name and flags from the nvlist.
981 		 */
982 
983 		if ((rc = ippctl_extract_aname(nvlp, &aname)) != 0) {
984 			nvlist_free(nvlp);
985 			return (rc);
986 		}
987 
988 		if ((rc = ippctl_extract_flags(nvlp, &flags)) != 0) {
989 			FREE_TEXT(aname);
990 			nvlist_free(nvlp);
991 			return (rc);
992 		}
993 
994 		rc = ippctl_action_modify(aname, nvlp, flags);
995 		break;
996 
997 	case IPPCTL_OP_ACTION_DESTROY:
998 
999 		/*
1000 		 * Destroy an action.
1001 		 */
1002 
1003 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_ACTION_DESTROY\n");
1004 
1005 		/*
1006 		 * Extract the action name and flags from the nvlist.
1007 		 */
1008 
1009 		if ((rc = ippctl_extract_aname(nvlp, &aname)) != 0) {
1010 			nvlist_free(nvlp);
1011 			return (rc);
1012 		}
1013 
1014 		if ((rc = ippctl_extract_flags(nvlp, &flags)) != 0) {
1015 			FREE_TEXT(aname);
1016 			nvlist_free(nvlp);
1017 			return (rc);
1018 		}
1019 
1020 		nvlist_free(nvlp);
1021 		rc = ippctl_action_destroy(aname, flags);
1022 		break;
1023 
1024 	case IPPCTL_OP_ACTION_INFO:
1025 
1026 		/*
1027 		 * Retrive the configuration of an action.
1028 		 */
1029 
1030 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_ACTION_INFO\n");
1031 
1032 		/*
1033 		 * Extract the action name and flags from the nvlist.
1034 		 */
1035 
1036 		if ((rc = ippctl_extract_aname(nvlp, &aname)) != 0) {
1037 			nvlist_free(nvlp);
1038 			return (rc);
1039 		}
1040 
1041 		if ((rc = ippctl_extract_flags(nvlp, &flags)) != 0) {
1042 			nvlist_free(nvlp);
1043 			FREE_TEXT(aname);
1044 			return (rc);
1045 		}
1046 
1047 		nvlist_free(nvlp);
1048 		rc = ippctl_action_info(aname, flags);
1049 		break;
1050 
1051 	case IPPCTL_OP_ACTION_MOD:
1052 
1053 		/*
1054 		 * Find the module that implements a given action.
1055 		 */
1056 
1057 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_ACTION_MOD\n");
1058 
1059 		/*
1060 		 * Extract the action name from the nvlist.
1061 		 */
1062 
1063 		if ((rc = ippctl_extract_aname(nvlp, &aname)) != 0) {
1064 			nvlist_free(nvlp);
1065 			return (rc);
1066 		}
1067 
1068 		nvlist_free(nvlp);
1069 		rc = ippctl_action_mod(aname);
1070 		break;
1071 
1072 	case IPPCTL_OP_LIST_MODS:
1073 
1074 		/*
1075 		 * List all the modules.
1076 		 */
1077 
1078 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_LIST_MODS\n");
1079 
1080 		nvlist_free(nvlp);
1081 		rc = ippctl_list_mods();
1082 		break;
1083 
1084 	case IPPCTL_OP_MOD_LIST_ACTIONS:
1085 
1086 		/*
1087 		 * List all the actions for a given module.
1088 		 */
1089 
1090 		DBG0(DBG_CBOPS, "op = IPPCTL_OP_LIST_MODS\n");
1091 
1092 		if ((rc = ippctl_extract_modname(nvlp, &modname)) != 0) {
1093 			nvlist_free(nvlp);
1094 			return (rc);
1095 		}
1096 
1097 		nvlist_free(nvlp);
1098 		rc = ippctl_mod_list_actions(modname);
1099 		break;
1100 
1101 	default:
1102 
1103 		/*
1104 		 * Unrecognized opcode.
1105 		 */
1106 
1107 		nvlist_free(nvlp);
1108 		rc = EINVAL;
1109 		break;
1110 	}
1111 
1112 	/*
1113 	 * The length of buffer that we need to notify back to libipp with
1114 	 * the command ioctl's return is the length of the first data buffer
1115 	 * in the array. We only expact to pass back data buffers if the
1116 	 * operation succeeds (NOTE: this does not mean the kernel call has
1117 	 * to succeed, merely that we successfully issued it and processed
1118 	 * the results).
1119 	 */
1120 
1121 	if (rc == 0)
1122 		*nextbuflenp = ippctl_array[0].buflen;
1123 
1124 	return (rc);
1125 }
1126 #undef	__FN__
1127 
1128 #define	__FN__	"ippctl_action_create"
1129 static int
1130 ippctl_action_create(
1131 	char		*modname,
1132 	char		*aname,
1133 	nvlist_t	*nvlp,
1134 	ipp_flags_t	flags)
1135 {
1136 	int		ipp_rc;
1137 	int		rc;
1138 	ipp_mod_id_t	mid;
1139 	ipp_action_id_t	aid;
1140 
1141 	/*
1142 	 * Look up the module id from the name and create the new
1143 	 * action.
1144 	 */
1145 
1146 	mid = ipp_mod_lookup(modname);
1147 	FREE_TEXT(modname);
1148 
1149 	ipp_rc = ipp_action_create(mid, aname, &nvlp, flags, &aid);
1150 	FREE_TEXT(aname);
1151 
1152 	/*
1153 	 * Add an nvlist containing the kernel return code to the
1154 	 * set of nvlists to pass back to libipp.
1155 	 */
1156 
1157 	if ((rc = ippctl_set_rc(ipp_rc)) != 0) {
1158 		if (nvlp != NULL) {
1159 			nvlist_free(nvlp);
1160 			if (ipp_action_destroy(aid, 0) != 0) {
1161 				cmn_err(CE_PANIC,
1162 				    "ippctl: unrecoverable error (aid = %d)",
1163 				    aid);
1164 				/*NOTREACHED*/
1165 			}
1166 		}
1167 		return (rc);
1168 	}
1169 
1170 	/*
1171 	 * If the module passed back an nvlist, add this as
1172 	 * well.
1173 	 */
1174 
1175 	if (nvlp != NULL) {
1176 		rc = ippctl_callback(nvlp, NULL);
1177 		nvlist_free(nvlp);
1178 	} else
1179 		rc = 0;
1180 
1181 	return (rc);
1182 }
1183 #undef	__FN__
1184 
1185 #define	__FN__	"ippctl_action_destroy"
1186 static int
1187 ippctl_action_destroy(
1188 	char		*aname,
1189 	ipp_flags_t	flags)
1190 {
1191 	ipp_action_id_t	aid;
1192 	int		ipp_rc;
1193 	int		rc;
1194 
1195 	/*
1196 	 * Look up the action id and destroy the action.
1197 	 */
1198 
1199 	aid = ipp_action_lookup(aname);
1200 	FREE_TEXT(aname);
1201 
1202 	ipp_rc = ipp_action_destroy(aid, flags);
1203 
1204 	/*
1205 	 * Add an nvlist containing the kernel return code to the
1206 	 * set of nvlists to pass back to libipp.
1207 	 */
1208 
1209 	if ((rc = ippctl_set_rc(ipp_rc)) != 0)
1210 		return (rc);
1211 
1212 	/*
1213 	 * There's no more information to pass back.
1214 	 */
1215 
1216 	return (0);
1217 }
1218 #undef	__FN__
1219 
1220 #define	__FN__	"ippctl_action_modify"
1221 static int
1222 ippctl_action_modify(
1223 	char		*aname,
1224 	nvlist_t	*nvlp,
1225 	ipp_flags_t	flags)
1226 {
1227 	ipp_action_id_t	aid;
1228 	int		ipp_rc;
1229 	int		rc;
1230 
1231 	/*
1232 	 * Look up the action id and modify the action.
1233 	 */
1234 
1235 	aid = ipp_action_lookup(aname);
1236 	FREE_TEXT(aname);
1237 
1238 	ipp_rc = ipp_action_modify(aid, &nvlp, flags);
1239 
1240 	/*
1241 	 * Add an nvlist containing the kernel return code to the
1242 	 * set of nvlists to pass back to libipp.
1243 	 */
1244 
1245 	if ((rc = ippctl_set_rc(ipp_rc)) != 0) {
1246 		if (nvlp != NULL)
1247 			nvlist_free(nvlp);
1248 		return (rc);
1249 	}
1250 
1251 	/*
1252 	 * If the module passed back an nvlist, add this as
1253 	 * well.
1254 	 */
1255 
1256 	if (nvlp != NULL) {
1257 		rc = ippctl_callback(nvlp, NULL);
1258 		nvlist_free(nvlp);
1259 	} else
1260 		rc = 0;
1261 
1262 	return (rc);
1263 }
1264 #undef	__FN__
1265 
1266 #define	__FN__	"ippctl_action_info"
1267 static int
1268 ippctl_action_info(
1269 	char		*aname,
1270 	ipp_flags_t	flags)
1271 {
1272 	ipp_action_id_t	aid;
1273 	int		ipp_rc;
1274 	int		rc;
1275 
1276 	/*
1277 	 * Look up the action and call the information retrieval
1278 	 * entry point.
1279 	 *
1280 	 * NOTE: The callback function that is passed in packs and
1281 	 * stores each of the nvlists it is called with in the array
1282 	 * that will be passed back to libipp.
1283 	 */
1284 
1285 	aid = ipp_action_lookup(aname);
1286 	FREE_TEXT(aname);
1287 
1288 	ipp_rc = ipp_action_info(aid, ippctl_callback, NULL, flags);
1289 
1290 	/*
1291 	 * Add an nvlist containing the kernel return code to the
1292 	 * set of nvlists to pass back to libipp.
1293 	 */
1294 
1295 	if ((rc = ippctl_set_rc(ipp_rc)) != 0)
1296 		return (rc);
1297 
1298 	/*
1299 	 * There's no more information to pass back.
1300 	 */
1301 
1302 	return (0);
1303 }
1304 #undef	__FN__
1305 
1306 #define	__FN__	"ippctl_action_mod"
1307 static int
1308 ippctl_action_mod(
1309 	char		*aname)
1310 {
1311 	ipp_mod_id_t	mid;
1312 	ipp_action_id_t	aid;
1313 	char		*modname;
1314 	nvlist_t	*nvlp;
1315 	int		ipp_rc;
1316 	int		rc;
1317 
1318 	/*
1319 	 * Look up the action id and get the id of the module that
1320 	 * implements the action. If that succeeds then look up the
1321 	 * name of the module.
1322 	 */
1323 
1324 	aid = ipp_action_lookup(aname);
1325 	FREE_TEXT(aname);
1326 
1327 	if ((ipp_rc = ipp_action_mod(aid, &mid)) == 0)
1328 		ipp_rc = ipp_mod_name(mid, &modname);
1329 
1330 	/*
1331 	 * Add an nvlist containing the kernel return code to the
1332 	 * set of nvlists to pass back to libipp.
1333 	 */
1334 
1335 	if ((rc = ippctl_set_rc(ipp_rc)) != 0)
1336 		return (rc);
1337 
1338 	/*
1339 	 * If everything succeeded add an nvlist containing the
1340 	 * module name to the set of nvlists to pass back to libipp.
1341 	 */
1342 
1343 	if (ipp_rc == 0) {
1344 		if ((rc = nvlist_alloc(&nvlp, NV_UNIQUE_NAME, KM_SLEEP)) != 0)
1345 			return (rc);
1346 
1347 		if ((rc = ippctl_attach_modname(nvlp, modname)) != 0) {
1348 			nvlist_free(nvlp);
1349 			return (rc);
1350 		}
1351 
1352 		FREE_TEXT(modname);
1353 
1354 		rc = ippctl_callback(nvlp, NULL);
1355 		nvlist_free(nvlp);
1356 	} else
1357 		rc = 0;
1358 
1359 	return (rc);
1360 }
1361 #undef	__FN__
1362 
1363 #define	__FN__	"ippctl_list_mods"
1364 static int
1365 ippctl_list_mods(
1366 	void)
1367 {
1368 	nvlist_t	*nvlp;
1369 	int		ipp_rc;
1370 	int		rc = 0;
1371 	ipp_mod_id_t	*mid_array;
1372 	char		**modname_array = NULL;
1373 	int		nelt;
1374 	int		length;
1375 	int		i;
1376 
1377 	/*
1378 	 * Get a list of all the module ids. If that succeeds,
1379 	 * translate the ids into names.
1380 	 *
1381 	 * NOTE: This translation may fail if a module is
1382 	 * unloaded during this operation. If this occurs, EAGAIN
1383 	 * will be passed back to libipp note that a transient
1384 	 * problem occured.
1385 	 */
1386 
1387 	if ((ipp_rc = ipp_list_mods(&mid_array, &nelt)) == 0) {
1388 
1389 		/*
1390 		 * It is possible that there are no modules
1391 		 * registered.
1392 		 */
1393 
1394 		if (nelt > 0) {
1395 			length = nelt * sizeof (char *);
1396 			modname_array = kmem_zalloc(length, KM_SLEEP);
1397 
1398 			for (i = 0; i < nelt; i++) {
1399 				if (ipp_mod_name(mid_array[i],
1400 				    &modname_array[i]) != 0) {
1401 					kmem_free(mid_array, nelt *
1402 					    sizeof (ipp_mod_id_t));
1403 					FREE_TEXT_ARRAY(modname_array, nelt);
1404 					ipp_rc = EAGAIN;
1405 					goto done;
1406 				}
1407 			}
1408 
1409 			kmem_free(mid_array, nelt * sizeof (ipp_mod_id_t));
1410 
1411 			if ((rc = nvlist_alloc(&nvlp, NV_UNIQUE_NAME,
1412 			    KM_SLEEP)) != 0) {
1413 				FREE_TEXT_ARRAY(modname_array, nelt);
1414 				return (rc);
1415 			}
1416 
1417 			if ((rc = ippctl_attach_modname_array(nvlp,
1418 			    modname_array, nelt)) != 0) {
1419 				FREE_TEXT_ARRAY(modname_array, nelt);
1420 				nvlist_free(nvlp);
1421 				return (rc);
1422 			}
1423 
1424 			FREE_TEXT_ARRAY(modname_array, nelt);
1425 
1426 			if ((rc = ippctl_callback(nvlp, NULL)) != 0) {
1427 				nvlist_free(nvlp);
1428 				return (rc);
1429 			}
1430 
1431 			nvlist_free(nvlp);
1432 		}
1433 	}
1434 
1435 done:
1436 	/*
1437 	 * Add an nvlist containing the kernel return code to the
1438 	 * set of nvlists to pass back to libipp.
1439 	 */
1440 
1441 	if ((rc = ippctl_set_rc(ipp_rc)) != 0)
1442 		return (rc);
1443 
1444 	return (0);
1445 }
1446 #undef	__FN__
1447 
1448 #define	__FN__	"ippctl_mod_list_actions"
1449 static int
1450 ippctl_mod_list_actions(
1451 	char		*modname)
1452 {
1453 	ipp_mod_id_t	mid;
1454 	nvlist_t	*nvlp;
1455 	int		ipp_rc;
1456 	int		rc = 0;
1457 	ipp_action_id_t	*aid_array;
1458 	char		**aname_array = NULL;
1459 	int		nelt;
1460 	int		length;
1461 	int		i;
1462 
1463 	/*
1464 	 * Get the module id.
1465 	 */
1466 
1467 	mid = ipp_mod_lookup(modname);
1468 	FREE_TEXT(modname);
1469 
1470 	/*
1471 	 * Get a list of all the action ids for the module. If that succeeds,
1472 	 * translate the ids into names.
1473 	 *
1474 	 * NOTE: This translation may fail if an action is
1475 	 * destroyed during this operation. If this occurs, EAGAIN
1476 	 * will be passed back to libipp note that a transient
1477 	 * problem occured.
1478 	 */
1479 
1480 	if ((ipp_rc = ipp_mod_list_actions(mid, &aid_array, &nelt)) == 0) {
1481 
1482 		/*
1483 		 * It is possible that there are no actions defined.
1484 		 * (This is unlikely though as the module would normally
1485 		 * be auto-unloaded fairly quickly)
1486 		 */
1487 
1488 		if (nelt > 0) {
1489 			length = nelt * sizeof (char *);
1490 			aname_array = kmem_zalloc(length, KM_SLEEP);
1491 
1492 			for (i = 0; i < nelt; i++) {
1493 				if (ipp_action_name(aid_array[i],
1494 				    &aname_array[i]) != 0) {
1495 					kmem_free(aid_array, nelt *
1496 					    sizeof (ipp_action_id_t));
1497 					FREE_TEXT_ARRAY(aname_array, nelt);
1498 					ipp_rc = EAGAIN;
1499 					goto done;
1500 				}
1501 			}
1502 
1503 			kmem_free(aid_array, nelt * sizeof (ipp_action_id_t));
1504 
1505 			if ((rc = nvlist_alloc(&nvlp, NV_UNIQUE_NAME,
1506 			    KM_SLEEP)) != 0) {
1507 				FREE_TEXT_ARRAY(aname_array, nelt);
1508 				return (rc);
1509 			}
1510 
1511 			if ((rc = ippctl_attach_aname_array(nvlp, aname_array,
1512 			    nelt)) != 0) {
1513 				FREE_TEXT_ARRAY(aname_array, nelt);
1514 				nvlist_free(nvlp);
1515 				return (rc);
1516 			}
1517 
1518 			FREE_TEXT_ARRAY(aname_array, nelt);
1519 
1520 			if ((rc = ippctl_callback(nvlp, NULL)) != 0) {
1521 				nvlist_free(nvlp);
1522 				return (rc);
1523 			}
1524 
1525 			nvlist_free(nvlp);
1526 		}
1527 	}
1528 
1529 done:
1530 	/*
1531 	 * Add an nvlist containing the kernel return code to the
1532 	 * set of nvlists to pass back to libipp.
1533 	 */
1534 
1535 	if ((rc = ippctl_set_rc(ipp_rc)) != 0)
1536 		return (rc);
1537 
1538 	return (0);
1539 }
1540 #undef	__FN__
1541 
1542 #define	__FN__	"ippctl_data"
1543 static int
1544 ippctl_data(
1545 	char	**dbufp,
1546 	size_t	*dbuflenp,
1547 	size_t	*nextbuflenp)
1548 {
1549 	int	i;
1550 
1551 	DBG0(DBG_CBOPS, "called\n");
1552 
1553 	/*
1554 	 * Get the next data buffer from the array by looking at the
1555 	 * 'read index'. If this is the same as the 'write index' then
1556 	 * there's no more buffers in the array.
1557 	 */
1558 
1559 	i = ippctl_rindex;
1560 	if (i == ippctl_windex)
1561 		return (ENOENT);
1562 
1563 	/*
1564 	 * Extract the buffer details. It is a pre-packed nvlist.
1565 	 */
1566 
1567 	*dbufp = ippctl_array[i].buf;
1568 	*dbuflenp = ippctl_array[i].buflen;
1569 
1570 	DBG2(DBG_CBOPS, "accessing nvlist[%d], length %lu\n", i, *dbuflenp);
1571 	ASSERT(*dbufp != NULL);
1572 
1573 	/*
1574 	 * Advance the 'read index' and check if there's another buffer.
1575 	 * If there is then we need to pass back its length to libipp so that
1576 	 * another data ioctl will be issued.
1577 	 */
1578 
1579 	i++;
1580 	if (i < ippctl_windex)
1581 		*nextbuflenp = ippctl_array[i].buflen;
1582 	else
1583 		*nextbuflenp = 0;
1584 
1585 	ippctl_rindex = i;
1586 	return (0);
1587 }
1588 #undef	__FN__
1589 
1590 #define	__FN__	"ippctl_flush"
1591 static void
1592 ippctl_flush(
1593 	void)
1594 {
1595 	int	i;
1596 	char	*buf;
1597 	size_t	buflen;
1598 
1599 	/*
1600 	 * Free any buffers left in the array.
1601 	 */
1602 
1603 	for (i = 0; i < ippctl_limit; i++) {
1604 		if ((buflen = ippctl_array[i].buflen) > 0) {
1605 			buf = ippctl_array[i].buf;
1606 			ASSERT(buf != NULL);
1607 			kmem_free(buf, buflen);
1608 		}
1609 	}
1610 
1611 	/*
1612 	 * NULL all the entries.
1613 	 */
1614 
1615 	bzero(ippctl_array, ippctl_limit * sizeof (ippctl_buf_t));
1616 
1617 	/*
1618 	 * Reset the indexes.
1619 	 */
1620 
1621 	ippctl_rindex = 0;
1622 	ippctl_windex = 1;
1623 }
1624 #undef	__FN__
1625 
1626 #define	__FN__	"ippctl_add_nvlist"
1627 static int
1628 ippctl_add_nvlist(
1629 	nvlist_t	*nvlp,
1630 	int		i)
1631 {
1632 	char		*buf;
1633 	size_t		buflen;
1634 	int		rc;
1635 
1636 	/*
1637 	 * NULL the buffer pointer so that a buffer is automatically
1638 	 * allocated for us.
1639 	 */
1640 
1641 	buf = NULL;
1642 
1643 	/*
1644 	 * Pack the nvlist and get back the buffer pointer and length.
1645 	 */
1646 
1647 	if ((rc = nvlist_pack(nvlp, &buf, &buflen, NV_ENCODE_NATIVE,
1648 	    KM_SLEEP)) != 0) {
1649 		ippctl_array[i].buf = NULL;
1650 		ippctl_array[i].buflen = 0;
1651 		return (rc);
1652 	}
1653 
1654 	DBG2(DBG_CBOPS, "added nvlist[%d]: length %lu\n", i, buflen);
1655 
1656 	/*
1657 	 * Store the pointer an length in the array at the given index.
1658 	 */
1659 
1660 	ippctl_array[i].buf = buf;
1661 	ippctl_array[i].buflen = buflen;
1662 
1663 	return (0);
1664 }
1665 #undef	__FN__
1666 
1667 #define	__FN__	"ippctl_callback"
1668 /*ARGSUSED*/
1669 static int
1670 ippctl_callback(
1671 	nvlist_t	*nvlp,
1672 	void		*arg)
1673 {
1674 	int		i;
1675 	int		rc;
1676 
1677 	/*
1678 	 * Check the 'write index' to see if there's space in the array for
1679 	 * a new entry.
1680 	 */
1681 
1682 	i = ippctl_windex;
1683 	ASSERT(i != 0);
1684 
1685 	/*
1686 	 * If there's no space, re-allocate the array (see comments in
1687 	 * ippctl_realloc() for details).
1688 	 */
1689 
1690 	if (i == ippctl_limit)
1691 		ippctl_realloc();
1692 
1693 	/*
1694 	 * Add the nvlist to the array.
1695 	 */
1696 
1697 	if ((rc = ippctl_add_nvlist(nvlp, i)) == 0)
1698 		ippctl_windex++;
1699 
1700 	return (rc);
1701 }
1702 #undef	__FN__
1703 
1704 #define	__FN__	"ippctl_set_rc"
1705 static int
1706 ippctl_set_rc(
1707 	int		val)
1708 {
1709 	nvlist_t	*nvlp;
1710 	int		rc;
1711 
1712 	/*
1713 	 * Create an nvlist to store the return code,
1714 	 */
1715 
1716 	if ((rc = nvlist_alloc(&nvlp, NV_UNIQUE_NAME, KM_SLEEP)) != 0)
1717 		return (ENOMEM);
1718 
1719 	if ((rc = nvlist_add_int32(nvlp, IPPCTL_RC, val)) != 0) {
1720 		nvlist_free(nvlp);
1721 		return (rc);
1722 	}
1723 
1724 	/*
1725 	 * Add it at the beginning of the array.
1726 	 */
1727 
1728 	rc = ippctl_add_nvlist(nvlp, 0);
1729 
1730 	nvlist_free(nvlp);
1731 	return (rc);
1732 }
1733 #undef	__FN__
1734 
1735 #define	__FN__	"ippctl_alloc"
1736 static void
1737 ippctl_alloc(
1738 	int	limit)
1739 {
1740 	/*
1741 	 * Allocate the data buffer array and initialize the indexes.
1742 	 */
1743 
1744 	ippctl_array = kmem_zalloc(limit * sizeof (ippctl_buf_t), KM_SLEEP);
1745 	ippctl_limit = limit;
1746 	ippctl_rindex = 0;
1747 	ippctl_windex = 1;
1748 }
1749 #undef	__FN__
1750 
1751 #define	__FN__	"ippctl_realloc"
1752 static void
1753 ippctl_realloc(
1754 	void)
1755 {
1756 	ippctl_buf_t	*array;
1757 	int		limit;
1758 	int		i;
1759 
1760 	/*
1761 	 * Allocate a new array twice the size of the old one.
1762 	 */
1763 
1764 	limit = ippctl_limit << 1;
1765 	array = kmem_zalloc(limit * sizeof (ippctl_buf_t), KM_SLEEP);
1766 
1767 	/*
1768 	 * Copy across the information from the old array into the new one.
1769 	 */
1770 
1771 	for (i = 0; i < ippctl_limit; i++)
1772 		array[i] = ippctl_array[i];
1773 
1774 	/*
1775 	 * Free the old array.
1776 	 */
1777 
1778 	kmem_free(ippctl_array, ippctl_limit * sizeof (ippctl_buf_t));
1779 
1780 	ippctl_array = array;
1781 	ippctl_limit = limit;
1782 }
1783 #undef	__FN__
1784 
1785 #define	__FN__	"ippctl_free"
1786 static void
1787 ippctl_free(
1788 	void)
1789 {
1790 	/*
1791 	 * Flush the array prior to freeing it to make sure no buffers are
1792 	 * leaked.
1793 	 */
1794 
1795 	ippctl_flush();
1796 
1797 	/*
1798 	 * Free the array.
1799 	 */
1800 
1801 	kmem_free(ippctl_array, ippctl_limit * sizeof (ippctl_buf_t));
1802 	ippctl_array = NULL;
1803 	ippctl_limit = -1;
1804 	ippctl_rindex = -1;
1805 	ippctl_windex = -1;
1806 }
1807 #undef	__FN__
1808 
1809 #ifdef	IPPCTL_DEBUG
1810 static void
1811 ippctl_debug(
1812 	uint64_t	type,
1813 	char		*fn,
1814 	char		*fmt,
1815 			...)
1816 {
1817 	char		buf[255];
1818 	va_list		adx;
1819 
1820 	if ((type & ippctl_debug_flags) == 0)
1821 		return;
1822 
1823 	mutex_enter(debug_mutex);
1824 	va_start(adx, fmt);
1825 	(void) vsnprintf(buf, 255, fmt, adx);
1826 	va_end(adx);
1827 
1828 	printf("%s: %s", fn, buf);
1829 	mutex_exit(debug_mutex);
1830 }
1831 #endif	/* IPPCTL_DBG */
1832