Merge branch 'vendor/LIBARCHIVE'
[dragonfly.git] / sys / emulation / linux / linux_misc.c
1 /*-
2  * Copyright (c) 1994-1995 Søren Schmidt
3  * All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer
10  *    in this position and unchanged.
11  * 2. Redistributions in binary form must reproduce the above copyright
12  *    notice, this list of conditions and the following disclaimer in the
13  *    documentation and/or other materials provided with the distribution.
14  * 3. The name of the author may not be used to endorse or promote products
15  *    derived from this software withough specific prior written permission
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27  *
28  * $FreeBSD: src/sys/compat/linux/linux_misc.c,v 1.85.2.9 2002/09/24 08:11:41 mdodd Exp $
29  * $DragonFly: src/sys/emulation/linux/linux_misc.c,v 1.39 2007/06/26 19:31:03 dillon Exp $
30  */
31
32 #include "opt_compat.h"
33
34 #include <sys/param.h>
35 #include <sys/systm.h>
36 #include <sys/fcntl.h>
37 #include <sys/imgact_aout.h>
38 #include <sys/kernel.h>
39 #include <sys/kern_syscall.h>
40 #include <sys/lock.h>
41 #include <sys/mman.h>
42 #include <sys/mount.h>
43 #include <sys/poll.h>
44 #include <sys/proc.h>
45 #include <sys/priv.h>
46 #include <sys/nlookup.h>
47 #include <sys/blist.h>
48 #include <sys/reboot.h>
49 #include <sys/resourcevar.h>
50 #include <sys/signalvar.h>
51 #include <sys/signal2.h>
52 #include <sys/stat.h>
53 #include <sys/sysctl.h>
54 #include <sys/sysproto.h>
55 #include <sys/time.h>
56 #include <sys/unistd.h>
57 #include <sys/vmmeter.h>
58 #include <sys/vnode.h>
59 #include <sys/wait.h>
60 #include <sys/thread2.h>
61
62 #include <vm/vm.h>
63 #include <vm/pmap.h>
64 #include <vm/vm_kern.h>
65 #include <vm/vm_map.h>
66 #include <vm/vm_extern.h>
67 #include <vm/vm_object.h>
68 #include <vm/vm_zone.h>
69 #include <vm/swap_pager.h>
70
71 #include <machine/frame.h>
72 #include <machine/limits.h>
73 #include <machine/psl.h>
74 #include <machine/sysarch.h>
75 #ifdef __i386__
76 #include <machine/segments.h>
77 #endif
78
79 #include <sys/sched.h>
80
81 #include <emulation/linux/linux_sysproto.h>
82 #include <arch_linux/linux.h>
83 #include <arch_linux/linux_proto.h>
84 #include "linux_mib.h"
85 #include "linux_util.h"
86
87 #define BSD_TO_LINUX_SIGNAL(sig)        \
88         (((sig) <= LINUX_SIGTBLSZ) ? bsd_to_linux_signal[_SIG_IDX(sig)] : sig)
89
90 static unsigned int linux_to_bsd_resource[LINUX_RLIM_NLIMITS] = {
91         RLIMIT_CPU, RLIMIT_FSIZE, RLIMIT_DATA, RLIMIT_STACK,
92         RLIMIT_CORE, RLIMIT_RSS, RLIMIT_NPROC, RLIMIT_NOFILE,
93         RLIMIT_MEMLOCK, -1
94 };
95
96 struct l_sysinfo {
97         l_long          uptime;         /* Seconds since boot */
98         l_ulong         loads[3];       /* 1, 5, and 15 minute load averages */
99         l_ulong         totalram;       /* Total usable main memory size */
100         l_ulong         freeram;        /* Available memory size */
101         l_ulong         sharedram;      /* Amount of shared memory */
102         l_ulong         bufferram;      /* Memory used by buffers */
103         l_ulong         totalswap;      /* Total swap space size */
104         l_ulong         freeswap;       /* swap space still available */
105         l_ushort        procs;          /* Number of current processes */
106         char            _f[22];         /* Pads structure to 64 bytes */
107 };
108
109 int
110 sys_linux_sysinfo(struct linux_sysinfo_args *args)
111 {
112         struct l_sysinfo sysinfo;
113         vm_object_t object;
114         int i;
115         struct timespec ts;
116
117         /* Uptime is copied out of print_uptime() in kern_shutdown.c */
118         getnanouptime(&ts);
119         i = 0;
120         if (ts.tv_sec >= 86400) {
121                 ts.tv_sec %= 86400;
122                 i = 1;
123         }
124         if (i || ts.tv_sec >= 3600) {
125                 ts.tv_sec %= 3600;
126                 i = 1;
127         }
128         if (i || ts.tv_sec >= 60) {
129                 ts.tv_sec %= 60;
130                 i = 1;
131         }
132         sysinfo.uptime=ts.tv_sec;
133
134         /* Use the information from the mib to get our load averages */
135         for (i = 0; i < 3; i++)
136                 sysinfo.loads[i] = averunnable.ldavg[i];
137
138         sysinfo.totalram = Maxmem * PAGE_SIZE;
139         sysinfo.freeram = sysinfo.totalram - vmstats.v_wire_count * PAGE_SIZE;
140
141         sysinfo.sharedram = 0;
142         for (object = TAILQ_FIRST(&vm_object_list); object != NULL;
143              object = TAILQ_NEXT(object, object_list))
144                 if (object->shadow_count > 1)
145                         sysinfo.sharedram += object->resident_page_count;
146
147         sysinfo.sharedram *= PAGE_SIZE;
148         sysinfo.bufferram = 0;
149
150         if (swapblist == NULL) {
151                 sysinfo.totalswap= 0;
152                 sysinfo.freeswap = 0;
153         } else {
154                 sysinfo.totalswap = swapblist->bl_blocks * 1024;
155                 sysinfo.freeswap = swapblist->bl_root->u.bmu_avail * PAGE_SIZE;
156         }
157
158         sysinfo.procs = 20; /* Hack */
159
160         return copyout(&sysinfo, (caddr_t)args->info, sizeof(sysinfo));
161 }
162
163 int
164 sys_linux_alarm(struct linux_alarm_args *args)
165 {
166         struct thread *td = curthread;
167         struct proc *p = td->td_proc;
168         struct itimerval it, old_it;
169         struct timeval tv;
170
171         KKASSERT(p);
172
173 #ifdef DEBUG
174         if (ldebug(alarm))
175                 kprintf(ARGS(alarm, "%u"), args->secs);
176 #endif
177
178         if (args->secs > 100000000)
179                 return EINVAL;
180
181         it.it_value.tv_sec = (long)args->secs;
182         it.it_value.tv_usec = 0;
183         it.it_interval.tv_sec = 0;
184         it.it_interval.tv_usec = 0;
185         crit_enter();
186         old_it = p->p_realtimer;
187         getmicrouptime(&tv);
188         if (timevalisset(&old_it.it_value))
189                 callout_stop(&p->p_ithandle);
190         if (it.it_value.tv_sec != 0) {
191                 callout_reset(&p->p_ithandle, tvtohz_high(&it.it_value),
192                              realitexpire, p);
193                 timevaladd(&it.it_value, &tv);
194         }
195         p->p_realtimer = it;
196         crit_exit();
197         if (timevalcmp(&old_it.it_value, &tv, >)) {
198                 timevalsub(&old_it.it_value, &tv);
199                 if (old_it.it_value.tv_usec != 0)
200                         old_it.it_value.tv_sec++;
201                 args->sysmsg_result = old_it.it_value.tv_sec;
202         }
203         return 0;
204 }
205
206 int
207 sys_linux_brk(struct linux_brk_args *args)
208 {
209         struct thread *td = curthread;
210         struct proc *p = td->td_proc;
211         struct vmspace *vm;
212         vm_offset_t new, old;
213         struct obreak_args bsd_args;
214
215         KKASSERT(p);
216         vm = p->p_vmspace;
217 #ifdef DEBUG
218         if (ldebug(brk))
219                 kprintf(ARGS(brk, "%p"), (void *)args->dsend);
220 #endif
221         old = (vm_offset_t)vm->vm_daddr + ctob(vm->vm_dsize);
222         new = (vm_offset_t)args->dsend;
223         bsd_args.sysmsg_result = 0;
224         bsd_args.nsize = (char *) new;
225         bsd_args.sysmsg_result = 0;
226         if (((caddr_t)new > vm->vm_daddr) && !sys_obreak(&bsd_args))
227                 args->sysmsg_result = (long)new;
228         else
229                 args->sysmsg_result = (long)old;
230
231         return 0;
232 }
233
234 int
235 sys_linux_uselib(struct linux_uselib_args *args)
236 {
237         struct thread *td = curthread;
238         struct proc *p;
239         struct nlookupdata nd;
240         struct vnode *vp;
241         struct exec *a_out;
242         struct vattr attr;
243         vm_offset_t vmaddr;
244         unsigned long file_offset;
245         vm_offset_t buffer;
246         unsigned long bss_size;
247         int error;
248         int locked;
249         char *path;
250
251         KKASSERT(td->td_proc);
252         p = td->td_proc;
253
254         error = linux_copyin_path(args->library, &path, LINUX_PATH_EXISTS);
255         if (error)
256                 return (error);
257 #ifdef DEBUG
258         if (ldebug(uselib))
259                 kprintf(ARGS(uselib, "%s"), path);
260 #endif
261
262         a_out = NULL;
263         locked = 0;
264         vp = NULL;
265
266         error = nlookup_init(&nd, path, UIO_SYSSPACE, NLC_FOLLOW);
267         nd.nl_flags |= NLC_EXEC;
268         if (error == 0)
269                 error = nlookup(&nd);
270         if (error == 0)
271                 error = cache_vget(&nd.nl_nch, nd.nl_cred, LK_EXCLUSIVE, &vp);
272         if (error)
273                 goto cleanup;
274         /*
275          * From here on down, we have a locked vnode that must be unlocked.
276          */
277         locked = 1;
278
279         /* Writable? */
280         if (vp->v_writecount) {
281                 error = ETXTBSY;
282                 goto cleanup;
283         }
284
285         /* Executable? */
286         error = VOP_GETATTR(vp, &attr);
287         if (error)
288                 goto cleanup;
289
290         if ((vp->v_mount->mnt_flag & MNT_NOEXEC) ||
291             ((attr.va_mode & 0111) == 0) || (attr.va_type != VREG)) {
292                 error = ENOEXEC;
293                 goto cleanup;
294         }
295
296         /* Sensible size? */
297         if (attr.va_size == 0) {
298                 error = ENOEXEC;
299                 goto cleanup;
300         }
301
302         error = VOP_OPEN(vp, FREAD, p->p_ucred, NULL);
303         if (error)
304                 goto cleanup;
305
306         /*
307          * Lock no longer needed
308          */
309         vn_unlock(vp);
310         locked = 0;
311
312         /* Pull in executable header into kernel_map */
313         error = vm_mmap(&kernel_map, (vm_offset_t *)&a_out, PAGE_SIZE,
314             VM_PROT_READ, VM_PROT_READ, 0, (caddr_t)vp, 0);
315         if (error)
316                 goto cleanup;
317
318         /* Is it a Linux binary ? */
319         if (((a_out->a_magic >> 16) & 0xff) != 0x64) {
320                 error = ENOEXEC;
321                 goto cleanup;
322         }
323
324         /*
325          * While we are here, we should REALLY do some more checks
326          */
327
328         /* Set file/virtual offset based on a.out variant. */
329         switch ((int)(a_out->a_magic & 0xffff)) {
330         case 0413:      /* ZMAGIC */
331                 file_offset = 1024;
332                 break;
333         case 0314:      /* QMAGIC */
334                 file_offset = 0;
335                 break;
336         default:
337                 error = ENOEXEC;
338                 goto cleanup;
339         }
340
341         bss_size = round_page(a_out->a_bss);
342
343         /* Check various fields in header for validity/bounds. */
344         if (a_out->a_text & PAGE_MASK || a_out->a_data & PAGE_MASK) {
345                 error = ENOEXEC;
346                 goto cleanup;
347         }
348
349         /* text + data can't exceed file size */
350         if (a_out->a_data + a_out->a_text > attr.va_size) {
351                 error = EFAULT;
352                 goto cleanup;
353         }
354
355         /*
356          * text/data/bss must not exceed limits
357          * XXX - this is not complete. it should check current usage PLUS
358          * the resources needed by this library.
359          */
360         if (a_out->a_text > maxtsiz ||
361             a_out->a_data + bss_size > p->p_rlimit[RLIMIT_DATA].rlim_cur) {
362                 error = ENOMEM;
363                 goto cleanup;
364         }
365
366         /* prevent more writers */
367         vp->v_flag |= VTEXT;
368
369         /*
370          * Check if file_offset page aligned. Currently we cannot handle
371          * misalinged file offsets, and so we read in the entire image
372          * (what a waste).
373          */
374         if (file_offset & PAGE_MASK) {
375 #ifdef DEBUG
376                 kprintf("uselib: Non page aligned binary %lu\n", file_offset);
377 #endif
378                 /* Map text+data read/write/execute */
379
380                 /* a_entry is the load address and is page aligned */
381                 vmaddr = trunc_page(a_out->a_entry);
382
383                 /* get anon user mapping, read+write+execute */
384                 error = vm_map_find(&p->p_vmspace->vm_map, NULL, 0,
385                                     &vmaddr, a_out->a_text + a_out->a_data,
386                                     FALSE,
387                                     VM_MAPTYPE_NORMAL,
388                                     VM_PROT_ALL, VM_PROT_ALL,
389                                     0);
390                 if (error)
391                         goto cleanup;
392
393                 /* map file into kernel_map */
394                 error = vm_mmap(&kernel_map, &buffer,
395                     round_page(a_out->a_text + a_out->a_data + file_offset),
396                     VM_PROT_READ, VM_PROT_READ, 0, (caddr_t)vp,
397                     trunc_page(file_offset));
398                 if (error)
399                         goto cleanup;
400
401                 /* copy from kernel VM space to user space */
402                 error = copyout((caddr_t)(uintptr_t)(buffer + file_offset),
403                     (caddr_t)vmaddr, a_out->a_text + a_out->a_data);
404
405                 /* release temporary kernel space */
406                 vm_map_remove(&kernel_map, buffer, buffer +
407                     round_page(a_out->a_text + a_out->a_data + file_offset));
408
409                 if (error)
410                         goto cleanup;
411         } else {
412 #ifdef DEBUG
413                 kprintf("uselib: Page aligned binary %lu\n", file_offset);
414 #endif
415                 /*
416                  * for QMAGIC, a_entry is 20 bytes beyond the load address
417                  * to skip the executable header
418                  */
419                 vmaddr = trunc_page(a_out->a_entry);
420
421                 /*
422                  * Map it all into the process's space as a single
423                  * copy-on-write "data" segment.
424                  */
425                 error = vm_mmap(&p->p_vmspace->vm_map, &vmaddr,
426                     a_out->a_text + a_out->a_data, VM_PROT_ALL, VM_PROT_ALL,
427                     MAP_PRIVATE | MAP_FIXED, (caddr_t)vp, file_offset);
428                 if (error)
429                         goto cleanup;
430         }
431 #ifdef DEBUG
432         kprintf("mem=%08lx = %08lx %08lx\n", (long)vmaddr, ((long*)vmaddr)[0],
433             ((long*)vmaddr)[1]);
434 #endif
435         if (bss_size != 0) {
436                 /* Calculate BSS start address */
437                 vmaddr = trunc_page(a_out->a_entry) + a_out->a_text +
438                     a_out->a_data;
439
440                 /* allocate some 'anon' space */
441                 error = vm_map_find(&p->p_vmspace->vm_map, NULL, 0,
442                                     &vmaddr, bss_size,
443                                     FALSE,
444                                     VM_MAPTYPE_NORMAL,
445                                     VM_PROT_ALL, VM_PROT_ALL,
446                                     0);
447                 if (error)
448                         goto cleanup;
449         }
450
451 cleanup:
452         /* Unlock/release vnode */
453         if (vp) {
454                 if (locked)
455                         vn_unlock(vp);
456                 vrele(vp);
457         }
458         /* Release the kernel mapping. */
459         if (a_out) {
460                 vm_map_remove(&kernel_map, (vm_offset_t)a_out,
461                     (vm_offset_t)a_out + PAGE_SIZE);
462         }
463         nlookup_done(&nd);
464         linux_free_path(&path);
465         return (error);
466 }
467
468 int
469 sys_linux_select(struct linux_select_args *args)
470 {
471         struct select_args bsa;
472         struct timeval tv0, tv1, utv, *tvp;
473         caddr_t sg;
474         int error;
475
476 #ifdef DEBUG
477         if (ldebug(select))
478                 kprintf(ARGS(select, "%d, %p, %p, %p, %p"), args->nfds,
479                     (void *)args->readfds, (void *)args->writefds,
480                     (void *)args->exceptfds, (void *)args->timeout);
481 #endif
482
483         error = 0;
484         bsa.sysmsg_result = 0;
485         bsa.nd = args->nfds;
486         bsa.in = args->readfds;
487         bsa.ou = args->writefds;
488         bsa.ex = args->exceptfds;
489         bsa.tv = (struct timeval *)args->timeout;
490
491         /*
492          * Store current time for computation of the amount of
493          * time left.
494          */
495         if (args->timeout) {
496                 if ((error = copyin((caddr_t)args->timeout, &utv,
497                     sizeof(utv))))
498                         goto select_out;
499 #ifdef DEBUG
500                 if (ldebug(select))
501                         kprintf(LMSG("incoming timeout (%ld/%ld)"),
502                             utv.tv_sec, utv.tv_usec);
503 #endif
504
505                 if (itimerfix(&utv)) {
506                         /*
507                          * The timeval was invalid.  Convert it to something
508                          * valid that will act as it does under Linux.
509                          */
510                         sg = stackgap_init();
511                         tvp = stackgap_alloc(&sg, sizeof(utv));
512                         utv.tv_sec += utv.tv_usec / 1000000;
513                         utv.tv_usec %= 1000000;
514                         if (utv.tv_usec < 0) {
515                                 utv.tv_sec -= 1;
516                                 utv.tv_usec += 1000000;
517                         }
518                         if (utv.tv_sec < 0)
519                                 timevalclear(&utv);
520                         if ((error = copyout(&utv, tvp, sizeof(utv))))
521                                 goto select_out;
522                         bsa.tv = tvp;
523                 }
524                 microtime(&tv0);
525         }
526
527         error = sys_select(&bsa);
528         args->sysmsg_result = bsa.sysmsg_result;
529 #ifdef DEBUG
530         if (ldebug(select))
531                 kprintf(LMSG("real select returns %d"), error);
532 #endif
533         if (error) {
534                 /*
535                  * See fs/select.c in the Linux kernel.  Without this,
536                  * Maelstrom doesn't work.
537                  */
538                 if (error == ERESTART)
539                         error = EINTR;
540                 goto select_out;
541         }
542
543         if (args->timeout) {
544                 if (args->sysmsg_result) {
545                         /*
546                          * Compute how much time was left of the timeout,
547                          * by subtracting the current time and the time
548                          * before we started the call, and subtracting
549                          * that result from the user-supplied value.
550                          */
551                         microtime(&tv1);
552                         timevalsub(&tv1, &tv0);
553                         timevalsub(&utv, &tv1);
554                         if (utv.tv_sec < 0)
555                                 timevalclear(&utv);
556                 } else
557                         timevalclear(&utv);
558 #ifdef DEBUG
559                 if (ldebug(select))
560                         kprintf(LMSG("outgoing timeout (%ld/%ld)"),
561                             utv.tv_sec, utv.tv_usec);
562 #endif
563                 if ((error = copyout(&utv, (caddr_t)args->timeout,
564                     sizeof(utv))))
565                         goto select_out;
566         }
567
568 select_out:
569 #ifdef DEBUG
570         if (ldebug(select))
571                 kprintf(LMSG("select_out -> %d"), error);
572 #endif
573         return error;
574 }
575
576 int     
577 sys_linux_mremap(struct linux_mremap_args *args)
578 {
579         struct munmap_args bsd_args; 
580         int error = 0;
581
582 #ifdef DEBUG
583         if (ldebug(mremap))
584                 kprintf(ARGS(mremap, "%p, %08lx, %08lx, %08lx"),
585                     (void *)args->addr, 
586                     (unsigned long)args->old_len, 
587                     (unsigned long)args->new_len,
588                     (unsigned long)args->flags);
589 #endif
590         args->new_len = round_page(args->new_len);
591         args->old_len = round_page(args->old_len);
592
593         if (args->new_len > args->old_len) {
594                 args->sysmsg_result = 0;
595                 return ENOMEM;
596         }
597
598         if (args->new_len < args->old_len) {
599                 bsd_args.sysmsg_result = 0;
600                 bsd_args.addr = (caddr_t)(args->addr + args->new_len);
601                 bsd_args.len = args->old_len - args->new_len;
602                 error = sys_munmap(&bsd_args);
603         }
604
605         args->sysmsg_resultp = error ? NULL : (void *)args->addr;
606         return error;
607 }
608
609 #define LINUX_MS_ASYNC          0x0001
610 #define LINUX_MS_INVALIDATE     0x0002
611 #define LINUX_MS_SYNC           0x0004
612
613 int
614 sys_linux_msync(struct linux_msync_args *args)
615 {
616         struct msync_args bsd_args;
617         int error;
618
619         bsd_args.addr = (caddr_t)args->addr;
620         bsd_args.len = args->len;
621         bsd_args.flags = args->fl & ~LINUX_MS_SYNC;
622         bsd_args.sysmsg_result = 0;
623
624         error = sys_msync(&bsd_args);
625         args->sysmsg_result = bsd_args.sysmsg_result;
626         return(error);
627 }
628
629 int
630 sys_linux_time(struct linux_time_args *args)
631 {
632         struct timeval tv;
633         l_time_t tm;
634         int error;
635
636 #ifdef DEBUG
637         if (ldebug(time))
638                 kprintf(ARGS(time, "*"));
639 #endif
640
641         microtime(&tv);
642         tm = tv.tv_sec;
643         if (args->tm && (error = copyout(&tm, (caddr_t)args->tm, sizeof(tm))))
644                 return error;
645         args->sysmsg_lresult = tm;
646         return 0;
647 }
648
649 struct l_times_argv {
650         l_long          tms_utime;
651         l_long          tms_stime;
652         l_long          tms_cutime;
653         l_long          tms_cstime;
654 };
655
656 #define CLK_TCK 100     /* Linux uses 100 */
657
658 #define CONVTCK(r)      (r.tv_sec * CLK_TCK + r.tv_usec / (1000000 / CLK_TCK))
659
660 int
661 sys_linux_times(struct linux_times_args *args)
662 {
663         struct thread *td = curthread;
664         struct proc *p = td->td_proc;
665         struct timeval tv;
666         struct l_times_argv tms;
667         struct rusage ru;
668         int error;
669
670         KKASSERT(p);
671 #ifdef DEBUG
672         if (ldebug(times))
673                 kprintf(ARGS(times, "*"));
674 #endif
675
676         calcru_proc(p, &ru);
677
678         tms.tms_utime = CONVTCK(ru.ru_utime);
679         tms.tms_stime = CONVTCK(ru.ru_stime);
680
681         tms.tms_cutime = CONVTCK(p->p_cru.ru_utime);
682         tms.tms_cstime = CONVTCK(p->p_cru.ru_stime);
683
684         if ((error = copyout(&tms, (caddr_t)args->buf, sizeof(tms))))
685                 return error;
686
687         microuptime(&tv);
688         args->sysmsg_result = (int)CONVTCK(tv);
689         return 0;
690 }
691
692 int
693 sys_linux_newuname(struct linux_newuname_args *args)
694 {
695         struct thread *td = curthread;
696         struct l_new_utsname utsname;
697         char *osrelease, *osname;
698
699 #ifdef DEBUG
700         if (ldebug(newuname))
701                 kprintf(ARGS(newuname, "*"));
702 #endif
703
704         osname = linux_get_osname(td);
705         osrelease = linux_get_osrelease(td);
706
707         bzero(&utsname, sizeof(utsname));
708         strncpy(utsname.sysname, osname, LINUX_MAX_UTSNAME-1);
709         strncpy(utsname.nodename, hostname, LINUX_MAX_UTSNAME-1);
710         strncpy(utsname.release, osrelease, LINUX_MAX_UTSNAME-1);
711         strncpy(utsname.version, version, LINUX_MAX_UTSNAME-1);
712         strncpy(utsname.machine, machine, LINUX_MAX_UTSNAME-1);
713         strncpy(utsname.domainname, domainname, LINUX_MAX_UTSNAME-1);
714
715         return (copyout(&utsname, (caddr_t)args->buf, sizeof(utsname)));
716 }
717
718 #if defined(__i386__)
719 struct l_utimbuf {
720         l_time_t l_actime;
721         l_time_t l_modtime;
722 };
723
724 int
725 sys_linux_utime(struct linux_utime_args *args)
726 {
727         struct timeval tv[2];
728         struct l_utimbuf lut;
729         struct nlookupdata nd;
730         char *path;
731         int error;
732
733         error = linux_copyin_path(args->fname, &path, LINUX_PATH_EXISTS);
734         if (error)
735                 return (error);
736 #ifdef DEBUG
737         if (ldebug(utime))
738                 kprintf(ARGS(utime, "%s, *"), path);
739 #endif
740
741         if (args->times) {
742                 error = copyin(args->times, &lut, sizeof(lut));
743                 if (error)
744                         goto cleanup;
745                 tv[0].tv_sec = lut.l_actime;
746                 tv[0].tv_usec = 0;
747                 tv[1].tv_sec = lut.l_modtime;
748                 tv[1].tv_usec = 0;
749         }
750         error = nlookup_init(&nd, path, UIO_SYSSPACE, NLC_FOLLOW);
751         if (error == 0)
752                 error = kern_utimes(&nd, args->times ? tv : NULL);
753         nlookup_done(&nd);
754 cleanup:
755         linux_free_path(&path);
756         return (error);
757 }
758 #endif /* __i386__ */
759
760 #define __WCLONE 0x80000000
761
762 int
763 sys_linux_waitpid(struct linux_waitpid_args *args)
764 {
765         int error, options, status;
766
767 #ifdef DEBUG
768         if (ldebug(waitpid))
769                 kprintf(ARGS(waitpid, "%d, %p, %d"),
770                     args->pid, (void *)args->status, args->options);
771 #endif
772         options = args->options & (WNOHANG | WUNTRACED);
773         /* WLINUXCLONE should be equal to __WCLONE, but we make sure */
774         if (args->options & __WCLONE)
775                 options |= WLINUXCLONE;
776
777         error = kern_wait(args->pid, args->status ? &status : NULL, options,
778             NULL, &args->sysmsg_result);
779
780         if (error == 0 && args->status) {
781                 status &= 0xffff;
782                 if (WIFSIGNALED(status))
783                         status = (status & 0xffffff80) |
784                             BSD_TO_LINUX_SIGNAL(WTERMSIG(status));
785                 else if (WIFSTOPPED(status))
786                         status = (status & 0xffff00ff) |
787                             (BSD_TO_LINUX_SIGNAL(WSTOPSIG(status)) << 8);
788                 error = copyout(&status, args->status, sizeof(status));
789         }
790
791         return (error);
792 }
793
794 int
795 sys_linux_wait4(struct linux_wait4_args *args)
796 {
797         struct thread *td = curthread;
798         struct lwp *lp = td->td_lwp;
799         struct rusage rusage;
800         int error, options, status;
801
802         KKASSERT(lp);
803
804 #ifdef DEBUG
805         if (ldebug(wait4))
806                 kprintf(ARGS(wait4, "%d, %p, %d, %p"),
807                     args->pid, (void *)args->status, args->options,
808                     (void *)args->rusage);
809 #endif
810         options = args->options & (WNOHANG | WUNTRACED);
811         /* WLINUXCLONE should be equal to __WCLONE, but we make sure */
812         if (args->options & __WCLONE)
813                 options |= WLINUXCLONE;
814
815         error = kern_wait(args->pid, args->status ? &status : NULL, options,
816             args->rusage ? &rusage : NULL, &args->sysmsg_result);
817
818         if (error == 0)
819                 lwp_delsig(lp, SIGCHLD);
820
821         if (error == 0 && args->status) {
822                 status &= 0xffff;
823                 if (WIFSIGNALED(status))
824                         status = (status & 0xffffff80) |
825                             BSD_TO_LINUX_SIGNAL(WTERMSIG(status));
826                 else if (WIFSTOPPED(status))
827                         status = (status & 0xffff00ff) |
828                             (BSD_TO_LINUX_SIGNAL(WSTOPSIG(status)) << 8);
829                 error = copyout(&status, args->status, sizeof(status));
830         }
831         if (error == 0 && args->rusage)
832                 error = copyout(&rusage, args->rusage, sizeof(rusage));
833
834         return (error);
835 }
836
837 int
838 sys_linux_mknod(struct linux_mknod_args *args)
839 {
840         struct nlookupdata nd;
841         char *path;
842         int error;
843
844         error = linux_copyin_path(args->path, &path, LINUX_PATH_CREATE);
845         if (error)
846                 return (error);
847 #ifdef DEBUG
848         if (ldebug(mknod))
849                 kprintf(ARGS(mknod, "%s, %d, %d"),
850                     path, args->mode, args->dev);
851 #endif
852         error = nlookup_init(&nd, path, UIO_SYSSPACE, 0);
853         if (error == 0) {
854                 if (args->mode & S_IFIFO) {
855                         error = kern_mkfifo(&nd, args->mode);
856                 } else {
857                         error = kern_mknod(&nd, args->mode,
858                                            umajor(args->dev),
859                                            uminor(args->dev));
860                 }
861         }
862         nlookup_done(&nd);
863
864         linux_free_path(&path);
865         return(error);
866 }
867
868 /*
869  * UGH! This is just about the dumbest idea I've ever heard!!
870  */
871 int
872 sys_linux_personality(struct linux_personality_args *args)
873 {
874 #ifdef DEBUG
875         if (ldebug(personality))
876                 kprintf(ARGS(personality, "%d"), args->per);
877 #endif
878         if (args->per != 0)
879                 return EINVAL;
880
881         /* Yes Jim, it's still a Linux... */
882         args->sysmsg_result = 0;
883         return 0;
884 }
885
886 /*
887  * Wrappers for get/setitimer for debugging..
888  */
889 int
890 sys_linux_setitimer(struct linux_setitimer_args *args)
891 {
892         struct setitimer_args bsa;
893         struct itimerval foo;
894         int error;
895
896 #ifdef DEBUG
897         if (ldebug(setitimer))
898                 kprintf(ARGS(setitimer, "%p, %p"),
899                     (void *)args->itv, (void *)args->oitv);
900 #endif
901         bsa.which = args->which;
902         bsa.itv = (struct itimerval *)args->itv;
903         bsa.oitv = (struct itimerval *)args->oitv;
904         bsa.sysmsg_result = 0;
905         if (args->itv) {
906             if ((error = copyin((caddr_t)args->itv, &foo, sizeof(foo))))
907                 return error;
908 #ifdef DEBUG
909             if (ldebug(setitimer)) {
910                 kprintf("setitimer: value: sec: %ld, usec: %ld\n",
911                     foo.it_value.tv_sec, foo.it_value.tv_usec);
912                 kprintf("setitimer: interval: sec: %ld, usec: %ld\n",
913                     foo.it_interval.tv_sec, foo.it_interval.tv_usec);
914             }
915 #endif
916         }
917         error = sys_setitimer(&bsa);
918         args->sysmsg_result = bsa.sysmsg_result;
919         return(error);
920 }
921
922 int
923 sys_linux_getitimer(struct linux_getitimer_args *args)
924 {
925         struct getitimer_args bsa;
926         int error;
927 #ifdef DEBUG
928         if (ldebug(getitimer))
929                 kprintf(ARGS(getitimer, "%p"), (void *)args->itv);
930 #endif
931         bsa.which = args->which;
932         bsa.itv = (struct itimerval *)args->itv;
933         bsa.sysmsg_result = 0;
934         error = sys_getitimer(&bsa);
935         args->sysmsg_result = bsa.sysmsg_result;
936         return(error);
937 }
938
939 int
940 sys_linux_nice(struct linux_nice_args *args)
941 {
942         struct setpriority_args bsd_args;
943         int error;
944
945         bsd_args.which = PRIO_PROCESS;
946         bsd_args.who = 0;       /* current process */
947         bsd_args.prio = args->inc;
948         bsd_args.sysmsg_result = 0;
949         error = sys_setpriority(&bsd_args);
950         args->sysmsg_result = bsd_args.sysmsg_result;
951         return(error);
952 }
953
954 int
955 sys_linux_setgroups(struct linux_setgroups_args *args)
956 {
957         struct thread *td = curthread;
958         struct proc *p = td->td_proc;
959         struct ucred *newcred, *oldcred;
960         l_gid_t linux_gidset[NGROUPS];
961         gid_t *bsd_gidset;
962         int ngrp, error;
963
964         KKASSERT(p);
965
966         ngrp = args->gidsetsize;
967         oldcred = p->p_ucred;
968
969         /*
970          * cr_groups[0] holds egid. Setting the whole set from
971          * the supplied set will cause egid to be changed too.
972          * Keep cr_groups[0] unchanged to prevent that.
973          */
974
975         if ((error = priv_check_cred(oldcred, PRIV_CRED_SETGROUPS, 0)) != 0)
976                 return (error);
977
978         if (ngrp >= NGROUPS)
979                 return (EINVAL);
980
981         newcred = crdup(oldcred);
982         if (ngrp > 0) {
983                 error = copyin((caddr_t)args->grouplist, linux_gidset,
984                                ngrp * sizeof(l_gid_t));
985                 if (error) {
986                         crfree(newcred);
987                         return (error);
988                 }
989
990                 newcred->cr_ngroups = ngrp + 1;
991
992                 bsd_gidset = newcred->cr_groups;
993                 ngrp--;
994                 while (ngrp >= 0) {
995                         bsd_gidset[ngrp + 1] = linux_gidset[ngrp];
996                         ngrp--;
997                 }
998         } else {
999                 newcred->cr_ngroups = 1;
1000         }
1001
1002         setsugid();
1003         p->p_ucred = newcred;
1004         crfree(oldcred);
1005         return (0);
1006 }
1007
1008 int
1009 sys_linux_getgroups(struct linux_getgroups_args *args)
1010 {
1011         struct thread *td = curthread;
1012         struct proc *p = td->td_proc;
1013         struct ucred *cred;
1014         l_gid_t linux_gidset[NGROUPS];
1015         gid_t *bsd_gidset;
1016         int bsd_gidsetsz, ngrp, error;
1017
1018         KKASSERT(p);
1019
1020         cred = p->p_ucred;
1021         bsd_gidset = cred->cr_groups;
1022         bsd_gidsetsz = cred->cr_ngroups - 1;
1023
1024         /*
1025          * cr_groups[0] holds egid. Returning the whole set
1026          * here will cause a duplicate. Exclude cr_groups[0]
1027          * to prevent that.
1028          */
1029
1030         if ((ngrp = args->gidsetsize) == 0) {
1031                 args->sysmsg_result = bsd_gidsetsz;
1032                 return (0);
1033         }
1034
1035         if (ngrp < bsd_gidsetsz)
1036                 return (EINVAL);
1037
1038         ngrp = 0;
1039         while (ngrp < bsd_gidsetsz) {
1040                 linux_gidset[ngrp] = bsd_gidset[ngrp + 1];
1041                 ngrp++;
1042         }
1043
1044         if ((error = copyout(linux_gidset, (caddr_t)args->grouplist,
1045             ngrp * sizeof(l_gid_t))))
1046                 return (error);
1047
1048         args->sysmsg_result = ngrp;
1049         return (0);
1050 }
1051
1052 int
1053 sys_linux_setrlimit(struct linux_setrlimit_args *args)
1054 {
1055         struct l_rlimit linux_rlim;
1056         struct rlimit rlim;
1057         u_int which;
1058         int error;
1059
1060 #ifdef DEBUG
1061         if (ldebug(setrlimit))
1062                 kprintf(ARGS(setrlimit, "%d, %p"),
1063                     args->resource, (void *)args->rlim);
1064 #endif
1065         if (args->resource >= LINUX_RLIM_NLIMITS)
1066                 return (EINVAL);
1067         which = linux_to_bsd_resource[args->resource];
1068         if (which == -1)
1069                 return (EINVAL);
1070
1071         error = copyin(args->rlim, &linux_rlim, sizeof(linux_rlim));
1072         if (error)
1073                 return (error);
1074         rlim.rlim_cur = (rlim_t)linux_rlim.rlim_cur;
1075         rlim.rlim_max = (rlim_t)linux_rlim.rlim_max;
1076
1077         error = kern_setrlimit(which, &rlim);
1078
1079         return(error);
1080 }
1081
1082 int
1083 sys_linux_old_getrlimit(struct linux_old_getrlimit_args *args)
1084 {
1085         struct l_rlimit linux_rlim;
1086         struct rlimit rlim;
1087         u_int which;
1088         int error;
1089
1090 #ifdef DEBUG
1091         if (ldebug(old_getrlimit))
1092                 kprintf(ARGS(old_getrlimit, "%d, %p"),
1093                     args->resource, (void *)args->rlim);
1094 #endif
1095         if (args->resource >= LINUX_RLIM_NLIMITS)
1096                 return (EINVAL);
1097         which = linux_to_bsd_resource[args->resource];
1098         if (which == -1)
1099                 return (EINVAL);
1100
1101         error = kern_getrlimit(which, &rlim);
1102
1103         if (error == 0) {
1104                 linux_rlim.rlim_cur = (l_ulong)rlim.rlim_cur;
1105                 if (linux_rlim.rlim_cur == ULONG_MAX)
1106                         linux_rlim.rlim_cur = LONG_MAX;
1107                 linux_rlim.rlim_max = (l_ulong)rlim.rlim_max;
1108                 if (linux_rlim.rlim_max == ULONG_MAX)
1109                         linux_rlim.rlim_max = LONG_MAX;
1110                 error = copyout(&linux_rlim, args->rlim, sizeof(linux_rlim));
1111         }
1112         return (error);
1113 }
1114
1115 int
1116 sys_linux_getrlimit(struct linux_getrlimit_args *args)
1117 {
1118         struct l_rlimit linux_rlim;
1119         struct rlimit rlim;
1120         u_int which;
1121         int error;
1122
1123 #ifdef DEBUG
1124         if (ldebug(getrlimit))
1125                 kprintf(ARGS(getrlimit, "%d, %p"),
1126                     args->resource, (void *)args->rlim);
1127 #endif
1128         if (args->resource >= LINUX_RLIM_NLIMITS)
1129                 return (EINVAL);
1130         which = linux_to_bsd_resource[args->resource];
1131         if (which == -1)
1132                 return (EINVAL);
1133
1134         error = kern_getrlimit(which, &rlim);
1135
1136         if (error == 0) {
1137                 linux_rlim.rlim_cur = (l_ulong)rlim.rlim_cur;
1138                 linux_rlim.rlim_max = (l_ulong)rlim.rlim_max;
1139                 error = copyout(&linux_rlim, args->rlim, sizeof(linux_rlim));
1140         }
1141         return (error);
1142 }
1143
1144 int
1145 sys_linux_sched_setscheduler(struct linux_sched_setscheduler_args *args)
1146 {
1147         struct sched_setscheduler_args bsd;
1148         int error;
1149
1150 #ifdef DEBUG
1151         if (ldebug(sched_setscheduler))
1152                 kprintf(ARGS(sched_setscheduler, "%d, %d, %p"),
1153                     args->pid, args->policy, (const void *)args->param);
1154 #endif
1155
1156         switch (args->policy) {
1157         case LINUX_SCHED_OTHER:
1158                 bsd.policy = SCHED_OTHER;
1159                 break;
1160         case LINUX_SCHED_FIFO:
1161                 bsd.policy = SCHED_FIFO;
1162                 break;
1163         case LINUX_SCHED_RR:
1164                 bsd.policy = SCHED_RR;
1165                 break;
1166         default:
1167                 return EINVAL;
1168         }
1169
1170         bsd.pid = args->pid;
1171         bsd.param = (struct sched_param *)args->param;
1172         bsd.sysmsg_result = 0;
1173
1174         error = sys_sched_setscheduler(&bsd);
1175         args->sysmsg_result = bsd.sysmsg_result;
1176         return(error);
1177 }
1178
1179 int
1180 sys_linux_sched_getscheduler(struct linux_sched_getscheduler_args *args)
1181 {
1182         struct sched_getscheduler_args bsd;
1183         int error;
1184
1185 #ifdef DEBUG
1186         if (ldebug(sched_getscheduler))
1187                 kprintf(ARGS(sched_getscheduler, "%d"), args->pid);
1188 #endif
1189
1190         bsd.sysmsg_result = 0;
1191         bsd.pid = args->pid;
1192         error = sys_sched_getscheduler(&bsd);
1193         args->sysmsg_result = bsd.sysmsg_result;
1194
1195         switch (args->sysmsg_result) {
1196         case SCHED_OTHER:
1197                 args->sysmsg_result = LINUX_SCHED_OTHER;
1198                 break;
1199         case SCHED_FIFO:
1200                 args->sysmsg_result = LINUX_SCHED_FIFO;
1201                 break;
1202         case SCHED_RR:
1203                 args->sysmsg_result = LINUX_SCHED_RR;
1204                 break;
1205         }
1206         return error;
1207 }
1208
1209 int
1210 sys_linux_sched_get_priority_max(struct linux_sched_get_priority_max_args *args)
1211 {
1212         struct sched_get_priority_max_args bsd;
1213         int error;
1214
1215 #ifdef DEBUG
1216         if (ldebug(sched_get_priority_max))
1217                 kprintf(ARGS(sched_get_priority_max, "%d"), args->policy);
1218 #endif
1219
1220         switch (args->policy) {
1221         case LINUX_SCHED_OTHER:
1222                 bsd.policy = SCHED_OTHER;
1223                 break;
1224         case LINUX_SCHED_FIFO:
1225                 bsd.policy = SCHED_FIFO;
1226                 break;
1227         case LINUX_SCHED_RR:
1228                 bsd.policy = SCHED_RR;
1229                 break;
1230         default:
1231                 return EINVAL;
1232         }
1233         bsd.sysmsg_result = 0;
1234
1235         error = sys_sched_get_priority_max(&bsd);
1236         args->sysmsg_result = bsd.sysmsg_result;
1237         return(error);
1238 }
1239
1240 int
1241 sys_linux_sched_get_priority_min(struct linux_sched_get_priority_min_args *args)
1242 {
1243         struct sched_get_priority_min_args bsd;
1244         int error;
1245
1246 #ifdef DEBUG
1247         if (ldebug(sched_get_priority_min))
1248                 kprintf(ARGS(sched_get_priority_min, "%d"), args->policy);
1249 #endif
1250
1251         switch (args->policy) {
1252         case LINUX_SCHED_OTHER:
1253                 bsd.policy = SCHED_OTHER;
1254                 break;
1255         case LINUX_SCHED_FIFO:
1256                 bsd.policy = SCHED_FIFO;
1257                 break;
1258         case LINUX_SCHED_RR:
1259                 bsd.policy = SCHED_RR;
1260                 break;
1261         default:
1262                 return EINVAL;
1263         }
1264         bsd.sysmsg_result = 0;
1265
1266         error = sys_sched_get_priority_min(&bsd);
1267         args->sysmsg_result = bsd.sysmsg_result;
1268         return(error);
1269 }
1270
1271 #define REBOOT_CAD_ON   0x89abcdef
1272 #define REBOOT_CAD_OFF  0
1273 #define REBOOT_HALT     0xcdef0123
1274
1275 int
1276 sys_linux_reboot(struct linux_reboot_args *args)
1277 {
1278         struct reboot_args bsd_args;
1279         int error;
1280
1281 #ifdef DEBUG
1282         if (ldebug(reboot))
1283                 kprintf(ARGS(reboot, "0x%x"), args->cmd);
1284 #endif
1285         if (args->cmd == REBOOT_CAD_ON || args->cmd == REBOOT_CAD_OFF)
1286                 return (0);
1287         bsd_args.opt = (args->cmd == REBOOT_HALT) ? RB_HALT : 0;
1288         bsd_args.sysmsg_result = 0;
1289
1290         error = sys_reboot(&bsd_args);
1291         args->sysmsg_result = bsd_args.sysmsg_result;
1292         return(error);
1293 }
1294
1295 /*
1296  * The FreeBSD native getpid(2), getgid(2) and getuid(2) also modify
1297  * p->p_retval[1] when COMPAT_43 or COMPAT_SUNOS is defined. This
1298  * globbers registers that are assumed to be preserved. The following
1299  * lightweight syscalls fixes this. See also linux_getgid16() and
1300  * linux_getuid16() in linux_uid16.c.
1301  *
1302  * linux_getpid() - MP SAFE
1303  * linux_getgid() - MP SAFE
1304  * linux_getuid() - MP SAFE
1305  */
1306
1307 int
1308 sys_linux_getpid(struct linux_getpid_args *args)
1309 {
1310         struct thread *td = curthread;
1311         struct proc *p = td->td_proc;
1312
1313         KKASSERT(p);
1314
1315         args->sysmsg_result = p->p_pid;
1316         return (0);
1317 }
1318
1319 int
1320 sys_linux_getgid(struct linux_getgid_args *args)
1321 {
1322         struct thread *td = curthread;
1323         struct proc *p = td->td_proc;
1324
1325         KKASSERT(p);
1326
1327         args->sysmsg_result = p->p_ucred->cr_rgid;
1328         return (0);
1329 }
1330
1331 int
1332 sys_linux_getuid(struct linux_getuid_args *args)
1333 {
1334         struct thread *td = curthread;
1335         struct proc *p = td->td_proc;
1336
1337         KKASSERT(p);
1338
1339         args->sysmsg_result = p->p_ucred->cr_ruid;
1340         return (0);
1341 }
1342
1343 int
1344 sys_linux_getsid(struct linux_getsid_args *args)
1345 {
1346         struct getsid_args bsd;
1347         int error;
1348
1349         bsd.sysmsg_result = 0;
1350         bsd.pid = args->pid;
1351         error = sys_getsid(&bsd);
1352         args->sysmsg_result = bsd.sysmsg_result;
1353         return(error);
1354 }
1355
1356 int
1357 linux_nosys(struct nosys_args *args)
1358 {
1359         /* XXX */
1360         return (ENOSYS);
1361 }