[apple/xnu.git] / bsd / netat / atp_open.c

/*
 * Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 * 
 * Copyright (c) 1999-2003 Apple Computer, Inc.  All Rights Reserved.
 * 
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this
 * file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
 * @APPLE_LICENSE_HEADER_END@
 */
/*
 *	Copyright (c) 1996-1998 Apple Computer, Inc.
 *	All Rights Reserved.
 */

/*    Modified for MP, 1996 by Tuyen Nguyen
 *    Modified, March 17, 1997 by Tuyen Nguyen for MacOSX.
 */
#define ATP_DECLARE

#include <sys/errno.h>
#include <sys/types.h>
#include <sys/param.h>
#include <machine/spl.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/proc.h>
#include <sys/filedesc.h>
#include <sys/fcntl.h>
#include <sys/mbuf.h>
#include <sys/ioctl.h>
#include <sys/malloc.h>
#include <sys/socket.h>
#include <vm/vm_kern.h>         /* for kernel_map */

#include <netat/sysglue.h>
#include <netat/appletalk.h>
#include <netat/ddp.h>
#include <netat/at_pcb.h>
#include <netat/atp.h>
#include <netat/debug.h>

/*
 *	The init routine creates all the free lists
 *	Version 1.4 of atp_open.c on 89/02/09 17:53:11
 */

int atp_inited = 0;
struct atp_rcb_qhead atp_need_rel;
atlock_t atpall_lock;
atlock_t atptmo_lock;
atlock_t atpgen_lock;

/**********/
int atp_pidM[256];
gref_t *atp_inputQ[256];
struct atp_state *atp_used_list;

int atp_input(mp)
	gbuf_t *mp;
{
	register gref_t *gref;

	switch (gbuf_type(mp)) {
	case MSG_DATA:
		gref = atp_inputQ[((at_ddp_t *)gbuf_rptr(mp))->dst_socket];
		if ((gref == 0) || (gref == (gref_t *)1)) {
			dPrintf(D_M_ATP, D_L_WARNING, ("atp_input: no socket, skt=%d\n",
				((at_ddp_t *)gbuf_rptr(mp))->dst_socket));
			gbuf_freem(mp);
			return 0;
		}
		break;

	case MSG_IOCACK:
	case MSG_IOCNAK:
		gref = (gref_t *)((ioc_t *)gbuf_rptr(mp))->ioc_private;
		break;

	case MSG_IOCTL:
	default:
		dPrintf(D_M_ATP, D_L_WARNING, ("atp_input: unknown msg, type=%d\n",
			gbuf_type(mp)));
		gbuf_freem(mp);
		return 0;
	}

	atp_rput(gref, mp);
	return 0;
}

/**********/
void atp_init()
{
  int i;

  if (!atp_inited) {
	atp_inited = 1;
	atp_used_list = 0;
	atp_trans_abort.head = NULL;
	atp_trans_abort.tail = NULL;
		
	atp_need_rel.head = NULL;
	atp_need_rel.tail = NULL;

	bzero(atp_inputQ, sizeof(atp_inputQ));
	bzero(atp_pidM, sizeof(atp_pidM));
	asp_init();
  }
}

/*
 *	The open routine allocates a state structure
 */

