2 * linux/net/iucv/af_iucv.c
4 * IUCV protocol stack for Linux on zSeries
6 * Copyright 2006 IBM Corporation
8 * Author(s): Jennifer Hunt <jenhunt@us.ibm.com>
11 #define KMSG_COMPONENT "af_iucv"
12 #define pr_fmt(fmt) KMSG_COMPONENT ": " fmt
14 #include <linux/module.h>
15 #include <linux/types.h>
16 #include <linux/list.h>
17 #include <linux/errno.h>
18 #include <linux/kernel.h>
19 #include <linux/sched.h>
20 #include <linux/slab.h>
21 #include <linux/skbuff.h>
22 #include <linux/init.h>
23 #include <linux/poll.h>
25 #include <asm/ebcdic.h>
26 #include <asm/cpcmd.h>
27 #include <linux/kmod.h>
29 #include <net/iucv/iucv.h>
30 #include <net/iucv/af_iucv.h>
32 #define CONFIG_IUCV_SOCK_DEBUG 1
37 static char iucv_userid
[80];
39 static struct proto_ops iucv_sock_ops
;
41 static struct proto iucv_proto
= {
44 .obj_size
= sizeof(struct iucv_sock
),
47 static void iucv_sock_kill(struct sock
*sk
);
48 static void iucv_sock_close(struct sock
*sk
);
50 /* Call Back functions */
51 static void iucv_callback_rx(struct iucv_path
*, struct iucv_message
*);
52 static void iucv_callback_txdone(struct iucv_path
*, struct iucv_message
*);
53 static void iucv_callback_connack(struct iucv_path
*, u8 ipuser
[16]);
54 static int iucv_callback_connreq(struct iucv_path
*, u8 ipvmid
[8],
56 static void iucv_callback_connrej(struct iucv_path
*, u8 ipuser
[16]);
58 static struct iucv_sock_list iucv_sk_list
= {
59 .lock
= __RW_LOCK_UNLOCKED(iucv_sk_list
.lock
),
60 .autobind_name
= ATOMIC_INIT(0)
63 static struct iucv_handler af_iucv_handler
= {
64 .path_pending
= iucv_callback_connreq
,
65 .path_complete
= iucv_callback_connack
,
66 .path_severed
= iucv_callback_connrej
,
67 .message_pending
= iucv_callback_rx
,
68 .message_complete
= iucv_callback_txdone
71 static inline void high_nmcpy(unsigned char *dst
, char *src
)
76 static inline void low_nmcpy(unsigned char *dst
, char *src
)
78 memcpy(&dst
[8], src
, 8);
82 static void iucv_sock_timeout(unsigned long arg
)
84 struct sock
*sk
= (struct sock
*)arg
;
87 sk
->sk_err
= ETIMEDOUT
;
88 sk
->sk_state_change(sk
);
95 static void iucv_sock_clear_timer(struct sock
*sk
)
97 sk_stop_timer(sk
, &sk
->sk_timer
);
100 static struct sock
*__iucv_get_sock_by_name(char *nm
)
103 struct hlist_node
*node
;
105 sk_for_each(sk
, node
, &iucv_sk_list
.head
)
106 if (!memcmp(&iucv_sk(sk
)->src_name
, nm
, 8))
112 static void iucv_sock_destruct(struct sock
*sk
)
114 skb_queue_purge(&sk
->sk_receive_queue
);
115 skb_queue_purge(&sk
->sk_write_queue
);
119 static void iucv_sock_cleanup_listen(struct sock
*parent
)
123 /* Close non-accepted connections */
124 while ((sk
= iucv_accept_dequeue(parent
, NULL
))) {
129 parent
->sk_state
= IUCV_CLOSED
;
130 sock_set_flag(parent
, SOCK_ZAPPED
);
134 static void iucv_sock_kill(struct sock
*sk
)
136 if (!sock_flag(sk
, SOCK_ZAPPED
) || sk
->sk_socket
)
139 iucv_sock_unlink(&iucv_sk_list
, sk
);
140 sock_set_flag(sk
, SOCK_DEAD
);
144 /* Close an IUCV socket */
145 static void iucv_sock_close(struct sock
*sk
)
147 unsigned char user_data
[16];
148 struct iucv_sock
*iucv
= iucv_sk(sk
);
152 iucv_sock_clear_timer(sk
);
155 switch (sk
->sk_state
) {
157 iucv_sock_cleanup_listen(sk
);
164 sk
->sk_state
= IUCV_CLOSING
;
165 sk
->sk_state_change(sk
);
167 if (!skb_queue_empty(&iucv
->send_skb_q
)) {
168 if (sock_flag(sk
, SOCK_LINGER
) && sk
->sk_lingertime
)
169 timeo
= sk
->sk_lingertime
;
171 timeo
= IUCV_DISCONN_TIMEOUT
;
172 err
= iucv_sock_wait_state(sk
, IUCV_CLOSED
, 0, timeo
);
175 sk
->sk_state
= IUCV_CLOSED
;
176 sk
->sk_state_change(sk
);
179 low_nmcpy(user_data
, iucv
->src_name
);
180 high_nmcpy(user_data
, iucv
->dst_name
);
181 ASCEBC(user_data
, sizeof(user_data
));
182 err
= iucv_path_sever(iucv
->path
, user_data
);
183 iucv_path_free(iucv
->path
);
187 sk
->sk_err
= ECONNRESET
;
188 sk
->sk_state_change(sk
);
190 skb_queue_purge(&iucv
->send_skb_q
);
191 skb_queue_purge(&iucv
->backlog_skb_q
);
193 sock_set_flag(sk
, SOCK_ZAPPED
);
197 sock_set_flag(sk
, SOCK_ZAPPED
);
205 static void iucv_sock_init(struct sock
*sk
, struct sock
*parent
)
208 sk
->sk_type
= parent
->sk_type
;
211 static struct sock
*iucv_sock_alloc(struct socket
*sock
, int proto
, gfp_t prio
)
215 sk
= sk_alloc(&init_net
, PF_IUCV
, prio
, &iucv_proto
);
219 sock_init_data(sock
, sk
);
220 INIT_LIST_HEAD(&iucv_sk(sk
)->accept_q
);
221 spin_lock_init(&iucv_sk(sk
)->accept_q_lock
);
222 skb_queue_head_init(&iucv_sk(sk
)->send_skb_q
);
223 INIT_LIST_HEAD(&iucv_sk(sk
)->message_q
.list
);
224 spin_lock_init(&iucv_sk(sk
)->message_q
.lock
);
225 skb_queue_head_init(&iucv_sk(sk
)->backlog_skb_q
);
226 iucv_sk(sk
)->send_tag
= 0;
228 sk
->sk_destruct
= iucv_sock_destruct
;
229 sk
->sk_sndtimeo
= IUCV_CONN_TIMEOUT
;
230 sk
->sk_allocation
= GFP_DMA
;
232 sock_reset_flag(sk
, SOCK_ZAPPED
);
234 sk
->sk_protocol
= proto
;
235 sk
->sk_state
= IUCV_OPEN
;
237 setup_timer(&sk
->sk_timer
, iucv_sock_timeout
, (unsigned long)sk
);
239 iucv_sock_link(&iucv_sk_list
, sk
);
243 /* Create an IUCV socket */
244 static int iucv_sock_create(struct net
*net
, struct socket
*sock
, int protocol
)
248 if (sock
->type
!= SOCK_STREAM
)
249 return -ESOCKTNOSUPPORT
;
251 sock
->state
= SS_UNCONNECTED
;
252 sock
->ops
= &iucv_sock_ops
;
254 sk
= iucv_sock_alloc(sock
, protocol
, GFP_KERNEL
);
258 iucv_sock_init(sk
, NULL
);
263 void iucv_sock_link(struct iucv_sock_list
*l
, struct sock
*sk
)
265 write_lock_bh(&l
->lock
);
266 sk_add_node(sk
, &l
->head
);
267 write_unlock_bh(&l
->lock
);
270 void iucv_sock_unlink(struct iucv_sock_list
*l
, struct sock
*sk
)
272 write_lock_bh(&l
->lock
);
273 sk_del_node_init(sk
);
274 write_unlock_bh(&l
->lock
);
277 void iucv_accept_enqueue(struct sock
*parent
, struct sock
*sk
)
280 struct iucv_sock
*par
= iucv_sk(parent
);
283 spin_lock_irqsave(&par
->accept_q_lock
, flags
);
284 list_add_tail(&iucv_sk(sk
)->accept_q
, &par
->accept_q
);
285 spin_unlock_irqrestore(&par
->accept_q_lock
, flags
);
286 iucv_sk(sk
)->parent
= parent
;
287 parent
->sk_ack_backlog
++;
290 void iucv_accept_unlink(struct sock
*sk
)
293 struct iucv_sock
*par
= iucv_sk(iucv_sk(sk
)->parent
);
295 spin_lock_irqsave(&par
->accept_q_lock
, flags
);
296 list_del_init(&iucv_sk(sk
)->accept_q
);
297 spin_unlock_irqrestore(&par
->accept_q_lock
, flags
);
298 iucv_sk(sk
)->parent
->sk_ack_backlog
--;
299 iucv_sk(sk
)->parent
= NULL
;
303 struct sock
*iucv_accept_dequeue(struct sock
*parent
, struct socket
*newsock
)
305 struct iucv_sock
*isk
, *n
;
308 list_for_each_entry_safe(isk
, n
, &iucv_sk(parent
)->accept_q
, accept_q
) {
309 sk
= (struct sock
*) isk
;
312 if (sk
->sk_state
== IUCV_CLOSED
) {
313 iucv_accept_unlink(sk
);
318 if (sk
->sk_state
== IUCV_CONNECTED
||
319 sk
->sk_state
== IUCV_SEVERED
||
321 iucv_accept_unlink(sk
);
323 sock_graft(sk
, newsock
);
325 if (sk
->sk_state
== IUCV_SEVERED
)
326 sk
->sk_state
= IUCV_DISCONN
;
337 int iucv_sock_wait_state(struct sock
*sk
, int state
, int state2
,
340 DECLARE_WAITQUEUE(wait
, current
);
343 add_wait_queue(sk
->sk_sleep
, &wait
);
344 while (sk
->sk_state
!= state
&& sk
->sk_state
!= state2
) {
345 set_current_state(TASK_INTERRUPTIBLE
);
352 if (signal_pending(current
)) {
353 err
= sock_intr_errno(timeo
);
358 timeo
= schedule_timeout(timeo
);
361 err
= sock_error(sk
);
365 set_current_state(TASK_RUNNING
);
366 remove_wait_queue(sk
->sk_sleep
, &wait
);
370 /* Bind an unbound socket */
371 static int iucv_sock_bind(struct socket
*sock
, struct sockaddr
*addr
,
374 struct sockaddr_iucv
*sa
= (struct sockaddr_iucv
*) addr
;
375 struct sock
*sk
= sock
->sk
;
376 struct iucv_sock
*iucv
;
379 /* Verify the input sockaddr */
380 if (!addr
|| addr
->sa_family
!= AF_IUCV
)
384 if (sk
->sk_state
!= IUCV_OPEN
) {
389 write_lock_bh(&iucv_sk_list
.lock
);
392 if (__iucv_get_sock_by_name(sa
->siucv_name
)) {
401 /* Bind the socket */
402 memcpy(iucv
->src_name
, sa
->siucv_name
, 8);
404 /* Copy the user id */
405 memcpy(iucv
->src_user_id
, iucv_userid
, 8);
406 sk
->sk_state
= IUCV_BOUND
;
410 /* Release the socket list lock */
411 write_unlock_bh(&iucv_sk_list
.lock
);
417 /* Automatically bind an unbound socket */
418 static int iucv_sock_autobind(struct sock
*sk
)
420 struct iucv_sock
*iucv
= iucv_sk(sk
);
421 char query_buffer
[80];
425 /* Set the userid and name */
426 cpcmd("QUERY USERID", query_buffer
, sizeof(query_buffer
), &err
);
430 memcpy(iucv
->src_user_id
, query_buffer
, 8);
432 write_lock_bh(&iucv_sk_list
.lock
);
434 sprintf(name
, "%08x", atomic_inc_return(&iucv_sk_list
.autobind_name
));
435 while (__iucv_get_sock_by_name(name
)) {
436 sprintf(name
, "%08x",
437 atomic_inc_return(&iucv_sk_list
.autobind_name
));
440 write_unlock_bh(&iucv_sk_list
.lock
);
442 memcpy(&iucv
->src_name
, name
, 8);
447 /* Connect an unconnected socket */
448 static int iucv_sock_connect(struct socket
*sock
, struct sockaddr
*addr
,
451 struct sockaddr_iucv
*sa
= (struct sockaddr_iucv
*) addr
;
452 struct sock
*sk
= sock
->sk
;
453 struct iucv_sock
*iucv
;
454 unsigned char user_data
[16];
457 if (addr
->sa_family
!= AF_IUCV
|| alen
< sizeof(struct sockaddr_iucv
))
460 if (sk
->sk_state
!= IUCV_OPEN
&& sk
->sk_state
!= IUCV_BOUND
)
463 if (sk
->sk_type
!= SOCK_STREAM
)
468 if (sk
->sk_state
== IUCV_OPEN
) {
469 err
= iucv_sock_autobind(sk
);
476 /* Set the destination information */
477 memcpy(iucv_sk(sk
)->dst_user_id
, sa
->siucv_user_id
, 8);
478 memcpy(iucv_sk(sk
)->dst_name
, sa
->siucv_name
, 8);
480 high_nmcpy(user_data
, sa
->siucv_name
);
481 low_nmcpy(user_data
, iucv_sk(sk
)->src_name
);
482 ASCEBC(user_data
, sizeof(user_data
));
486 iucv
->path
= iucv_path_alloc(IUCV_QUEUELEN_DEFAULT
,
487 IPRMDATA
, GFP_KERNEL
);
492 err
= iucv_path_connect(iucv
->path
, &af_iucv_handler
,
493 sa
->siucv_user_id
, NULL
, user_data
, sk
);
495 iucv_path_free(iucv
->path
);
501 if (sk
->sk_state
!= IUCV_CONNECTED
) {
502 err
= iucv_sock_wait_state(sk
, IUCV_CONNECTED
, IUCV_DISCONN
,
503 sock_sndtimeo(sk
, flags
& O_NONBLOCK
));
506 if (sk
->sk_state
== IUCV_DISCONN
) {
508 return -ECONNREFUSED
;
515 /* Move a socket into listening state. */
516 static int iucv_sock_listen(struct socket
*sock
, int backlog
)
518 struct sock
*sk
= sock
->sk
;
524 if (sk
->sk_state
!= IUCV_BOUND
|| sock
->type
!= SOCK_STREAM
)
527 sk
->sk_max_ack_backlog
= backlog
;
528 sk
->sk_ack_backlog
= 0;
529 sk
->sk_state
= IUCV_LISTEN
;
537 /* Accept a pending connection */
538 static int iucv_sock_accept(struct socket
*sock
, struct socket
*newsock
,
541 DECLARE_WAITQUEUE(wait
, current
);
542 struct sock
*sk
= sock
->sk
, *nsk
;
546 lock_sock_nested(sk
, SINGLE_DEPTH_NESTING
);
548 if (sk
->sk_state
!= IUCV_LISTEN
) {
553 timeo
= sock_rcvtimeo(sk
, flags
& O_NONBLOCK
);
555 /* Wait for an incoming connection */
556 add_wait_queue_exclusive(sk
->sk_sleep
, &wait
);
557 while (!(nsk
= iucv_accept_dequeue(sk
, newsock
))) {
558 set_current_state(TASK_INTERRUPTIBLE
);
565 timeo
= schedule_timeout(timeo
);
566 lock_sock_nested(sk
, SINGLE_DEPTH_NESTING
);
568 if (sk
->sk_state
!= IUCV_LISTEN
) {
573 if (signal_pending(current
)) {
574 err
= sock_intr_errno(timeo
);
579 set_current_state(TASK_RUNNING
);
580 remove_wait_queue(sk
->sk_sleep
, &wait
);
585 newsock
->state
= SS_CONNECTED
;
592 static int iucv_sock_getname(struct socket
*sock
, struct sockaddr
*addr
,
595 struct sockaddr_iucv
*siucv
= (struct sockaddr_iucv
*) addr
;
596 struct sock
*sk
= sock
->sk
;
598 addr
->sa_family
= AF_IUCV
;
599 *len
= sizeof(struct sockaddr_iucv
);
602 memcpy(siucv
->siucv_user_id
, iucv_sk(sk
)->dst_user_id
, 8);
603 memcpy(siucv
->siucv_name
, &iucv_sk(sk
)->dst_name
, 8);
605 memcpy(siucv
->siucv_user_id
, iucv_sk(sk
)->src_user_id
, 8);
606 memcpy(siucv
->siucv_name
, iucv_sk(sk
)->src_name
, 8);
608 memset(&siucv
->siucv_port
, 0, sizeof(siucv
->siucv_port
));
609 memset(&siucv
->siucv_addr
, 0, sizeof(siucv
->siucv_addr
));
610 memset(siucv
->siucv_nodeid
, 0, sizeof(siucv
->siucv_nodeid
));
615 static int iucv_sock_sendmsg(struct kiocb
*iocb
, struct socket
*sock
,
616 struct msghdr
*msg
, size_t len
)
618 struct sock
*sk
= sock
->sk
;
619 struct iucv_sock
*iucv
= iucv_sk(sk
);
621 struct iucv_message txmsg
;
626 err
= sock_error(sk
);
630 if (msg
->msg_flags
& MSG_OOB
)
635 if (sk
->sk_shutdown
& SEND_SHUTDOWN
) {
640 if (sk
->sk_state
== IUCV_CONNECTED
) {
641 if (!(skb
= sock_alloc_send_skb(sk
, len
,
642 msg
->msg_flags
& MSG_DONTWAIT
,
646 if (memcpy_fromiovec(skb_put(skb
, len
), msg
->msg_iov
, len
)) {
652 memcpy(&txmsg
.class, skb
->data
, skb
->len
>= 4 ? 4 : skb
->len
);
653 txmsg
.tag
= iucv
->send_tag
++;
654 memcpy(skb
->cb
, &txmsg
.tag
, 4);
655 skb_queue_tail(&iucv
->send_skb_q
, skb
);
656 err
= iucv_message_send(iucv
->path
, &txmsg
, 0, 0,
657 (void *) skb
->data
, skb
->len
);
661 memcpy(user_id
, iucv
->dst_user_id
, 8);
663 memcpy(appl_id
, iucv
->dst_name
, 8);
664 pr_err("Application %s on z/VM guest %s"
665 " exceeds message limit\n",
668 skb_unlink(skb
, &iucv
->send_skb_q
);
688 static int iucv_fragment_skb(struct sock
*sk
, struct sk_buff
*skb
, int len
)
690 int dataleft
, size
, copied
= 0;
691 struct sk_buff
*nskb
;
695 if (dataleft
>= sk
->sk_rcvbuf
/ 4)
696 size
= sk
->sk_rcvbuf
/ 4;
700 nskb
= alloc_skb(size
, GFP_ATOMIC
| GFP_DMA
);
704 memcpy(nskb
->data
, skb
->data
+ copied
, size
);
708 skb_reset_transport_header(nskb
);
709 skb_reset_network_header(nskb
);
712 skb_queue_tail(&iucv_sk(sk
)->backlog_skb_q
, nskb
);
718 static void iucv_process_message(struct sock
*sk
, struct sk_buff
*skb
,
719 struct iucv_path
*path
,
720 struct iucv_message
*msg
)
724 if (msg
->flags
& IPRMDATA
) {
728 rc
= iucv_message_receive(path
, msg
, 0, skb
->data
,
734 if (skb
->truesize
>= sk
->sk_rcvbuf
/ 4) {
735 rc
= iucv_fragment_skb(sk
, skb
, msg
->length
);
739 iucv_path_sever(path
, NULL
);
742 skb
= skb_dequeue(&iucv_sk(sk
)->backlog_skb_q
);
744 skb_reset_transport_header(skb
);
745 skb_reset_network_header(skb
);
746 skb
->len
= msg
->length
;
750 if (sock_queue_rcv_skb(sk
, skb
))
751 skb_queue_head(&iucv_sk(sk
)->backlog_skb_q
, skb
);
754 static void iucv_process_message_q(struct sock
*sk
)
756 struct iucv_sock
*iucv
= iucv_sk(sk
);
758 struct sock_msg_q
*p
, *n
;
760 list_for_each_entry_safe(p
, n
, &iucv
->message_q
.list
, list
) {
761 skb
= alloc_skb(p
->msg
.length
, GFP_ATOMIC
| GFP_DMA
);
764 iucv_process_message(sk
, skb
, p
->path
, &p
->msg
);
767 if (!skb_queue_empty(&iucv
->backlog_skb_q
))
772 static int iucv_sock_recvmsg(struct kiocb
*iocb
, struct socket
*sock
,
773 struct msghdr
*msg
, size_t len
, int flags
)
775 int noblock
= flags
& MSG_DONTWAIT
;
776 struct sock
*sk
= sock
->sk
;
777 struct iucv_sock
*iucv
= iucv_sk(sk
);
778 int target
, copied
= 0;
779 struct sk_buff
*skb
, *rskb
, *cskb
;
782 if ((sk
->sk_state
== IUCV_DISCONN
|| sk
->sk_state
== IUCV_SEVERED
) &&
783 skb_queue_empty(&iucv
->backlog_skb_q
) &&
784 skb_queue_empty(&sk
->sk_receive_queue
) &&
785 list_empty(&iucv
->message_q
.list
))
788 if (flags
& (MSG_OOB
))
791 target
= sock_rcvlowat(sk
, flags
& MSG_WAITALL
, len
);
793 skb
= skb_recv_datagram(sk
, flags
, noblock
, &err
);
795 if (sk
->sk_shutdown
& RCV_SHUTDOWN
)
800 copied
= min_t(unsigned int, skb
->len
, len
);
803 if (memcpy_toiovec(msg
->msg_iov
, cskb
->data
, copied
)) {
804 skb_queue_head(&sk
->sk_receive_queue
, skb
);
812 /* Mark read part of skb as used */
813 if (!(flags
& MSG_PEEK
)) {
814 skb_pull(skb
, copied
);
817 skb_queue_head(&sk
->sk_receive_queue
, skb
);
823 /* Queue backlog skbs */
824 rskb
= skb_dequeue(&iucv
->backlog_skb_q
);
826 if (sock_queue_rcv_skb(sk
, rskb
)) {
827 skb_queue_head(&iucv
->backlog_skb_q
,
831 rskb
= skb_dequeue(&iucv
->backlog_skb_q
);
834 if (skb_queue_empty(&iucv
->backlog_skb_q
)) {
835 spin_lock_bh(&iucv
->message_q
.lock
);
836 if (!list_empty(&iucv
->message_q
.list
))
837 iucv_process_message_q(sk
);
838 spin_unlock_bh(&iucv
->message_q
.lock
);
842 skb_queue_head(&sk
->sk_receive_queue
, skb
);
845 return err
? : copied
;
848 static inline unsigned int iucv_accept_poll(struct sock
*parent
)
850 struct iucv_sock
*isk
, *n
;
853 list_for_each_entry_safe(isk
, n
, &iucv_sk(parent
)->accept_q
, accept_q
) {
854 sk
= (struct sock
*) isk
;
856 if (sk
->sk_state
== IUCV_CONNECTED
)
857 return POLLIN
| POLLRDNORM
;
863 unsigned int iucv_sock_poll(struct file
*file
, struct socket
*sock
,
866 struct sock
*sk
= sock
->sk
;
867 unsigned int mask
= 0;
869 poll_wait(file
, sk
->sk_sleep
, wait
);
871 if (sk
->sk_state
== IUCV_LISTEN
)
872 return iucv_accept_poll(sk
);
874 if (sk
->sk_err
|| !skb_queue_empty(&sk
->sk_error_queue
))
877 if (sk
->sk_shutdown
& RCV_SHUTDOWN
)
880 if (sk
->sk_shutdown
== SHUTDOWN_MASK
)
883 if (!skb_queue_empty(&sk
->sk_receive_queue
) ||
884 (sk
->sk_shutdown
& RCV_SHUTDOWN
))
885 mask
|= POLLIN
| POLLRDNORM
;
887 if (sk
->sk_state
== IUCV_CLOSED
)
890 if (sk
->sk_state
== IUCV_DISCONN
|| sk
->sk_state
== IUCV_SEVERED
)
893 if (sock_writeable(sk
))
894 mask
|= POLLOUT
| POLLWRNORM
| POLLWRBAND
;
896 set_bit(SOCK_ASYNC_NOSPACE
, &sk
->sk_socket
->flags
);
901 static int iucv_sock_shutdown(struct socket
*sock
, int how
)
903 struct sock
*sk
= sock
->sk
;
904 struct iucv_sock
*iucv
= iucv_sk(sk
);
905 struct iucv_message txmsg
;
907 u8 prmmsg
[8] = {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01};
911 if ((how
& ~SHUTDOWN_MASK
) || !how
)
915 switch (sk
->sk_state
) {
921 sk
->sk_shutdown
|= how
;
925 if (how
== SEND_SHUTDOWN
|| how
== SHUTDOWN_MASK
) {
928 err
= iucv_message_send(iucv
->path
, &txmsg
, IUCV_IPRMDATA
, 0,
945 if (how
== RCV_SHUTDOWN
|| how
== SHUTDOWN_MASK
) {
946 err
= iucv_path_quiesce(iucv_sk(sk
)->path
, NULL
);
950 skb_queue_purge(&sk
->sk_receive_queue
);
953 /* Wake up anyone sleeping in poll */
954 sk
->sk_state_change(sk
);
961 static int iucv_sock_release(struct socket
*sock
)
963 struct sock
*sk
= sock
->sk
;
971 /* Unregister with IUCV base support */
972 if (iucv_sk(sk
)->path
) {
973 iucv_path_sever(iucv_sk(sk
)->path
, NULL
);
974 iucv_path_free(iucv_sk(sk
)->path
);
975 iucv_sk(sk
)->path
= NULL
;
983 /* Callback wrappers - called from iucv base support */
984 static int iucv_callback_connreq(struct iucv_path
*path
,
985 u8 ipvmid
[8], u8 ipuser
[16])
987 unsigned char user_data
[16];
988 unsigned char nuser_data
[16];
989 unsigned char src_name
[8];
990 struct hlist_node
*node
;
991 struct sock
*sk
, *nsk
;
992 struct iucv_sock
*iucv
, *niucv
;
995 memcpy(src_name
, ipuser
, 8);
997 /* Find out if this path belongs to af_iucv. */
998 read_lock(&iucv_sk_list
.lock
);
1001 sk_for_each(sk
, node
, &iucv_sk_list
.head
)
1002 if (sk
->sk_state
== IUCV_LISTEN
&&
1003 !memcmp(&iucv_sk(sk
)->src_name
, src_name
, 8)) {
1005 * Found a listening socket with
1006 * src_name == ipuser[0-7].
1011 read_unlock(&iucv_sk_list
.lock
);
1013 /* No socket found, not one of our paths. */
1018 /* Check if parent socket is listening */
1019 low_nmcpy(user_data
, iucv
->src_name
);
1020 high_nmcpy(user_data
, iucv
->dst_name
);
1021 ASCEBC(user_data
, sizeof(user_data
));
1022 if (sk
->sk_state
!= IUCV_LISTEN
) {
1023 err
= iucv_path_sever(path
, user_data
);
1027 /* Check for backlog size */
1028 if (sk_acceptq_is_full(sk
)) {
1029 err
= iucv_path_sever(path
, user_data
);
1033 /* Create the new socket */
1034 nsk
= iucv_sock_alloc(NULL
, SOCK_STREAM
, GFP_ATOMIC
);
1036 err
= iucv_path_sever(path
, user_data
);
1040 niucv
= iucv_sk(nsk
);
1041 iucv_sock_init(nsk
, sk
);
1043 /* Set the new iucv_sock */
1044 memcpy(niucv
->dst_name
, ipuser
+ 8, 8);
1045 EBCASC(niucv
->dst_name
, 8);
1046 memcpy(niucv
->dst_user_id
, ipvmid
, 8);
1047 memcpy(niucv
->src_name
, iucv
->src_name
, 8);
1048 memcpy(niucv
->src_user_id
, iucv
->src_user_id
, 8);
1051 /* Call iucv_accept */
1052 high_nmcpy(nuser_data
, ipuser
+ 8);
1053 memcpy(nuser_data
+ 8, niucv
->src_name
, 8);
1054 ASCEBC(nuser_data
+ 8, 8);
1056 path
->msglim
= IUCV_QUEUELEN_DEFAULT
;
1057 err
= iucv_path_accept(path
, &af_iucv_handler
, nuser_data
, nsk
);
1059 err
= iucv_path_sever(path
, user_data
);
1063 iucv_accept_enqueue(sk
, nsk
);
1065 /* Wake up accept */
1066 nsk
->sk_state
= IUCV_CONNECTED
;
1067 sk
->sk_data_ready(sk
, 1);
1074 static void iucv_callback_connack(struct iucv_path
*path
, u8 ipuser
[16])
1076 struct sock
*sk
= path
->private;
1078 sk
->sk_state
= IUCV_CONNECTED
;
1079 sk
->sk_state_change(sk
);
1082 static void iucv_callback_rx(struct iucv_path
*path
, struct iucv_message
*msg
)
1084 struct sock
*sk
= path
->private;
1085 struct iucv_sock
*iucv
= iucv_sk(sk
);
1086 struct sk_buff
*skb
;
1087 struct sock_msg_q
*save_msg
;
1090 if (sk
->sk_shutdown
& RCV_SHUTDOWN
)
1093 if (!list_empty(&iucv
->message_q
.list
) ||
1094 !skb_queue_empty(&iucv
->backlog_skb_q
))
1097 len
= atomic_read(&sk
->sk_rmem_alloc
);
1098 len
+= msg
->length
+ sizeof(struct sk_buff
);
1099 if (len
> sk
->sk_rcvbuf
)
1102 skb
= alloc_skb(msg
->length
, GFP_ATOMIC
| GFP_DMA
);
1106 spin_lock(&iucv
->message_q
.lock
);
1107 iucv_process_message(sk
, skb
, path
, msg
);
1108 spin_unlock(&iucv
->message_q
.lock
);
1113 save_msg
= kzalloc(sizeof(struct sock_msg_q
), GFP_ATOMIC
| GFP_DMA
);
1116 save_msg
->path
= path
;
1117 save_msg
->msg
= *msg
;
1119 spin_lock(&iucv
->message_q
.lock
);
1120 list_add_tail(&save_msg
->list
, &iucv
->message_q
.list
);
1121 spin_unlock(&iucv
->message_q
.lock
);
1124 static void iucv_callback_txdone(struct iucv_path
*path
,
1125 struct iucv_message
*msg
)
1127 struct sock
*sk
= path
->private;
1128 struct sk_buff
*this = NULL
;
1129 struct sk_buff_head
*list
= &iucv_sk(sk
)->send_skb_q
;
1130 struct sk_buff
*list_skb
= list
->next
;
1131 unsigned long flags
;
1133 if (!skb_queue_empty(list
)) {
1134 spin_lock_irqsave(&list
->lock
, flags
);
1136 while (list_skb
!= (struct sk_buff
*)list
) {
1137 if (!memcmp(&msg
->tag
, list_skb
->cb
, 4)) {
1141 list_skb
= list_skb
->next
;
1144 __skb_unlink(this, list
);
1146 spin_unlock_irqrestore(&list
->lock
, flags
);
1153 if (sk
->sk_state
== IUCV_CLOSING
) {
1154 if (skb_queue_empty(&iucv_sk(sk
)->send_skb_q
)) {
1155 sk
->sk_state
= IUCV_CLOSED
;
1156 sk
->sk_state_change(sk
);
1162 static void iucv_callback_connrej(struct iucv_path
*path
, u8 ipuser
[16])
1164 struct sock
*sk
= path
->private;
1166 if (!list_empty(&iucv_sk(sk
)->accept_q
))
1167 sk
->sk_state
= IUCV_SEVERED
;
1169 sk
->sk_state
= IUCV_DISCONN
;
1171 sk
->sk_state_change(sk
);
1174 static struct proto_ops iucv_sock_ops
= {
1176 .owner
= THIS_MODULE
,
1177 .release
= iucv_sock_release
,
1178 .bind
= iucv_sock_bind
,
1179 .connect
= iucv_sock_connect
,
1180 .listen
= iucv_sock_listen
,
1181 .accept
= iucv_sock_accept
,
1182 .getname
= iucv_sock_getname
,
1183 .sendmsg
= iucv_sock_sendmsg
,
1184 .recvmsg
= iucv_sock_recvmsg
,
1185 .poll
= iucv_sock_poll
,
1186 .ioctl
= sock_no_ioctl
,
1187 .mmap
= sock_no_mmap
,
1188 .socketpair
= sock_no_socketpair
,
1189 .shutdown
= iucv_sock_shutdown
,
1190 .setsockopt
= sock_no_setsockopt
,
1191 .getsockopt
= sock_no_getsockopt
1194 static struct net_proto_family iucv_sock_family_ops
= {
1196 .owner
= THIS_MODULE
,
1197 .create
= iucv_sock_create
,
1200 static int __init
afiucv_init(void)
1204 if (!MACHINE_IS_VM
) {
1205 pr_err("The af_iucv module cannot be loaded"
1207 err
= -EPROTONOSUPPORT
;
1210 cpcmd("QUERY USERID", iucv_userid
, sizeof(iucv_userid
), &err
);
1211 if (unlikely(err
)) {
1213 err
= -EPROTONOSUPPORT
;
1217 err
= iucv_register(&af_iucv_handler
, 0);
1220 err
= proto_register(&iucv_proto
, 0);
1223 err
= sock_register(&iucv_sock_family_ops
);
1229 proto_unregister(&iucv_proto
);
1231 iucv_unregister(&af_iucv_handler
, 0);
1236 static void __exit
afiucv_exit(void)
1238 sock_unregister(PF_IUCV
);
1239 proto_unregister(&iucv_proto
);
1240 iucv_unregister(&af_iucv_handler
, 0);
1243 module_init(afiucv_init
);
1244 module_exit(afiucv_exit
);
1246 MODULE_AUTHOR("Jennifer Hunt <jenhunt@us.ibm.com>");
1247 MODULE_DESCRIPTION("IUCV Sockets ver " VERSION
);
1248 MODULE_VERSION(VERSION
);
1249 MODULE_LICENSE("GPL");
1250 MODULE_ALIAS_NETPROTO(PF_IUCV
);