arch/sparc64/solaris/socket.c

   1 /* $Id: socket.c,v 1.6 2002/02/08 03:57:14 davem Exp $
   2  * socket.c: Socket syscall emulation for Solaris 2.6+
   3  *
   4  * Copyright (C) 1998 Jakub Jelinek (jj@ultra.linux.cz)
   5  *
   6  * 1999-08-19 Fixed socketpair code
   7  *            Jason Rappleye (rappleye@ccr.buffalo.edu)
   8  */
   9
  10 #include <linux/types.h>
  11 #include <linux/smp_lock.h>
  12 #include <linux/mm.h>
  13 #include <linux/slab.h>
  14 #include <linux/socket.h>
  15 #include <linux/file.h>
  16 #include <linux/net.h>
  17 #include <linux/compat.h>
  18 #include <net/compat.h>
  19
  20 #include <asm/uaccess.h>
  21 #include <asm/string.h>
  22 #include <asm/oplib.h>
  23 #include <asm/idprom.h>
  24
  25 #include "conv.h"
  26
  27 #define SOCK_SOL_STREAM         2
  28 #define SOCK_SOL_DGRAM          1
  29 #define SOCK_SOL_RAW            4
  30 #define SOCK_SOL_RDM            5
  31 #define SOCK_SOL_SEQPACKET      6
  32
  33 #define SOL_SO_SNDLOWAT         0x1003
  34 #define SOL_SO_RCVLOWAT         0x1004
  35 #define SOL_SO_SNDTIMEO         0x1005
  36 #define SOL_SO_RCVTIMEO         0x1006
  37 #define SOL_SO_STATE            0x2000
  38
  39 #define SOL_SS_NDELAY           0x040
  40 #define SOL_SS_NONBLOCK         0x080
  41 #define SOL_SS_ASYNC            0x100
  42
  43 #define SO_STATE                0x000e
  44
  45 static int socket_check(int family, int type)
  46 {
  47         if (family != PF_UNIX && family != PF_INET)
  48                 return -ESOCKTNOSUPPORT;
  49         switch (type) {
  50         case SOCK_SOL_STREAM: type = SOCK_STREAM; break;
  51         case SOCK_SOL_DGRAM: type = SOCK_DGRAM; break;
  52         case SOCK_SOL_RAW: type = SOCK_RAW; break;
  53         case SOCK_SOL_RDM: type = SOCK_RDM; break;
  54         case SOCK_SOL_SEQPACKET: type = SOCK_SEQPACKET; break;
  55         default: return -EINVAL;
  56         }
  57         return type;
  58 }
  59
  60 static int solaris_to_linux_sockopt(int optname)
  61 {
  62         switch (optname) {
  63         case SOL_SO_SNDLOWAT: optname = SO_SNDLOWAT; break;
  64         case SOL_SO_RCVLOWAT: optname = SO_RCVLOWAT; break;
  65         case SOL_SO_SNDTIMEO: optname = SO_SNDTIMEO; break;
  66         case SOL_SO_RCVTIMEO: optname = SO_RCVTIMEO; break;
  67         case SOL_SO_STATE: optname = SO_STATE; break;
  68         };
  69
  70         return optname;
  71 }
  72
  73 asmlinkage int solaris_socket(int family, int type, int protocol)
  74 {
  75         int (*sys_socket)(int, int, int) =
  76                 (int (*)(int, int, int))SYS(socket);
  77
  78         type = socket_check (family, type);
  79         if (type < 0) return type;
  80         return sys_socket(family, type, protocol);
  81 }
  82
  83 asmlinkage int solaris_socketpair(int *usockvec)
  84 {
  85         int (*sys_socketpair)(int, int, int, int *) =
  86                 (int (*)(int, int, int, int *))SYS(socketpair);
  87
  88         /* solaris socketpair really only takes one arg at the syscall
  89          * level, int * usockvec. The libs apparently take care of
  90          * making sure that family==AF_UNIX and type==SOCK_STREAM. The
  91          * pointer we really want ends up residing in the first (and
  92          * supposedly only) argument.
  93          */
  94
  95         return sys_socketpair(AF_UNIX, SOCK_STREAM, 0, (int *)usockvec);
  96 }
  97
  98 asmlinkage int solaris_bind(int fd, struct sockaddr *addr, int addrlen)
  99 {
 100         int (*sys_bind)(int, struct sockaddr *, int) =
 101                 (int (*)(int, struct sockaddr *, int))SUNOS(104);
 102
 103         return sys_bind(fd, addr, addrlen);
 104 }
 105
 106 asmlinkage int solaris_setsockopt(int fd, int level, int optname, u32 optval, int optlen)
 107 {
 108         int (*sunos_setsockopt)(int, int, int, u32, int) =
 109                 (int (*)(int, int, int, u32, int))SUNOS(105);
 110
 111         optname = solaris_to_linux_sockopt(optname);
 112         if (optname < 0)
 113                 return optname;
 114         if (optname == SO_STATE)
 115                 return 0;
 116
 117         return sunos_setsockopt(fd, level, optname, optval, optlen);
 118 }
 119
 120 asmlinkage int solaris_getsockopt(int fd, int level, int optname, u32 optval, u32 optlen)
 121 {
 122         int (*sunos_getsockopt)(int, int, int, u32, u32) =
 123                 (int (*)(int, int, int, u32, u32))SUNOS(118);
 124
 125         optname = solaris_to_linux_sockopt(optname);
 126         if (optname < 0)
 127                 return optname;
 128
 129         if (optname == SO_STATE)
 130                 optname = SOL_SO_STATE;
 131
 132         return sunos_getsockopt(fd, level, optname, optval, optlen);
 133 }
 134
 135 asmlinkage int solaris_connect(int fd, struct sockaddr __user *addr, int addrlen)
 136 {
 137         int (*sys_connect)(int, struct sockaddr __user *, int) =
 138                 (int (*)(int, struct sockaddr __user *, int))SYS(connect);
 139
 140         return sys_connect(fd, addr, addrlen);
 141 }
 142
 143 asmlinkage int solaris_accept(int fd, struct sockaddr __user *addr, int __user *addrlen)
 144 {
 145         int (*sys_accept)(int, struct sockaddr __user *, int __user *) =
 146                 (int (*)(int, struct sockaddr __user *, int __user *))SYS(accept);
 147
 148         return sys_accept(fd, addr, addrlen);
 149 }
 150
 151 asmlinkage int solaris_listen(int fd, int backlog)
 152 {
 153         int (*sys_listen)(int, int) =
 154                 (int (*)(int, int))SUNOS(106);
 155
 156         return sys_listen(fd, backlog);
 157 }
 158
 159 asmlinkage int solaris_shutdown(int fd, int how)
 160 {
 161         int (*sys_shutdown)(int, int) =
 162                 (int (*)(int, int))SYS(shutdown);
 163
 164         return sys_shutdown(fd, how);
 165 }
 166
 167 #define MSG_SOL_OOB             0x1
 168 #define MSG_SOL_PEEK            0x2
 169 #define MSG_SOL_DONTROUTE       0x4
 170 #define MSG_SOL_EOR             0x8
 171 #define MSG_SOL_CTRUNC          0x10
 172 #define MSG_SOL_TRUNC           0x20
 173 #define MSG_SOL_WAITALL         0x40
 174 #define MSG_SOL_DONTWAIT        0x80
 175
 176 static int solaris_to_linux_msgflags(int flags)
 177 {
 178         int fl = flags & (MSG_OOB|MSG_PEEK|MSG_DONTROUTE);
 179
 180         if (flags & MSG_SOL_EOR) fl |= MSG_EOR;
 181         if (flags & MSG_SOL_CTRUNC) fl |= MSG_CTRUNC;
 182         if (flags & MSG_SOL_TRUNC) fl |= MSG_TRUNC;
 183         if (flags & MSG_SOL_WAITALL) fl |= MSG_WAITALL;
 184         if (flags & MSG_SOL_DONTWAIT) fl |= MSG_DONTWAIT;
 185         return fl;
 186 }
 187
 188 static int linux_to_solaris_msgflags(int flags)
 189 {
 190         int fl = flags & (MSG_OOB|MSG_PEEK|MSG_DONTROUTE);
 191
 192         if (flags & MSG_EOR) fl |= MSG_SOL_EOR;
 193         if (flags & MSG_CTRUNC) fl |= MSG_SOL_CTRUNC;
 194         if (flags & MSG_TRUNC) fl |= MSG_SOL_TRUNC;
 195         if (flags & MSG_WAITALL) fl |= MSG_SOL_WAITALL;
 196         if (flags & MSG_DONTWAIT) fl |= MSG_SOL_DONTWAIT;
 197         return fl;
 198 }
 199
 200 asmlinkage int solaris_recvfrom(int s, char __user *buf, int len, int flags, u32 from, u32 fromlen)
 201 {
 202         int (*sys_recvfrom)(int, void __user *, size_t, unsigned, struct sockaddr __user *, int __user *) =
 203                 (int (*)(int, void __user *, size_t, unsigned, struct sockaddr __user *, int __user *))SYS(recvfrom);
 204
 205         return sys_recvfrom(s, buf, len, solaris_to_linux_msgflags(flags), A(from), A(fromlen));
 206 }
 207
 208 asmlinkage int solaris_recv(int s, char __user *buf, int len, int flags)
 209 {
 210         int (*sys_recvfrom)(int, void __user *, size_t, unsigned, struct sockaddr __user *, int __user *) =
 211                 (int (*)(int, void __user *, size_t, unsigned, struct sockaddr __user *, int __user *))SYS(recvfrom);
 212
 213         return sys_recvfrom(s, buf, len, solaris_to_linux_msgflags(flags), NULL, NULL);
 214 }
 215
 216 asmlinkage int solaris_sendto(int s, char __user *buf, int len, int flags, u32 to, u32 tolen)
 217 {
 218         int (*sys_sendto)(int, void __user *, size_t, unsigned, struct sockaddr __user *, int __user *) =
 219                 (int (*)(int, void __user *, size_t, unsigned, struct sockaddr __user *, int __user *))SYS(sendto);
 220
 221         return sys_sendto(s, buf, len, solaris_to_linux_msgflags(flags), A(to), A(tolen));
 222 }
 223
 224 asmlinkage int solaris_send(int s, char *buf, int len, int flags)
 225 {
 226         int (*sys_sendto)(int, void *, size_t, unsigned, struct sockaddr *, int *) =
 227                 (int (*)(int, void *, size_t, unsigned, struct sockaddr *, int *))SYS(sendto);
 228
 229         return sys_sendto(s, buf, len, solaris_to_linux_msgflags(flags), NULL, NULL);
 230 }
 231
 232 asmlinkage int solaris_getpeername(int fd, struct sockaddr *addr, int *addrlen)
 233 {
 234         int (*sys_getpeername)(int, struct sockaddr *, int *) =
 235                 (int (*)(int, struct sockaddr *, int *))SYS(getpeername);
 236
 237         return sys_getpeername(fd, addr, addrlen);
 238 }
 239
 240 asmlinkage int solaris_getsockname(int fd, struct sockaddr *addr, int *addrlen)
 241 {
 242         int (*sys_getsockname)(int, struct sockaddr *, int *) =
 243                 (int (*)(int, struct sockaddr *, int *))SYS(getsockname);
 244
 245         return sys_getsockname(fd, addr, addrlen);
 246 }
 247
 248 /* XXX This really belongs in some header file... -DaveM */
 249 #define MAX_SOCK_ADDR   128             /* 108 for Unix domain -
 250                                            16 for IP, 16 for IPX,
 251                                            24 for IPv6,
 252                                            about 80 for AX.25 */
 253
 254 struct sol_nmsghdr {
 255         u32             msg_name;
 256         int             msg_namelen;
 257         u32             msg_iov;
 258         u32             msg_iovlen;
 259         u32             msg_control;
 260         u32             msg_controllen;
 261         u32             msg_flags;
 262 };
 263
 264 struct sol_cmsghdr {
 265         u32             cmsg_len;
 266         int             cmsg_level;
 267         int             cmsg_type;
 268         unsigned char   cmsg_data[0];
 269 };
 270
 271 static inline int msghdr_from_user32_to_kern(struct msghdr *kmsg,
 272                                              struct sol_nmsghdr __user *umsg)
 273 {
 274         u32 tmp1, tmp2, tmp3;
 275         int err;
 276
 277         err = get_user(tmp1, &umsg->msg_name);
 278         err |= __get_user(tmp2, &umsg->msg_iov);
 279         err |= __get_user(tmp3, &umsg->msg_control);
 280         if (err)
 281                 return -EFAULT;
 282
 283         kmsg->msg_name = A(tmp1);
 284         kmsg->msg_iov = A(tmp2);
 285         kmsg->msg_control = A(tmp3);
 286
 287         err = get_user(kmsg->msg_namelen, &umsg->msg_namelen);
 288         err |= get_user(kmsg->msg_controllen, &umsg->msg_controllen);
 289         err |= get_user(kmsg->msg_flags, &umsg->msg_flags);
 290
 291         kmsg->msg_flags = solaris_to_linux_msgflags(kmsg->msg_flags);
 292
 293         return err;
 294 }
 295
 296 asmlinkage int solaris_sendmsg(int fd, struct sol_nmsghdr __user *user_msg, unsigned user_flags)
 297 {
 298         struct socket *sock;
 299         char address[MAX_SOCK_ADDR];
 300         struct iovec iov[UIO_FASTIOV];
 301         unsigned char ctl[sizeof(struct cmsghdr) + 20];
 302         unsigned char *ctl_buf = ctl;
 303         struct msghdr kern_msg;
 304         int err, total_len;
 305
 306         if(msghdr_from_user32_to_kern(&kern_msg, user_msg))
 307                 return -EFAULT;
 308         if(kern_msg.msg_iovlen > UIO_MAXIOV)
 309                 return -EINVAL;
 310         err = verify_compat_iovec(&kern_msg, iov, address, VERIFY_READ);
 311         if (err < 0)
 312                 goto out;
 313         total_len = err;
 314
 315         if(kern_msg.msg_controllen) {
 316                 struct sol_cmsghdr __user *ucmsg = kern_msg.msg_control;
 317                 unsigned long *kcmsg;
 318                 compat_size_t cmlen;
 319
 320                 if(kern_msg.msg_controllen > sizeof(ctl) &&
 321                    kern_msg.msg_controllen <= 256) {
 322                         err = -ENOBUFS;
 323                         ctl_buf = kmalloc(kern_msg.msg_controllen, GFP_KERNEL);
 324                         if(!ctl_buf)
 325                                 goto out_freeiov;
 326                 }
 327                 __get_user(cmlen, &ucmsg->cmsg_len);
 328                 kcmsg = (unsigned long *) ctl_buf;
 329                 *kcmsg++ = (unsigned long)cmlen;
 330                 err = -EFAULT;
 331                 if(copy_from_user(kcmsg, &ucmsg->cmsg_level,
 332                                   kern_msg.msg_controllen - sizeof(compat_size_t)))
 333                         goto out_freectl;
 334                 kern_msg.msg_control = ctl_buf;
 335         }
 336         kern_msg.msg_flags = solaris_to_linux_msgflags(user_flags);
 337
 338         lock_kernel();
 339         sock = sockfd_lookup(fd, &err);
 340         if (sock != NULL) {
 341                 if (sock->file->f_flags & O_NONBLOCK)
 342                         kern_msg.msg_flags |= MSG_DONTWAIT;
 343                 err = sock_sendmsg(sock, &kern_msg, total_len);
 344                 sockfd_put(sock);
 345         }
 346         unlock_kernel();
 347
 348 out_freectl:
 349         /* N.B. Use kfree here, as kern_msg.msg_controllen might change? */
 350         if(ctl_buf != ctl)
 351                 kfree(ctl_buf);
 352 out_freeiov:
 353         if(kern_msg.msg_iov != iov)
 354                 kfree(kern_msg.msg_iov);
 355 out:
 356         return err;
 357 }
 358
 359 asmlinkage int solaris_recvmsg(int fd, struct sol_nmsghdr __user *user_msg, unsigned int user_flags)
 360 {
 361         struct iovec iovstack[UIO_FASTIOV];
 362         struct msghdr kern_msg;
 363         char addr[MAX_SOCK_ADDR];
 364         struct socket *sock;
 365         struct iovec *iov = iovstack;
 366         struct sockaddr __user *uaddr;
 367         int __user *uaddr_len;
 368         unsigned long cmsg_ptr;
 369         int err, total_len, len = 0;
 370
 371         if(msghdr_from_user32_to_kern(&kern_msg, user_msg))
 372                 return -EFAULT;
 373         if(kern_msg.msg_iovlen > UIO_MAXIOV)
 374                 return -EINVAL;
 375
 376         uaddr = kern_msg.msg_name;
 377         uaddr_len = &user_msg->msg_namelen;
 378         err = verify_compat_iovec(&kern_msg, iov, addr, VERIFY_WRITE);
 379         if (err < 0)
 380                 goto out;
 381         total_len = err;
 382
 383         cmsg_ptr = (unsigned long) kern_msg.msg_control;
 384         kern_msg.msg_flags = 0;
 385
 386         lock_kernel();
 387         sock = sockfd_lookup(fd, &err);
 388         if (sock != NULL) {
 389                 if (sock->file->f_flags & O_NONBLOCK)
 390                         user_flags |= MSG_DONTWAIT;
 391                 err = sock_recvmsg(sock, &kern_msg, total_len, user_flags);
 392                 if(err >= 0)
 393                         len = err;
 394                 sockfd_put(sock);
 395         }
 396         unlock_kernel();
 397
 398         if(uaddr != NULL && err >= 0)
 399                 err = move_addr_to_user(addr, kern_msg.msg_namelen, uaddr, uaddr_len);
 400         if(err >= 0) {
 401                 err = __put_user(linux_to_solaris_msgflags(kern_msg.msg_flags), &user_msg->msg_flags);
 402                 if(!err) {
 403                         /* XXX Convert cmsg back into userspace 32-bit format... */
 404                         err = __put_user((unsigned long)kern_msg.msg_control - cmsg_ptr,
 405                                          &user_msg->msg_controllen);
 406                 }
 407         }
 408
 409         if(kern_msg.msg_iov != iov)
 410                 kfree(kern_msg.msg_iov);
 411 out:
 412         if(err < 0)
 413                 return err;
 414         return len;
 415 }