/*ARGSUSED*/
int atp_open(gref, flag)
	gref_t *gref;
	int flag;
{
	register struct atp_state *atp;
	register int s, i;
	vm_offset_t	temp;
	
	/*
	 * Allocate and init state and reply control block lists
	 * if this is the first open
	 */
	if (atp_rcb_data == NULL) {
		if (kmem_alloc(kernel_map, &temp, sizeof(struct atp_rcb) * NATP_RCB) != KERN_SUCCESS) 
			return(ENOMEM);
		if (atp_rcb_data == NULL) {						/* in case we lost funnel while allocating */
		        bzero((caddr_t)temp, sizeof(struct atp_rcb) * NATP_RCB);
			atp_rcb_data = (struct atp_rcb*)temp;					
			for (i = 0; i < NATP_RCB; i++) {
				atp_rcb_data[i].rc_list.next = atp_rcb_free_list;
				atp_rcb_free_list = &atp_rcb_data[i];
			}
		} else
			kmem_free(kernel_map, temp, sizeof(struct atp_rcb) * NATP_RCB);	/* already allocated by another process */	
	}
	
	if (atp_state_data == NULL) {
		if (kmem_alloc(kernel_map, &temp, sizeof(struct atp_state) * NATP_STATE) != KERN_SUCCESS) 
			return(ENOMEM);
		if (atp_state_data == NULL) {
		  bzero((caddr_t)temp, sizeof(struct atp_state) * NATP_STATE);
		        atp_state_data = (struct atp_state*) temp;
			for (i = 0; i < NATP_STATE; i++) {
				atp_state_data[i].atp_trans_waiting = atp_free_list;
				atp_free_list = &atp_state_data[i];
			}
		} else
			kmem_free(kernel_map, temp, sizeof(struct atp_state) * NATP_STATE);	
	}


	/*
	 *	If no atp structure available return failure
	 */

	ATDISABLE(s, atpall_lock);
	if ((atp = atp_free_list) == NULL) {
		ATENABLE(s, atpall_lock);
		return(EAGAIN);
	}

	/*
	 *	Update free list
	 */

	atp_free_list = atp->atp_trans_waiting;
	ATENABLE(s, atpall_lock);

	/*
	 *	Initialize the data structure
	 */

	atp->dflag = 0;
	atp->atp_trans_wait.head = NULL;
	atp->atp_trans_waiting = NULL;
	atp->atp_gref = gref;
	atp->atp_retry = 10;
	atp->atp_timeout = HZ/8;
	atp->atp_rcb_waiting = NULL;
	atp->atp_rcb.head = NULL;	
	atp->atp_flags = T_MPSAFE;
	atp->atp_socket_no = -1;
	atp->atp_pid = gref->pid;
	atp->atp_msgq = 0;
	ATLOCKINIT(atp->atp_lock);
	ATLOCKINIT(atp->atp_delay_lock);
	ATEVENTINIT(atp->atp_event);
	ATEVENTINIT(atp->atp_delay_event);
	gref->info = (void *)atp;

	/*
	 *	Return success
	 */

	if (flag) {
		ATDISABLE(s, atpall_lock);
		if ((atp->atp_trans_waiting = atp_used_list) != 0)
			atp->atp_trans_waiting->atp_rcb_waiting = atp;
		atp_used_list = atp;
		ATENABLE(s, atpall_lock);
	}
	return(0);
}

/*
 *	The close routine frees all the data structures
 */

