1 /* $NetBSD: linux_misc_notalpha.c,v 1.69 2003/06/29 22:29:31 fvdl Exp $ */ 2 3 /*- 4 * Copyright (c) 1995, 1998 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by Frank van der Linden and Eric Haszlakiewicz; by Jason R. Thorpe 9 * of the Numerical Aerospace Simulation Facility, NASA Ames Research Center. 10 * 11 * Redistribution and use in source and binary forms, with or without 12 * modification, are permitted provided that the following conditions 13 * are met: 14 * 1. Redistributions of source code must retain the above copyright 15 * notice, this list of conditions and the following disclaimer. 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in the 18 * documentation and/or other materials provided with the distribution. 19 * 3. All advertising materials mentioning features or use of this software 20 * must display the following acknowledgement: 21 * This product includes software developed by the NetBSD 22 * Foundation, Inc. and its contributors. 23 * 4. Neither the name of The NetBSD Foundation nor the names of its 24 * contributors may be used to endorse or promote products derived 25 * from this software without specific prior written permission. 26 * 27 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 28 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 29 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 30 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 31 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 32 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 33 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 34 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 35 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 36 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 37 * POSSIBILITY OF SUCH DAMAGE. 38 */ 39 40 #include <sys/cdefs.h> 41 __KERNEL_RCSID(0, "$NetBSD: linux_misc_notalpha.c,v 1.69 2003/06/29 22:29:31 fvdl Exp $"); 42 43 #include <sys/param.h> 44 #include <sys/systm.h> 45 #include <sys/kernel.h> 46 #include <sys/mman.h> 47 #include <sys/mount.h> 48 #include <sys/malloc.h> 49 #include <sys/mbuf.h> 50 #include <sys/namei.h> 51 #include <sys/proc.h> 52 #include <sys/ptrace.h> 53 #include <sys/resource.h> 54 #include <sys/resourcevar.h> 55 #include <sys/time.h> 56 #include <sys/wait.h> 57 58 #include <sys/sa.h> 59 #include <sys/syscallargs.h> 60 61 #include <compat/linux/common/linux_types.h> 62 #include <compat/linux/common/linux_fcntl.h> 63 #include <compat/linux/common/linux_misc.h> 64 #include <compat/linux/common/linux_mmap.h> 65 #include <compat/linux/common/linux_signal.h> 66 #include <compat/linux/common/linux_util.h> 67 68 #include <compat/linux/linux_syscallargs.h> 69 70 /* 71 * This file contains routines which are used 72 * on every linux architechture except the Alpha. 73 */ 74 75 /* Used on: arm, i386, m68k, mips, ppc, sparc, sparc64 */ 76 /* Not used on: alpha */ 77 78 /* 79 * Alarm. This is a libc call which uses setitimer(2) in NetBSD. 80 * Fiddle with the timers to make it work. 81 */ 82 int 83 linux_sys_alarm(l, v, retval) 84 struct lwp *l; 85 void *v; 86 register_t *retval; 87 { 88 struct linux_sys_alarm_args /* { 89 syscallarg(unsigned int) secs; 90 } */ *uap = v; 91 struct proc *p = l->l_proc; 92 int s; 93 struct itimerval *itp, it; 94 struct ptimer *ptp; 95 96 if (p->p_timers && p->p_timers->pts_timers[ITIMER_REAL]) 97 itp = &p->p_timers->pts_timers[ITIMER_REAL]->pt_time; 98 else 99 itp = NULL; 100 s = splclock(); 101 /* 102 * Clear any pending timer alarms. 103 */ 104 if (itp) { 105 callout_stop(&p->p_timers->pts_timers[ITIMER_REAL]->pt_ch); 106 timerclear(&itp->it_interval); 107 if (timerisset(&itp->it_value) && 108 timercmp(&itp->it_value, &time, >)) 109 timersub(&itp->it_value, &time, &itp->it_value); 110 /* 111 * Return how many seconds were left (rounded up) 112 */ 113 retval[0] = itp->it_value.tv_sec; 114 if (itp->it_value.tv_usec) 115 retval[0]++; 116 } else { 117 retval[0] = 0; 118 } 119 120 /* 121 * alarm(0) just resets the timer. 122 */ 123 if (SCARG(uap, secs) == 0) { 124 if (itp) 125 timerclear(&itp->it_value); 126 splx(s); 127 return 0; 128 } 129 130 /* 131 * Check the new alarm time for sanity, and set it. 132 */ 133 timerclear(&it.it_interval); 134 it.it_value.tv_sec = SCARG(uap, secs); 135 it.it_value.tv_usec = 0; 136 if (itimerfix(&it.it_value) || itimerfix(&it.it_interval)) { 137 splx(s); 138 return (EINVAL); 139 } 140 141 if (p->p_timers == NULL) 142 timers_alloc(p); 143 ptp = p->p_timers->pts_timers[ITIMER_REAL]; 144 if (ptp == NULL) { 145 ptp = pool_get(&ptimer_pool, PR_WAITOK); 146 ptp->pt_ev.sigev_notify = SIGEV_SIGNAL; 147 ptp->pt_ev.sigev_signo = SIGALRM; 148 ptp->pt_overruns = 0; 149 ptp->pt_proc = p; 150 ptp->pt_type = CLOCK_REALTIME; 151 ptp->pt_entry = CLOCK_REALTIME; 152 callout_init(&ptp->pt_ch); 153 p->p_timers->pts_timers[ITIMER_REAL] = ptp; 154 } 155 156 if (timerisset(&it.it_value)) { 157 /* 158 * Don't need to check hzto() return value, here. 159 * callout_reset() does it for us. 160 */ 161 timeradd(&it.it_value, &time, &it.it_value); 162 callout_reset(&ptp->pt_ch, hzto(&it.it_value), 163 realtimerexpire, ptp); 164 } 165 ptp->pt_time = it; 166 splx(s); 167 168 return 0; 169 } 170 171 int 172 linux_sys_nice(l, v, retval) 173 struct lwp *l; 174 void *v; 175 register_t *retval; 176 { 177 struct linux_sys_nice_args /* { 178 syscallarg(int) incr; 179 } */ *uap = v; 180 struct sys_setpriority_args bsa; 181 182 SCARG(&bsa, which) = PRIO_PROCESS; 183 SCARG(&bsa, who) = 0; 184 SCARG(&bsa, prio) = SCARG(uap, incr); 185 return sys_setpriority(l, &bsa, retval); 186 } 187 188 /* 189 * The old Linux readdir was only able to read one entry at a time, 190 * even though it had a 'count' argument. In fact, the emulation 191 * of the old call was better than the original, because it did handle 192 * the count arg properly. Don't bother with it anymore now, and use 193 * it to distinguish between old and new. The difference is that the 194 * newer one actually does multiple entries, and the reclen field 195 * really is the reclen, not the namelength. 196 */ 197 int 198 linux_sys_readdir(l, v, retval) 199 struct lwp *l; 200 void *v; 201 register_t *retval; 202 { 203 struct linux_sys_readdir_args /* { 204 syscallarg(int) fd; 205 syscallarg(struct linux_dirent *) dent; 206 syscallarg(unsigned int) count; 207 } */ *uap = v; 208 209 SCARG(uap, count) = 1; 210 return linux_sys_getdents(l, uap, retval); 211 } 212 213 /* 214 * I wonder why Linux has gettimeofday() _and_ time().. Still, we 215 * need to deal with it. 216 */ 217 int 218 linux_sys_time(l, v, retval) 219 struct lwp *l; 220 void *v; 221 register_t *retval; 222 { 223 struct linux_sys_time_args /* { 224 linux_time_t *t; 225 } */ *uap = v; 226 struct timeval atv; 227 linux_time_t tt; 228 int error; 229 230 microtime(&atv); 231 232 tt = atv.tv_sec; 233 if (SCARG(uap, t) && (error = copyout(&tt, SCARG(uap, t), sizeof tt))) 234 return error; 235 236 retval[0] = tt; 237 return 0; 238 } 239 240 /* 241 * utime(). Do conversion to things that utimes() understands, 242 * and pass it on. 243 */ 244 int 245 linux_sys_utime(l, v, retval) 246 struct lwp *l; 247 void *v; 248 register_t *retval; 249 { 250 struct linux_sys_utime_args /* { 251 syscallarg(const char *) path; 252 syscallarg(struct linux_utimbuf *)times; 253 } */ *uap = v; 254 struct proc *p = l->l_proc; 255 caddr_t sg; 256 int error; 257 struct sys_utimes_args ua; 258 struct timeval tv[2], *tvp; 259 struct linux_utimbuf lut; 260 261 sg = stackgap_init(p, 0); 262 tvp = (struct timeval *) stackgap_alloc(p, &sg, sizeof(tv)); 263 CHECK_ALT_EXIST(p, &sg, SCARG(uap, path)); 264 265 SCARG(&ua, path) = SCARG(uap, path); 266 267 if (SCARG(uap, times) != NULL) { 268 if ((error = copyin(SCARG(uap, times), &lut, sizeof lut))) 269 return error; 270 tv[0].tv_usec = tv[1].tv_usec = 0; 271 tv[0].tv_sec = lut.l_actime; 272 tv[1].tv_sec = lut.l_modtime; 273 if ((error = copyout(tv, tvp, sizeof tv))) 274 return error; 275 SCARG(&ua, tptr) = tvp; 276 } 277 else 278 SCARG(&ua, tptr) = NULL; 279 280 return sys_utimes(l, &ua, retval); 281 } 282 283 /* 284 * waitpid(2). Passed on to the NetBSD call, surrounded by code to 285 * reserve some space for a NetBSD-style wait status, and converting 286 * it to what Linux wants. 287 */ 288 int 289 linux_sys_waitpid(l, v, retval) 290 struct lwp *l; 291 void *v; 292 register_t *retval; 293 { 294 struct linux_sys_waitpid_args /* { 295 syscallarg(int) pid; 296 syscallarg(int *) status; 297 syscallarg(int) options; 298 } */ *uap = v; 299 struct proc *p = l->l_proc; 300 struct sys_wait4_args w4a; 301 int error, *status, tstat; 302 caddr_t sg; 303 304 if (SCARG(uap, status) != NULL) { 305 sg = stackgap_init(p, 0); 306 status = (int *) stackgap_alloc(p, &sg, sizeof status); 307 } else 308 status = NULL; 309 310 SCARG(&w4a, pid) = SCARG(uap, pid); 311 SCARG(&w4a, status) = status; 312 SCARG(&w4a, options) = SCARG(uap, options); 313 SCARG(&w4a, rusage) = NULL; 314 315 if ((error = sys_wait4(l, &w4a, retval))) 316 return error; 317 318 sigdelset(&p->p_sigctx.ps_siglist, SIGCHLD); 319 320 if (status != NULL) { 321 if ((error = copyin(status, &tstat, sizeof tstat))) 322 return error; 323 324 bsd_to_linux_wstat(&tstat); 325 return copyout(&tstat, SCARG(uap, status), sizeof tstat); 326 } 327 328 return 0; 329 } 330 331 int 332 linux_sys_setresgid(l, v, retval) 333 struct lwp *l; 334 void *v; 335 register_t *retval; 336 { 337 struct linux_sys_setresgid_args /* { 338 syscallarg(gid_t) rgid; 339 syscallarg(gid_t) egid; 340 syscallarg(gid_t) sgid; 341 } */ *uap = v; 342 343 /* 344 * Note: These checks are a little different than the NetBSD 345 * setregid(2) call performs. This precisely follows the 346 * behavior of the Linux kernel. 347 */ 348 return do_setresgid(l, SCARG(uap,rgid), SCARG(uap, egid), 349 SCARG(uap, sgid), 350 ID_R_EQ_R | ID_R_EQ_E | ID_R_EQ_S | 351 ID_E_EQ_R | ID_E_EQ_E | ID_E_EQ_S | 352 ID_S_EQ_R | ID_S_EQ_E | ID_S_EQ_S ); 353 } 354 355 int 356 linux_sys_getresgid(l, v, retval) 357 struct lwp *l; 358 void *v; 359 register_t *retval; 360 { 361 struct linux_sys_getresgid_args /* { 362 syscallarg(gid_t *) rgid; 363 syscallarg(gid_t *) egid; 364 syscallarg(gid_t *) sgid; 365 } */ *uap = v; 366 struct proc *p = l->l_proc; 367 struct pcred *pc = p->p_cred; 368 int error; 369 370 /* 371 * Linux copies these values out to userspace like so: 372 * 373 * 1. Copy out rgid. 374 * 2. If that succeeds, copy out egid. 375 * 3. If both of those succeed, copy out sgid. 376 */ 377 if ((error = copyout(&pc->p_rgid, SCARG(uap, rgid), 378 sizeof(gid_t))) != 0) 379 return (error); 380 381 if ((error = copyout(&pc->pc_ucred->cr_gid, SCARG(uap, egid), 382 sizeof(gid_t))) != 0) 383 return (error); 384 385 return (copyout(&pc->p_svgid, SCARG(uap, sgid), sizeof(gid_t))); 386 } 387 388 /* 389 * I wonder why Linux has settimeofday() _and_ stime().. Still, we 390 * need to deal with it. 391 */ 392 int 393 linux_sys_stime(l, v, retval) 394 struct lwp *l; 395 void *v; 396 register_t *retval; 397 { 398 struct linux_sys_time_args /* { 399 linux_time_t *t; 400 } */ *uap = v; 401 struct proc *p = l->l_proc; 402 struct timeval atv; 403 linux_time_t tt; 404 int error; 405 406 if ((error = suser(p->p_ucred, &p->p_acflag)) != 0) 407 return (error); 408 409 if ((error = copyin(&tt, SCARG(uap, t), sizeof tt)) != 0) 410 return error; 411 412 atv.tv_sec = tt; 413 atv.tv_usec = 0; 414 415 if ((error = settime(&atv))) 416 return (error); 417 418 return 0; 419 } 420