partially fix pctcpu and userland rescheduling. We really have to distribute
[dragonfly.git] / sys / kern / kern_xxx.c
1 /*
2  * Copyright (c) 1982, 1986, 1989, 1993
3  *      The Regents of the University of California.  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  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  *
33  *      @(#)kern_xxx.c  8.2 (Berkeley) 11/14/93
34  * $FreeBSD: src/sys/kern/kern_xxx.c,v 1.31 1999/08/28 00:46:15 peter Exp $
35  * $DragonFly: src/sys/kern/kern_xxx.c,v 1.4 2003/06/25 03:55:57 dillon Exp $
36  */
37
38 #include "opt_compat.h"
39
40 #include <sys/param.h>
41 #include <sys/systm.h>
42 #include <sys/sysproto.h>
43 #include <sys/kernel.h>
44 #include <sys/proc.h>
45 #include <sys/sysctl.h>
46 #include <sys/utsname.h>
47
48
49 #if defined(COMPAT_43) || defined(COMPAT_SUNOS)
50
51 #ifndef _SYS_SYSPROTO_H_
52 struct gethostname_args {
53         char    *hostname;
54         u_int   len;
55 };
56 #endif
57 /* ARGSUSED */
58 int
59 ogethostname(struct gethostname_args *uap)
60 {
61         int name[2];
62         size_t len = uap->len;
63
64         name[0] = CTL_KERN;
65         name[1] = KERN_HOSTNAME;
66         return (userland_sysctl(name, 2, uap->hostname, &len, 
67                 1, 0, 0, 0));
68 }
69
70 #ifndef _SYS_SYSPROTO_H_
71 struct sethostname_args {
72         char    *hostname;
73         u_int   len;
74 };
75 #endif
76 /* ARGSUSED */
77 int
78 osethostname(struct sethostname_args *uap)
79 {
80         struct thread *td = curthread;
81         struct proc *p = td->td_proc;
82         int name[2];
83         int error;
84
85         KKASSERT(p);
86         name[0] = CTL_KERN;
87         name[1] = KERN_HOSTNAME;
88         if ((error = suser_cred(p->p_ucred, PRISON_ROOT)))
89                 return (error);
90         return (userland_sysctl(name, 2, 0, 0, 0, uap->hostname, uap->len, 0));
91 }
92
93 #ifndef _SYS_SYSPROTO_H_
94 struct ogethostid_args {
95         int     dummy;
96 };
97 #endif
98 /* ARGSUSED */
99 int
100 ogethostid(struct ogethostid_args *uap)
101 {
102         struct proc *p = curproc;
103
104         *(long *)(p->p_retval) = hostid;
105         return (0);
106 }
107 #endif /* COMPAT_43 || COMPAT_SUNOS */
108
109 #ifdef COMPAT_43
110 #ifndef _SYS_SYSPROTO_H_
111 struct osethostid_args {
112         long    hostid;
113 };
114 #endif
115 /* ARGSUSED */
116 int
117 osethostid(struct osethostid_args *uap)
118 {
119         struct thread *td = curthread;
120         int error;
121
122         if ((error = suser(td)))
123                 return (error);
124         hostid = uap->hostid;
125         return (0);
126 }
127
128 int
129 oquota(struct oquota_args *uap)
130 {
131         return (ENOSYS);
132 }
133 #endif /* COMPAT_43 */
134
135 #ifndef _SYS_SYSPROTO_H_
136 struct uname_args {
137         struct utsname  *name;
138 };
139 #endif
140
141 /* ARGSUSED */
142 int
143 uname(struct uname_args *uap)
144 {
145         int name[2], rtval;
146         size_t len;
147         char *s, *us;
148
149         name[0] = CTL_KERN;
150         name[1] = KERN_OSTYPE;
151         len = sizeof uap->name->sysname;
152         rtval = userland_sysctl(name, 2, uap->name->sysname, &len, 
153                 1, 0, 0, 0);
154         if( rtval) return rtval;
155         subyte( uap->name->sysname + sizeof(uap->name->sysname) - 1, 0);
156
157         name[1] = KERN_HOSTNAME;
158         len = sizeof uap->name->nodename;
159         rtval = userland_sysctl(name, 2, uap->name->nodename, &len, 
160                 1, 0, 0, 0);
161         if( rtval) return rtval;
162         subyte( uap->name->nodename + sizeof(uap->name->nodename) - 1, 0);
163
164         name[1] = KERN_OSRELEASE;
165         len = sizeof uap->name->release;
166         rtval = userland_sysctl(name, 2, uap->name->release, &len, 
167                 1, 0, 0, 0);
168         if( rtval) return rtval;
169         subyte( uap->name->release + sizeof(uap->name->release) - 1, 0);
170
171 /*
172         name = KERN_VERSION;
173         len = sizeof uap->name->version;
174         rtval = userland_sysctl(name, 2, uap->name->version, &len, 
175                 1, 0, 0, 0);
176         if( rtval) return rtval;
177         subyte( uap->name->version + sizeof(uap->name->version) - 1, 0);
178 */
179
180 /*
181  * this stupid hackery to make the version field look like FreeBSD 1.1
182  */
183         for(s = version; *s && *s != '#'; s++);
184
185         for(us = uap->name->version; *s && *s != ':'; s++) {
186                 rtval = subyte( us++, *s);
187                 if( rtval)
188                         return rtval;
189         }
190         rtval = subyte( us++, 0);
191         if( rtval)
192                 return rtval;
193
194         name[0] = CTL_HW;
195         name[1] = HW_MACHINE;
196         len = sizeof uap->name->machine;
197         rtval = userland_sysctl(name, 2, uap->name->machine, &len, 
198                 1, 0, 0, 0);
199         if( rtval) return rtval;
200         subyte( uap->name->machine + sizeof(uap->name->machine) - 1, 0);
201
202         return 0;
203 }
204
205 #ifndef _SYS_SYSPROTO_H_
206 struct getdomainname_args {
207         char    *domainname;
208         int     len;
209 };
210 #endif
211
212 /* ARGSUSED */
213 int
214 getdomainname(struct getdomainname_args *uap)
215 {
216         int domainnamelen = strlen(domainname) + 1;
217         if ((u_int)uap->len > domainnamelen + 1)
218                 uap->len = domainnamelen + 1;
219         return (copyout((caddr_t)domainname, (caddr_t)uap->domainname, uap->len));
220 }
221
222 #ifndef _SYS_SYSPROTO_H_
223 struct setdomainname_args {
224         char    *domainname;
225         int     len;
226 };
227 #endif
228
229 /* ARGSUSED */
230 int
231 setdomainname(struct setdomainname_args *uap)
232 {
233         struct thread *td = curthread;
234         int error, domainnamelen;
235
236         if ((error = suser(td)))
237                 return (error);
238         if ((u_int)uap->len > sizeof (domainname) - 1)
239                 return EINVAL;
240         domainnamelen = uap->len;
241         error = copyin((caddr_t)uap->domainname, domainname, uap->len);
242         domainname[domainnamelen] = 0;
243         return (error);
244 }
245