/*ARGSUSED*/
int atp_close(gref, flag)
	gref_t *gref;
	int flag;
{
	extern void atp_req_timeout();
	register struct atp_state *atp;
	register struct atp_trans *trp;
	register struct atp_rcb *rcbp;
	register int s;
	int socket;
	pid_t pid;

	atp = (struct atp_state *)gref->info;
	if (atp->dflag)
		atp = (struct atp_state *)atp->atp_msgq;
	if (atp->atp_msgq) {
		gbuf_freem(atp->atp_msgq);
		atp->atp_msgq = 0;
	}

	ATDISABLE(s, atp->atp_lock);
	atp->atp_flags |= ATP_CLOSING;
	socket = atp->atp_socket_no;
	if (socket != -1)
		atp_inputQ[socket] = (gref_t *)1;

	/*
	 * blow away all pending timers
	 */
	for (trp = atp->atp_trans_wait.head; trp; trp = trp->tr_list.next)
		atp_untimout(atp_req_timeout, trp);

	/*
	 *	Release pending transactions + rcbs
	 */
	while ((trp = atp->atp_trans_wait.head))
		atp_free(trp);
	while ((rcbp = atp->atp_rcb.head))
		atp_rcb_free(rcbp);
	while ((rcbp = atp->atp_attached.head))
		atp_rcb_free(rcbp);
	ATENABLE(s, atp->atp_lock);

	if (flag && (socket == -1))
		atp_dequeue_atp(atp);

	/*
	 *	free the state variable
	 */
	ATDISABLE(s, atpall_lock);
	atp->atp_socket_no = -1;
	atp->atp_trans_waiting = atp_free_list;
	atp_free_list = atp;
	ATENABLE(s, atpall_lock);

	if (socket != -1) {
		pid = (pid_t)atp_pidM[socket];
		atp_pidM[socket] = 0;
		atp_inputQ[socket] = NULL;
		if (pid)
		    ddp_notify_nbp(socket, pid, DDP_ATP);
	}

	return 0;
}
Commit	Line	Data
1c79356b A	1	/*
	2	* Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
	3	*
	4	* @APPLE_LICENSE_HEADER_START@
	5	*
d7e50217	6	* Copyright (c) 1999-2003 Apple Computer, Inc. All Rights Reserved.
1c79356b	7	*
d7e50217 A	8	* This file contains Original Code and/or Modifications of Original Code
	9	* as defined in and that are subject to the Apple Public Source License
	10	* Version 2.0 (the 'License'). You may not use this file except in
	11	* compliance with the License. Please obtain a copy of the License at
	12	* http://www.opensource.apple.com/apsl/ and read it before using this
	13	* file.
	14	*
	15	* The Original Code and all software distributed under the License are
	16	* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
1c79356b A	17	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
1c79356b A	18	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
d7e50217 A	19	* FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
	20	* Please see the License for the specific language governing rights and
	21	* limitations under the License.
1c79356b A	22	*
	23	* @APPLE_LICENSE_HEADER_END@
	24	*/
	25	/*
	26	* Copyright (c) 1996-1998 Apple Computer, Inc.
	27	* All Rights Reserved.
	28	*/
	29
	30	/* Modified for MP, 1996 by Tuyen Nguyen
	31	* Modified, March 17, 1997 by Tuyen Nguyen for MacOSX.
	32	*/
	33	#define ATP_DECLARE
	34
	35	#include <sys/errno.h>
	36	#include <sys/types.h>
	37	#include <sys/param.h>
	38	#include <machine/spl.h>
	39	#include <sys/systm.h>
	40	#include <sys/kernel.h>
	41	#include <sys/proc.h>
	42	#include <sys/filedesc.h>
	43	#include <sys/fcntl.h>
	44	#include <sys/mbuf.h>
	45	#include <sys/ioctl.h>
	46	#include <sys/malloc.h>
	47	#include <sys/socket.h>
