Make modules work again part 1: linkup crypto.
[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.7 2003/07/30 00:19:14 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 /* ARGSUSED */
52 int
53 ogethostname(struct gethostname_args *uap)
54 {
55         int name[2];
56         size_t len = uap->len;
57
58         name[0] = CTL_KERN;
59         name[1] = KERN_HOSTNAME;
60         return (userland_sysctl(name, 2, uap->hostname, &len, 
61                 1, 0, 0, 0));
62 }
63
64 /* ARGSUSED */
65 int
66 osethostname(struct sethostname_args *uap)
67 {
68         struct thread *td = curthread;
69         struct proc *p = td->td_proc;
70         int name[2];
71         int error;
72
73         KKASSERT(p);
74         name[0] = CTL_KERN;
75         name[1] = KERN_HOSTNAME;
76         if ((error = suser_cred(p->p_ucred, PRISON_ROOT)))
77                 return (error);
78         return (userland_sysctl(name, 2, 0, 0, 0, uap->hostname, uap->len, 0));
79 }
80
81 /* ARGSUSED */
82 int
83 ogethostid(struct ogethostid_args *uap)
84 {
85         uap->sysmsg_lresult = hostid;
86         return (0);
87 }
88 #endif /* COMPAT_43 || COMPAT_SUNOS */
89
90 #ifdef COMPAT_43
91 /* ARGSUSED */
92 int
93 osethostid(struct osethostid_args *uap)
94 {
95         struct thread *td = curthread;
96         int error;
97
98         if ((error = suser(td)))
99                 return (error);
100         hostid = uap->hostid;
101         return (0);
102 }
103
104 int
105 oquota(struct oquota_args *uap)
106 {
107         return (ENOSYS);
108 }
109 #endif /* COMPAT_43 */
110
111 /* ARGSUSED */
112 int
113 uname(struct uname_args *uap)
114 {
115         int name[2], rtval;
116         size_t len;
117         char *s, *us;
118
119         name[0] = CTL_KERN;
120         name[1] = KERN_OSTYPE;
121         len = sizeof uap->name->sysname;
122         rtval = userland_sysctl(name, 2, uap->name->sysname, &len, 
123                 1, 0, 0, 0);
124         if( rtval) return rtval;
125         subyte( uap->name->sysname + sizeof(uap->name->sysname) - 1, 0);
126
127         name[1] = KERN_HOSTNAME;
128         len = sizeof uap->name->nodename;
129         rtval = userland_sysctl(name, 2, uap->name->nodename, &len, 
130                 1, 0, 0, 0);
131         if( rtval) return rtval;
132         subyte( uap->name->nodename + sizeof(uap->name->nodename) - 1, 0);
133
134         name[1] = KERN_OSRELEASE;
135         len = sizeof uap->name->release;
136         rtval = userland_sysctl(name, 2, uap->name->release, &len, 
137                 1, 0, 0, 0);
138         if( rtval) return rtval;
139         subyte( uap->name->release + sizeof(uap->name->release) - 1, 0);
140
141 /*
142         name = KERN_VERSION;
143         len = sizeof uap->name->version;
144         rtval = userland_sysctl(name, 2, uap->name->version, &len, 
145                 1, 0, 0, 0);
146         if( rtval) return rtval;
147         subyte( uap->name->version + sizeof(uap->name->version) - 1, 0);
148 */
149
150 /*
151  * this stupid hackery to make the version field look like FreeBSD 1.1
152  */
153         for(s = version; *s && *s != '#'; s++);
154
155         for(us = uap->name->version; *s && *s != ':'; s++) {
156                 rtval = subyte( us++, *s);
157                 if( rtval)
158                         return rtval;
159         }
160         rtval = subyte( us++, 0);
161         if( rtval)
162                 return rtval;
163
164         name[0] = CTL_HW;
165         name[1] = HW_MACHINE;
166         len = sizeof uap->name->machine;
167         rtval = userland_sysctl(name, 2, uap->name->machine, &len, 
168                 1, 0, 0, 0);
169         if( rtval) return rtval;
170         subyte( uap->name->machine + sizeof(uap->name->machine) - 1, 0);
171
172         return 0;
173 }
174
175 /* ARGSUSED */
176 int
177 getdomainname(struct getdomainname_args *uap)
178 {
179         int domainnamelen = strlen(domainname) + 1;
180         if ((u_int)uap->len > domainnamelen + 1)
181                 uap->len = domainnamelen + 1;
182         return (copyout((caddr_t)domainname, (caddr_t)uap->domainname, uap->len));
183 }
184
185 /* ARGSUSED */
186 int
187 setdomainname(struct setdomainname_args *uap)
188 {
189         struct thread *td = curthread;
190         int error, domainnamelen;
191
192         if ((error = suser(td)))
193                 return (error);
194         if ((u_int)uap->len > sizeof (domainname) - 1)
195                 return EINVAL;
196         domainnamelen = uap->len;
197         error = copyin((caddr_t)uap->domainname, domainname, uap->len);
198         domainname[domainnamelen] = 0;
199         return (error);
200 }
201