9bccf70c	48	#include <vm/vm_kern.h> /* for kernel_map */
1c79356b A	49
	50	#include <netat/sysglue.h>
	51	#include <netat/appletalk.h>
	52	#include <netat/ddp.h>
	53	#include <netat/at_pcb.h>
	54	#include <netat/atp.h>
	55	#include <netat/debug.h>
	56
	57	/*
	58	* The init routine creates all the free lists
	59	* Version 1.4 of atp_open.c on 89/02/09 17:53:11
	60	*/
	61
	62	int atp_inited = 0;
	63	struct atp_rcb_qhead atp_need_rel;
	64	atlock_t atpall_lock;
	65	atlock_t atptmo_lock;
	66	atlock_t atpgen_lock;
	67
	68	/**********/
	69	int atp_pidM[256];
	70	gref_t *atp_inputQ[256];
	71	struct atp_state *atp_used_list;
	72
	73	int atp_input(mp)
	74	gbuf_t *mp;
	75	{
	76	register gref_t *gref;
	77
	78	switch (gbuf_type(mp)) {
	79	case MSG_DATA:
	80	gref = atp_inputQ[((at_ddp_t *)gbuf_rptr(mp))->dst_socket];
	81	if ((gref == 0) \|\| (gref == (gref_t *)1)) {
	82	dPrintf(D_M_ATP, D_L_WARNING, ("atp_input: no socket, skt=%d\n",
	83	((at_ddp_t *)gbuf_rptr(mp))->dst_socket));
	84	gbuf_freem(mp);
	85	return 0;
	86	}
	87	break;
	88
	89	case MSG_IOCACK:
	90	case MSG_IOCNAK:
	91	gref = (gref_t )((ioc_t )gbuf_rptr(mp))->ioc_private;
	92	break;
	93
	94	case MSG_IOCTL:
	95	default:
	96	dPrintf(D_M_ATP, D_L_WARNING, ("atp_input: unknown msg, type=%d\n",
	97	gbuf_type(mp)));
	98	gbuf_freem(mp);
	99	return 0;
	100	}
	101
	102	atp_rput(gref, mp);
	103	return 0;
	104	}
	105
	106	/**********/
	107	void atp_init()
	108	{
	109	int i;
	110
	111	if (!atp_inited) {
	112	atp_inited = 1;
113	atp_used_list = 0;
0b4e3aa0 A	114	atp_trans_abort.head = NULL;
0b4e3aa0 A	115	atp_trans_abort.tail = NULL;
9bccf70c	116
1c79356b A	117	atp_need_rel.head = NULL;
	118	atp_need_rel.tail = NULL;
	119
	120	bzero(atp_inputQ, sizeof(atp_inputQ));
	121	bzero(atp_pidM, sizeof(atp_pidM));
	122	asp_init();
	123	}
	124	}
	125
	126	/*
	127	* The open routine allocates a state structure
	128	*/
	129
	130	/ARGSUSED/
	131	int atp_open(gref, flag)
	132	gref_t *gref;
	133	int flag;
	134	{
	135	register struct atp_state *atp;
9bccf70c A	136	register int s, i;
	137	vm_offset_t temp;
	138
	139	/*
	140	* Allocate and init state and reply control block lists
	141	* if this is the first open
	142	*/
	143	if (atp_rcb_data == NULL) {
	144	if (kmem_alloc(kernel_map, &temp, sizeof(struct atp_rcb) * NATP_RCB) != KERN_SUCCESS)
	145	return(ENOMEM);
	146	if (atp_rcb_data == NULL) { /* in case we lost funnel while allocating */
	147	bzero((caddr_t)temp, sizeof(struct atp_rcb) * NATP_RCB);
	148	atp_rcb_data = (struct atp_rcb*)temp;
	149	for (i = 0; i < NATP_RCB; i++) {
	150	atp_rcb_data[i].rc_list.next = atp_rcb_free_list;
	151	atp_rcb_free_list = &atp_rcb_data[i];
	152	}
	153	} else
	154	kmem_free(kernel_map, temp, sizeof(struct atp_rcb) * NATP_RCB); /* already allocated by another process */
	155	}
	156
	157	if (atp_state_data == NULL) {
	158	if (kmem_alloc(kernel_map, &temp, sizeof(struct atp_state) * NATP_STATE) != KERN_SUCCESS)
	159	return(ENOMEM);
	160	if (atp_state_data == NULL) {
	161	bzero((caddr_t)temp, sizeof(struct atp_state) * NATP_STATE);
	162	atp_state_data = (struct atp_state*) temp;
	163	for (i = 0; i < NATP_STATE; i++) {
	164	atp_state_data[i].atp_trans_waiting = atp_free_list;
	165	atp_free_list = &atp_state_data[i];
	166	}
	167	} else
	168	kmem_free(kernel_map, temp, sizeof(struct atp_state) * NATP_STATE);
	169	}
	170
1c79356b A	171
	172	/*
	173	* If no atp structure available return failure
	174	*/
	175
	176	ATDISABLE(s, atpall_lock);
	177	if ((atp = atp_free_list) == NULL) {
	178	ATENABLE(s, atpall_lock);
	179	return(EAGAIN);
	180	}
	181
	182	/*
	183	* Update free list
	184	*/
	185
	186	atp_free_list = atp->atp_trans_waiting;
	187	ATENABLE(s, atpall_lock);
	188
	189	/*
	190	* Initialize the data structure
	191	*/
	192
	193	atp->dflag = 0;
	194	atp->atp_trans_wait.head = NULL;
	195	atp->atp_trans_waiting = NULL;
	196	atp->atp_gref = gref;
	197	atp->atp_retry = 10;
	198	atp->atp_timeout = HZ/8;
	199	atp->atp_rcb_waiting = NULL;
	200	atp->atp_rcb.head = NULL;
	201	atp->atp_flags = T_MPSAFE;
	202	atp->atp_socket_no = -1;
	203	atp->atp_pid = gref->pid;
	204	atp->atp_msgq = 0;
	205	ATLOCKINIT(atp->atp_lock);
	206	ATLOCKINIT(atp->atp_delay_lock);
	207	ATEVENTINIT(atp->atp_event);
	208	ATEVENTINIT(atp->atp_delay_event);
	209	gref->info = (void *)atp;
	210
	211	/*
	212	* Return success
	213	*/
	214
	215	if (flag) {
	216	ATDISABLE(s, atpall_lock);
	217	if ((atp->atp_trans_waiting = atp_used_list) != 0)
	218	atp->atp_trans_waiting->atp_rcb_waiting = atp;
	219	atp_used_list = atp;
	220	ATENABLE(s, atpall_lock);
	221	}
	222	return(0);
	223	}
	224
	225	/*
	226	* The close routine frees all the data structures
	227	*/
	228
	229	/ARGSUSED/
	230	int atp_close(gref, flag)
	231	gref_t *gref;
	232	int flag;
	233	{
	234	extern void atp_req_timeout();
235	register struct atp_state *atp;
236	register struct atp_trans *trp;
237	register struct atp_rcb *rcbp;
238	register int s;
239	int socket;
240	pid_t pid;
241
242	atp = (struct atp_state *)gref->info;
243	if (atp->dflag)
244	atp = (struct atp_state *)atp->atp_msgq;
245	if (atp->atp_msgq) {
246	gbuf_freem(atp->atp_msgq);
247	atp->atp_msgq = 0;
248	}
249
250	ATDISABLE(s, atp->atp_lock);
251	atp->atp_flags \|= ATP_CLOSING;
252	socket = atp->atp_socket_no;
253	if (socket != -1)
254	atp_inputQ[socket] = (gref_t *)1;
255
256	/*
257	* blow away all pending timers
258	*/
259	for (trp = atp->atp_trans_wait.head; trp; trp = trp->tr_list.next)
260	atp_untimout(atp_req_timeout, trp);
261
262	/*
263	* Release pending transactions + rcbs
264	*/
265	while ((trp = atp->atp_trans_wait.head))
266	atp_free(trp);
267	while ((rcbp = atp->atp_rcb.head))
268	atp_rcb_free(rcbp);
269	while ((rcbp = atp->atp_attached.head))
270	atp_rcb_free(rcbp);
271	ATENABLE(s, atp->atp_lock);
272
273	if (flag && (socket == -1))
274	atp_dequeue_atp(atp);
275
276	/*
277	* free the state variable
278	*/
279	ATDISABLE(s, atpall_lock);
280	atp->atp_socket_no = -1;
281	atp->atp_trans_waiting = atp_free_list;
282	atp_free_list = atp;
283	ATENABLE(s, atpall_lock);
284
285	if (socket != -1) {
286	pid = (pid_t)atp_pidM[socket];
287	atp_pidM[socket] = 0;
288	atp_inputQ[socket] = NULL;
289	if (pid)
290	ddp_notify_nbp(socket, pid, DDP_ATP);
291	}
292
293	return 0;
294	}