diff options
Diffstat (limited to 'src/lib/libc/stdlib')
104 files changed, 13174 insertions, 0 deletions
diff --git a/src/lib/libc/stdlib/Makefile.inc b/src/lib/libc/stdlib/Makefile.inc new file mode 100644 index 0000000000..81d1962026 --- /dev/null +++ b/src/lib/libc/stdlib/Makefile.inc | |||
@@ -0,0 +1,73 @@ | |||
1 | # $OpenBSD: Makefile.inc,v 1.44 2010/05/18 22:24:55 tedu Exp $ | ||
2 | |||
3 | # stdlib sources | ||
4 | .PATH: ${LIBCSRCDIR}/arch/${MACHINE_CPU}/stdlib ${LIBCSRCDIR}/stdlib | ||
5 | |||
6 | SRCS+= a64l.c abort.c atexit.c atoi.c atof.c atol.c atoll.c bsearch.c \ | ||
7 | cfree.c exit.c ecvt.c gcvt.c getenv.c getopt_long.c \ | ||
8 | getsubopt.c hcreate.c heapsort.c imaxabs.c imaxdiv.c l64a.c llabs.c \ | ||
9 | lldiv.c lsearch.c malloc.c merge.c qsort.c radixsort.c rand.c \ | ||
10 | random.c realpath.c setenv.c strtoimax.c strtol.c \ | ||
11 | strtoll.c strtonum.c strtoul.c strtoull.c strtoumax.c system.c \ | ||
12 | tfind.c tsearch.c _rand48.c drand48.c erand48.c jrand48.c lcong48.c \ | ||
13 | lrand48.c mrand48.c nrand48.c seed48.c srand48.c qabs.c qdiv.c _Exit.c | ||
14 | |||
15 | .if (${MACHINE_CPU} == "m68k") | ||
16 | SRCS+= abs.S div.c labs.c ldiv.c | ||
17 | LSRCS+= abs.c | ||
18 | .elif (${MACHINE_CPU} == "i386") | ||
19 | SRCS+= abs.S div.S labs.S ldiv.S | ||
20 | LSRCS+= abs.c div.c labs.c ldiv.c | ||
21 | .elif (${MACHINE_CPU} == "ns32k") | ||
22 | SRCS+= abs.S div.c labs.c ldiv.c | ||
23 | LSRCS+= abs.c | ||
24 | .elif (${MACHINE_CPU} == "tahoe") | ||
25 | SRCS+= abs.S div.c labs.c ldiv.c | ||
26 | LSRCS+= abs.c | ||
27 | .elif (${MACHINE_CPU} == "vax") | ||
28 | SRCS+= abs.c div.c labs.c ldiv.c | ||
29 | .elif (${MACHINE_CPU} == "alpha") | ||
30 | # XXX should be .S's | ||
31 | SRCS+= abs.c div.c labs.c ldiv.c | ||
32 | .else | ||
33 | SRCS+= abs.c div.c labs.c ldiv.c | ||
34 | .endif | ||
35 | |||
36 | .if (${MACHINE_CPU} == "vax") || (${MACHINE_CPU} == "m68k") | ||
37 | SRCS+= insque.S remque.S | ||
38 | .else | ||
39 | SRCS+= insque.c remque.c | ||
40 | .endif | ||
41 | |||
42 | MAN+= a64l.3 abort.3 abs.3 alloca.3 atexit.3 atof.3 atoi.3 atol.3 atoll.3 \ | ||
43 | bsearch.3 div.3 ecvt.3 exit.3 getenv.3 getopt.3 getopt_long.3 \ | ||
44 | getsubopt.3 hcreate.3 imaxabs.3 imaxdiv.3 insque.3 labs.3 ldiv.3 \ | ||
45 | lldiv.3 lsearch.3 malloc.3 posix_memalign.3 qabs.3 qdiv.3 qsort.3 \ | ||
46 | radixsort.3 rand48.3 rand.3 random.3 realpath.3 strtod.3 strtonum.3 \ | ||
47 | strtol.3 strtoul.3 system.3 tsearch.3 | ||
48 | |||
49 | MLINKS+=exit.3 _Exit.3 | ||
50 | MLINKS+=ecvt.3 fcvt.3 ecvt.3 gcvt.3 | ||
51 | MLINKS+=getenv.3 setenv.3 getenv.3 unsetenv.3 getenv.3 putenv.3 | ||
52 | MLINKS+=getopt_long.3 getopt_long_only.3 | ||
53 | MLINKS+=hcreate.3 hdestroy.3 hcreate.3 hsearch.3 | ||
54 | MLINKS+=insque.3 remque.3 | ||
55 | MLINKS+=labs.3 llabs.3 | ||
56 | MLINKS+=lsearch.3 lfind.3 | ||
57 | MLINKS+=malloc.3 free.3 malloc.3 realloc.3 malloc.3 calloc.3 | ||
58 | MLINKS+=malloc.3 cfree.3 malloc.3 malloc.conf.5 | ||
59 | MLINKS+=qsort.3 heapsort.3 qsort.3 mergesort.3 | ||
60 | MLINKS+=radixsort.3 sradixsort.3 | ||
61 | MLINKS+=rand.3 srand.3 rand.3 rand_r.3 | ||
62 | MLINKS+=random.3 initstate.3 random.3 setstate.3 | ||
63 | MLINKS+=random.3 srandom.3 random.3 srandomdev.3 | ||
64 | MLINKS+=rand48.3 drand48.3 rand48.3 erand48.3 rand48.3 lrand48.3 | ||
65 | MLINKS+=rand48.3 mrand48.3 rand48.3 nrand48.3 rand48.3 jrand48.3 | ||
66 | MLINKS+=rand48.3 srand48.3 rand48.3 seed48.3 rand48.3 lcong48.3 | ||
67 | MLINKS+=strtod.3 strtof.3 strtod.3 strtold.3 | ||
68 | MLINKS+=strtol.3 strtoll.3 strtol.3 strtoq.3 strtol.3 strtoimax.3 | ||
69 | MLINKS+=strtoul.3 strtoull.3 strtoul.3 strtouq.3 strtoul.3 strtoumax.3 | ||
70 | MLINKS+=tsearch.3 tfind.3 | ||
71 | MLINKS+=tsearch.3 tdelete.3 | ||
72 | MLINKS+=tsearch.3 twalk.3 | ||
73 | MLINKS+=a64l.3 l64a.3 | ||
diff --git a/src/lib/libc/stdlib/_Exit.c b/src/lib/libc/stdlib/_Exit.c new file mode 100644 index 0000000000..5a2291a931 --- /dev/null +++ b/src/lib/libc/stdlib/_Exit.c | |||
@@ -0,0 +1,22 @@ | |||
1 | /* $OpenBSD: _Exit.c,v 1.2 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Placed in the public domain by Todd C. Miller on January 21, 2004. | ||
5 | */ | ||
6 | |||
7 | #include <stdlib.h> | ||
8 | #include <unistd.h> | ||
9 | |||
10 | /* | ||
11 | * _Exit() is the ISO/ANSI C99 equivalent of the POSIX _exit() function. | ||
12 | * No atexit() handlers are called and no signal handlers are run. | ||
13 | * Whether or not stdio buffers are flushed or temporary files are removed | ||
14 | * is implementation-dependent. As such it is safest to *not* flush | ||
15 | * stdio buffers or remove temporary files. This is also consistent | ||
16 | * with most other implementations. | ||
17 | */ | ||
18 | void | ||
19 | _Exit(int status) | ||
20 | { | ||
21 | _exit(status); | ||
22 | } | ||
diff --git a/src/lib/libc/stdlib/_rand48.c b/src/lib/libc/stdlib/_rand48.c new file mode 100644 index 0000000000..7c950f7cee --- /dev/null +++ b/src/lib/libc/stdlib/_rand48.c | |||
@@ -0,0 +1,47 @@ | |||
1 | /* $OpenBSD: _rand48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | unsigned short __rand48_seed[3] = { | ||
18 | RAND48_SEED_0, | ||
19 | RAND48_SEED_1, | ||
20 | RAND48_SEED_2 | ||
21 | }; | ||
22 | unsigned short __rand48_mult[3] = { | ||
23 | RAND48_MULT_0, | ||
24 | RAND48_MULT_1, | ||
25 | RAND48_MULT_2 | ||
26 | }; | ||
27 | unsigned short __rand48_add = RAND48_ADD; | ||
28 | |||
29 | void | ||
30 | __dorand48(unsigned short xseed[3]) | ||
31 | { | ||
32 | unsigned long accu; | ||
33 | unsigned short temp[2]; | ||
34 | |||
35 | accu = (unsigned long) __rand48_mult[0] * (unsigned long) xseed[0] + | ||
36 | (unsigned long) __rand48_add; | ||
37 | temp[0] = (unsigned short) accu; /* lower 16 bits */ | ||
38 | accu >>= sizeof(unsigned short) * 8; | ||
39 | accu += (unsigned long) __rand48_mult[0] * (unsigned long) xseed[1] + | ||
40 | (unsigned long) __rand48_mult[1] * (unsigned long) xseed[0]; | ||
41 | temp[1] = (unsigned short) accu; /* middle 16 bits */ | ||
42 | accu >>= sizeof(unsigned short) * 8; | ||
43 | accu += __rand48_mult[0] * xseed[2] + __rand48_mult[1] * xseed[1] + __rand48_mult[2] * xseed[0]; | ||
44 | xseed[0] = temp[0]; | ||
45 | xseed[1] = temp[1]; | ||
46 | xseed[2] = (unsigned short) accu; | ||
47 | } | ||
diff --git a/src/lib/libc/stdlib/a64l.3 b/src/lib/libc/stdlib/a64l.3 new file mode 100644 index 0000000000..da0aae33c9 --- /dev/null +++ b/src/lib/libc/stdlib/a64l.3 | |||
@@ -0,0 +1,133 @@ | |||
1 | .\" $OpenBSD: a64l.3,v 1.11 2010/04/01 17:06:55 jmc Exp $ | ||
2 | .\" | ||
3 | .\" Copyright (c) 1997 Todd C. Miller <Todd.Miller@courtesan.com> | ||
4 | .\" | ||
5 | .\" Permission to use, copy, modify, and distribute this software for any | ||
6 | .\" purpose with or without fee is hereby granted, provided that the above | ||
7 | .\" copyright notice and this permission notice appear in all copies. | ||
8 | .\" | ||
9 | .\" THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
10 | .\" WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
11 | .\" MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
12 | .\" ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
13 | .\" WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
14 | .\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
15 | .\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
16 | .\" | ||
17 | .Dd $Mdocdate: April 1 2010 $ | ||
18 | .Dt A64L 3 | ||
19 | .Os | ||
20 | .Sh NAME | ||
21 | .Nm a64l , | ||
22 | .Nm l64a | ||
23 | .Nd convert between 32-bit integer and radix-64 ASCII string | ||
24 | .Sh SYNOPSIS | ||
25 | .Fd #include <stdlib.h> | ||
26 | .Ft long | ||
27 | .Fn a64l "const char *s" | ||
28 | .Ft char * | ||
29 | .Fn l64a "long l" | ||
30 | .Sh DESCRIPTION | ||
31 | The | ||
32 | .Fn a64l | ||
33 | and | ||
34 | .Fn l64a | ||
35 | functions are used to maintain numbers stored in radix-64 | ||
36 | .Tn ASCII | ||
37 | characters. | ||
38 | This is a notation by which 32-bit integers | ||
39 | can be represented by up to six characters; each character represents a | ||
40 | .Dq digit | ||
41 | in a radix-64 notation. | ||
42 | .Pp | ||
43 | The characters used to represent digits are | ||
44 | .Ql \&. | ||
45 | for 0, | ||
46 | .Ql / | ||
47 | for 1, | ||
48 | .Ql 0 | ||
49 | through | ||
50 | .Ql 9 | ||
51 | for 2-11, | ||
52 | .Ql A | ||
53 | through | ||
54 | .Ql Z | ||
55 | for 12-37, and | ||
56 | .Ql a | ||
57 | through | ||
58 | .Ql z | ||
59 | for 38-63. | ||
60 | .Pp | ||
61 | The | ||
62 | .Fn a64l | ||
63 | function takes a pointer to a NUL-terminated radix-64 representation | ||
64 | and returns a corresponding 32-bit value. | ||
65 | If the string pointed to by | ||
66 | .Fa s | ||
67 | contains more than six characters, | ||
68 | .Fn a64l | ||
69 | will use the first six. | ||
70 | .Fn a64l | ||
71 | scans the character string from left to right, decoding | ||
72 | each character as a 6-bit radix-64 number. | ||
73 | If a long integer is | ||
74 | larger than 32 bits, the return value will be sign-extended. | ||
75 | .Pp | ||
76 | .Fn l64a | ||
77 | takes a long integer argument | ||
78 | .Fa l | ||
79 | and returns a pointer to the corresponding radix-64 representation. | ||
80 | .Sh RETURN VALUES | ||
81 | On success, | ||
82 | .Fn a64l | ||
83 | returns a 32-bit representation of | ||
84 | .Fa s . | ||
85 | If | ||
86 | .Fa s | ||
87 | is a null pointer or if it contains digits other than those described above, | ||
88 | .Fn a64l | ||
89 | returns \-1 and sets the global variable | ||
90 | .Va errno | ||
91 | to | ||
92 | .Er EINVAL . | ||
93 | .Pp | ||
94 | On success, | ||
95 | .Fn l64a | ||
96 | returns a pointer to a string containing the radix-64 representation of | ||
97 | .Fa l . | ||
98 | If | ||
99 | .Fa l | ||
100 | is 0, | ||
101 | .Fn l64a | ||
102 | returns a pointer to the empty string. | ||
103 | If | ||
104 | .Fa l | ||
105 | is negative, | ||
106 | .Fn l64a | ||
107 | returns a null pointer and sets the global variable | ||
108 | .Va errno | ||
109 | to | ||
110 | .Er EINVAL . | ||
111 | .Sh STANDARDS | ||
112 | The | ||
113 | .Fn a64l | ||
114 | and | ||
115 | .Fn l64a | ||
116 | functions conform to | ||
117 | .St -xpg4.2 . | ||
118 | .Sh CAVEATS | ||
119 | The value returned by | ||
120 | .Fn l64a | ||
121 | is a pointer into a static buffer, the contents of which | ||
122 | will be overwritten by subsequent calls. | ||
123 | .Pp | ||
124 | The value returned by | ||
125 | .Fn a64l | ||
126 | may be incorrect if the value is too large; for that reason, only strings | ||
127 | that resulted from a call to | ||
128 | .Fn l64a | ||
129 | should be used to call | ||
130 | .Fn a64l . | ||
131 | .Pp | ||
132 | If a long integer is larger than 32 bits, only the low-order | ||
133 | 32 bits are used. | ||
diff --git a/src/lib/libc/stdlib/a64l.c b/src/lib/libc/stdlib/a64l.c new file mode 100644 index 0000000000..5312929c6f --- /dev/null +++ b/src/lib/libc/stdlib/a64l.c | |||
@@ -0,0 +1,42 @@ | |||
1 | /* $OpenBSD: a64l.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Written by J.T. Conklin <jtc@netbsd.org>. | ||
4 | * Public domain. | ||
5 | */ | ||
6 | |||
7 | #include <errno.h> | ||
8 | #include <stdlib.h> | ||
9 | |||
10 | long | ||
11 | a64l(const char *s) | ||
12 | { | ||
13 | long value, digit, shift; | ||
14 | int i; | ||
15 | |||
16 | if (s == NULL) { | ||
17 | errno = EINVAL; | ||
18 | return(-1L); | ||
19 | } | ||
20 | |||
21 | value = 0; | ||
22 | shift = 0; | ||
23 | for (i = 0; *s && i < 6; i++, s++) { | ||
24 | if (*s >= '.' && *s <= '/') | ||
25 | digit = *s - '.'; | ||
26 | else if (*s >= '0' && *s <= '9') | ||
27 | digit = *s - '0' + 2; | ||
28 | else if (*s >= 'A' && *s <= 'Z') | ||
29 | digit = *s - 'A' + 12; | ||
30 | else if (*s >= 'a' && *s <= 'z') | ||
31 | digit = *s - 'a' + 38; | ||
32 | else { | ||
33 | errno = EINVAL; | ||
34 | return(-1L); | ||
35 | } | ||
36 | |||
37 | value |= digit << shift; | ||
38 | shift += 6; | ||
39 | } | ||
40 | |||
41 | return(value); | ||
42 | } | ||
diff --git a/src/lib/libc/stdlib/abort.3 b/src/lib/libc/stdlib/abort.3 new file mode 100644 index 0000000000..4ec85882b2 --- /dev/null +++ b/src/lib/libc/stdlib/abort.3 | |||
@@ -0,0 +1,63 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: abort.3,v 1.8 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt ABORT 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm abort | ||
39 | .Nd cause abnormal program termination | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft void | ||
43 | .Fn abort void | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn abort | ||
47 | function causes abnormal program termination to occur, unless the signal | ||
48 | .Dv SIGABRT | ||
49 | is being caught and the signal handler does not return. | ||
50 | .Pp | ||
51 | Any open streams are flushed and closed. | ||
52 | .Sh RETURN VALUES | ||
53 | The | ||
54 | .Fn abort | ||
55 | function never returns. | ||
56 | .Sh SEE ALSO | ||
57 | .Xr sigaction 2 , | ||
58 | .Xr exit 3 | ||
59 | .Sh STANDARDS | ||
60 | The | ||
61 | .Fn abort | ||
62 | function conforms to | ||
63 | .St -p1003.1-90 . | ||
diff --git a/src/lib/libc/stdlib/abort.c b/src/lib/libc/stdlib/abort.c new file mode 100644 index 0000000000..244e3b28aa --- /dev/null +++ b/src/lib/libc/stdlib/abort.c | |||
@@ -0,0 +1,78 @@ | |||
1 | /* $OpenBSD: abort.c,v 1.15 2007/09/03 14:40:16 millert Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1985 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <signal.h> | ||
32 | #include <stdlib.h> | ||
33 | #include <unistd.h> | ||
34 | #include "thread_private.h" | ||
35 | #include "atexit.h" | ||
36 | |||
37 | void | ||
38 | abort(void) | ||
39 | { | ||
40 | struct atexit *p = __atexit; | ||
41 | static int cleanup_called = 0; | ||
42 | sigset_t mask; | ||
43 | |||
44 | |||
45 | sigfillset(&mask); | ||
46 | /* | ||
47 | * don't block SIGABRT to give any handler a chance; we ignore | ||
48 | * any errors -- X311J doesn't allow abort to return anyway. | ||
49 | */ | ||
50 | sigdelset(&mask, SIGABRT); | ||
51 | (void)_thread_sys_sigprocmask(SIG_SETMASK, &mask, (sigset_t *)NULL); | ||
52 | |||
53 | /* | ||
54 | * POSIX requires we flush stdio buffers on abort | ||
55 | */ | ||
56 | if (cleanup_called == 0) { | ||
57 | /* the cleanup routine lives in fns[0] on the last page */ | ||
58 | while (p != NULL && p->next != NULL) | ||
59 | p = p->next; | ||
60 | /* the check for fn_dso == NULL is mostly paranoia */ | ||
61 | if (p != NULL && p->fns[0].fn_dso == NULL && | ||
62 | p->fns[0].fn_ptr.std_func != NULL) { | ||
63 | cleanup_called = 1; | ||
64 | (*p->fns[0].fn_ptr.std_func)(); | ||
65 | } | ||
66 | } | ||
67 | |||
68 | (void)kill(getpid(), SIGABRT); | ||
69 | |||
70 | /* | ||
71 | * if SIGABRT ignored, or caught and the handler returns, do | ||
72 | * it again, only harder. | ||
73 | */ | ||
74 | (void)signal(SIGABRT, SIG_DFL); | ||
75 | (void)_thread_sys_sigprocmask(SIG_SETMASK, &mask, (sigset_t *)NULL); | ||
76 | (void)kill(getpid(), SIGABRT); | ||
77 | _exit(1); | ||
78 | } | ||
diff --git a/src/lib/libc/stdlib/abs.3 b/src/lib/libc/stdlib/abs.3 new file mode 100644 index 0000000000..473aea1cd6 --- /dev/null +++ b/src/lib/libc/stdlib/abs.3 | |||
@@ -0,0 +1,65 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: abs.3,v 1.9 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt ABS 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm abs | ||
39 | .Nd integer absolute value function | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft int | ||
43 | .Fn abs "int j" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn abs | ||
47 | function computes the absolute value of the integer | ||
48 | .Fa j . | ||
49 | .Sh RETURN VALUES | ||
50 | The | ||
51 | .Fn abs | ||
52 | function returns the absolute value. | ||
53 | .Sh SEE ALSO | ||
54 | .Xr cabs 3 , | ||
55 | .Xr floor 3 , | ||
56 | .Xr hypot 3 , | ||
57 | .Xr imaxabs 3 , | ||
58 | .Xr labs 3 | ||
59 | .Sh STANDARDS | ||
60 | The | ||
61 | .Fn abs | ||
62 | function conforms to | ||
63 | .St -ansiC . | ||
64 | .Sh BUGS | ||
65 | The absolute value of the most negative integer remains negative. | ||
diff --git a/src/lib/libc/stdlib/abs.c b/src/lib/libc/stdlib/abs.c new file mode 100644 index 0000000000..5d2fbae69f --- /dev/null +++ b/src/lib/libc/stdlib/abs.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: abs.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1990 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | int | ||
34 | abs(int j) | ||
35 | { | ||
36 | return(j < 0 ? -j : j); | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/alloca.3 b/src/lib/libc/stdlib/alloca.3 new file mode 100644 index 0000000000..d7fddb04c2 --- /dev/null +++ b/src/lib/libc/stdlib/alloca.3 | |||
@@ -0,0 +1,80 @@ | |||
1 | .\" Copyright (c) 1980, 1991 Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" Redistribution and use in source and binary forms, with or without | ||
5 | .\" modification, are permitted provided that the following conditions | ||
6 | .\" are met: | ||
7 | .\" 1. Redistributions of source code must retain the above copyright | ||
8 | .\" notice, this list of conditions and the following disclaimer. | ||
9 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer in the | ||
11 | .\" documentation and/or other materials provided with the distribution. | ||
12 | .\" 3. Neither the name of the University nor the names of its contributors | ||
13 | .\" may be used to endorse or promote products derived from this software | ||
14 | .\" without specific prior written permission. | ||
15 | .\" | ||
16 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
17 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
18 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
19 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
20 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
21 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
22 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
23 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
24 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
25 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
26 | .\" SUCH DAMAGE. | ||
27 | .\" | ||
28 | .\" $OpenBSD: alloca.3,v 1.11 2007/05/31 19:19:31 jmc Exp $ | ||
29 | .\" | ||
30 | .Dd $Mdocdate: May 31 2007 $ | ||
31 | .Dt ALLOCA 3 | ||
32 | .Os | ||
33 | .Sh NAME | ||
34 | .Nm alloca | ||
35 | .Nd memory allocator | ||
36 | .Sh SYNOPSIS | ||
37 | .Fd #include <stdlib.h> | ||
38 | .Ft void * | ||
39 | .Fn alloca "size_t size" | ||
40 | .Sh DESCRIPTION | ||
41 | The | ||
42 | .Fn alloca | ||
43 | function allocates | ||
44 | .Fa size | ||
45 | bytes of space in the stack frame of the caller. | ||
46 | This temporary space is automatically freed on return. | ||
47 | .Sh RETURN VALUES | ||
48 | The | ||
49 | .Fn alloca | ||
50 | function returns a pointer to the beginning of the allocated space. | ||
51 | .Sh SEE ALSO | ||
52 | .Xr pagesize 1 , | ||
53 | .Xr brk 2 , | ||
54 | .Xr calloc 3 , | ||
55 | .Xr malloc 3 , | ||
56 | .Xr realloc 3 | ||
57 | .Sh BUGS | ||
58 | The | ||
59 | .Fn alloca | ||
60 | function is machine dependent; its use is discouraged. | ||
61 | .\" .Sh HISTORY | ||
62 | .\" The | ||
63 | .\" .Fn alloca | ||
64 | .\" function appeared in | ||
65 | .\" .Bx ?? . | ||
66 | .\" The function appeared in 32v, pwb and pwb.2 and in 3bsd 4bsd | ||
67 | .\" The first man page (or link to a man page that I can find at the | ||
68 | .\" moment is 4.3... | ||
69 | .Pp | ||
70 | The | ||
71 | .Fn alloca | ||
72 | function is slightly unsafe because it cannot ensure that the pointer | ||
73 | returned points to a valid and usable block of memory. | ||
74 | The allocation made may exceed the bounds of the stack, or even go | ||
75 | further into other objects in memory, and | ||
76 | .Fn alloca | ||
77 | cannot determine such an error. | ||
78 | Avoid | ||
79 | .Fn alloca | ||
80 | with large unbounded allocations. | ||
diff --git a/src/lib/libc/stdlib/atexit.3 b/src/lib/libc/stdlib/atexit.3 new file mode 100644 index 0000000000..0615feabb1 --- /dev/null +++ b/src/lib/libc/stdlib/atexit.3 | |||
@@ -0,0 +1,77 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: atexit.3,v 1.8 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt ATEXIT 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm atexit | ||
39 | .Nd register a function to be called on exit | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft int | ||
43 | .Fn atexit "void (*function)(void)" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn atexit | ||
47 | function registers the given | ||
48 | .Fa function | ||
49 | to be called at program exit, whether via | ||
50 | .Xr exit 3 | ||
51 | or via return from the program's | ||
52 | .Fn main . | ||
53 | Functions so registered are called in reverse order; | ||
54 | no arguments are passed. | ||
55 | At least 32 functions can always be registered, | ||
56 | and more are allowed as long as sufficient memory can be allocated. | ||
57 | .Pp | ||
58 | .Fn atexit | ||
59 | is very difficult to use correctly without creating | ||
60 | .Xr exit 3 Ns -time | ||
61 | races. | ||
62 | Unless absolutely necessary, please avoid using it. | ||
63 | .Sh RETURN VALUES | ||
64 | .Rv -std atexit | ||
65 | .Sh ERRORS | ||
66 | .Bl -tag -width Er | ||
67 | .It Bq Er ENOMEM | ||
68 | No memory was available to add the function to the list. | ||
69 | The existing list of functions is unmodified. | ||
70 | .El | ||
71 | .Sh SEE ALSO | ||
72 | .Xr exit 3 | ||
73 | .Sh STANDARDS | ||
74 | The | ||
75 | .Fn atexit | ||
76 | function conforms to | ||
77 | .St -ansiC . | ||
diff --git a/src/lib/libc/stdlib/atexit.c b/src/lib/libc/stdlib/atexit.c new file mode 100644 index 0000000000..e28ccf29d0 --- /dev/null +++ b/src/lib/libc/stdlib/atexit.c | |||
@@ -0,0 +1,209 @@ | |||
1 | /* $OpenBSD: atexit.c,v 1.15 2011/03/02 18:34:05 matthew Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 2002 Daniel Hartmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * | ||
10 | * - Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * - Redistributions in binary form must reproduce the above | ||
13 | * copyright notice, this list of conditions and the following | ||
14 | * disclaimer in the documentation and/or other materials provided | ||
15 | * with the distribution. | ||
16 | * | ||
17 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS | ||
18 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT | ||
19 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS | ||
20 | * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE | ||
21 | * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, | ||
22 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, | ||
23 | * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
24 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | ||
25 | * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN | ||
27 | * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | ||
28 | * POSSIBILITY OF SUCH DAMAGE. | ||
29 | * | ||
30 | */ | ||
31 | |||
32 | #include <sys/types.h> | ||
33 | #include <sys/mman.h> | ||
34 | #include <stdlib.h> | ||
35 | #include <string.h> | ||
36 | #include <unistd.h> | ||
37 | #include "atexit.h" | ||
38 | #include "thread_private.h" | ||
39 | |||
40 | int __atexit_invalid = 1; | ||
41 | struct atexit *__atexit; | ||
42 | |||
43 | /* | ||
44 | * Function pointers are stored in a linked list of pages. The list | ||
45 | * is initially empty, and pages are allocated on demand. The first | ||
46 | * function pointer in the first allocated page (the last one in | ||
47 | * the linked list) is reserved for the cleanup function. | ||
48 | * | ||
49 | * Outside the following functions, all pages are mprotect()'ed | ||
50 | * to prevent unintentional/malicious corruption. | ||
51 | */ | ||
52 | |||
53 | /* | ||
54 | * Register a function to be performed at exit or when a shared object | ||
55 | * with the given dso handle is unloaded dynamically. Also used as | ||
56 | * the backend for atexit(). For more info on this API, see: | ||
57 | * | ||
58 | * http://www.codesourcery.com/cxx-abi/abi.html#dso-dtor | ||
59 | */ | ||
60 | int | ||
61 | __cxa_atexit(void (*func)(void *), void *arg, void *dso) | ||
62 | { | ||
63 | struct atexit *p = __atexit; | ||
64 | struct atexit_fn *fnp; | ||
65 | int pgsize = getpagesize(); | ||
66 | int ret = -1; | ||
67 | |||
68 | if (pgsize < sizeof(*p)) | ||
69 | return (-1); | ||
70 | _ATEXIT_LOCK(); | ||
71 | p = __atexit; | ||
72 | if (p != NULL) { | ||
73 | if (p->ind + 1 >= p->max) | ||
74 | p = NULL; | ||
75 | else if (mprotect(p, pgsize, PROT_READ | PROT_WRITE)) | ||
76 | goto unlock; | ||
77 | } | ||
78 | if (p == NULL) { | ||
79 | p = mmap(NULL, pgsize, PROT_READ | PROT_WRITE, | ||
80 | MAP_ANON | MAP_PRIVATE, -1, 0); | ||
81 | if (p == MAP_FAILED) | ||
82 | goto unlock; | ||
83 | if (__atexit == NULL) { | ||
84 | memset(&p->fns[0], 0, sizeof(p->fns[0])); | ||
85 | p->ind = 1; | ||
86 | } else | ||
87 | p->ind = 0; | ||
88 | p->max = (pgsize - ((char *)&p->fns[0] - (char *)p)) / | ||
89 | sizeof(p->fns[0]); | ||
90 | p->next = __atexit; | ||
91 | __atexit = p; | ||
92 | if (__atexit_invalid) | ||
93 | __atexit_invalid = 0; | ||
94 | } | ||
95 | fnp = &p->fns[p->ind++]; | ||
96 | fnp->fn_ptr.cxa_func = func; | ||
97 | fnp->fn_arg = arg; | ||
98 | fnp->fn_dso = dso; | ||
99 | if (mprotect(p, pgsize, PROT_READ)) | ||
100 | goto unlock; | ||
101 | ret = 0; | ||
102 | unlock: | ||
103 | _ATEXIT_UNLOCK(); | ||
104 | return (ret); | ||
105 | } | ||
106 | |||
107 | /* | ||
108 | * Register a function to be performed at exit. | ||
109 | */ | ||
110 | int | ||
111 | atexit(void (*func)(void)) | ||
112 | { | ||
113 | return (__cxa_atexit((void (*)(void *))func, NULL, NULL)); | ||
114 | } | ||
115 | |||
116 | /* | ||
117 | * Call all handlers registered with __cxa_atexit() for the shared | ||
118 | * object owning 'dso'. | ||
119 | * Note: if 'dso' is NULL, then all remaining handlers are called. | ||
120 | */ | ||
121 | void | ||
122 | __cxa_finalize(void *dso) | ||
123 | { | ||
124 | struct atexit *p, *q; | ||
125 | struct atexit_fn fn; | ||
126 | int n, pgsize = getpagesize(); | ||
127 | static int call_depth; | ||
128 | |||
129 | if (__atexit_invalid) | ||
130 | return; | ||
131 | |||
132 | call_depth++; | ||
133 | |||
134 | for (p = __atexit; p != NULL; p = p->next) { | ||
135 | for (n = p->ind; --n >= 0;) { | ||
136 | if (p->fns[n].fn_ptr.cxa_func == NULL) | ||
137 | continue; /* already called */ | ||
138 | if (dso != NULL && dso != p->fns[n].fn_dso) | ||
139 | continue; /* wrong DSO */ | ||
140 | |||
141 | /* | ||
142 | * Mark handler as having been already called to avoid | ||
143 | * dupes and loops, then call the appropriate function. | ||
144 | */ | ||
145 | fn = p->fns[n]; | ||
146 | if (mprotect(p, pgsize, PROT_READ | PROT_WRITE) == 0) { | ||
147 | p->fns[n].fn_ptr.cxa_func = NULL; | ||
148 | mprotect(p, pgsize, PROT_READ); | ||
149 | } | ||
150 | if (fn.fn_dso != NULL) | ||
151 | (*fn.fn_ptr.cxa_func)(fn.fn_arg); | ||
152 | else | ||
153 | (*fn.fn_ptr.std_func)(); | ||
154 | } | ||
155 | } | ||
156 | |||
157 | /* | ||
158 | * If called via exit(), unmap the pages since we have now run | ||
159 | * all the handlers. We defer this until calldepth == 0 so that | ||
160 | * we don't unmap things prematurely if called recursively. | ||
161 | */ | ||
162 | if (dso == NULL && --call_depth == 0) { | ||
163 | for (p = __atexit; p != NULL; ) { | ||
164 | q = p; | ||
165 | p = p->next; | ||
166 | munmap(q, pgsize); | ||
167 | } | ||
168 | __atexit = NULL; | ||
169 | } | ||
170 | } | ||
171 | |||
172 | /* | ||
173 | * Register the cleanup function | ||
174 | */ | ||
175 | void | ||
176 | __atexit_register_cleanup(void (*func)(void)) | ||
177 | { | ||
178 | struct atexit *p; | ||
179 | int pgsize = getpagesize(); | ||
180 | |||
181 | if (pgsize < sizeof(*p)) | ||
182 | return; | ||
183 | _ATEXIT_LOCK(); | ||
184 | p = __atexit; | ||
185 | while (p != NULL && p->next != NULL) | ||
186 | p = p->next; | ||
187 | if (p == NULL) { | ||
188 | p = mmap(NULL, pgsize, PROT_READ | PROT_WRITE, | ||
189 | MAP_ANON | MAP_PRIVATE, -1, 0); | ||
190 | if (p == MAP_FAILED) | ||
191 | goto unlock; | ||
192 | p->ind = 1; | ||
193 | p->max = (pgsize - ((char *)&p->fns[0] - (char *)p)) / | ||
194 | sizeof(p->fns[0]); | ||
195 | p->next = NULL; | ||
196 | __atexit = p; | ||
197 | if (__atexit_invalid) | ||
198 | __atexit_invalid = 0; | ||
199 | } else { | ||
200 | if (mprotect(p, pgsize, PROT_READ | PROT_WRITE)) | ||
201 | goto unlock; | ||
202 | } | ||
203 | p->fns[0].fn_ptr.std_func = func; | ||
204 | p->fns[0].fn_arg = NULL; | ||
205 | p->fns[0].fn_dso = NULL; | ||
206 | mprotect(p, pgsize, PROT_READ); | ||
207 | unlock: | ||
208 | _ATEXIT_UNLOCK(); | ||
209 | } | ||
diff --git a/src/lib/libc/stdlib/atexit.h b/src/lib/libc/stdlib/atexit.h new file mode 100644 index 0000000000..1b23565dd0 --- /dev/null +++ b/src/lib/libc/stdlib/atexit.h | |||
@@ -0,0 +1,51 @@ | |||
1 | /* $OpenBSD: atexit.h,v 1.7 2007/09/03 14:40:16 millert Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 2002 Daniel Hartmeier | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * | ||
11 | * - Redistributions of source code must retain the above copyright | ||
12 | * notice, this list of conditions and the following disclaimer. | ||
13 | * - Redistributions in binary form must reproduce the above | ||
14 | * copyright notice, this list of conditions and the following | ||
15 | * disclaimer in the documentation and/or other materials provided | ||
16 | * with the distribution. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS | ||
19 | * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT | ||
20 | * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS | ||
21 | * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE | ||
22 | * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, | ||
23 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, | ||
24 | * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
25 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | ||
26 | * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN | ||
28 | * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | ||
29 | * POSSIBILITY OF SUCH DAMAGE. | ||
30 | * | ||
31 | */ | ||
32 | |||
33 | struct atexit { | ||
34 | struct atexit *next; /* next in list */ | ||
35 | int ind; /* next index in this table */ | ||
36 | int max; /* max entries >= ATEXIT_SIZE */ | ||
37 | struct atexit_fn { | ||
38 | union { | ||
39 | void (*std_func)(void); | ||
40 | void (*cxa_func)(void *); | ||
41 | } fn_ptr; | ||
42 | void *fn_arg; /* argument for CXA callback */ | ||
43 | void *fn_dso; /* shared module handle */ | ||
44 | } fns[1]; /* the table itself */ | ||
45 | }; | ||
46 | |||
47 | extern int __atexit_invalid; | ||
48 | extern struct atexit *__atexit; /* points to head of LIFO stack */ | ||
49 | |||
50 | int __cxa_atexit(void (*)(void *), void *, void *); | ||
51 | void __cxa_finalize(void *); | ||
diff --git a/src/lib/libc/stdlib/atof.3 b/src/lib/libc/stdlib/atof.3 new file mode 100644 index 0000000000..2538d0c879 --- /dev/null +++ b/src/lib/libc/stdlib/atof.3 | |||
@@ -0,0 +1,69 @@ | |||
1 | .\" Copyright (c) 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: atof.3,v 1.5 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt ATOF 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm atof | ||
39 | .Nd convert | ||
40 | .Tn ASCII | ||
41 | string to double | ||
42 | .Sh SYNOPSIS | ||
43 | .Fd #include <stdlib.h> | ||
44 | .Ft double | ||
45 | .Fn atof "const char *nptr" | ||
46 | .Sh DESCRIPTION | ||
47 | The | ||
48 | .Fn atof | ||
49 | function converts the initial portion of the string pointed to by | ||
50 | .Fa nptr | ||
51 | to | ||
52 | .Li double | ||
53 | representation. | ||
54 | .Pp | ||
55 | It is equivalent to: | ||
56 | .Bd -literal -offset indent | ||
57 | strtod(nptr, (char **)NULL); | ||
58 | .Ed | ||
59 | .Sh SEE ALSO | ||
60 | .Xr atoi 3 , | ||
61 | .Xr atol 3 , | ||
62 | .Xr strtod 3 , | ||
63 | .Xr strtol 3 , | ||
64 | .Xr strtoul 3 | ||
65 | .Sh STANDARDS | ||
66 | The | ||
67 | .Fn atof | ||
68 | function conforms to | ||
69 | .St -ansiC . | ||
diff --git a/src/lib/libc/stdlib/atof.c b/src/lib/libc/stdlib/atof.c new file mode 100644 index 0000000000..d14b58b070 --- /dev/null +++ b/src/lib/libc/stdlib/atof.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: atof.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1988 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | double | ||
34 | atof(const char *ascii) | ||
35 | { | ||
36 | return(strtod(ascii, (char **)NULL)); | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/atoi.3 b/src/lib/libc/stdlib/atoi.3 new file mode 100644 index 0000000000..0c6b62b25f --- /dev/null +++ b/src/lib/libc/stdlib/atoi.3 | |||
@@ -0,0 +1,86 @@ | |||
1 | .\" Copyright (c) 1990, 1991, 1993 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: atoi.3,v 1.9 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt ATOI 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm atoi | ||
39 | .Nd convert | ||
40 | .Tn ASCII | ||
41 | string to integer | ||
42 | .Sh SYNOPSIS | ||
43 | .Fd #include <stdlib.h> | ||
44 | .Ft int | ||
45 | .Fn atoi "const char *nptr" | ||
46 | .Sh DESCRIPTION | ||
47 | The | ||
48 | .Fn atoi | ||
49 | function converts the initial portion of the string pointed to by | ||
50 | .Fa nptr | ||
51 | to | ||
52 | .Li integer | ||
53 | representation. | ||
54 | .Pp | ||
55 | It is equivalent to: | ||
56 | .Bd -literal -offset indent | ||
57 | (int)strtol(nptr, (char **)NULL, 10); | ||
58 | .Ed | ||
59 | .Sh SEE ALSO | ||
60 | .Xr atof 3 , | ||
61 | .Xr atol 3 , | ||
62 | .Xr strtod 3 , | ||
63 | .Xr strtol 3 , | ||
64 | .Xr strtonum 3 , | ||
65 | .Xr strtoul 3 | ||
66 | .Sh STANDARDS | ||
67 | The | ||
68 | .Fn atoi | ||
69 | function conforms to | ||
70 | .St -ansiC . | ||
71 | .Sh CAVEATS | ||
72 | .Nm | ||
73 | does no overflow checking, handles unsigned numbers poorly, | ||
74 | and handles strings containing trailing extra characters | ||
75 | (like | ||
76 | .Dq "123abc" ) | ||
77 | poorly. | ||
78 | Careful use of | ||
79 | .Xr strtol 3 | ||
80 | and | ||
81 | .Xr strtoul 3 | ||
82 | can alleviate these problems, | ||
83 | but | ||
84 | .Xr strtonum 3 | ||
85 | can be used to convert numbers from strings much more safely | ||
86 | and easily. | ||
diff --git a/src/lib/libc/stdlib/atoi.c b/src/lib/libc/stdlib/atoi.c new file mode 100644 index 0000000000..b0842678e2 --- /dev/null +++ b/src/lib/libc/stdlib/atoi.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: atoi.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1988 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | int | ||
34 | atoi(const char *str) | ||
35 | { | ||
36 | return((int)strtol(str, (char **)NULL, 10)); | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/atol.3 b/src/lib/libc/stdlib/atol.3 new file mode 100644 index 0000000000..3c5551182d --- /dev/null +++ b/src/lib/libc/stdlib/atol.3 | |||
@@ -0,0 +1,70 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: atol.3,v 1.7 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt ATOL 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm atol | ||
39 | .Nd convert | ||
40 | .Tn ASCII | ||
41 | string to long integer | ||
42 | .Sh SYNOPSIS | ||
43 | .Fd #include <stdlib.h> | ||
44 | .Ft long | ||
45 | .Fn atol "const char *nptr" | ||
46 | .Sh DESCRIPTION | ||
47 | The | ||
48 | .Fn atol | ||
49 | function converts the initial portion of the string pointed to by | ||
50 | .Fa nptr | ||
51 | to | ||
52 | .Li long integer | ||
53 | representation. | ||
54 | .Pp | ||
55 | It is equivalent to: | ||
56 | .Bd -literal -offset indent | ||
57 | strtol(nptr, (char **)NULL, 10); | ||
58 | .Ed | ||
59 | .Sh SEE ALSO | ||
60 | .Xr atof 3 , | ||
61 | .Xr atoi 3 , | ||
62 | .Xr atoll 3 , | ||
63 | .Xr strtod 3 , | ||
64 | .Xr strtol 3 , | ||
65 | .Xr strtoul 3 | ||
66 | .Sh STANDARDS | ||
67 | The | ||
68 | .Fn atol | ||
69 | function conforms to | ||
70 | .St -ansiC-99 . | ||
diff --git a/src/lib/libc/stdlib/atol.c b/src/lib/libc/stdlib/atol.c new file mode 100644 index 0000000000..1970804401 --- /dev/null +++ b/src/lib/libc/stdlib/atol.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: atol.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1988 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | long | ||
34 | atol(const char *str) | ||
35 | { | ||
36 | return(strtol(str, (char **)NULL, 10)); | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/atoll.3 b/src/lib/libc/stdlib/atoll.3 new file mode 100644 index 0000000000..608a61f4ce --- /dev/null +++ b/src/lib/libc/stdlib/atoll.3 | |||
@@ -0,0 +1,70 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: atoll.3,v 1.5 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt ATOLL 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm atoll | ||
39 | .Nd convert | ||
40 | .Tn ASCII | ||
41 | string to long long integer | ||
42 | .Sh SYNOPSIS | ||
43 | .Fd #include <stdlib.h> | ||
44 | .Ft long long | ||
45 | .Fn atoll "const char *nptr" | ||
46 | .Sh DESCRIPTION | ||
47 | The | ||
48 | .Fn atoll | ||
49 | function converts the initial portion of the string pointed to by | ||
50 | .Fa nptr | ||
51 | to | ||
52 | .Li long long integer | ||
53 | representation. | ||
54 | .Pp | ||
55 | It is equivalent to: | ||
56 | .Bd -literal -offset indent | ||
57 | strtoll(nptr, (char **)NULL, 10); | ||
58 | .Ed | ||
59 | .Sh SEE ALSO | ||
60 | .Xr atof 3 , | ||
61 | .Xr atoi 3 , | ||
62 | .Xr atol 3 , | ||
63 | .Xr strtod 3 , | ||
64 | .Xr strtol 3 , | ||
65 | .Xr strtoul 3 | ||
66 | .Sh STANDARDS | ||
67 | The | ||
68 | .Fn atoll | ||
69 | function conforms to | ||
70 | .St -ansiC-99 . | ||
diff --git a/src/lib/libc/stdlib/atoll.c b/src/lib/libc/stdlib/atoll.c new file mode 100644 index 0000000000..a65e682cfb --- /dev/null +++ b/src/lib/libc/stdlib/atoll.c | |||
@@ -0,0 +1,38 @@ | |||
1 | /* $OpenBSD: atoll.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1988 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | long long | ||
34 | atoll(str) | ||
35 | const char *str; | ||
36 | { | ||
37 | return(strtoll(str, (char **)NULL, 10)); | ||
38 | } | ||
diff --git a/src/lib/libc/stdlib/bsearch.3 b/src/lib/libc/stdlib/bsearch.3 new file mode 100644 index 0000000000..4877a1023e --- /dev/null +++ b/src/lib/libc/stdlib/bsearch.3 | |||
@@ -0,0 +1,84 @@ | |||
1 | .\" Copyright (c) 1990, 1991, 1993, 1994 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: bsearch.3,v 1.7 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt BSEARCH 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm bsearch | ||
39 | .Nd binary search of a sorted table | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft void * | ||
43 | .Fn bsearch "const void *key" "const void *base" "size_t nmemb" "size_t size" "int (*compar) (const void *, const void *)" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn bsearch | ||
47 | function searches an array of | ||
48 | .Fa nmemb | ||
49 | objects, the initial member of which is | ||
50 | pointed to by | ||
51 | .Fa base , | ||
52 | for a member that matches the object pointed to by | ||
53 | .Fa key . | ||
54 | The size of each member of the array is specified by | ||
55 | .Fa size . | ||
56 | .Pp | ||
57 | The contents of the array should be in ascending sorted order according | ||
58 | to the comparison function referenced by | ||
59 | .Fa compar . | ||
60 | The | ||
61 | .Fa compar | ||
62 | routine is expected to have two arguments which point to the | ||
63 | .Fa key | ||
64 | object and to an array member, in that order, and should return an integer | ||
65 | less than, equal to, or greater than zero if the | ||
66 | .Fa key | ||
67 | object is found, respectively, to be less than, to match, or be | ||
68 | greater than the array member. | ||
69 | .Sh RETURN VALUES | ||
70 | The | ||
71 | .Fn bsearch | ||
72 | function returns a pointer to a matching member of the array, or a null | ||
73 | pointer if no match is found. | ||
74 | If two members compare as equal, which member is matched is unspecified. | ||
75 | .Sh SEE ALSO | ||
76 | .Xr db 3 , | ||
77 | .Xr lsearch 3 , | ||
78 | .Xr qsort 3 , | ||
79 | .Xr tsearch 3 | ||
80 | .Sh STANDARDS | ||
81 | The | ||
82 | .Fn bsearch | ||
83 | function conforms to | ||
84 | .St -ansiC . | ||
diff --git a/src/lib/libc/stdlib/bsearch.c b/src/lib/libc/stdlib/bsearch.c new file mode 100644 index 0000000000..b48747236e --- /dev/null +++ b/src/lib/libc/stdlib/bsearch.c | |||
@@ -0,0 +1,67 @@ | |||
1 | /* | ||
2 | * Copyright (c) 1990 Regents of the University of California. | ||
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 | * 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. Neither the name of the University nor the names of its contributors | ||
14 | * may be used to endorse or promote products derived from this software | ||
15 | * without specific prior written permission. | ||
16 | * | ||
17 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
18 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
19 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
20 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
21 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
22 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
23 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
24 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
25 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
26 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
27 | * SUCH DAMAGE. | ||
28 | */ | ||
29 | |||
30 | #include <stdlib.h> | ||
31 | |||
32 | /* | ||
33 | * Perform a binary search. | ||
34 | * | ||
35 | * The code below is a bit sneaky. After a comparison fails, we | ||
36 | * divide the work in half by moving either left or right. If lim | ||
37 | * is odd, moving left simply involves halving lim: e.g., when lim | ||
38 | * is 5 we look at item 2, so we change lim to 2 so that we will | ||
39 | * look at items 0 & 1. If lim is even, the same applies. If lim | ||
40 | * is odd, moving right again involves halving lim, this time moving | ||
41 | * the base up one item past p: e.g., when lim is 5 we change base | ||
42 | * to item 3 and make lim 2 so that we will look at items 3 and 4. | ||
43 | * If lim is even, however, we have to shrink it by one before | ||
44 | * halving: e.g., when lim is 4, we still looked at item 2, so we | ||
45 | * have to make lim 3, then halve, obtaining 1, so that we will only | ||
46 | * look at item 3. | ||
47 | */ | ||
48 | void * | ||
49 | bsearch(const void *key, const void *base0, size_t nmemb, size_t size, | ||
50 | int (*compar)(const void *, const void *)) | ||
51 | { | ||
52 | const char *base = base0; | ||
53 | int lim, cmp; | ||
54 | const void *p; | ||
55 | |||
56 | for (lim = nmemb; lim != 0; lim >>= 1) { | ||
57 | p = base + (lim >> 1) * size; | ||
58 | cmp = (*compar)(key, p); | ||
59 | if (cmp == 0) | ||
60 | return ((void *)p); | ||
61 | if (cmp > 0) { /* key > p: move right */ | ||
62 | base = (char *)p + size; | ||
63 | lim--; | ||
64 | } /* else move left */ | ||
65 | } | ||
66 | return (NULL); | ||
67 | } | ||
diff --git a/src/lib/libc/stdlib/cfree.c b/src/lib/libc/stdlib/cfree.c new file mode 100644 index 0000000000..373c7ff75d --- /dev/null +++ b/src/lib/libc/stdlib/cfree.c | |||
@@ -0,0 +1,40 @@ | |||
1 | /* $OpenBSD: cfree.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 1996 SigmaSoft, Th. Lockert <tholo@sigmasoft.com> | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * | ||
16 | * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, | ||
17 | * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY | ||
18 | * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL | ||
19 | * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, | ||
20 | * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, | ||
21 | * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; | ||
22 | * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, | ||
23 | * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR | ||
24 | * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF | ||
25 | * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ||
26 | */ | ||
27 | |||
28 | #include <sys/cdefs.h> | ||
29 | #include <stdlib.h> | ||
30 | |||
31 | #ifdef __indr_reference | ||
32 | __indr_reference(free, cfree); | ||
33 | #else | ||
34 | |||
35 | void | ||
36 | cfree(void *p) | ||
37 | { | ||
38 | free(p); | ||
39 | } | ||
40 | #endif | ||
diff --git a/src/lib/libc/stdlib/div.3 b/src/lib/libc/stdlib/div.3 new file mode 100644 index 0000000000..2403fcb0e8 --- /dev/null +++ b/src/lib/libc/stdlib/div.3 | |||
@@ -0,0 +1,64 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek. | ||
6 | .\" Redistribution and use in source and binary forms, with or without | ||
7 | .\" modification, are permitted provided that the following conditions | ||
8 | .\" are met: | ||
9 | .\" 1. Redistributions of source code must retain the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | .\" may be used to endorse or promote products derived from this software | ||
16 | .\" without specific prior written permission. | ||
17 | .\" | ||
18 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | .\" SUCH DAMAGE. | ||
29 | .\" | ||
30 | .\" $OpenBSD: div.3,v 1.10 2011/07/07 13:30:28 jmc Exp $ | ||
31 | .\" | ||
32 | .Dd $Mdocdate: July 7 2011 $ | ||
33 | .Dt DIV 3 | ||
34 | .Os | ||
35 | .Sh NAME | ||
36 | .Nm div | ||
37 | .Nd return quotient and remainder from division | ||
38 | .Sh SYNOPSIS | ||
39 | .Fd #include <stdlib.h> | ||
40 | .Ft div_t | ||
41 | .Fn div "int num" "int denom" | ||
42 | .Sh DESCRIPTION | ||
43 | The | ||
44 | .Fn div | ||
45 | function computes the value | ||
46 | .Fa num Ns / Ns Fa denom | ||
47 | and returns the quotient and remainder in a structure named | ||
48 | .Fa div_t | ||
49 | that contains two | ||
50 | .Li int | ||
51 | members named | ||
52 | .Fa quot | ||
53 | and | ||
54 | .Fa rem . | ||
55 | .Sh SEE ALSO | ||
56 | .Xr imaxdiv 3 , | ||
57 | .Xr ldiv 3 , | ||
58 | .Xr lldiv 3 , | ||
59 | .Xr qdiv 3 | ||
60 | .Sh STANDARDS | ||
61 | The | ||
62 | .Fn div | ||
63 | function conforms to | ||
64 | .St -ansiC . | ||
diff --git a/src/lib/libc/stdlib/div.c b/src/lib/libc/stdlib/div.c new file mode 100644 index 0000000000..f7ac2db4b0 --- /dev/null +++ b/src/lib/libc/stdlib/div.c | |||
@@ -0,0 +1,71 @@ | |||
1 | /* $OpenBSD: div.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1990 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Chris Torek. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | #include <stdlib.h> /* div_t */ | ||
35 | |||
36 | div_t | ||
37 | div(int num, int denom) | ||
38 | { | ||
39 | div_t r; | ||
40 | |||
41 | r.quot = num / denom; | ||
42 | r.rem = num % denom; | ||
43 | /* | ||
44 | * The ANSI standard says that |r.quot| <= |n/d|, where | ||
45 | * n/d is to be computed in infinite precision. In other | ||
46 | * words, we should always truncate the quotient towards | ||
47 | * 0, never -infinity. | ||
48 | * | ||
49 | * Machine division and remainer may work either way when | ||
50 | * one or both of n or d is negative. If only one is | ||
51 | * negative and r.quot has been truncated towards -inf, | ||
52 | * r.rem will have the same sign as denom and the opposite | ||
53 | * sign of num; if both are negative and r.quot has been | ||
54 | * truncated towards -inf, r.rem will be positive (will | ||
55 | * have the opposite sign of num). These are considered | ||
56 | * `wrong'. | ||
57 | * | ||
58 | * If both are num and denom are positive, r will always | ||
59 | * be positive. | ||
60 | * | ||
61 | * This all boils down to: | ||
62 | * if num >= 0, but r.rem < 0, we got the wrong answer. | ||
63 | * In that case, to get the right answer, add 1 to r.quot and | ||
64 | * subtract denom from r.rem. | ||
65 | */ | ||
66 | if (num >= 0 && r.rem < 0) { | ||
67 | r.quot++; | ||
68 | r.rem -= denom; | ||
69 | } | ||
70 | return (r); | ||
71 | } | ||
diff --git a/src/lib/libc/stdlib/drand48.c b/src/lib/libc/stdlib/drand48.c new file mode 100644 index 0000000000..b6c046c831 --- /dev/null +++ b/src/lib/libc/stdlib/drand48.c | |||
@@ -0,0 +1,23 @@ | |||
1 | /* $OpenBSD: drand48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | extern unsigned short __rand48_seed[3]; | ||
18 | |||
19 | double | ||
20 | drand48(void) | ||
21 | { | ||
22 | return erand48(__rand48_seed); | ||
23 | } | ||
diff --git a/src/lib/libc/stdlib/ecvt.3 b/src/lib/libc/stdlib/ecvt.3 new file mode 100644 index 0000000000..2f107e11fd --- /dev/null +++ b/src/lib/libc/stdlib/ecvt.3 | |||
@@ -0,0 +1,165 @@ | |||
1 | .\" $OpenBSD: ecvt.3,v 1.9 2010/04/01 17:06:55 jmc Exp $ | ||
2 | .\" | ||
3 | .\" Copyright (c) 2002 Todd C. Miller <Todd.Miller@courtesan.com> | ||
4 | .\" | ||
5 | .\" Permission to use, copy, modify, and distribute this software for any | ||
6 | .\" purpose with or without fee is hereby granted, provided that the above | ||
7 | .\" copyright notice and this permission notice appear in all copies. | ||
8 | .\" | ||
9 | .\" THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
10 | .\" WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
11 | .\" MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
12 | .\" ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
13 | .\" WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
14 | .\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
15 | .\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
16 | .\" | ||
17 | .\" Sponsored in part by the Defense Advanced Research Projects | ||
18 | .\" Agency (DARPA) and Air Force Research Laboratory, Air Force | ||
19 | .\" Materiel Command, USAF, under agreement number F39502-99-1-0512. | ||
20 | .\" | ||
21 | .Dd $Mdocdate: April 1 2010 $ | ||
22 | .Dt ECVT 3 | ||
23 | .Os | ||
24 | .Sh NAME | ||
25 | .Nm ecvt , | ||
26 | .Nm fcvt , | ||
27 | .Nm gcvt | ||
28 | .Nd convert double to | ||
29 | .Tn ASCII | ||
30 | string | ||
31 | .Sh SYNOPSIS | ||
32 | .Fd #include <stdlib.h> | ||
33 | .Ft char * | ||
34 | .Fn ecvt "double value" "int ndigit" "int *decpt" "int *sign" | ||
35 | .Ft char * | ||
36 | .Fn fcvt "double value" "int ndigit" "int *decpt" "int *sign" | ||
37 | .Ft char * | ||
38 | .Fn gcvt "double value" "int ndigit" "char *buf" | ||
39 | .Sh DESCRIPTION | ||
40 | .Bf -symbolic | ||
41 | These functions are provided for compatibility with legacy code. | ||
42 | New code should use the | ||
43 | .Xr snprintf 3 | ||
44 | function for improved safety and portability. | ||
45 | .Ef | ||
46 | .Pp | ||
47 | The | ||
48 | .Fn ecvt , | ||
49 | .Fn fcvt | ||
50 | and | ||
51 | .Fn gcvt | ||
52 | functions convert the double precision floating-point number | ||
53 | .Fa value | ||
54 | to a NUL-terminated | ||
55 | .Tn ASCII | ||
56 | string. | ||
57 | .Pp | ||
58 | The | ||
59 | .Fn ecvt | ||
60 | function converts | ||
61 | .Fa value | ||
62 | to a NUL-terminated string of exactly | ||
63 | .Fa ndigit | ||
64 | digits and returns a pointer to that string. | ||
65 | The result is padded with zeroes from left to right as needed. | ||
66 | There are no leading zeroes unless | ||
67 | .Fa value | ||
68 | itself is 0. | ||
69 | The least significant digit is rounded in an implementation-dependent manner. | ||
70 | The position of the decimal point relative to the beginning of the string | ||
71 | is stored in | ||
72 | .Fa decpt . | ||
73 | A negative value indicates that the decimal point is located | ||
74 | to the left of the returned digits (this occurs when there is no | ||
75 | whole number component to | ||
76 | .Fa value ) . | ||
77 | If | ||
78 | .Fa value | ||
79 | is zero, it is unspecified whether the integer pointed to by | ||
80 | .Fa decpt | ||
81 | will be 0 or 1. | ||
82 | The decimal point itself is not included in the returned string. | ||
83 | If the sign of the result is negative, the integer pointed to by | ||
84 | .Fa sign | ||
85 | is non-zero; otherwise, it is 0. | ||
86 | .Pp | ||
87 | If the converted value is out of range or is not representable, | ||
88 | the contents of the returned string are unspecified. | ||
89 | .Pp | ||
90 | The | ||
91 | .Fn fcvt | ||
92 | function is identical to | ||
93 | .Fn ecvt | ||
94 | with the exception that | ||
95 | .Fa ndigit | ||
96 | specifies the number of digits after the decimal point (zero-padded as | ||
97 | needed). | ||
98 | .Pp | ||
99 | The | ||
100 | .Fn gcvt | ||
101 | function converts | ||
102 | .Fa value | ||
103 | to a NUL-terminated string similar to the %g | ||
104 | .Xr printf 3 | ||
105 | format specifier and stores the result in | ||
106 | .Fa buf . | ||
107 | It produces | ||
108 | .Fa ndigit | ||
109 | significant digits similar to the %f | ||
110 | .Xr printf 3 | ||
111 | format specifier where possible. | ||
112 | If | ||
113 | .Fa ndigit | ||
114 | does allow sufficient precision, the result is stored in | ||
115 | exponential notation similar to the %e | ||
116 | .Xr printf 3 | ||
117 | format specifier. | ||
118 | If | ||
119 | .Fa value | ||
120 | is less than zero, | ||
121 | .Fa buf | ||
122 | will be prefixed with a minus sign. | ||
123 | A decimal point is included in the returned string if | ||
124 | .Fa value | ||
125 | is not a whole number. | ||
126 | Unlike the | ||
127 | .Fn ecvt | ||
128 | and | ||
129 | .Fn fcvt | ||
130 | functions, | ||
131 | .Fa buf | ||
132 | is not zero-padded. | ||
133 | .Sh RETURN VALUES | ||
134 | The | ||
135 | .Fn ecvt , | ||
136 | .Fn fcvt | ||
137 | and | ||
138 | .Fn gcvt | ||
139 | functions return a NUL-terminated string representation of | ||
140 | .Fa value . | ||
141 | .Sh SEE ALSO | ||
142 | .Xr printf 3 , | ||
143 | .Xr strtod 3 | ||
144 | .Sh STANDARDS | ||
145 | The | ||
146 | .Fn ecvt , | ||
147 | .Fn fcvt | ||
148 | and | ||
149 | .Fn gcvt | ||
150 | functions conform to | ||
151 | .St -p1003.1-2001 . | ||
152 | .Sh CAVEATS | ||
153 | The | ||
154 | .Fn ecvt | ||
155 | and | ||
156 | .Fn fcvt | ||
157 | functions return a pointer to internal storage space that will be | ||
158 | overwritten by subsequent calls to either function. | ||
159 | .Pp | ||
160 | The maximum possible precision of the return value is limited by the | ||
161 | precision of a double and may not be the same on all architectures. | ||
162 | .Pp | ||
163 | The | ||
164 | .Xr snprintf 3 | ||
165 | function is preferred over these functions for new code. | ||
diff --git a/src/lib/libc/stdlib/ecvt.c b/src/lib/libc/stdlib/ecvt.c new file mode 100644 index 0000000000..03ff918967 --- /dev/null +++ b/src/lib/libc/stdlib/ecvt.c | |||
@@ -0,0 +1,107 @@ | |||
1 | /* $OpenBSD: ecvt.c,v 1.7 2009/10/16 12:15:03 martynas Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 2002, 2006 Todd C. Miller <Todd.Miller@courtesan.com> | ||
5 | * | ||
6 | * Permission to use, copy, modify, and distribute this software for any | ||
7 | * purpose with or without fee is hereby granted, provided that the above | ||
8 | * copyright notice and this permission notice appear in all copies. | ||
9 | * | ||
10 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
11 | * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
12 | * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
13 | * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
14 | * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
15 | * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
16 | * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
17 | * | ||
18 | * Sponsored in part by the Defense Advanced Research Projects | ||
19 | * Agency (DARPA) and Air Force Research Laboratory, Air Force | ||
20 | * Materiel Command, USAF, under agreement number F39502-99-1-0512. | ||
21 | */ | ||
22 | |||
23 | #include <stdio.h> | ||
24 | #include <stdlib.h> | ||
25 | #include <string.h> | ||
26 | |||
27 | extern char *__dtoa(double, int, int, int *, int *, char **); | ||
28 | extern void __freedtoa(char *); | ||
29 | static char *__cvt(double, int, int *, int *, int, int); | ||
30 | |||
31 | static char * | ||
32 | __cvt(double value, int ndigit, int *decpt, int *sign, int fmode, int pad) | ||
33 | { | ||
34 | static char *s; | ||
35 | char *p, *rve, c; | ||
36 | size_t siz; | ||
37 | |||
38 | if (ndigit == 0) { | ||
39 | *sign = value < 0.0; | ||
40 | *decpt = 0; | ||
41 | return (""); | ||
42 | } | ||
43 | |||
44 | if (s) { | ||
45 | free(s); | ||
46 | s = NULL; | ||
47 | } | ||
48 | |||
49 | if (ndigit < 0) | ||
50 | siz = -ndigit + 1; | ||
51 | else | ||
52 | siz = ndigit + 1; | ||
53 | |||
54 | |||
55 | /* __dtoa() doesn't allocate space for 0 so we do it by hand */ | ||
56 | if (value == 0.0) { | ||
57 | *decpt = 1 - fmode; /* 1 for 'e', 0 for 'f' */ | ||
58 | *sign = 0; | ||
59 | if ((rve = s = (char *)malloc(siz)) == NULL) | ||
60 | return(NULL); | ||
61 | *rve++ = '0'; | ||
62 | *rve = '\0'; | ||
63 | } else { | ||
64 | p = __dtoa(value, fmode + 2, ndigit, decpt, sign, &rve); | ||
65 | if (p == NULL) | ||
66 | return (NULL); | ||
67 | if (*decpt == 9999) { | ||
68 | /* Infinity or Nan, convert to inf or nan like printf */ | ||
69 | *decpt = 0; | ||
70 | c = *p; | ||
71 | __freedtoa(p); | ||
72 | return(c == 'I' ? "inf" : "nan"); | ||
73 | } | ||
74 | /* Make a local copy and adjust rve to be in terms of s */ | ||
75 | if (pad && fmode) | ||
76 | siz += *decpt; | ||
77 | if ((s = (char *)malloc(siz)) == NULL) { | ||
78 | __freedtoa(p); | ||
79 | return(NULL); | ||
80 | } | ||
81 | (void) strlcpy(s, p, siz); | ||
82 | rve = s + (rve - p); | ||
83 | __freedtoa(p); | ||
84 | } | ||
85 | |||
86 | /* Add trailing zeros */ | ||
87 | if (pad) { | ||
88 | siz -= rve - s; | ||
89 | while (--siz) | ||
90 | *rve++ = '0'; | ||
91 | *rve = '\0'; | ||
92 | } | ||
93 | |||
94 | return(s); | ||
95 | } | ||
96 | |||
97 | char * | ||
98 | ecvt(double value, int ndigit, int *decpt, int *sign) | ||
99 | { | ||
100 | return(__cvt(value, ndigit, decpt, sign, 0, 1)); | ||
101 | } | ||
102 | |||
103 | char * | ||
104 | fcvt(double value, int ndigit, int *decpt, int *sign) | ||
105 | { | ||
106 | return(__cvt(value, ndigit, decpt, sign, 1, 1)); | ||
107 | } | ||
diff --git a/src/lib/libc/stdlib/erand48.c b/src/lib/libc/stdlib/erand48.c new file mode 100644 index 0000000000..2ffeaa6e71 --- /dev/null +++ b/src/lib/libc/stdlib/erand48.c | |||
@@ -0,0 +1,24 @@ | |||
1 | /* $OpenBSD: erand48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | double | ||
18 | erand48(unsigned short xseed[3]) | ||
19 | { | ||
20 | __dorand48(xseed); | ||
21 | return ldexp((double) xseed[0], -48) + | ||
22 | ldexp((double) xseed[1], -32) + | ||
23 | ldexp((double) xseed[2], -16); | ||
24 | } | ||
diff --git a/src/lib/libc/stdlib/exit.3 b/src/lib/libc/stdlib/exit.3 new file mode 100644 index 0000000000..e452d454a8 --- /dev/null +++ b/src/lib/libc/stdlib/exit.3 | |||
@@ -0,0 +1,123 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: exit.3,v 1.12 2011/11/17 14:26:14 schwarze Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: November 17 2011 $ | ||
35 | .Dt EXIT 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm exit, _Exit | ||
39 | .Nd perform normal program termination | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft void | ||
43 | .Fn exit "int status" | ||
44 | .Ft void | ||
45 | .Fn _Exit "int status" | ||
46 | .Sh DESCRIPTION | ||
47 | The | ||
48 | .Fn exit | ||
49 | and | ||
50 | .Fn _Exit | ||
51 | functions terminate a process. | ||
52 | .Pp | ||
53 | Before termination, | ||
54 | .Fn exit | ||
55 | performs the following operations in the order listed: | ||
56 | .Bl -enum -offset indent | ||
57 | .It | ||
58 | Call the functions registered with the | ||
59 | .Xr atexit 3 | ||
60 | function, in the reverse order of their registration. | ||
61 | .It | ||
62 | Flush all open output streams. | ||
63 | .It | ||
64 | Close all open streams. | ||
65 | .It | ||
66 | Unlink all files created with the | ||
67 | .Xr tmpfile 3 | ||
68 | function. | ||
69 | .El | ||
70 | .Pp | ||
71 | The | ||
72 | .Fn _Exit | ||
73 | function terminates without calling the functions registered with the | ||
74 | .Xr atexit 3 | ||
75 | function. | ||
76 | The | ||
77 | .Ox | ||
78 | implementation of | ||
79 | .Fn _Exit | ||
80 | does not flush open output streams or unlink files created with the | ||
81 | .Xr tmpfile 3 | ||
82 | function. | ||
83 | However, this behavior is implementation-specific. | ||
84 | .Pp | ||
85 | Lastly, | ||
86 | .Fn exit | ||
87 | and | ||
88 | .Fn _Exit | ||
89 | call | ||
90 | .Xr _exit 2 . | ||
91 | Note that typically | ||
92 | .Xr _exit 2 | ||
93 | only passes the lower 8 bits of | ||
94 | .Fa status | ||
95 | on to the parent, thus negative values have less meaning. | ||
96 | .Sh RETURN VALUES | ||
97 | The | ||
98 | .Fn exit | ||
99 | and | ||
100 | .Fn _Exit | ||
101 | functions never return. | ||
102 | .Sh SEE ALSO | ||
103 | .Xr _exit 2 , | ||
104 | .Xr atexit 3 , | ||
105 | .Xr intro 3 , | ||
106 | .Xr sysexits 3 , | ||
107 | .Xr tmpfile 3 | ||
108 | .Sh STANDARDS | ||
109 | The | ||
110 | .Fn exit | ||
111 | and | ||
112 | .Fn _Exit | ||
113 | functions conform to | ||
114 | .St -ansiC-99 . | ||
115 | .Sh HISTORY | ||
116 | An | ||
117 | .Fn exit | ||
118 | function first appeared as a system call in | ||
119 | .At v1 . | ||
120 | In | ||
121 | .At v7 , | ||
122 | the bare system call was renamed to | ||
123 | .Xr _exit 2 . | ||
diff --git a/src/lib/libc/stdlib/exit.c b/src/lib/libc/stdlib/exit.c new file mode 100644 index 0000000000..83fe3d2de5 --- /dev/null +++ b/src/lib/libc/stdlib/exit.c | |||
@@ -0,0 +1,59 @@ | |||
1 | /* $OpenBSD: exit.c,v 1.12 2007/09/03 14:40:16 millert Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1990 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <sys/types.h> | ||
32 | #include <sys/mman.h> | ||
33 | #include <stdlib.h> | ||
34 | #include <unistd.h> | ||
35 | #include "atexit.h" | ||
36 | #include "thread_private.h" | ||
37 | |||
38 | /* | ||
39 | * This variable is zero until a process has created a thread. | ||
40 | * It is used to avoid calling locking functions in libc when they | ||
41 | * are not required. By default, libc is intended to be(come) | ||
42 | * thread-safe, but without a (significant) penalty to non-threaded | ||
43 | * processes. | ||
44 | */ | ||
45 | int __isthreaded = 0; | ||
46 | |||
47 | /* | ||
48 | * Exit, flushing stdio buffers if necessary. | ||
49 | */ | ||
50 | void | ||
51 | exit(int status) | ||
52 | { | ||
53 | /* | ||
54 | * Call functions registered by atexit() or _cxa_atexit() | ||
55 | * (including the stdio cleanup routine) and then _exit(). | ||
56 | */ | ||
57 | __cxa_finalize(NULL); | ||
58 | _exit(status); | ||
59 | } | ||
diff --git a/src/lib/libc/stdlib/gcvt.c b/src/lib/libc/stdlib/gcvt.c new file mode 100644 index 0000000000..d9081a7d39 --- /dev/null +++ b/src/lib/libc/stdlib/gcvt.c | |||
@@ -0,0 +1,125 @@ | |||
1 | /* $OpenBSD: gcvt.c,v 1.12 2010/09/25 13:19:19 millert Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 2002, 2003, 2006, 2010 | ||
5 | * Todd C. Miller <Todd.Miller@courtesan.com> | ||
6 | * | ||
7 | * Permission to use, copy, modify, and distribute this software for any | ||
8 | * purpose with or without fee is hereby granted, provided that the above | ||
9 | * copyright notice and this permission notice appear in all copies. | ||
10 | * | ||
11 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
12 | * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
13 | * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
14 | * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
15 | * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
16 | * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
17 | * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
18 | * | ||
19 | * Sponsored in part by the Defense Advanced Research Projects | ||
20 | * Agency (DARPA) and Air Force Research Laboratory, Air Force | ||
21 | * Materiel Command, USAF, under agreement number F39502-99-1-0512. | ||
22 | */ | ||
23 | |||
24 | #include <locale.h> | ||
25 | #include <stdio.h> | ||
26 | #include <stdlib.h> | ||
27 | #include <string.h> | ||
28 | |||
29 | extern char *__dtoa(double, int, int, int *, int *, char **); | ||
30 | extern void __freedtoa(char *); | ||
31 | |||
32 | #define DEFPREC 6 | ||
33 | |||
34 | char * | ||
35 | gcvt(double value, int ndigit, char *buf) | ||
36 | { | ||
37 | char *digits, *dst, *src; | ||
38 | int i, decpt, sign; | ||
39 | struct lconv *lconv; | ||
40 | |||
41 | lconv = localeconv(); | ||
42 | if (ndigit <= 0) { | ||
43 | /* Match printf(3) behavior. */ | ||
44 | ndigit = ndigit ? DEFPREC : 1; | ||
45 | } | ||
46 | |||
47 | digits = __dtoa(value, 2, ndigit, &decpt, &sign, NULL); | ||
48 | if (digits == NULL) | ||
49 | return (NULL); | ||
50 | if (decpt == 9999) { | ||
51 | /* | ||
52 | * Infinity or NaN, convert to inf or nan with sign. | ||
53 | * We can't infer buffer size based on ndigit. | ||
54 | * We have to assume it is at least 5 chars. | ||
55 | */ | ||
56 | snprintf(buf, 5, "%s%s", sign ? "-" : "", | ||
57 | *digits == 'I' ? "inf" : "nan"); | ||
58 | __freedtoa(digits); | ||
59 | return (buf); | ||
60 | } | ||
61 | |||
62 | dst = buf; | ||
63 | if (sign) | ||
64 | *dst++ = '-'; | ||
65 | |||
66 | /* Match printf(3) behavior for exponential vs. regular fomatting. */ | ||
67 | if (decpt <= -4 || decpt > ndigit) { | ||
68 | /* exponential format (e.g. 1.2345e+13) */ | ||
69 | if (--decpt < 0) { | ||
70 | sign = 1; | ||
71 | decpt = -decpt; | ||
72 | } else | ||
73 | sign = 0; | ||
74 | src = digits; | ||
75 | *dst++ = *src++; | ||
76 | if (*src != '\0') { | ||
77 | *dst++ = *lconv->decimal_point; | ||
78 | do { | ||
79 | *dst++ = *src++; | ||
80 | } while (*src != '\0'); | ||
81 | } | ||
82 | *dst++ = 'e'; | ||
83 | if (sign) | ||
84 | *dst++ = '-'; | ||
85 | else | ||
86 | *dst++ = '+'; | ||
87 | if (decpt < 10) { | ||
88 | *dst++ = '0'; | ||
89 | *dst++ = '0' + decpt; | ||
90 | *dst = '\0'; | ||
91 | } else { | ||
92 | /* XXX - optimize */ | ||
93 | for (sign = decpt, i = 0; (sign /= 10) != 0; i++) | ||
94 | continue; | ||
95 | dst[i + 1] = '\0'; | ||
96 | while (decpt != 0) { | ||
97 | dst[i--] = '0' + decpt % 10; | ||
98 | decpt /= 10; | ||
99 | } | ||
100 | } | ||
101 | } else { | ||
102 | /* standard format */ | ||
103 | for (i = 0, src = digits; i < decpt; i++) { | ||
104 | if (*src != '\0') | ||
105 | *dst++ = *src++; | ||
106 | else | ||
107 | *dst++ = '0'; | ||
108 | } | ||
109 | if (*src != '\0') { | ||
110 | if (src == digits) | ||
111 | *dst++ = '0'; /* zero before decimal point */ | ||
112 | *dst++ = *lconv->decimal_point; | ||
113 | while (decpt < 0) { | ||
114 | *dst++ = '0'; | ||
115 | decpt++; | ||
116 | } | ||
117 | for (i = decpt; digits[i] != '\0'; i++) { | ||
118 | *dst++ = digits[i]; | ||
119 | } | ||
120 | } | ||
121 | *dst = '\0'; | ||
122 | } | ||
123 | __freedtoa(digits); | ||
124 | return (buf); | ||
125 | } | ||
diff --git a/src/lib/libc/stdlib/getenv.3 b/src/lib/libc/stdlib/getenv.3 new file mode 100644 index 0000000000..9da27ec11c --- /dev/null +++ b/src/lib/libc/stdlib/getenv.3 | |||
@@ -0,0 +1,180 @@ | |||
1 | .\" Copyright (c) 1988, 1991, 1993 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: getenv.3,v 1.16 2011/04/27 13:40:15 otto Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: April 27 2011 $ | ||
35 | .Dt GETENV 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm getenv , | ||
39 | .Nm putenv , | ||
40 | .Nm setenv , | ||
41 | .Nm unsetenv | ||
42 | .Nd environment variable functions | ||
43 | .Sh SYNOPSIS | ||
44 | .Fd #include <stdlib.h> | ||
45 | .Ft char * | ||
46 | .Fn getenv "const char *name" | ||
47 | .Ft int | ||
48 | .Fn setenv "const char *name" "const char *value" "int overwrite" | ||
49 | .Ft int | ||
50 | .Fn putenv "char *string" | ||
51 | .Ft int | ||
52 | .Fn unsetenv "const char *name" | ||
53 | .Sh DESCRIPTION | ||
54 | These functions set, unset, and fetch environment variables from the host | ||
55 | .Em environment list . | ||
56 | For compatibility with differing environment conventions, the given argument | ||
57 | .Fa name | ||
58 | may be appended with an equal sign | ||
59 | .Dq Li \&= | ||
60 | followed by zero or more characters, | ||
61 | and | ||
62 | .Fa value | ||
63 | may be prepended with an equal sign. | ||
64 | .Pp | ||
65 | The | ||
66 | .Fn getenv | ||
67 | function obtains the current value of the environment variable | ||
68 | .Fa name . | ||
69 | If the variable | ||
70 | .Fa name | ||
71 | is not in the current environment, a null pointer is returned. | ||
72 | .Pp | ||
73 | The | ||
74 | .Fn setenv | ||
75 | function inserts or resets the environment variable | ||
76 | .Fa name | ||
77 | in the current environment list. | ||
78 | If the variable | ||
79 | .Fa name | ||
80 | does not exist in the list, it is inserted with the given | ||
81 | .Fa value . | ||
82 | If the variable does exist, the argument | ||
83 | .Fa overwrite | ||
84 | is tested; if | ||
85 | .Fa overwrite | ||
86 | is zero, the variable is not reset, otherwise it is reset to the given | ||
87 | .Fa value . | ||
88 | .Pp | ||
89 | The | ||
90 | .Fn putenv | ||
91 | function takes an argument of the form | ||
92 | .Ar name Ns = Ns Ar value . | ||
93 | The memory pointed to by | ||
94 | .Ar string | ||
95 | becomes part of the environment and must not be deallocated by the caller. | ||
96 | If the variable already exists, it will be overwritten. | ||
97 | A common source of bugs is to pass a | ||
98 | .Ar string | ||
99 | argument that is a locally scoped string buffer. | ||
100 | This will result in corruption of the environment after leaving | ||
101 | the scope in which the variable is defined. | ||
102 | For this reason, the | ||
103 | .Fn setenv | ||
104 | function is preferred over | ||
105 | .Fn putenv . | ||
106 | .Pp | ||
107 | The | ||
108 | .Fn unsetenv | ||
109 | function deletes all instances of the variable name pointed to by | ||
110 | .Fa name | ||
111 | from the list. | ||
112 | .Sh RETURN VALUES | ||
113 | These functions | ||
114 | return zero if successful; otherwise the global variable | ||
115 | .Va errno | ||
116 | is set to indicate the error and \-1 is returned. | ||
117 | .Pp | ||
118 | If | ||
119 | .Fn getenv | ||
120 | is successful, the string returned should be considered read-only. | ||
121 | .Sh ERRORS | ||
122 | .Bl -tag -width Er | ||
123 | .It Bq Er EINVAL | ||
124 | The | ||
125 | .Fn setenv | ||
126 | or | ||
127 | .Fn unsetenv | ||
128 | function was passed a | ||
129 | .Ar name | ||
130 | containing an | ||
131 | .Sq = | ||
132 | character. | ||
133 | .Pp | ||
134 | The | ||
135 | .Fn unsetenv | ||
136 | function was passed an empty | ||
137 | .Ar name | ||
138 | or a NULL pointer. | ||
139 | .Pp | ||
140 | The | ||
141 | .Fn putenv | ||
142 | function was passed a | ||
143 | .Ar string | ||
144 | that did not contain an | ||
145 | .Sq = | ||
146 | character. | ||
147 | .It Bq Er ENOMEM | ||
148 | The | ||
149 | .Fn setenv | ||
150 | or | ||
151 | .Fn putenv | ||
152 | function failed because it was unable to allocate memory for the environment. | ||
153 | .El | ||
154 | .Sh SEE ALSO | ||
155 | .Xr csh 1 , | ||
156 | .Xr sh 1 , | ||
157 | .Xr execve 2 , | ||
158 | .Xr environ 7 | ||
159 | .Sh STANDARDS | ||
160 | The | ||
161 | .Fn getenv | ||
162 | function conforms to | ||
163 | .St -ansiC . | ||
164 | .Sh HISTORY | ||
165 | The function | ||
166 | .Fn getenv | ||
167 | appeared in | ||
168 | .At v7 | ||
169 | and | ||
170 | .Bx 3 . | ||
171 | The functions | ||
172 | .Fn setenv | ||
173 | and | ||
174 | .Fn unsetenv | ||
175 | appeared in | ||
176 | .Bx 4.3 Tahoe . | ||
177 | The | ||
178 | .Fn putenv | ||
179 | function appeared in | ||
180 | .Bx 4.3 Reno . | ||
diff --git a/src/lib/libc/stdlib/getenv.c b/src/lib/libc/stdlib/getenv.c new file mode 100644 index 0000000000..fd8482e9e3 --- /dev/null +++ b/src/lib/libc/stdlib/getenv.c | |||
@@ -0,0 +1,81 @@ | |||
1 | /* $OpenBSD: getenv.c,v 1.10 2010/08/23 22:31:50 millert Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1987, 1993 | ||
4 | * The Regents of the University of California. All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | #include <string.h> | ||
33 | |||
34 | char *__findenv(const char *name, int len, int *offset); | ||
35 | |||
36 | /* | ||
37 | * __findenv -- | ||
38 | * Returns pointer to value associated with name, if any, else NULL. | ||
39 | * Starts searching within the environmental array at offset. | ||
40 | * Sets offset to be the offset of the name/value combination in the | ||
41 | * environmental array, for use by putenv(3), setenv(3) and unsetenv(3). | ||
42 | * Explicitly removes '=' in argument name. | ||
43 | * | ||
44 | * This routine *should* be a static; don't use it. | ||
45 | */ | ||
46 | char * | ||
47 | __findenv(const char *name, int len, int *offset) | ||
48 | { | ||
49 | extern char **environ; | ||
50 | int i; | ||
51 | const char *np; | ||
52 | char **p, *cp; | ||
53 | |||
54 | if (name == NULL || environ == NULL) | ||
55 | return (NULL); | ||
56 | for (p = environ + *offset; (cp = *p) != NULL; ++p) { | ||
57 | for (np = name, i = len; i && *cp; i--) | ||
58 | if (*cp++ != *np++) | ||
59 | break; | ||
60 | if (i == 0 && *cp++ == '=') { | ||
61 | *offset = p - environ; | ||
62 | return (cp); | ||
63 | } | ||
64 | } | ||
65 | return (NULL); | ||
66 | } | ||
67 | |||
68 | /* | ||
69 | * getenv -- | ||
70 | * Returns ptr to value associated with name, if any, else NULL. | ||
71 | */ | ||
72 | char * | ||
73 | getenv(const char *name) | ||
74 | { | ||
75 | int offset = 0; | ||
76 | const char *np; | ||
77 | |||
78 | for (np = name; *np && *np != '='; ++np) | ||
79 | ; | ||
80 | return (__findenv(name, (int)(np - name), &offset)); | ||
81 | } | ||
diff --git a/src/lib/libc/stdlib/getopt.3 b/src/lib/libc/stdlib/getopt.3 new file mode 100644 index 0000000000..ecdf42ab76 --- /dev/null +++ b/src/lib/libc/stdlib/getopt.3 | |||
@@ -0,0 +1,364 @@ | |||
1 | .\" Copyright (c) 1988, 1991, 1993 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" Redistribution and use in source and binary forms, with or without | ||
5 | .\" modification, are permitted provided that the following conditions | ||
6 | .\" are met: | ||
7 | .\" 1. Redistributions of source code must retain the above copyright | ||
8 | .\" notice, this list of conditions and the following disclaimer. | ||
9 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer in the | ||
11 | .\" documentation and/or other materials provided with the distribution. | ||
12 | .\" 3. Neither the name of the University nor the names of its contributors | ||
13 | .\" may be used to endorse or promote products derived from this software | ||
14 | .\" without specific prior written permission. | ||
15 | .\" | ||
16 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
17 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
18 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
19 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
20 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
21 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
22 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
23 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
24 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
25 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
26 | .\" SUCH DAMAGE. | ||
27 | .\" | ||
28 | .\" $OpenBSD: getopt.3,v 1.42 2011/03/05 22:10:11 guenther Exp $ | ||
29 | .\" | ||
30 | .Dd $Mdocdate: March 5 2011 $ | ||
31 | .Dt GETOPT 3 | ||
32 | .Os | ||
33 | .Sh NAME | ||
34 | .Nm getopt | ||
35 | .Nd get option character from command line argument list | ||
36 | .Sh SYNOPSIS | ||
37 | .Fd #include <unistd.h> | ||
38 | .Vt extern char *optarg; | ||
39 | .Vt extern int opterr; | ||
40 | .Vt extern int optind; | ||
41 | .Vt extern int optopt; | ||
42 | .Vt extern int optreset; | ||
43 | .Ft int | ||
44 | .Fn getopt "int argc" "char * const *argv" "const char *optstring" | ||
45 | .Sh DESCRIPTION | ||
46 | The | ||
47 | .Fn getopt | ||
48 | function incrementally parses a command line argument list | ||
49 | .Fa argv | ||
50 | and returns the next | ||
51 | .Em known | ||
52 | option character. | ||
53 | An option character is | ||
54 | .Em known | ||
55 | if it has been specified in the string of accepted option characters, | ||
56 | .Fa optstring . | ||
57 | .Pp | ||
58 | The option string | ||
59 | .Fa optstring | ||
60 | may contain the following elements: individual characters, | ||
61 | characters followed by a colon, and characters followed by two colons. | ||
62 | A character followed by a single colon indicates that an argument | ||
63 | is to follow the option on the command line. | ||
64 | Two colons indicates that the argument is optional \- this is an | ||
65 | extension not covered by POSIX. | ||
66 | For example, an option string | ||
67 | .Qq x | ||
68 | recognizes an option | ||
69 | .Fl x , | ||
70 | and an option string | ||
71 | .Qq Li x: | ||
72 | recognizes an option and argument | ||
73 | .Fl x Ar argument . | ||
74 | It does not matter to | ||
75 | .Fn getopt | ||
76 | if a following argument has leading whitespace; except in the case where | ||
77 | the argument is optional, denoted with two colons, no leading whitespace | ||
78 | is permitted. | ||
79 | .Pp | ||
80 | On return from | ||
81 | .Fn getopt , | ||
82 | .Va optarg | ||
83 | points to an option argument, if it is anticipated, | ||
84 | and the variable | ||
85 | .Va optind | ||
86 | contains the index to the next | ||
87 | .Fa argv | ||
88 | argument for a subsequent call | ||
89 | to | ||
90 | .Fn getopt . | ||
91 | .Pp | ||
92 | The variables | ||
93 | .Va opterr | ||
94 | and | ||
95 | .Va optind | ||
96 | are both initialized to 1. | ||
97 | The | ||
98 | .Va optind | ||
99 | variable may be set to another value larger than 0 before a set of calls to | ||
100 | .Fn getopt | ||
101 | in order to skip over more or less | ||
102 | .Fa argv | ||
103 | entries. | ||
104 | An | ||
105 | .Va optind | ||
106 | value of 0 is reserved for compatibility with GNU | ||
107 | .Fn getopt . | ||
108 | .Pp | ||
109 | In order to use | ||
110 | .Fn getopt | ||
111 | to evaluate multiple sets of arguments, or to evaluate a single set of | ||
112 | arguments multiple times, | ||
113 | the variable | ||
114 | .Va optreset | ||
115 | must be set to 1 before the second and each additional set of calls to | ||
116 | .Fn getopt , | ||
117 | and the variable | ||
118 | .Va optind | ||
119 | must be reinitialized. | ||
120 | .Pp | ||
121 | The | ||
122 | .Fn getopt | ||
123 | function returns \-1 when the argument list is exhausted. | ||
124 | The interpretation of options in the argument list may be cancelled | ||
125 | by the option | ||
126 | .Ql -- | ||
127 | (double dash) which causes | ||
128 | .Fn getopt | ||
129 | to signal the end of argument processing and return \-1. | ||
130 | When all options have been processed (i.e., up to the first non-option | ||
131 | argument), | ||
132 | .Fn getopt | ||
133 | returns \-1. | ||
134 | .Sh RETURN VALUES | ||
135 | The | ||
136 | .Fn getopt | ||
137 | function returns the next known option character in | ||
138 | .Fa optstring . | ||
139 | If | ||
140 | .Fn getopt | ||
141 | encounters a character not found in | ||
142 | .Fa optstring | ||
143 | or if it detects a missing option argument, | ||
144 | it returns | ||
145 | .Sq \&? | ||
146 | (question mark). | ||
147 | If | ||
148 | .Fa optstring | ||
149 | has a leading | ||
150 | .Sq \&: | ||
151 | then a missing option argument causes | ||
152 | .Sq \&: | ||
153 | to be returned instead of | ||
154 | .Sq \&? . | ||
155 | In either case, the variable | ||
156 | .Va optopt | ||
157 | is set to the character that caused the error. | ||
158 | The | ||
159 | .Fn getopt | ||
160 | function returns \-1 when the argument list is exhausted. | ||
161 | .Sh EXAMPLES | ||
162 | The following code accepts the options | ||
163 | .Fl b | ||
164 | and | ||
165 | .Fl f Ar argument | ||
166 | and adjusts | ||
167 | .Va argc | ||
168 | and | ||
169 | .Va argv | ||
170 | after option argument processing has completed. | ||
171 | .Bd -literal -offset indent | ||
172 | int bflag, ch, fd; | ||
173 | |||
174 | bflag = 0; | ||
175 | while ((ch = getopt(argc, argv, "bf:")) != -1) { | ||
176 | switch (ch) { | ||
177 | case 'b': | ||
178 | bflag = 1; | ||
179 | break; | ||
180 | case 'f': | ||
181 | if ((fd = open(optarg, O_RDONLY, 0)) == -1) | ||
182 | err(1, "%s", optarg); | ||
183 | break; | ||
184 | default: | ||
185 | usage(); | ||
186 | /* NOTREACHED */ | ||
187 | } | ||
188 | } | ||
189 | argc -= optind; | ||
190 | argv += optind; | ||
191 | .Ed | ||
192 | .Sh DIAGNOSTICS | ||
193 | If the | ||
194 | .Fn getopt | ||
195 | function encounters a character not found in the string | ||
196 | .Fa optstring | ||
197 | or detects | ||
198 | a missing option argument, it writes an error message to | ||
199 | .Em stderr | ||
200 | and returns | ||
201 | .Ql \&? . | ||
202 | Setting | ||
203 | .Va opterr | ||
204 | to a zero will disable these error messages. | ||
205 | If | ||
206 | .Fa optstring | ||
207 | has a leading | ||
208 | .Ql \&: | ||
209 | then a missing option argument causes a | ||
210 | .Ql \&: | ||
211 | to be returned in addition to suppressing any error messages. | ||
212 | .Pp | ||
213 | Option arguments are allowed to begin with | ||
214 | .Ql - ; | ||
215 | this is reasonable but reduces the amount of error checking possible. | ||
216 | .Sh SEE ALSO | ||
217 | .Xr getopt 1 , | ||
218 | .Xr getopt_long 3 , | ||
219 | .Xr getsubopt 3 | ||
220 | .Sh STANDARDS | ||
221 | The | ||
222 | .Fn getopt | ||
223 | function implements a superset of the functionality specified by | ||
224 | .St -p1003.1 . | ||
225 | .Pp | ||
226 | The following extensions are supported: | ||
227 | .Bl -tag -width "xxx" | ||
228 | .It Li o | ||
229 | The | ||
230 | .Va optreset | ||
231 | variable was added to make it possible to call the | ||
232 | .Fn getopt | ||
233 | function multiple times. | ||
234 | .It Li o | ||
235 | If the | ||
236 | .Va optind | ||
237 | variable is set to 0, | ||
238 | .Fn getopt | ||
239 | will behave as if the | ||
240 | .Va optreset | ||
241 | variable has been set. | ||
242 | This is for compatibility with | ||
243 | .Tn GNU | ||
244 | .Fn getopt . | ||
245 | New code should use | ||
246 | .Va optreset | ||
247 | instead. | ||
248 | .It Li o | ||
249 | If the first character of | ||
250 | .Fa optstring | ||
251 | is a plus sign | ||
252 | .Pq Ql + , | ||
253 | it will be ignored. | ||
254 | This is for compatibility with | ||
255 | .Tn GNU | ||
256 | .Fn getopt . | ||
257 | .It Li o | ||
258 | If the first character of | ||
259 | .Fa optstring | ||
260 | is a dash | ||
261 | .Pq Ql - , | ||
262 | non-options will be returned as arguments to the option character | ||
263 | .Ql \e1 . | ||
264 | This is for compatibility with | ||
265 | .Tn GNU | ||
266 | .Fn getopt . | ||
267 | .It Li o | ||
268 | A single dash | ||
269 | .Pq Ql - | ||
270 | may be specified as a character in | ||
271 | .Fa optstring , | ||
272 | however it should | ||
273 | .Em never | ||
274 | have an argument associated with it. | ||
275 | This allows | ||
276 | .Fn getopt | ||
277 | to be used with programs that expect | ||
278 | .Ql - | ||
279 | as an option flag. | ||
280 | This practice is wrong, and should not be used in any current development. | ||
281 | It is provided for backward compatibility | ||
282 | .Em only . | ||
283 | Care should be taken not to use | ||
284 | .Ql - | ||
285 | as the first character in | ||
286 | .Fa optstring | ||
287 | to avoid a semantic conflict with | ||
288 | .Tn GNU | ||
289 | .Fn getopt | ||
290 | semantics (see above). | ||
291 | By default, a single dash causes | ||
292 | .Fn getopt | ||
293 | to return \-1. | ||
294 | .El | ||
295 | .Pp | ||
296 | Historic | ||
297 | .Bx | ||
298 | versions of | ||
299 | .Fn getopt | ||
300 | set | ||
301 | .Fa optopt | ||
302 | to the last option character processed. | ||
303 | However, this conflicts with | ||
304 | .St -p1003.1 | ||
305 | which stipulates that | ||
306 | .Fa optopt | ||
307 | be set to the last character that caused an error. | ||
308 | .Sh HISTORY | ||
309 | The | ||
310 | .Fn getopt | ||
311 | function appeared in | ||
312 | .Bx 4.3 . | ||
313 | .Sh BUGS | ||
314 | The | ||
315 | .Fn getopt | ||
316 | function was once specified to return | ||
317 | .Dv EOF | ||
318 | instead of \-1. | ||
319 | This was changed by | ||
320 | .St -p1003.2-92 | ||
321 | to decouple | ||
322 | .Fn getopt | ||
323 | from | ||
324 | .Aq Pa stdio.h . | ||
325 | .Pp | ||
326 | It is possible to handle digits as option letters. | ||
327 | This allows | ||
328 | .Fn getopt | ||
329 | to be used with programs that expect a number | ||
330 | .Pq Dq Li \-3 | ||
331 | as an option. | ||
332 | This practice is wrong, and should not be used in any current development. | ||
333 | It is provided for backward compatibility | ||
334 | .Em only . | ||
335 | The following code fragment works in most cases and can handle mixed | ||
336 | number and letter arguments. | ||
337 | .Bd -literal -offset indent | ||
338 | int aflag = 0, bflag = 0, ch, lastch = '\e0'; | ||
339 | int length = -1, newarg = 1, prevoptind = 1; | ||
340 | |||
341 | while ((ch = getopt(argc, argv, "0123456789ab")) != -1) { | ||
342 | switch (ch) { | ||
343 | case '0': case '1': case '2': case '3': case '4': | ||
344 | case '5': case '6': case '7': case '8': case '9': | ||
345 | if (newarg || !isdigit(lastch)) | ||
346 | length = 0; | ||
347 | else if (length > INT_MAX / 10) | ||
348 | usage(); | ||
349 | length = (length * 10) + (ch - '0'); | ||
350 | break; | ||
351 | case 'a': | ||
352 | aflag = 1; | ||
353 | break; | ||
354 | case 'b': | ||
355 | bflag = 1; | ||
356 | break; | ||
357 | default: | ||
358 | usage(); | ||
359 | } | ||
360 | lastch = ch; | ||
361 | newarg = optind != prevoptind; | ||
362 | prevoptind = optind; | ||
363 | } | ||
364 | .Ed | ||
diff --git a/src/lib/libc/stdlib/getopt_long.3 b/src/lib/libc/stdlib/getopt_long.3 new file mode 100644 index 0000000000..eaa5ead1c7 --- /dev/null +++ b/src/lib/libc/stdlib/getopt_long.3 | |||
@@ -0,0 +1,445 @@ | |||
1 | .\" $OpenBSD: getopt_long.3,v 1.19 2011/03/21 13:41:50 espie Exp $ | ||
2 | .\" $NetBSD: getopt_long.3,v 1.11 2002/10/02 10:54:19 wiz Exp $ | ||
3 | .\" | ||
4 | .\" Copyright (c) 1988, 1991, 1993 | ||
5 | .\" The Regents of the University of California. All rights reserved. | ||
6 | .\" | ||
7 | .\" Redistribution and use in source and binary forms, with or without | ||
8 | .\" modification, are permitted provided that the following conditions | ||
9 | .\" are met: | ||
10 | .\" 1. Redistributions of source code must retain the above copyright | ||
11 | .\" notice, this list of conditions and the following disclaimer. | ||
12 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
13 | .\" notice, this list of conditions and the following disclaimer in the | ||
14 | .\" documentation and/or other materials provided with the distribution. | ||
15 | .\" 3. Neither the name of the University nor the names of its contributors | ||
16 | .\" may be used to endorse or promote products derived from this software | ||
17 | .\" without specific prior written permission. | ||
18 | .\" | ||
19 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | .\" SUCH DAMAGE. | ||
30 | .\" | ||
31 | .\" @(#)getopt.3 8.5 (Berkeley) 4/27/95 | ||
32 | .\" | ||
33 | .Dd $Mdocdate: March 21 2011 $ | ||
34 | .Dt GETOPT_LONG 3 | ||
35 | .Os | ||
36 | .Sh NAME | ||
37 | .Nm getopt_long , | ||
38 | .Nm getopt_long_only | ||
39 | .Nd get long options from command line argument list | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <getopt.h> | ||
42 | .Vt extern char *optarg; | ||
43 | .Vt extern int optind; | ||
44 | .Vt extern int optopt; | ||
45 | .Vt extern int opterr; | ||
46 | .Vt extern int optreset; | ||
47 | .Ft int | ||
48 | .Fn getopt_long "int argc" "char * const *argv" "const char *optstring" "const struct option *longopts" "int *longindex" | ||
49 | .Ft int | ||
50 | .Fn getopt_long_only "int argc" "char * const *argv" "const char *optstring" "const struct option *longopts" "int *longindex" | ||
51 | .Sh DESCRIPTION | ||
52 | The | ||
53 | .Fn getopt_long | ||
54 | function is similar to | ||
55 | .Xr getopt 3 | ||
56 | but it accepts options in two forms: words and characters. | ||
57 | The | ||
58 | .Fn getopt_long | ||
59 | function provides a superset of the functionality of | ||
60 | .Xr getopt 3 . | ||
61 | .Fn getopt_long | ||
62 | can be used in two ways. | ||
63 | In the first way, every long option understood by the program has a | ||
64 | corresponding short option, and the option structure is only used to | ||
65 | translate from long options to short options. | ||
66 | When used in this fashion, | ||
67 | .Fn getopt_long | ||
68 | behaves identically to | ||
69 | .Xr getopt 3 . | ||
70 | This is a good way to add long option processing to an existing program | ||
71 | with the minimum of rewriting. | ||
72 | .Pp | ||
73 | In the second mechanism, a long option sets a flag in the | ||
74 | .Fa option | ||
75 | structure passed, or will store a pointer to the command line argument | ||
76 | in the | ||
77 | .Fa option | ||
78 | structure passed to it for options that take arguments. | ||
79 | Additionally, the long option's argument may be specified as a single | ||
80 | argument with an equal sign, e.g. | ||
81 | .Bd -literal -offset indent | ||
82 | $ myprogram --myoption=somevalue | ||
83 | .Ed | ||
84 | .Pp | ||
85 | When a long option is processed, the call to | ||
86 | .Fn getopt_long | ||
87 | will return 0. | ||
88 | For this reason, long option processing without | ||
89 | shortcuts is not backwards compatible with | ||
90 | .Xr getopt 3 . | ||
91 | .Pp | ||
92 | It is possible to combine these methods, providing for long options | ||
93 | processing with short option equivalents for some options. | ||
94 | Less frequently used options would be processed as long options only. | ||
95 | .Pp | ||
96 | Abbreviated long option names are accepted when | ||
97 | .Fn getopt_long | ||
98 | processes long options if the abbreviation is unique. | ||
99 | An exact match is always preferred for a defined long option. | ||
100 | .Pp | ||
101 | The | ||
102 | .Fn getopt_long | ||
103 | call requires an array to be initialized describing the long | ||
104 | options. | ||
105 | Each element of the array is a structure: | ||
106 | .Bd -literal -offset indent | ||
107 | struct option { | ||
108 | char *name; | ||
109 | int has_arg; | ||
110 | int *flag; | ||
111 | int val; | ||
112 | }; | ||
113 | .Ed | ||
114 | .Pp | ||
115 | The | ||
116 | .Fa name | ||
117 | field should contain the option name without the leading double dash. | ||
118 | .Pp | ||
119 | The | ||
120 | .Fa has_arg | ||
121 | field should be one of: | ||
122 | .Pp | ||
123 | .Bl -tag -width "optional_argument" -compact -offset indent | ||
124 | .It Dv no_argument | ||
125 | no argument to the option is expected. | ||
126 | .It Dv required_argument | ||
127 | an argument to the option is required. | ||
128 | .It Dv optional_argument | ||
129 | an argument to the option may be presented. | ||
130 | .El | ||
131 | .Pp | ||
132 | If | ||
133 | .Fa flag | ||
134 | is not | ||
135 | .Dv NULL , | ||
136 | then the integer pointed to by it will be set to the value in the | ||
137 | .Fa val | ||
138 | field. | ||
139 | If the | ||
140 | .Fa flag | ||
141 | field is | ||
142 | .Dv NULL , | ||
143 | then the | ||
144 | .Fa val | ||
145 | field will be returned. | ||
146 | Setting | ||
147 | .Fa flag | ||
148 | to | ||
149 | .Dv NULL | ||
150 | and setting | ||
151 | .Fa val | ||
152 | to the corresponding short option will make this function act just | ||
153 | like | ||
154 | .Xr getopt 3 . | ||
155 | .Pp | ||
156 | If the | ||
157 | .Fa longindex | ||
158 | field is not | ||
159 | .Dv NULL , | ||
160 | then the integer pointed to by it will be set to the index of the long | ||
161 | option relative to | ||
162 | .Fa longopts . | ||
163 | .Pp | ||
164 | The last element of the | ||
165 | .Fa longopts | ||
166 | array has to be filled with zeroes. | ||
167 | .Pp | ||
168 | The | ||
169 | .Fn getopt_long_only | ||
170 | function behaves identically to | ||
171 | .Fn getopt_long | ||
172 | with the exception that long options may start with | ||
173 | .Sq - | ||
174 | in addition to | ||
175 | .Sq -- . | ||
176 | If an option starting with | ||
177 | .Sq - | ||
178 | does not match a long option but does match a single-character option, | ||
179 | the single-character option is returned. | ||
180 | .Sh RETURN VALUES | ||
181 | If the | ||
182 | .Fa flag | ||
183 | field in | ||
184 | .Li struct option | ||
185 | is | ||
186 | .Dv NULL , | ||
187 | .Fn getopt_long | ||
188 | and | ||
189 | .Fn getopt_long_only | ||
190 | return the value specified in the | ||
191 | .Fa val | ||
192 | field, which is usually just the corresponding short option. | ||
193 | If | ||
194 | .Fa flag | ||
195 | is not | ||
196 | .Dv NULL , | ||
197 | these functions return 0 and store | ||
198 | .Fa val | ||
199 | in the location pointed to by | ||
200 | .Fa flag . | ||
201 | These functions return | ||
202 | .Sq \&: | ||
203 | if there was a missing option argument, | ||
204 | .Sq \&? | ||
205 | if the user specified an unknown or ambiguous option, and | ||
206 | \-1 when the argument list has been exhausted. | ||
207 | .Sh IMPLEMENTATION DIFFERENCES | ||
208 | This section describes differences to the GNU implementation | ||
209 | found in glibc-2.1.3: | ||
210 | .Bl -bullet | ||
211 | .It | ||
212 | handling of | ||
213 | .Ql - | ||
214 | within the option string (not the first character): | ||
215 | .Bl -tag -width "OpenBSD" | ||
216 | .It GNU | ||
217 | treats a | ||
218 | .Ql - | ||
219 | on the command line as a non-argument. | ||
220 | .It OpenBSD | ||
221 | a | ||
222 | .Ql - | ||
223 | within the option string matches a | ||
224 | .Ql - | ||
225 | (single dash) on the command line. | ||
226 | This functionality is provided for backward compatibility with | ||
227 | programs, such as | ||
228 | .Xr su 1 , | ||
229 | that use | ||
230 | .Ql - | ||
231 | as an option flag. | ||
232 | This practice is wrong, and should not be used in any current development. | ||
233 | .El | ||
234 | .It | ||
235 | handling of | ||
236 | .Ql :: | ||
237 | in the option string in the presence of | ||
238 | .Ev POSIXLY_CORRECT : | ||
239 | .Bl -tag -width "OpenBSD" | ||
240 | .It Both | ||
241 | GNU and | ||
242 | .Ox | ||
243 | ignore | ||
244 | .Ev POSIXLY_CORRECT | ||
245 | here and take | ||
246 | .Ql :: | ||
247 | to mean the preceding option takes an optional argument. | ||
248 | .El | ||
249 | .It | ||
250 | return value in case of missing argument if first character | ||
251 | (after | ||
252 | .Ql + | ||
253 | or | ||
254 | .Ql - ) | ||
255 | in the option string is not | ||
256 | .Ql \&: : | ||
257 | .Bl -tag -width "OpenBSD" | ||
258 | .It GNU | ||
259 | returns | ||
260 | .Ql \&? | ||
261 | .It OpenBSD | ||
262 | returns | ||
263 | .Ql \&: | ||
264 | (since | ||
265 | .Ox Ns 's | ||
266 | .Xr getopt 3 | ||
267 | does). | ||
268 | .El | ||
269 | .It | ||
270 | handling of | ||
271 | .Ql --a | ||
272 | in | ||
273 | .Xr getopt 3 : | ||
274 | .Bl -tag -width "OpenBSD" | ||
275 | .It GNU | ||
276 | parses this as option | ||
277 | .Ql - , | ||
278 | option | ||
279 | .Ql a . | ||
280 | .It OpenBSD | ||
281 | parses this as | ||
282 | .Ql -- , | ||
283 | and returns \-1 (ignoring the | ||
284 | .Ql a ) | ||
285 | (because the original | ||
286 | .Fn getopt | ||
287 | did.) | ||
288 | .El | ||
289 | .It | ||
290 | setting of | ||
291 | .Va optopt | ||
292 | for long options with | ||
293 | .Va flag | ||
294 | .No non- Ns Dv NULL : | ||
295 | .Bl -tag -width "OpenBSD" | ||
296 | .It GNU | ||
297 | sets | ||
298 | .Va optopt | ||
299 | to | ||
300 | .Va val . | ||
301 | .It OpenBSD | ||
302 | sets | ||
303 | .Va optopt | ||
304 | to 0 (since | ||
305 | .Va val | ||
306 | would never be returned). | ||
307 | .El | ||
308 | .It | ||
309 | handling of | ||
310 | .Ql -W | ||
311 | with | ||
312 | .Ql W; | ||
313 | in the option string in | ||
314 | .Xr getopt 3 | ||
315 | (not | ||
316 | .Fn getopt_long ) : | ||
317 | .Bl -tag -width "OpenBSD" | ||
318 | .It GNU | ||
319 | causes a segmentation fault. | ||
320 | .It OpenBSD | ||
321 | no special handling is done; | ||
322 | .Ql W; | ||
323 | is interpreted as two separate options, neither of which take an argument. | ||
324 | .El | ||
325 | .It | ||
326 | setting of | ||
327 | .Va optarg | ||
328 | for long options without an argument that are invoked via | ||
329 | .Ql -W | ||
330 | (with | ||
331 | .Ql W; | ||
332 | in the option string): | ||
333 | .Bl -tag -width "OpenBSD" | ||
334 | .It GNU | ||
335 | sets | ||
336 | .Va optarg | ||
337 | to the option name (the argument of | ||
338 | .Ql -W ) . | ||
339 | .It OpenBSD | ||
340 | sets | ||
341 | .Va optarg | ||
342 | to | ||
343 | .Dv NULL | ||
344 | (the argument of the long option). | ||
345 | .El | ||
346 | .It | ||
347 | handling of | ||
348 | .Ql -W | ||
349 | with an argument that is not (a prefix to) a known long option | ||
350 | (with | ||
351 | .Ql W; | ||
352 | in the option string): | ||
353 | .Bl -tag -width "OpenBSD" | ||
354 | .It GNU | ||
355 | returns | ||
356 | .Ql -W | ||
357 | with | ||
358 | .Va optarg | ||
359 | set to the unknown option. | ||
360 | .It OpenBSD | ||
361 | treats this as an error (unknown option) and returns | ||
362 | .Ql \&? | ||
363 | with | ||
364 | .Va optopt | ||
365 | set to 0 and | ||
366 | .Va optarg | ||
367 | set to | ||
368 | .Dv NULL | ||
369 | (as GNU's man page documents). | ||
370 | .El | ||
371 | .It | ||
372 | The error messages are different. | ||
373 | .It | ||
374 | .Ox | ||
375 | does not permute the argument vector at the same points in | ||
376 | the calling sequence as GNU does. | ||
377 | The aspects normally used by the caller | ||
378 | (ordering after \-1 is returned, value of | ||
379 | .Va optind | ||
380 | relative to current positions) are the same, though. | ||
381 | (We do fewer variable swaps.) | ||
382 | .El | ||
383 | .Sh ENVIRONMENT | ||
384 | .Bl -tag -width Ev | ||
385 | .It Ev POSIXLY_CORRECT | ||
386 | If set, option processing stops when the first non-option is found and | ||
387 | a leading | ||
388 | .Sq + | ||
389 | in the | ||
390 | .Ar optstring | ||
391 | is ignored. | ||
392 | .El | ||
393 | .Sh EXAMPLES | ||
394 | .Bd -literal | ||
395 | int bflag, ch, fd; | ||
396 | int daggerset; | ||
397 | |||
398 | /* options descriptor */ | ||
399 | static struct option longopts[] = { | ||
400 | { "buffy", no_argument, NULL, 'b' }, | ||
401 | { "fluoride", required_argument, NULL, 'f' }, | ||
402 | { "daggerset", no_argument, &daggerset, 1 }, | ||
403 | { NULL, 0, NULL, 0 } | ||
404 | }; | ||
405 | |||
406 | bflag = 0; | ||
407 | while ((ch = getopt_long(argc, argv, "bf:", longopts, NULL)) != -1) | ||
408 | switch (ch) { | ||
409 | case 'b': | ||
410 | bflag = 1; | ||
411 | break; | ||
412 | case 'f': | ||
413 | if ((fd = open(optarg, O_RDONLY, 0)) == -1) | ||
414 | err(1, "unable to open %s", optarg); | ||
415 | break; | ||
416 | case 0: | ||
417 | if (daggerset) | ||
418 | fprintf(stderr, "Buffy will use her dagger to " | ||
419 | "apply fluoride to dracula's teeth\en"); | ||
420 | break; | ||
421 | default: | ||
422 | usage(); | ||
423 | /* NOTREACHED */ | ||
424 | } | ||
425 | argc -= optind; | ||
426 | argv += optind; | ||
427 | .Ed | ||
428 | .Sh SEE ALSO | ||
429 | .Xr getopt 3 | ||
430 | .Sh HISTORY | ||
431 | The | ||
432 | .Fn getopt_long | ||
433 | and | ||
434 | .Fn getopt_long_only | ||
435 | functions first appeared in GNU libiberty. | ||
436 | This implementation first appeared in | ||
437 | .Ox 3.3 . | ||
438 | .Sh BUGS | ||
439 | The | ||
440 | .Ar argv | ||
441 | argument is not really | ||
442 | .Dv const | ||
443 | as its elements may be permuted (unless | ||
444 | .Ev POSIXLY_CORRECT | ||
445 | is set). | ||
diff --git a/src/lib/libc/stdlib/getopt_long.c b/src/lib/libc/stdlib/getopt_long.c new file mode 100644 index 0000000000..e149fe0ace --- /dev/null +++ b/src/lib/libc/stdlib/getopt_long.c | |||
@@ -0,0 +1,511 @@ | |||
1 | /* $OpenBSD: getopt_long.c,v 1.25 2011/03/05 22:10:11 guenther Exp $ */ | ||
2 | /* $NetBSD: getopt_long.c,v 1.15 2002/01/31 22:43:40 tv Exp $ */ | ||
3 | |||
4 | /* | ||
5 | * Copyright (c) 2002 Todd C. Miller <Todd.Miller@courtesan.com> | ||
6 | * | ||
7 | * Permission to use, copy, modify, and distribute this software for any | ||
8 | * purpose with or without fee is hereby granted, provided that the above | ||
9 | * copyright notice and this permission notice appear in all copies. | ||
10 | * | ||
11 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
12 | * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
13 | * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
14 | * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
15 | * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
16 | * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
17 | * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
18 | * | ||
19 | * Sponsored in part by the Defense Advanced Research Projects | ||
20 | * Agency (DARPA) and Air Force Research Laboratory, Air Force | ||
21 | * Materiel Command, USAF, under agreement number F39502-99-1-0512. | ||
22 | */ | ||
23 | /*- | ||
24 | * Copyright (c) 2000 The NetBSD Foundation, Inc. | ||
25 | * All rights reserved. | ||
26 | * | ||
27 | * This code is derived from software contributed to The NetBSD Foundation | ||
28 | * by Dieter Baron and Thomas Klausner. | ||
29 | * | ||
30 | * Redistribution and use in source and binary forms, with or without | ||
31 | * modification, are permitted provided that the following conditions | ||
32 | * are met: | ||
33 | * 1. Redistributions of source code must retain the above copyright | ||
34 | * notice, this list of conditions and the following disclaimer. | ||
35 | * 2. Redistributions in binary form must reproduce the above copyright | ||
36 | * notice, this list of conditions and the following disclaimer in the | ||
37 | * documentation and/or other materials provided with the distribution. | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS | ||
40 | * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED | ||
41 | * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS | ||
43 | * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | ||
44 | * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF | ||
45 | * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS | ||
46 | * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN | ||
47 | * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
48 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | ||
49 | * POSSIBILITY OF SUCH DAMAGE. | ||
50 | */ | ||
51 | |||
52 | #include <err.h> | ||
53 | #include <errno.h> | ||
54 | #include <getopt.h> | ||
55 | #include <stdlib.h> | ||
56 | #include <string.h> | ||
57 | |||
58 | int opterr = 1; /* if error message should be printed */ | ||
59 | int optind = 1; /* index into parent argv vector */ | ||
60 | int optopt = '?'; /* character checked for validity */ | ||
61 | int optreset; /* reset getopt */ | ||
62 | char *optarg; /* argument associated with option */ | ||
63 | |||
64 | #define PRINT_ERROR ((opterr) && (*options != ':')) | ||
65 | |||
66 | #define FLAG_PERMUTE 0x01 /* permute non-options to the end of argv */ | ||
67 | #define FLAG_ALLARGS 0x02 /* treat non-options as args to option "-1" */ | ||
68 | #define FLAG_LONGONLY 0x04 /* operate as getopt_long_only */ | ||
69 | |||
70 | /* return values */ | ||
71 | #define BADCH (int)'?' | ||
72 | #define BADARG ((*options == ':') ? (int)':' : (int)'?') | ||
73 | #define INORDER (int)1 | ||
74 | |||
75 | #define EMSG "" | ||
76 | |||
77 | static int getopt_internal(int, char * const *, const char *, | ||
78 | const struct option *, int *, int); | ||
79 | static int parse_long_options(char * const *, const char *, | ||
80 | const struct option *, int *, int); | ||
81 | static int gcd(int, int); | ||
82 | static void permute_args(int, int, int, char * const *); | ||
83 | |||
84 | static char *place = EMSG; /* option letter processing */ | ||
85 | |||
86 | /* XXX: set optreset to 1 rather than these two */ | ||
87 | static int nonopt_start = -1; /* first non option argument (for permute) */ | ||
88 | static int nonopt_end = -1; /* first option after non options (for permute) */ | ||
89 | |||
90 | /* Error messages */ | ||
91 | static const char recargchar[] = "option requires an argument -- %c"; | ||
92 | static const char recargstring[] = "option requires an argument -- %s"; | ||
93 | static const char ambig[] = "ambiguous option -- %.*s"; | ||
94 | static const char noarg[] = "option doesn't take an argument -- %.*s"; | ||
95 | static const char illoptchar[] = "unknown option -- %c"; | ||
96 | static const char illoptstring[] = "unknown option -- %s"; | ||
97 | |||
98 | /* | ||
99 | * Compute the greatest common divisor of a and b. | ||
100 | */ | ||
101 | static int | ||
102 | gcd(int a, int b) | ||
103 | { | ||
104 | int c; | ||
105 | |||
106 | c = a % b; | ||
107 | while (c != 0) { | ||
108 | a = b; | ||
109 | b = c; | ||
110 | c = a % b; | ||
111 | } | ||
112 | |||
113 | return (b); | ||
114 | } | ||
115 | |||
116 | /* | ||
117 | * Exchange the block from nonopt_start to nonopt_end with the block | ||
118 | * from nonopt_end to opt_end (keeping the same order of arguments | ||
119 | * in each block). | ||
120 | */ | ||
121 | static void | ||
122 | permute_args(int panonopt_start, int panonopt_end, int opt_end, | ||
123 | char * const *nargv) | ||
124 | { | ||
125 | int cstart, cyclelen, i, j, ncycle, nnonopts, nopts, pos; | ||
126 | char *swap; | ||
127 | |||
128 | /* | ||
129 | * compute lengths of blocks and number and size of cycles | ||
130 | */ | ||
131 | nnonopts = panonopt_end - panonopt_start; | ||
132 | nopts = opt_end - panonopt_end; | ||
133 | ncycle = gcd(nnonopts, nopts); | ||
134 | cyclelen = (opt_end - panonopt_start) / ncycle; | ||
135 | |||
136 | for (i = 0; i < ncycle; i++) { | ||
137 | cstart = panonopt_end+i; | ||
138 | pos = cstart; | ||
139 | for (j = 0; j < cyclelen; j++) { | ||
140 | if (pos >= panonopt_end) | ||
141 | pos -= nnonopts; | ||
142 | else | ||
143 | pos += nopts; | ||
144 | swap = nargv[pos]; | ||
145 | /* LINTED const cast */ | ||
146 | ((char **) nargv)[pos] = nargv[cstart]; | ||
147 | /* LINTED const cast */ | ||
148 | ((char **)nargv)[cstart] = swap; | ||
149 | } | ||
150 | } | ||
151 | } | ||
152 | |||
153 | /* | ||
154 | * parse_long_options -- | ||
155 | * Parse long options in argc/argv argument vector. | ||
156 | * Returns -1 if short_too is set and the option does not match long_options. | ||
157 | */ | ||
158 | static int | ||
159 | parse_long_options(char * const *nargv, const char *options, | ||
160 | const struct option *long_options, int *idx, int short_too) | ||
161 | { | ||
162 | char *current_argv, *has_equal; | ||
163 | size_t current_argv_len; | ||
164 | int i, match; | ||
165 | |||
166 | current_argv = place; | ||
167 | match = -1; | ||
168 | |||
169 | optind++; | ||
170 | |||
171 | if ((has_equal = strchr(current_argv, '=')) != NULL) { | ||
172 | /* argument found (--option=arg) */ | ||
173 | current_argv_len = has_equal - current_argv; | ||
174 | has_equal++; | ||
175 | } else | ||
176 | current_argv_len = strlen(current_argv); | ||
177 | |||
178 | for (i = 0; long_options[i].name; i++) { | ||
179 | /* find matching long option */ | ||
180 | if (strncmp(current_argv, long_options[i].name, | ||
181 | current_argv_len)) | ||
182 | continue; | ||
183 | |||
184 | if (strlen(long_options[i].name) == current_argv_len) { | ||
185 | /* exact match */ | ||
186 | match = i; | ||
187 | break; | ||
188 | } | ||
189 | /* | ||
190 | * If this is a known short option, don't allow | ||
191 | * a partial match of a single character. | ||
192 | */ | ||
193 | if (short_too && current_argv_len == 1) | ||
194 | continue; | ||
195 | |||
196 | if (match == -1) /* partial match */ | ||
197 | match = i; | ||
198 | else { | ||
199 | /* ambiguous abbreviation */ | ||
200 | if (PRINT_ERROR) | ||
201 | warnx(ambig, (int)current_argv_len, | ||
202 | current_argv); | ||
203 | optopt = 0; | ||
204 | return (BADCH); | ||
205 | } | ||
206 | } | ||
207 | if (match != -1) { /* option found */ | ||
208 | if (long_options[match].has_arg == no_argument | ||
209 | && has_equal) { | ||
210 | if (PRINT_ERROR) | ||
211 | warnx(noarg, (int)current_argv_len, | ||
212 | current_argv); | ||
213 | /* | ||
214 | * XXX: GNU sets optopt to val regardless of flag | ||
215 | */ | ||
216 | if (long_options[match].flag == NULL) | ||
217 | optopt = long_options[match].val; | ||
218 | else | ||
219 | optopt = 0; | ||
220 | return (BADARG); | ||
221 | } | ||
222 | if (long_options[match].has_arg == required_argument || | ||
223 | long_options[match].has_arg == optional_argument) { | ||
224 | if (has_equal) | ||
225 | optarg = has_equal; | ||
226 | else if (long_options[match].has_arg == | ||
227 | required_argument) { | ||
228 | /* | ||
229 | * optional argument doesn't use next nargv | ||
230 | */ | ||
231 | optarg = nargv[optind++]; | ||
232 | } | ||
233 | } | ||
234 | if ((long_options[match].has_arg == required_argument) | ||
235 | && (optarg == NULL)) { | ||
236 | /* | ||
237 | * Missing argument; leading ':' indicates no error | ||
238 | * should be generated. | ||
239 | */ | ||
240 | if (PRINT_ERROR) | ||
241 | warnx(recargstring, | ||
242 | current_argv); | ||
243 | /* | ||
244 | * XXX: GNU sets optopt to val regardless of flag | ||
245 | */ | ||
246 | if (long_options[match].flag == NULL) | ||
247 | optopt = long_options[match].val; | ||
248 | else | ||
249 | optopt = 0; | ||
250 | --optind; | ||
251 | return (BADARG); | ||
252 | } | ||
253 | } else { /* unknown option */ | ||
254 | if (short_too) { | ||
255 | --optind; | ||
256 | return (-1); | ||
257 | } | ||
258 | if (PRINT_ERROR) | ||
259 | warnx(illoptstring, current_argv); | ||
260 | optopt = 0; | ||
261 | return (BADCH); | ||
262 | } | ||
263 | if (idx) | ||
264 | *idx = match; | ||
265 | if (long_options[match].flag) { | ||
266 | *long_options[match].flag = long_options[match].val; | ||
267 | return (0); | ||
268 | } else | ||
269 | return (long_options[match].val); | ||
270 | } | ||
271 | |||
272 | /* | ||
273 | * getopt_internal -- | ||
274 | * Parse argc/argv argument vector. Called by user level routines. | ||
275 | */ | ||
276 | static int | ||
277 | getopt_internal(int nargc, char * const *nargv, const char *options, | ||
278 | const struct option *long_options, int *idx, int flags) | ||
279 | { | ||
280 | char *oli; /* option letter list index */ | ||
281 | int optchar, short_too; | ||
282 | static int posixly_correct = -1; | ||
283 | |||
284 | if (options == NULL) | ||
285 | return (-1); | ||
286 | |||
287 | /* | ||
288 | * XXX Some GNU programs (like cvs) set optind to 0 instead of | ||
289 | * XXX using optreset. Work around this braindamage. | ||
290 | */ | ||
291 | if (optind == 0) | ||
292 | optind = optreset = 1; | ||
293 | |||
294 | /* | ||
295 | * Disable GNU extensions if POSIXLY_CORRECT is set or options | ||
296 | * string begins with a '+'. | ||
297 | */ | ||
298 | if (posixly_correct == -1 || optreset) | ||
299 | posixly_correct = (getenv("POSIXLY_CORRECT") != NULL); | ||
300 | if (*options == '-') | ||
301 | flags |= FLAG_ALLARGS; | ||
302 | else if (posixly_correct || *options == '+') | ||
303 | flags &= ~FLAG_PERMUTE; | ||
304 | if (*options == '+' || *options == '-') | ||
305 | options++; | ||
306 | |||
307 | optarg = NULL; | ||
308 | if (optreset) | ||
309 | nonopt_start = nonopt_end = -1; | ||
310 | start: | ||
311 | if (optreset || !*place) { /* update scanning pointer */ | ||
312 | optreset = 0; | ||
313 | if (optind >= nargc) { /* end of argument vector */ | ||
314 | place = EMSG; | ||
315 | if (nonopt_end != -1) { | ||
316 | /* do permutation, if we have to */ | ||
317 | permute_args(nonopt_start, nonopt_end, | ||
318 | optind, nargv); | ||
319 | optind -= nonopt_end - nonopt_start; | ||
320 | } | ||
321 | else if (nonopt_start != -1) { | ||
322 | /* | ||
323 | * If we skipped non-options, set optind | ||
324 | * to the first of them. | ||
325 | */ | ||
326 | optind = nonopt_start; | ||
327 | } | ||
328 | nonopt_start = nonopt_end = -1; | ||
329 | return (-1); | ||
330 | } | ||
331 | if (*(place = nargv[optind]) != '-' || | ||
332 | (place[1] == '\0' && strchr(options, '-') == NULL)) { | ||
333 | place = EMSG; /* found non-option */ | ||
334 | if (flags & FLAG_ALLARGS) { | ||
335 | /* | ||
336 | * GNU extension: | ||
337 | * return non-option as argument to option 1 | ||
338 | */ | ||
339 | optarg = nargv[optind++]; | ||
340 | return (INORDER); | ||
341 | } | ||
342 | if (!(flags & FLAG_PERMUTE)) { | ||
343 | /* | ||
344 | * If no permutation wanted, stop parsing | ||
345 | * at first non-option. | ||
346 | */ | ||
347 | return (-1); | ||
348 | } | ||
349 | /* do permutation */ | ||
350 | if (nonopt_start == -1) | ||
351 | nonopt_start = optind; | ||
352 | else if (nonopt_end != -1) { | ||
353 | permute_args(nonopt_start, nonopt_end, | ||
354 | optind, nargv); | ||
355 | nonopt_start = optind - | ||
356 | (nonopt_end - nonopt_start); | ||
357 | nonopt_end = -1; | ||
358 | } | ||
359 | optind++; | ||
360 | /* process next argument */ | ||
361 | goto start; | ||
362 | } | ||
363 | if (nonopt_start != -1 && nonopt_end == -1) | ||
364 | nonopt_end = optind; | ||
365 | |||
366 | /* | ||
367 | * If we have "-" do nothing, if "--" we are done. | ||
368 | */ | ||
369 | if (place[1] != '\0' && *++place == '-' && place[1] == '\0') { | ||
370 | optind++; | ||
371 | place = EMSG; | ||
372 | /* | ||
373 | * We found an option (--), so if we skipped | ||
374 | * non-options, we have to permute. | ||
375 | */ | ||
376 | if (nonopt_end != -1) { | ||
377 | permute_args(nonopt_start, nonopt_end, | ||
378 | optind, nargv); | ||
379 | optind -= nonopt_end - nonopt_start; | ||
380 | } | ||
381 | nonopt_start = nonopt_end = -1; | ||
382 | return (-1); | ||
383 | } | ||
384 | } | ||
385 | |||
386 | /* | ||
387 | * Check long options if: | ||
388 | * 1) we were passed some | ||
389 | * 2) the arg is not just "-" | ||
390 | * 3) either the arg starts with -- we are getopt_long_only() | ||
391 | */ | ||
392 | if (long_options != NULL && place != nargv[optind] && | ||
393 | (*place == '-' || (flags & FLAG_LONGONLY))) { | ||
394 | short_too = 0; | ||
395 | if (*place == '-') | ||
396 | place++; /* --foo long option */ | ||
397 | else if (*place != ':' && strchr(options, *place) != NULL) | ||
398 | short_too = 1; /* could be short option too */ | ||
399 | |||
400 | optchar = parse_long_options(nargv, options, long_options, | ||
401 | idx, short_too); | ||
402 | if (optchar != -1) { | ||
403 | place = EMSG; | ||
404 | return (optchar); | ||
405 | } | ||
406 | } | ||
407 | |||
408 | if ((optchar = (int)*place++) == (int)':' || | ||
409 | (optchar == (int)'-' && *place != '\0') || | ||
410 | (oli = strchr(options, optchar)) == NULL) { | ||
411 | /* | ||
412 | * If the user specified "-" and '-' isn't listed in | ||
413 | * options, return -1 (non-option) as per POSIX. | ||
414 | * Otherwise, it is an unknown option character (or ':'). | ||
415 | */ | ||
416 | if (optchar == (int)'-' && *place == '\0') | ||
417 | return (-1); | ||
418 | if (!*place) | ||
419 | ++optind; | ||
420 | if (PRINT_ERROR) | ||
421 | warnx(illoptchar, optchar); | ||
422 | optopt = optchar; | ||
423 | return (BADCH); | ||
424 | } | ||
425 | if (long_options != NULL && optchar == 'W' && oli[1] == ';') { | ||
426 | /* -W long-option */ | ||
427 | if (*place) /* no space */ | ||
428 | /* NOTHING */; | ||
429 | else if (++optind >= nargc) { /* no arg */ | ||
430 | place = EMSG; | ||
431 | if (PRINT_ERROR) | ||
432 | warnx(recargchar, optchar); | ||
433 | optopt = optchar; | ||
434 | return (BADARG); | ||
435 | } else /* white space */ | ||
436 | place = nargv[optind]; | ||
437 | optchar = parse_long_options(nargv, options, long_options, | ||
438 | idx, 0); | ||
439 | place = EMSG; | ||
440 | return (optchar); | ||
441 | } | ||
442 | if (*++oli != ':') { /* doesn't take argument */ | ||
443 | if (!*place) | ||
444 | ++optind; | ||
445 | } else { /* takes (optional) argument */ | ||
446 | optarg = NULL; | ||
447 | if (*place) /* no white space */ | ||
448 | optarg = place; | ||
449 | else if (oli[1] != ':') { /* arg not optional */ | ||
450 | if (++optind >= nargc) { /* no arg */ | ||
451 | place = EMSG; | ||
452 | if (PRINT_ERROR) | ||
453 | warnx(recargchar, optchar); | ||
454 | optopt = optchar; | ||
455 | return (BADARG); | ||
456 | } else | ||
457 | optarg = nargv[optind]; | ||
458 | } | ||
459 | place = EMSG; | ||
460 | ++optind; | ||
461 | } | ||
462 | /* dump back option letter */ | ||
463 | return (optchar); | ||
464 | } | ||
465 | |||
466 | /* | ||
467 | * getopt -- | ||
468 | * Parse argc/argv argument vector. | ||
469 | * | ||
470 | * [eventually this will replace the BSD getopt] | ||
471 | */ | ||
472 | int | ||
473 | getopt(int nargc, char * const *nargv, const char *options) | ||
474 | { | ||
475 | |||
476 | /* | ||
477 | * We don't pass FLAG_PERMUTE to getopt_internal() since | ||
478 | * the BSD getopt(3) (unlike GNU) has never done this. | ||
479 | * | ||
480 | * Furthermore, since many privileged programs call getopt() | ||
481 | * before dropping privileges it makes sense to keep things | ||
482 | * as simple (and bug-free) as possible. | ||
483 | */ | ||
484 | return (getopt_internal(nargc, nargv, options, NULL, NULL, 0)); | ||
485 | } | ||
486 | |||
487 | /* | ||
488 | * getopt_long -- | ||
489 | * Parse argc/argv argument vector. | ||
490 | */ | ||
491 | int | ||
492 | getopt_long(int nargc, char * const *nargv, const char *options, | ||
493 | const struct option *long_options, int *idx) | ||
494 | { | ||
495 | |||
496 | return (getopt_internal(nargc, nargv, options, long_options, idx, | ||
497 | FLAG_PERMUTE)); | ||
498 | } | ||
499 | |||
500 | /* | ||
501 | * getopt_long_only -- | ||
502 | * Parse argc/argv argument vector. | ||
503 | */ | ||
504 | int | ||
505 | getopt_long_only(int nargc, char * const *nargv, const char *options, | ||
506 | const struct option *long_options, int *idx) | ||
507 | { | ||
508 | |||
509 | return (getopt_internal(nargc, nargv, options, long_options, idx, | ||
510 | FLAG_PERMUTE|FLAG_LONGONLY)); | ||
511 | } | ||
diff --git a/src/lib/libc/stdlib/getsubopt.3 b/src/lib/libc/stdlib/getsubopt.3 new file mode 100644 index 0000000000..9f35df703f --- /dev/null +++ b/src/lib/libc/stdlib/getsubopt.3 | |||
@@ -0,0 +1,145 @@ | |||
1 | .\" $OpenBSD: getsubopt.3,v 1.12 2007/05/31 19:19:31 jmc Exp $ | ||
2 | .\" | ||
3 | .\" Copyright (c) 1990, 1991, 1993 | ||
4 | .\" The Regents of the University of California. All rights reserved. | ||
5 | .\" | ||
6 | .\" Redistribution and use in source and binary forms, with or without | ||
7 | .\" modification, are permitted provided that the following conditions | ||
8 | .\" are met: | ||
9 | .\" 1. Redistributions of source code must retain the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | .\" may be used to endorse or promote products derived from this software | ||
16 | .\" without specific prior written permission. | ||
17 | .\" | ||
18 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | .\" SUCH DAMAGE. | ||
29 | .\" | ||
30 | .\" @(#)getsubopt.3 8.1 (Berkeley) 6/9/93 | ||
31 | .\" | ||
32 | .Dd $Mdocdate: May 31 2007 $ | ||
33 | .Dt GETSUBOPT 3 | ||
34 | .Os | ||
35 | .Sh NAME | ||
36 | .Nm getsubopt | ||
37 | .Nd get sub options from an argument | ||
38 | .Sh SYNOPSIS | ||
39 | .Fd #include <stdlib.h> | ||
40 | .Vt extern char *suboptarg; | ||
41 | .Ft int | ||
42 | .Fn getsubopt "char **optionp" "char * const *tokens" "char **valuep" | ||
43 | .Sh DESCRIPTION | ||
44 | The | ||
45 | .Fn getsubopt | ||
46 | function parses a string containing tokens delimited by one or more | ||
47 | tab, space, or comma | ||
48 | .Pq Ql \&, | ||
49 | characters. | ||
50 | It is intended for use in parsing groups of option arguments provided | ||
51 | as part of a utility command line. | ||
52 | .Pp | ||
53 | The argument | ||
54 | .Fa optionp | ||
55 | is a pointer to a pointer to the string. | ||
56 | The argument | ||
57 | .Fa tokens | ||
58 | is a pointer to a null-terminated array of pointers to strings. | ||
59 | .Pp | ||
60 | The | ||
61 | .Fn getsubopt | ||
62 | function returns the zero-based offset of the pointer in the | ||
63 | .Fa tokens | ||
64 | array referencing a string which matches the first token | ||
65 | in the string, or \-1 if the string contains no tokens or | ||
66 | .Fa tokens | ||
67 | does not contain a matching string. | ||
68 | .Pp | ||
69 | If the token is of the form | ||
70 | .Ar name Ns = Ns Ar value , | ||
71 | the location referenced by | ||
72 | .Fa valuep | ||
73 | will be set to point to the start of the | ||
74 | .Dq value | ||
75 | portion of the token. | ||
76 | .Pp | ||
77 | On return from | ||
78 | .Fn getsubopt , | ||
79 | .Fa optionp | ||
80 | will be set to point to the start of the next token in the string, | ||
81 | or the NUL at the end of the string if no more tokens are present. | ||
82 | The external variable | ||
83 | .Fa suboptarg | ||
84 | will be set to point to the start of the current token, or | ||
85 | .Dv NULL | ||
86 | if no tokens were present. | ||
87 | The argument | ||
88 | .Fa valuep | ||
89 | will be set to point to the value portion of the token, or | ||
90 | .Dv NULL | ||
91 | if no value portion was present. | ||
92 | .Sh EXAMPLES | ||
93 | .Bd -literal | ||
94 | char *tokens[] = { | ||
95 | #define ONE 0 | ||
96 | "one", | ||
97 | #define TWO 1 | ||
98 | "two", | ||
99 | NULL | ||
100 | }; | ||
101 | |||
102 | \&... | ||
103 | |||
104 | extern char *optarg, *suboptarg; | ||
105 | char *options, *value; | ||
106 | |||
107 | while ((ch = getopt(argc, argv, "ab:")) != -1) { | ||
108 | switch (ch) { | ||
109 | case 'a': | ||
110 | /* process ``a'' option */ | ||
111 | break; | ||
112 | case 'b': | ||
113 | options = optarg; | ||
114 | while (*options) { | ||
115 | switch (getsubopt(&options, tokens, &value)) { | ||
116 | case ONE: | ||
117 | /* process ``one'' sub option */ | ||
118 | break; | ||
119 | case TWO: | ||
120 | /* process ``two'' sub option */ | ||
121 | if (!value) | ||
122 | error("no value for two"); | ||
123 | i = atoi(value); | ||
124 | break; | ||
125 | case -1: | ||
126 | if (suboptarg) | ||
127 | error("illegal sub option %s", | ||
128 | suboptarg); | ||
129 | else | ||
130 | error("missing sub option"); | ||
131 | break; | ||
132 | } | ||
133 | } | ||
134 | break; | ||
135 | } | ||
136 | } | ||
137 | .Ed | ||
138 | .Sh SEE ALSO | ||
139 | .Xr getopt 3 , | ||
140 | .Xr strsep 3 | ||
141 | .Sh HISTORY | ||
142 | The | ||
143 | .Fn getsubopt | ||
144 | function first appeared in | ||
145 | .Bx 4.4 . | ||
diff --git a/src/lib/libc/stdlib/getsubopt.c b/src/lib/libc/stdlib/getsubopt.c new file mode 100644 index 0000000000..735c85ba8a --- /dev/null +++ b/src/lib/libc/stdlib/getsubopt.c | |||
@@ -0,0 +1,92 @@ | |||
1 | /* $OpenBSD: getsubopt.c,v 1.4 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | |||
3 | /*- | ||
4 | * Copyright (c) 1990, 1993 | ||
5 | * The Regents of the University of California. All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. Neither the name of the University nor the names of its contributors | ||
16 | * may be used to endorse or promote products derived from this software | ||
17 | * without specific prior written permission. | ||
18 | * | ||
19 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | * SUCH DAMAGE. | ||
30 | */ | ||
31 | |||
32 | #include <unistd.h> | ||
33 | #include <stdlib.h> | ||
34 | #include <string.h> | ||
35 | |||
36 | /* | ||
37 | * The SVID interface to getsubopt provides no way of figuring out which | ||
38 | * part of the suboptions list wasn't matched. This makes error messages | ||
39 | * tricky... The extern variable suboptarg is a pointer to the token | ||
40 | * which didn't match. | ||
41 | */ | ||
42 | char *suboptarg; | ||
43 | |||
44 | int | ||
45 | getsubopt(char **optionp, char * const *tokens, char **valuep) | ||
46 | { | ||
47 | int cnt; | ||
48 | char *p; | ||
49 | |||
50 | suboptarg = *valuep = NULL; | ||
51 | |||
52 | if (!optionp || !*optionp) | ||
53 | return(-1); | ||
54 | |||
55 | /* skip leading white-space, commas */ | ||
56 | for (p = *optionp; *p && (*p == ',' || *p == ' ' || *p == '\t'); ++p); | ||
57 | |||
58 | if (!*p) { | ||
59 | *optionp = p; | ||
60 | return(-1); | ||
61 | } | ||
62 | |||
63 | /* save the start of the token, and skip the rest of the token. */ | ||
64 | for (suboptarg = p; | ||
65 | *++p && *p != ',' && *p != '=' && *p != ' ' && *p != '\t';); | ||
66 | |||
67 | if (*p) { | ||
68 | /* | ||
69 | * If there's an equals sign, set the value pointer, and | ||
70 | * skip over the value part of the token. Terminate the | ||
71 | * token. | ||
72 | */ | ||
73 | if (*p == '=') { | ||
74 | *p = '\0'; | ||
75 | for (*valuep = ++p; | ||
76 | *p && *p != ',' && *p != ' ' && *p != '\t'; ++p); | ||
77 | if (*p) | ||
78 | *p++ = '\0'; | ||
79 | } else | ||
80 | *p++ = '\0'; | ||
81 | /* Skip any whitespace or commas after this token. */ | ||
82 | for (; *p && (*p == ',' || *p == ' ' || *p == '\t'); ++p); | ||
83 | } | ||
84 | |||
85 | /* set optionp for next round. */ | ||
86 | *optionp = p; | ||
87 | |||
88 | for (cnt = 0; *tokens; ++tokens, ++cnt) | ||
89 | if (!strcmp(suboptarg, *tokens)) | ||
90 | return(cnt); | ||
91 | return(-1); | ||
92 | } | ||
diff --git a/src/lib/libc/stdlib/hcreate.3 b/src/lib/libc/stdlib/hcreate.3 new file mode 100644 index 0000000000..ea264b57c8 --- /dev/null +++ b/src/lib/libc/stdlib/hcreate.3 | |||
@@ -0,0 +1,239 @@ | |||
1 | .\" $OpenBSD: hcreate.3,v 1.6 2010/07/28 09:00:20 ray Exp $ | ||
2 | .\" $NetBSD: hcreate.3,v 1.8 2010/05/01 06:18:03 jruoho Exp $ | ||
3 | .\" | ||
4 | .\" Copyright (c) 1999 The NetBSD Foundation, Inc. | ||
5 | .\" All rights reserved. | ||
6 | .\" | ||
7 | .\" This code is derived from software contributed to The NetBSD Foundation | ||
8 | .\" by Klaus Klein. | ||
9 | .\" | ||
10 | .\" Redistribution and use in source and binary forms, with or without | ||
11 | .\" modification, are permitted provided that the following conditions | ||
12 | .\" are met: | ||
13 | .\" 1. Redistributions of source code must retain the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer. | ||
15 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
16 | .\" notice, this list of conditions and the following disclaimer in the | ||
17 | .\" documentation and/or other materials provided with the distribution. | ||
18 | .\" | ||
19 | .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS | ||
20 | .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED | ||
21 | .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
22 | .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS | ||
23 | .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | ||
24 | .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF | ||
25 | .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS | ||
26 | .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN | ||
27 | .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
28 | .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | ||
29 | .\" POSSIBILITY OF SUCH DAMAGE. | ||
30 | .\" | ||
31 | .Dd $Mdocdate: July 28 2010 $ | ||
32 | .Dt HCREATE 3 | ||
33 | .Os | ||
34 | .Sh NAME | ||
35 | .Nm hcreate , | ||
36 | .Nm hdestroy , | ||
37 | .Nm hsearch | ||
38 | .Nd manage hash search table | ||
39 | .Sh SYNOPSIS | ||
40 | .In search.h | ||
41 | .Ft int | ||
42 | .Fn hcreate "size_t nel" | ||
43 | .Ft void | ||
44 | .Fn hdestroy "void" | ||
45 | .Ft ENTRY * | ||
46 | .Fn hsearch "ENTRY item" "ACTION action" | ||
47 | .Sh DESCRIPTION | ||
48 | The | ||
49 | .Fn hcreate , | ||
50 | .Fn hdestroy , | ||
51 | and | ||
52 | .Fn hsearch | ||
53 | functions manage hash search tables. | ||
54 | .Pp | ||
55 | The | ||
56 | .Fn hcreate | ||
57 | function allocates and initializes the table. | ||
58 | The | ||
59 | .Fa nel | ||
60 | argument specifies an estimate of the maximum number of entries to be held | ||
61 | by the table. | ||
62 | Unless further memory allocation fails, supplying an insufficient | ||
63 | .Fa nel | ||
64 | value will not result in functional harm, although a performance degradation | ||
65 | may occur. | ||
66 | Initialization using the | ||
67 | .Fn hcreate | ||
68 | function is mandatory prior to any access operations using | ||
69 | .Fn hsearch . | ||
70 | .Pp | ||
71 | The | ||
72 | .Fn hdestroy | ||
73 | function destroys a table previously created using | ||
74 | .Fn hcreate . | ||
75 | After a call to | ||
76 | .Fn hdestroy , | ||
77 | the data can no longer be accessed. | ||
78 | .Pp | ||
79 | The | ||
80 | .Fn hsearch | ||
81 | function is used to search to the hash table. | ||
82 | It returns a pointer into the | ||
83 | hash table indicating the address of an item. | ||
84 | The | ||
85 | .Fa item | ||
86 | argument is of type | ||
87 | .Vt ENTRY , | ||
88 | defined in the | ||
89 | .In search.h | ||
90 | header. | ||
91 | This is a structure type that contains two pointers: | ||
92 | .Pp | ||
93 | .Bl -tag -compact -offset indent -width "void *data " | ||
94 | .It Fa char *key | ||
95 | comparison key | ||
96 | .It Fa void *data | ||
97 | pointer to data associated with | ||
98 | .Fa key | ||
99 | .El | ||
100 | .Pp | ||
101 | The key comparison function used by | ||
102 | .Fn hsearch | ||
103 | is | ||
104 | .Xr strcmp 3 . | ||
105 | .Pp | ||
106 | The | ||
107 | .Fa action | ||
108 | argument is of type | ||
109 | .Vt ACTION , | ||
110 | an enumeration type which defines the following values: | ||
111 | .Bl -tag -offset indent -width ENTERXX | ||
112 | .It Dv ENTER | ||
113 | Insert | ||
114 | .Fa item | ||
115 | into the hash table. | ||
116 | If an existing item with the same key is found, it is not replaced. | ||
117 | Note that the | ||
118 | .Fa key | ||
119 | and | ||
120 | .Fa data | ||
121 | elements of | ||
122 | .Fa item | ||
123 | are used directly by the new table entry. | ||
124 | The storage for the | ||
125 | key must not be modified during the lifetime of the hash table. | ||
126 | .It Dv FIND | ||
127 | Search the hash table without inserting | ||
128 | .Fa item . | ||
129 | .El | ||
130 | .Pp | ||
131 | Note that the comparison | ||
132 | .Fa key | ||
133 | must be allocated using | ||
134 | .Xr malloc 3 | ||
135 | or | ||
136 | .Xr calloc 3 | ||
137 | if action is | ||
138 | .Dv ENTER | ||
139 | and | ||
140 | .Fn hdestroy | ||
141 | will be called. | ||
142 | This is because | ||
143 | .Fn hdestroy | ||
144 | will call | ||
145 | .Xr free 3 | ||
146 | for each comparison | ||
147 | .Fa key | ||
148 | (but not | ||
149 | .Fa data ) . | ||
150 | Typically the comparison | ||
151 | .Fa key | ||
152 | is allocated by using | ||
153 | .Xr strdup 3 . | ||
154 | .Sh RETURN VALUES | ||
155 | If successful, the | ||
156 | .Fn hcreate | ||
157 | function returns a non-zero value. | ||
158 | Otherwise, a value of 0 is returned and | ||
159 | .Va errno | ||
160 | is set to indicate the error. | ||
161 | .Pp | ||
162 | The | ||
163 | .Fn hdestroy | ||
164 | functions | ||
165 | returns no value. | ||
166 | .Pp | ||
167 | If successful, the | ||
168 | .Fn hsearch | ||
169 | function returns a pointer to a hash table entry matching | ||
170 | the provided key. | ||
171 | If the action is | ||
172 | .Dv FIND | ||
173 | and the item was not found, or if the action is | ||
174 | .Dv ENTER | ||
175 | and the insertion failed, | ||
176 | .Dv NULL | ||
177 | is returned and | ||
178 | .Va errno | ||
179 | is set to indicate the error. | ||
180 | If the action is | ||
181 | .Dv ENTER | ||
182 | and an entry already existed in the table matching the given | ||
183 | key, the existing entry is returned and is not replaced. | ||
184 | .Sh ERRORS | ||
185 | The | ||
186 | .Fn hcreate | ||
187 | and | ||
188 | .Fn hsearch | ||
189 | functions will fail if: | ||
190 | .Bl -tag -width Er | ||
191 | .It Bq Er ENOMEM | ||
192 | Insufficient memory is available. | ||
193 | .El | ||
194 | .Sh SEE ALSO | ||
195 | .Xr bsearch 3 , | ||
196 | .Xr lsearch 3 , | ||
197 | .Xr malloc 3 , | ||
198 | .Xr strcmp 3 | ||
199 | .Sh STANDARDS | ||
200 | The | ||
201 | .Fn hcreate , | ||
202 | .Fn hdestroy | ||
203 | and | ||
204 | .Fn hsearch | ||
205 | functions conform to | ||
206 | .St -xpg4.2 . | ||
207 | .Sh HISTORY | ||
208 | The | ||
209 | .Fn hcreate , | ||
210 | .Fn hdestroy | ||
211 | and | ||
212 | .Fn hsearch | ||
213 | functions first appeared in | ||
214 | .At V . | ||
215 | .Sh CAVEATS | ||
216 | At least the following limitations can be mentioned: | ||
217 | .Bl -bullet | ||
218 | .It | ||
219 | The interface permits the use of only one hash table at a time. | ||
220 | .It | ||
221 | Individual hash table entries can be added, but not deleted. | ||
222 | .It | ||
223 | The standard is indecipherable about the | ||
224 | internal memory usage of the functions, | ||
225 | mentioning only that | ||
226 | .Do | ||
227 | .Fn hcreate | ||
228 | and | ||
229 | .Fn hsearch | ||
230 | functions may use | ||
231 | .Fn malloc | ||
232 | to allocate space | ||
233 | .Dc . | ||
234 | This limits the portability of the functions, | ||
235 | given that other implementations may not | ||
236 | .Xr free 3 | ||
237 | the buffer pointed by | ||
238 | .Fa key . | ||
239 | .El | ||
diff --git a/src/lib/libc/stdlib/hcreate.c b/src/lib/libc/stdlib/hcreate.c new file mode 100644 index 0000000000..094f32c173 --- /dev/null +++ b/src/lib/libc/stdlib/hcreate.c | |||
@@ -0,0 +1,191 @@ | |||
1 | /* $OpenBSD: hcreate.c,v 1.4 2007/09/02 15:19:17 deraadt Exp $ */ | ||
2 | /* $NetBSD: hcreate.c,v 1.5 2004/04/23 02:48:12 simonb Exp $ */ | ||
3 | |||
4 | /* | ||
5 | * Copyright (c) 2001 Christopher G. Demetriou | ||
6 | * All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * 1. Redistributions of source code must retain the above copyright | ||
12 | * notice, this list of conditions and the following disclaimer. | ||
13 | * 2. Redistributions in binary form must reproduce the above copyright | ||
14 | * notice, this list of conditions and the following disclaimer in the | ||
15 | * documentation and/or other materials provided with the distribution. | ||
16 | * 3. All advertising materials mentioning features or use of this software | ||
17 | * must display the following acknowledgement: | ||
18 | * This product includes software developed for the | ||
19 | * NetBSD Project. See http://www.NetBSD.org/ for | ||
20 | * information about NetBSD. | ||
21 | * 4. The name of the author may not be used to endorse or promote products | ||
22 | * derived from this software without specific prior written permission. | ||
23 | * | ||
24 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR | ||
25 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES | ||
26 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. | ||
27 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, | ||
28 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
29 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, | ||
30 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY | ||
31 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | ||
32 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF | ||
33 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ||
34 | * | ||
35 | * <<Id: LICENSE,v 1.2 2000/06/14 15:57:33 cgd Exp>> | ||
36 | */ | ||
37 | |||
38 | /* | ||
39 | * hcreate() / hsearch() / hdestroy() | ||
40 | * | ||
41 | * SysV/XPG4 hash table functions. | ||
42 | * | ||
43 | * Implementation done based on NetBSD manual page and Solaris manual page, | ||
44 | * plus my own personal experience about how they're supposed to work. | ||
45 | * | ||
46 | * I tried to look at Knuth (as cited by the Solaris manual page), but | ||
47 | * nobody had a copy in the office, so... | ||
48 | */ | ||
49 | |||
50 | #include "namespace.h" | ||
51 | #include <assert.h> | ||
52 | #include <errno.h> | ||
53 | #include <inttypes.h> | ||
54 | #include <search.h> | ||
55 | #include <stdlib.h> | ||
56 | #include <string.h> | ||
57 | #include <sys/queue.h> | ||
58 | |||
59 | #ifndef _DIAGASSERT | ||
60 | #define _DIAGASSERT(x) | ||
61 | #endif | ||
62 | |||
63 | /* | ||
64 | * DO NOT MAKE THIS STRUCTURE LARGER THAN 32 BYTES (4 ptrs on 64-bit | ||
65 | * ptr machine) without adjusting MAX_BUCKETS_LG2 below. | ||
66 | */ | ||
67 | struct internal_entry { | ||
68 | SLIST_ENTRY(internal_entry) link; | ||
69 | ENTRY ent; | ||
70 | }; | ||
71 | SLIST_HEAD(internal_head, internal_entry); | ||
72 | |||
73 | #define MIN_BUCKETS_LG2 4 | ||
74 | #define MIN_BUCKETS (1 << MIN_BUCKETS_LG2) | ||
75 | |||
76 | /* | ||
77 | * max * sizeof internal_entry must fit into size_t. | ||
78 | * assumes internal_entry is <= 32 (2^5) bytes. | ||
79 | */ | ||
80 | #define MAX_BUCKETS_LG2 (sizeof (size_t) * 8 - 1 - 5) | ||
81 | #define MAX_BUCKETS ((size_t)1 << MAX_BUCKETS_LG2) | ||
82 | |||
83 | /* Default hash function, from db/hash/hash_func.c */ | ||
84 | extern u_int32_t (*__default_hash)(const void *, size_t); | ||
85 | |||
86 | static struct internal_head *htable; | ||
87 | static size_t htablesize; | ||
88 | |||
89 | int | ||
90 | hcreate(size_t nel) | ||
91 | { | ||
92 | size_t idx; | ||
93 | unsigned int p2; | ||
94 | |||
95 | /* Make sure this isn't called when a table already exists. */ | ||
96 | _DIAGASSERT(htable == NULL); | ||
97 | if (htable != NULL) { | ||
98 | errno = EINVAL; | ||
99 | return 0; | ||
100 | } | ||
101 | |||
102 | /* If nel is too small, make it min sized. */ | ||
103 | if (nel < MIN_BUCKETS) | ||
104 | nel = MIN_BUCKETS; | ||
105 | |||
106 | /* If it's too large, cap it. */ | ||
107 | if (nel > MAX_BUCKETS) | ||
108 | nel = MAX_BUCKETS; | ||
109 | |||
110 | /* If it's is not a power of two in size, round up. */ | ||
111 | if ((nel & (nel - 1)) != 0) { | ||
112 | for (p2 = 0; nel != 0; p2++) | ||
113 | nel >>= 1; | ||
114 | _DIAGASSERT(p2 <= MAX_BUCKETS_LG2); | ||
115 | nel = 1 << p2; | ||
116 | } | ||
117 | |||
118 | /* Allocate the table. */ | ||
119 | htablesize = nel; | ||
120 | htable = calloc(htablesize, sizeof htable[0]); | ||
121 | if (htable == NULL) { | ||
122 | errno = ENOMEM; | ||
123 | return 0; | ||
124 | } | ||
125 | |||
126 | /* Initialize it. */ | ||
127 | for (idx = 0; idx < htablesize; idx++) | ||
128 | SLIST_INIT(&htable[idx]); | ||
129 | |||
130 | return 1; | ||
131 | } | ||
132 | |||
133 | void | ||
134 | hdestroy(void) | ||
135 | { | ||
136 | struct internal_entry *ie; | ||
137 | size_t idx; | ||
138 | |||
139 | _DIAGASSERT(htable != NULL); | ||
140 | if (htable == NULL) | ||
141 | return; | ||
142 | |||
143 | for (idx = 0; idx < htablesize; idx++) { | ||
144 | while (!SLIST_EMPTY(&htable[idx])) { | ||
145 | ie = SLIST_FIRST(&htable[idx]); | ||
146 | SLIST_REMOVE_HEAD(&htable[idx], link); | ||
147 | free(ie->ent.key); | ||
148 | free(ie); | ||
149 | } | ||
150 | } | ||
151 | free(htable); | ||
152 | htable = NULL; | ||
153 | } | ||
154 | |||
155 | ENTRY * | ||
156 | hsearch(ENTRY item, ACTION action) | ||
157 | { | ||
158 | struct internal_head *head; | ||
159 | struct internal_entry *ie; | ||
160 | uint32_t hashval; | ||
161 | size_t len; | ||
162 | |||
163 | _DIAGASSERT(htable != NULL); | ||
164 | _DIAGASSERT(item.key != NULL); | ||
165 | _DIAGASSERT(action == ENTER || action == FIND); | ||
166 | |||
167 | len = strlen(item.key); | ||
168 | hashval = (*__default_hash)(item.key, len); | ||
169 | |||
170 | head = &htable[hashval & (htablesize - 1)]; | ||
171 | ie = SLIST_FIRST(head); | ||
172 | while (ie != NULL) { | ||
173 | if (strcmp(ie->ent.key, item.key) == 0) | ||
174 | break; | ||
175 | ie = SLIST_NEXT(ie, link); | ||
176 | } | ||
177 | |||
178 | if (ie != NULL) | ||
179 | return &ie->ent; | ||
180 | else if (action == FIND) | ||
181 | return NULL; | ||
182 | |||
183 | ie = malloc(sizeof *ie); | ||
184 | if (ie == NULL) | ||
185 | return NULL; | ||
186 | ie->ent.key = item.key; | ||
187 | ie->ent.data = item.data; | ||
188 | |||
189 | SLIST_INSERT_HEAD(head, ie, link); | ||
190 | return &ie->ent; | ||
191 | } | ||
diff --git a/src/lib/libc/stdlib/heapsort.c b/src/lib/libc/stdlib/heapsort.c new file mode 100644 index 0000000000..ad3fffbcd9 --- /dev/null +++ b/src/lib/libc/stdlib/heapsort.c | |||
@@ -0,0 +1,173 @@ | |||
1 | /*- | ||
2 | * Copyright (c) 1991, 1993 | ||
3 | * The Regents of the University of California. All rights reserved. | ||
4 | * | ||
5 | * This code is derived from software contributed to Berkeley by | ||
6 | * Ronnie Kon at Mindcraft Inc., Kevin Lew and Elmer Yglesias. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * 1. Redistributions of source code must retain the above copyright | ||
12 | * notice, this list of conditions and the following disclaimer. | ||
13 | * 2. Redistributions in binary form must reproduce the above copyright | ||
14 | * notice, this list of conditions and the following disclaimer in the | ||
15 | * documentation and/or other materials provided with the distribution. | ||
16 | * 3. Neither the name of the University nor the names of its contributors | ||
17 | * may be used to endorse or promote products derived from this software | ||
18 | * without specific prior written permission. | ||
19 | * | ||
20 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | * SUCH DAMAGE. | ||
31 | */ | ||
32 | |||
33 | #include <sys/types.h> | ||
34 | #include <errno.h> | ||
35 | #include <stdlib.h> | ||
36 | |||
37 | /* | ||
38 | * Swap two areas of size number of bytes. Although qsort(3) permits random | ||
39 | * blocks of memory to be sorted, sorting pointers is almost certainly the | ||
40 | * common case (and, were it not, could easily be made so). Regardless, it | ||
41 | * isn't worth optimizing; the SWAP's get sped up by the cache, and pointer | ||
42 | * arithmetic gets lost in the time required for comparison function calls. | ||
43 | */ | ||
44 | #define SWAP(a, b, count, size, tmp) { \ | ||
45 | count = size; \ | ||
46 | do { \ | ||
47 | tmp = *a; \ | ||
48 | *a++ = *b; \ | ||
49 | *b++ = tmp; \ | ||
50 | } while (--count); \ | ||
51 | } | ||
52 | |||
53 | /* Copy one block of size size to another. */ | ||
54 | #define COPY(a, b, count, size, tmp1, tmp2) { \ | ||
55 | count = size; \ | ||
56 | tmp1 = a; \ | ||
57 | tmp2 = b; \ | ||
58 | do { \ | ||
59 | *tmp1++ = *tmp2++; \ | ||
60 | } while (--count); \ | ||
61 | } | ||
62 | |||
63 | /* | ||
64 | * Build the list into a heap, where a heap is defined such that for | ||
65 | * the records K1 ... KN, Kj/2 >= Kj for 1 <= j/2 <= j <= N. | ||
66 | * | ||
67 | * There are two cases. If j == nmemb, select largest of Ki and Kj. If | ||
68 | * j < nmemb, select largest of Ki, Kj and Kj+1. | ||
69 | */ | ||
70 | #define CREATE(initval, nmemb, par_i, child_i, par, child, size, count, tmp) { \ | ||
71 | for (par_i = initval; (child_i = par_i * 2) <= nmemb; \ | ||
72 | par_i = child_i) { \ | ||
73 | child = base + child_i * size; \ | ||
74 | if (child_i < nmemb && compar(child, child + size) < 0) { \ | ||
75 | child += size; \ | ||
76 | ++child_i; \ | ||
77 | } \ | ||
78 | par = base + par_i * size; \ | ||
79 | if (compar(child, par) <= 0) \ | ||
80 | break; \ | ||
81 | SWAP(par, child, count, size, tmp); \ | ||
82 | } \ | ||
83 | } | ||
84 | |||
85 | /* | ||
86 | * Select the top of the heap and 'heapify'. Since by far the most expensive | ||
87 | * action is the call to the compar function, a considerable optimization | ||
88 | * in the average case can be achieved due to the fact that k, the displaced | ||
89 | * element, is usually quite small, so it would be preferable to first | ||
90 | * heapify, always maintaining the invariant that the larger child is copied | ||
91 | * over its parent's record. | ||
92 | * | ||
93 | * Then, starting from the *bottom* of the heap, finding k's correct place, | ||
94 | * again maintaining the invariant. As a result of the invariant no element | ||
95 | * is 'lost' when k is assigned its correct place in the heap. | ||
96 | * | ||
97 | * The time savings from this optimization are on the order of 15-20% for the | ||
98 | * average case. See Knuth, Vol. 3, page 158, problem 18. | ||
99 | * | ||
100 | * XXX Don't break the #define SELECT line, below. Reiser cpp gets upset. | ||
101 | */ | ||
102 | #define SELECT(par_i, child_i, nmemb, par, child, size, k, count, tmp1, tmp2) { \ | ||
103 | for (par_i = 1; (child_i = par_i * 2) <= nmemb; par_i = child_i) { \ | ||
104 | child = base + child_i * size; \ | ||
105 | if (child_i < nmemb && compar(child, child + size) < 0) { \ | ||
106 | child += size; \ | ||
107 | ++child_i; \ | ||
108 | } \ | ||
109 | par = base + par_i * size; \ | ||
110 | COPY(par, child, count, size, tmp1, tmp2); \ | ||
111 | } \ | ||
112 | for (;;) { \ | ||
113 | child_i = par_i; \ | ||
114 | par_i = child_i / 2; \ | ||
115 | child = base + child_i * size; \ | ||
116 | par = base + par_i * size; \ | ||
117 | if (child_i == 1 || compar(k, par) < 0) { \ | ||
118 | COPY(child, k, count, size, tmp1, tmp2); \ | ||
119 | break; \ | ||
120 | } \ | ||
121 | COPY(child, par, count, size, tmp1, tmp2); \ | ||
122 | } \ | ||
123 | } | ||
124 | |||
125 | /* | ||
126 | * Heapsort -- Knuth, Vol. 3, page 145. Runs in O (N lg N), both average | ||
127 | * and worst. While heapsort is faster than the worst case of quicksort, | ||
128 | * the BSD quicksort does median selection so that the chance of finding | ||
129 | * a data set that will trigger the worst case is nonexistent. Heapsort's | ||
130 | * only advantage over quicksort is that it requires little additional memory. | ||
131 | */ | ||
132 | int | ||
133 | heapsort(void *vbase, size_t nmemb, size_t size, | ||
134 | int (*compar)(const void *, const void *)) | ||
135 | { | ||
136 | size_t cnt, i, j, l; | ||
137 | char tmp, *tmp1, *tmp2; | ||
138 | char *base, *k, *p, *t; | ||
139 | |||
140 | if (nmemb <= 1) | ||
141 | return (0); | ||
142 | |||
143 | if (!size) { | ||
144 | errno = EINVAL; | ||
145 | return (-1); | ||
146 | } | ||
147 | |||
148 | if ((k = malloc(size)) == NULL) | ||
149 | return (-1); | ||
150 | |||
151 | /* | ||
152 | * Items are numbered from 1 to nmemb, so offset from size bytes | ||
153 | * below the starting address. | ||
154 | */ | ||
155 | base = (char *)vbase - size; | ||
156 | |||
157 | for (l = nmemb / 2 + 1; --l;) | ||
158 | CREATE(l, nmemb, i, j, t, p, size, cnt, tmp); | ||
159 | |||
160 | /* | ||
161 | * For each element of the heap, save the largest element into its | ||
162 | * final slot, save the displaced element (k), then recreate the | ||
163 | * heap. | ||
164 | */ | ||
165 | while (nmemb > 1) { | ||
166 | COPY(k, base + nmemb * size, cnt, size, tmp1, tmp2); | ||
167 | COPY(base + nmemb * size, base + size, cnt, size, tmp1, tmp2); | ||
168 | --nmemb; | ||
169 | SELECT(i, j, nmemb, t, p, size, k, cnt, tmp1, tmp2); | ||
170 | } | ||
171 | free(k); | ||
172 | return (0); | ||
173 | } | ||
diff --git a/src/lib/libc/stdlib/imaxabs.3 b/src/lib/libc/stdlib/imaxabs.3 new file mode 100644 index 0000000000..74b724fcbf --- /dev/null +++ b/src/lib/libc/stdlib/imaxabs.3 | |||
@@ -0,0 +1,65 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: imaxabs.3,v 1.5 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt IMAXABS 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm imaxabs | ||
39 | .Nd integer absolute value function | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <inttypes.h> | ||
42 | .Ft intmax_t | ||
43 | .Fn imaxabs "intmax_t j" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn imaxabs | ||
47 | function computes the absolute value of the intmax_t variable | ||
48 | .Fa j . | ||
49 | .Sh RETURN VALUES | ||
50 | The | ||
51 | .Fn imaxabs | ||
52 | function returns the absolute value. | ||
53 | .Sh SEE ALSO | ||
54 | .Xr abs 3 , | ||
55 | .Xr cabs 3 , | ||
56 | .Xr floor 3 , | ||
57 | .Xr hypot 3 , | ||
58 | .Xr labs 3 | ||
59 | .Sh STANDARDS | ||
60 | The | ||
61 | .Fn imaxabs | ||
62 | function conforms to | ||
63 | .St -ansiC-99 . | ||
64 | .Sh BUGS | ||
65 | The absolute value of the most negative integer remains negative. | ||
diff --git a/src/lib/libc/stdlib/imaxabs.c b/src/lib/libc/stdlib/imaxabs.c new file mode 100644 index 0000000000..b7e910eefd --- /dev/null +++ b/src/lib/libc/stdlib/imaxabs.c | |||
@@ -0,0 +1,38 @@ | |||
1 | /* $OpenBSD: imaxabs.c,v 1.1 2006/01/13 17:58:09 millert Exp $ */ | ||
2 | |||
3 | /*- | ||
4 | * Copyright (c) 1990 The Regents of the University of California. | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. Neither the name of the University nor the names of its contributors | ||
16 | * may be used to endorse or promote products derived from this software | ||
17 | * without specific prior written permission. | ||
18 | * | ||
19 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | * SUCH DAMAGE. | ||
30 | */ | ||
31 | |||
32 | #include <inttypes.h> | ||
33 | |||
34 | intmax_t | ||
35 | imaxabs(intmax_t j) | ||
36 | { | ||
37 | return (j < 0 ? -j : j); | ||
38 | } | ||
diff --git a/src/lib/libc/stdlib/imaxdiv.3 b/src/lib/libc/stdlib/imaxdiv.3 new file mode 100644 index 0000000000..2448f3f054 --- /dev/null +++ b/src/lib/libc/stdlib/imaxdiv.3 | |||
@@ -0,0 +1,66 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: imaxdiv.3,v 1.4 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt IMAXDIV 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm imaxdiv | ||
39 | .Nd return quotient and remainder from division | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <inttypes.h> | ||
42 | .Ft imaxdiv_t | ||
43 | .Fn imaxdiv "intmax_t num" "intmax_t denom" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn imaxdiv | ||
47 | function computes the value | ||
48 | .Fa num Ns / Ns Fa denom | ||
49 | and returns the quotient and remainder in a structure named | ||
50 | .Li imaxdiv_t | ||
51 | that contains two | ||
52 | .Li intmax_t | ||
53 | members named | ||
54 | .Fa quot | ||
55 | and | ||
56 | .Fa rem . | ||
57 | .Sh SEE ALSO | ||
58 | .Xr div 3 , | ||
59 | .Xr ldiv 3 , | ||
60 | .Xr lldiv 3 , | ||
61 | .Xr qdiv 3 | ||
62 | .Sh STANDARDS | ||
63 | The | ||
64 | .Fn imaxdiv | ||
65 | function conforms to | ||
66 | .St -ansiC-99 . | ||
diff --git a/src/lib/libc/stdlib/imaxdiv.c b/src/lib/libc/stdlib/imaxdiv.c new file mode 100644 index 0000000000..0515a94b96 --- /dev/null +++ b/src/lib/libc/stdlib/imaxdiv.c | |||
@@ -0,0 +1,50 @@ | |||
1 | /* $OpenBSD: imaxdiv.c,v 1.1 2006/01/13 17:58:09 millert Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1990 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Chris Torek. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | #include <inttypes.h> /* imaxdiv_t */ | ||
35 | |||
36 | imaxdiv_t | ||
37 | imaxdiv(intmax_t num, intmax_t denom) | ||
38 | { | ||
39 | imaxdiv_t r; | ||
40 | |||
41 | /* see div.c for comments */ | ||
42 | |||
43 | r.quot = num / denom; | ||
44 | r.rem = num % denom; | ||
45 | if (num >= 0 && r.rem < 0) { | ||
46 | r.quot++; | ||
47 | r.rem -= denom; | ||
48 | } | ||
49 | return (r); | ||
50 | } | ||
diff --git a/src/lib/libc/stdlib/insque.3 b/src/lib/libc/stdlib/insque.3 new file mode 100644 index 0000000000..dbda059c43 --- /dev/null +++ b/src/lib/libc/stdlib/insque.3 | |||
@@ -0,0 +1,106 @@ | |||
1 | .\" $OpenBSD: insque.3,v 1.8 2011/01/14 07:33:47 jmc Exp $ | ||
2 | .\" Copyright (c) 1993 John Brezak | ||
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 | .\" 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. The name of the author may be used to endorse or promote products | ||
14 | .\" derived from this software without specific prior written permission. | ||
15 | .\" | ||
16 | .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND | ||
17 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
18 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
19 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE | ||
20 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
21 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
22 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
23 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
24 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
25 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
26 | .\" SUCH DAMAGE. | ||
27 | .\" | ||
28 | .\" | ||
29 | .Dd $Mdocdate: January 14 2011 $ | ||
30 | .Dt INSQUE 3 | ||
31 | .Os | ||
32 | .Sh NAME | ||
33 | .Nm insque , | ||
34 | .Nm remque | ||
35 | .Nd insert/remove element from a queue | ||
36 | .Sh SYNOPSIS | ||
37 | .Fd #include <search.h> | ||
38 | .Ft void | ||
39 | .Fn insque "void *elem" "void *pred" | ||
40 | .Ft void | ||
41 | .Fn remque "void *elem" | ||
42 | .Sh DESCRIPTION | ||
43 | .Bf -symbolic | ||
44 | These interfaces have been superseded by the | ||
45 | .Xr queue 3 | ||
46 | macros and are provided for compatibility with legacy code. | ||
47 | .Ef | ||
48 | .Pp | ||
49 | .Fn insque | ||
50 | and | ||
51 | .Fn remque | ||
52 | manipulate queues built from doubly linked lists. | ||
53 | The queue can be either circular or linear. | ||
54 | Each element in the queue must be of the following form: | ||
55 | .Bd -literal -offset indent | ||
56 | struct qelem { | ||
57 | struct qelem *q_forw; | ||
58 | struct qelem *q_back; | ||
59 | char q_data[]; | ||
60 | }; | ||
61 | .Ed | ||
62 | .Pp | ||
63 | The first two elements in the struct must be pointers of the | ||
64 | same type that point to the previous and next elements in | ||
65 | the queue respectively. | ||
66 | Any subsequent data in the struct is application-dependent. | ||
67 | .Pp | ||
68 | The | ||
69 | .Fn insque | ||
70 | function inserts | ||
71 | .Fa elem | ||
72 | into a queue immediately after | ||
73 | .Fa pred . | ||
74 | .Pp | ||
75 | The | ||
76 | .Fn remque | ||
77 | function removes | ||
78 | .Fa elem | ||
79 | from the queue. | ||
80 | .Pp | ||
81 | These functions are not atomic unless that machine architecture allows it. | ||
82 | .Sh SEE ALSO | ||
83 | .Xr queue 3 | ||
84 | .Sh STANDARDS | ||
85 | The | ||
86 | .Fn insque | ||
87 | and | ||
88 | .Fn remque | ||
89 | functions conform to the | ||
90 | .St -p1003.1-2001 | ||
91 | and | ||
92 | .St -xpg4.3 | ||
93 | specifications. | ||
94 | .Sh HISTORY | ||
95 | The | ||
96 | .Fn insque | ||
97 | and | ||
98 | .Fn remque | ||
99 | functions are derived from the | ||
100 | .Li insque | ||
101 | and | ||
102 | .Li remque | ||
103 | instructions on the | ||
104 | .Tn VAX . | ||
105 | They first appeared in | ||
106 | .Bx 4.2 . | ||
diff --git a/src/lib/libc/stdlib/insque.c b/src/lib/libc/stdlib/insque.c new file mode 100644 index 0000000000..8724efec74 --- /dev/null +++ b/src/lib/libc/stdlib/insque.c | |||
@@ -0,0 +1,48 @@ | |||
1 | /* $OpenBSD: insque.c,v 1.2 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 1993 John Brezak | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. The name of the author may be used to endorse or promote products | ||
16 | * derived from this software without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR | ||
19 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | ||
20 | * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE | ||
21 | * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, | ||
22 | * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES | ||
23 | * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | ||
24 | * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
26 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN | ||
27 | * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | ||
28 | * POSSIBILITY OF SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <search.h> | ||
32 | |||
33 | struct qelem { | ||
34 | struct qelem *q_forw; | ||
35 | struct qelem *q_back; | ||
36 | }; | ||
37 | |||
38 | void | ||
39 | insque(void *entry, void *pred) | ||
40 | { | ||
41 | struct qelem *e = (struct qelem *) entry; | ||
42 | struct qelem *p = (struct qelem *) pred; | ||
43 | |||
44 | e->q_forw = p->q_forw; | ||
45 | e->q_back = p; | ||
46 | p->q_forw->q_back = e; | ||
47 | p->q_forw = e; | ||
48 | } | ||
diff --git a/src/lib/libc/stdlib/jrand48.c b/src/lib/libc/stdlib/jrand48.c new file mode 100644 index 0000000000..cb8c592750 --- /dev/null +++ b/src/lib/libc/stdlib/jrand48.c | |||
@@ -0,0 +1,22 @@ | |||
1 | /* $OpenBSD: jrand48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | long | ||
18 | jrand48(unsigned short xseed[3]) | ||
19 | { | ||
20 | __dorand48(xseed); | ||
21 | return ((long) xseed[2] << 16) + (long) xseed[1]; | ||
22 | } | ||
diff --git a/src/lib/libc/stdlib/l64a.c b/src/lib/libc/stdlib/l64a.c new file mode 100644 index 0000000000..4f33df37b2 --- /dev/null +++ b/src/lib/libc/stdlib/l64a.c | |||
@@ -0,0 +1,42 @@ | |||
1 | /* $OpenBSD: l64a.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Written by J.T. Conklin <jtc@netbsd.org>. | ||
4 | * Public domain. | ||
5 | */ | ||
6 | |||
7 | #include <errno.h> | ||
8 | #include <stdlib.h> | ||
9 | |||
10 | char * | ||
11 | l64a(long value) | ||
12 | { | ||
13 | static char buf[8]; | ||
14 | char *s = buf; | ||
15 | int digit; | ||
16 | int i; | ||
17 | |||
18 | if (value < 0) { | ||
19 | errno = EINVAL; | ||
20 | return(NULL); | ||
21 | } | ||
22 | |||
23 | for (i = 0; value != 0 && i < 6; i++) { | ||
24 | digit = value & 0x3f; | ||
25 | |||
26 | if (digit < 2) | ||
27 | *s = digit + '.'; | ||
28 | else if (digit < 12) | ||
29 | *s = digit + '0' - 2; | ||
30 | else if (digit < 38) | ||
31 | *s = digit + 'A' - 12; | ||
32 | else | ||
33 | *s = digit + 'a' - 38; | ||
34 | |||
35 | value >>= 6; | ||
36 | s++; | ||
37 | } | ||
38 | |||
39 | *s = '\0'; | ||
40 | |||
41 | return(buf); | ||
42 | } | ||
diff --git a/src/lib/libc/stdlib/labs.3 b/src/lib/libc/stdlib/labs.3 new file mode 100644 index 0000000000..9658c3ad51 --- /dev/null +++ b/src/lib/libc/stdlib/labs.3 | |||
@@ -0,0 +1,68 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: labs.3,v 1.10 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt LABS 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm labs, llabs | ||
39 | .Nd return the absolute value of a long integer | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft long | ||
43 | .Fn labs "long i" | ||
44 | .Ft long long | ||
45 | .Fn llabs "long long j" | ||
46 | .Sh DESCRIPTION | ||
47 | The | ||
48 | .Fn labs | ||
49 | function returns the absolute value of the long integer | ||
50 | .Fa i . | ||
51 | The | ||
52 | .Fn llabs | ||
53 | function returns the absolute value of the long long integer | ||
54 | .Fa j . | ||
55 | .Sh SEE ALSO | ||
56 | .Xr abs 3 , | ||
57 | .Xr cabs 3 , | ||
58 | .Xr floor 3 , | ||
59 | .Xr imaxabs 3 | ||
60 | .Sh STANDARDS | ||
61 | The | ||
62 | .Fn labs | ||
63 | and | ||
64 | .Fn llabs | ||
65 | functions conform to | ||
66 | .St -ansiC-99 . | ||
67 | .Sh BUGS | ||
68 | The absolute value of the most negative integer remains negative. | ||
diff --git a/src/lib/libc/stdlib/labs.c b/src/lib/libc/stdlib/labs.c new file mode 100644 index 0000000000..ca60b9aba2 --- /dev/null +++ b/src/lib/libc/stdlib/labs.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: labs.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1990 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | long | ||
34 | labs(long j) | ||
35 | { | ||
36 | return(j < 0 ? -j : j); | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/lcong48.c b/src/lib/libc/stdlib/lcong48.c new file mode 100644 index 0000000000..2cf5c271ba --- /dev/null +++ b/src/lib/libc/stdlib/lcong48.c | |||
@@ -0,0 +1,31 @@ | |||
1 | /* $OpenBSD: lcong48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | extern unsigned short __rand48_seed[3]; | ||
18 | extern unsigned short __rand48_mult[3]; | ||
19 | extern unsigned short __rand48_add; | ||
20 | |||
21 | void | ||
22 | lcong48(unsigned short p[7]) | ||
23 | { | ||
24 | __rand48_seed[0] = p[0]; | ||
25 | __rand48_seed[1] = p[1]; | ||
26 | __rand48_seed[2] = p[2]; | ||
27 | __rand48_mult[0] = p[3]; | ||
28 | __rand48_mult[1] = p[4]; | ||
29 | __rand48_mult[2] = p[5]; | ||
30 | __rand48_add = p[6]; | ||
31 | } | ||
diff --git a/src/lib/libc/stdlib/ldiv.3 b/src/lib/libc/stdlib/ldiv.3 new file mode 100644 index 0000000000..d300187887 --- /dev/null +++ b/src/lib/libc/stdlib/ldiv.3 | |||
@@ -0,0 +1,66 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: ldiv.3,v 1.10 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt LDIV 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm ldiv | ||
39 | .Nd return quotient and remainder from division | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft ldiv_t | ||
43 | .Fn ldiv "long num" "long denom" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn ldiv | ||
47 | function computes the value | ||
48 | .Fa num Ns / Ns Fa denom | ||
49 | and returns the quotient and remainder in a structure named | ||
50 | .Li ldiv_t | ||
51 | that contains two | ||
52 | .Li long integer | ||
53 | members named | ||
54 | .Fa quot | ||
55 | and | ||
56 | .Fa rem . | ||
57 | .Sh SEE ALSO | ||
58 | .Xr div 3 , | ||
59 | .Xr imaxdiv 3 , | ||
60 | .Xr lldiv 3 , | ||
61 | .Xr qdiv 3 | ||
62 | .Sh STANDARDS | ||
63 | The | ||
64 | .Fn ldiv | ||
65 | function conforms to | ||
66 | .St -ansiC . | ||
diff --git a/src/lib/libc/stdlib/ldiv.c b/src/lib/libc/stdlib/ldiv.c new file mode 100644 index 0000000000..775065f525 --- /dev/null +++ b/src/lib/libc/stdlib/ldiv.c | |||
@@ -0,0 +1,50 @@ | |||
1 | /* $OpenBSD: ldiv.c,v 1.5 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1990 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Chris Torek. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | #include <stdlib.h> /* ldiv_t */ | ||
35 | |||
36 | ldiv_t | ||
37 | ldiv(long num, long denom) | ||
38 | { | ||
39 | ldiv_t r; | ||
40 | |||
41 | /* see div.c for comments */ | ||
42 | |||
43 | r.quot = num / denom; | ||
44 | r.rem = num % denom; | ||
45 | if (num >= 0 && r.rem < 0) { | ||
46 | r.quot++; | ||
47 | r.rem -= denom; | ||
48 | } | ||
49 | return (r); | ||
50 | } | ||
diff --git a/src/lib/libc/stdlib/llabs.c b/src/lib/libc/stdlib/llabs.c new file mode 100644 index 0000000000..fc2cd8261c --- /dev/null +++ b/src/lib/libc/stdlib/llabs.c | |||
@@ -0,0 +1,38 @@ | |||
1 | /* $OpenBSD: llabs.c,v 1.3 2007/01/08 19:39:25 deraadt Exp $ */ | ||
2 | |||
3 | /*- | ||
4 | * Copyright (c) 1990 The Regents of the University of California. | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. Neither the name of the University nor the names of its contributors | ||
16 | * may be used to endorse or promote products derived from this software | ||
17 | * without specific prior written permission. | ||
18 | * | ||
19 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | * SUCH DAMAGE. | ||
30 | */ | ||
31 | |||
32 | #include <stdlib.h> | ||
33 | |||
34 | long long | ||
35 | llabs(long long j) | ||
36 | { | ||
37 | return (j < 0 ? -j : j); | ||
38 | } | ||
diff --git a/src/lib/libc/stdlib/lldiv.3 b/src/lib/libc/stdlib/lldiv.3 new file mode 100644 index 0000000000..4c97d7c9b7 --- /dev/null +++ b/src/lib/libc/stdlib/lldiv.3 | |||
@@ -0,0 +1,66 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: lldiv.3,v 1.3 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt LLDIV 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm lldiv | ||
39 | .Nd return quotient and remainder from division | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft lldiv_t | ||
43 | .Fn lldiv "long long num" "long long denom" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn lldiv | ||
47 | function computes the value | ||
48 | .Fa num Ns / Ns Fa denom | ||
49 | and returns the quotient and remainder in a structure named | ||
50 | .Li lldiv_t | ||
51 | that contains two | ||
52 | .Li long long integer | ||
53 | members named | ||
54 | .Fa quot | ||
55 | and | ||
56 | .Fa rem . | ||
57 | .Sh SEE ALSO | ||
58 | .Xr div 3 , | ||
59 | .Xr imaxdiv 3 , | ||
60 | .Xr ldiv 3 , | ||
61 | .Xr qdiv 3 | ||
62 | .Sh STANDARDS | ||
63 | The | ||
64 | .Fn lldiv | ||
65 | function conforms to | ||
66 | .St -ansiC-99 . | ||
diff --git a/src/lib/libc/stdlib/lldiv.c b/src/lib/libc/stdlib/lldiv.c new file mode 100644 index 0000000000..e8d6c978b3 --- /dev/null +++ b/src/lib/libc/stdlib/lldiv.c | |||
@@ -0,0 +1,50 @@ | |||
1 | /* $OpenBSD: lldiv.c,v 1.1 2006/01/13 17:58:09 millert Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1990 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Chris Torek. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | #include <stdlib.h> /* lldiv_t */ | ||
35 | |||
36 | lldiv_t | ||
37 | lldiv(long long num, long long denom) | ||
38 | { | ||
39 | lldiv_t r; | ||
40 | |||
41 | /* see div.c for comments */ | ||
42 | |||
43 | r.quot = num / denom; | ||
44 | r.rem = num % denom; | ||
45 | if (num >= 0 && r.rem < 0) { | ||
46 | r.quot++; | ||
47 | r.rem -= denom; | ||
48 | } | ||
49 | return (r); | ||
50 | } | ||
diff --git a/src/lib/libc/stdlib/lrand48.c b/src/lib/libc/stdlib/lrand48.c new file mode 100644 index 0000000000..21beb858ca --- /dev/null +++ b/src/lib/libc/stdlib/lrand48.c | |||
@@ -0,0 +1,24 @@ | |||
1 | /* $OpenBSD: lrand48.c,v 1.3 2005/08/08 08:05:36 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | extern unsigned short __rand48_seed[3]; | ||
18 | |||
19 | long | ||
20 | lrand48(void) | ||
21 | { | ||
22 | __dorand48(__rand48_seed); | ||
23 | return ((long) __rand48_seed[2] << 15) + ((long) __rand48_seed[1] >> 1); | ||
24 | } | ||
diff --git a/src/lib/libc/stdlib/lsearch.3 b/src/lib/libc/stdlib/lsearch.3 new file mode 100644 index 0000000000..86638ae621 --- /dev/null +++ b/src/lib/libc/stdlib/lsearch.3 | |||
@@ -0,0 +1,108 @@ | |||
1 | .\" $OpenBSD: lsearch.3,v 1.9 2009/02/10 21:47:56 jmc Exp $ | ||
2 | .\" | ||
3 | .\" Copyright (c) 1989, 1991, 1993 | ||
4 | .\" The Regents of the University of California. All rights reserved. | ||
5 | .\" | ||
6 | .\" Redistribution and use in source and binary forms, with or without | ||
7 | .\" modification, are permitted provided that the following conditions | ||
8 | .\" are met: | ||
9 | .\" 1. Redistributions of source code must retain the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | .\" may be used to endorse or promote products derived from this software | ||
16 | .\" without specific prior written permission. | ||
17 | .\" | ||
18 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | .\" SUCH DAMAGE. | ||
29 | .\" | ||
30 | .\" @(#)lsearch.3 8.1 (Berkeley) 6/4/93 | ||
31 | .\" | ||
32 | .Dd $Mdocdate: February 10 2009 $ | ||
33 | .Dt LSEARCH 3 | ||
34 | .Os | ||
35 | .Sh NAME | ||
36 | .Nm lsearch , | ||
37 | .Nm lfind | ||
38 | .Nd linear searching routines | ||
39 | .Sh SYNOPSIS | ||
40 | .Fd #include <search.h> | ||
41 | .Ft char * | ||
42 | .Fn lsearch "const void *key" "const void *base" "size_t *nelp" \ | ||
43 | "size_t width" "int (*compar)(const void *, const void *)" | ||
44 | .Ft char * | ||
45 | .Fn lfind "const void *key" "const void *base" "size_t *nelp" \ | ||
46 | "size_t width" "int (*compar)(const void *, const void *)" | ||
47 | .Sh DESCRIPTION | ||
48 | The functions | ||
49 | .Fn lsearch | ||
50 | and | ||
51 | .Fn lfind | ||
52 | provide basic linear searching functionality. | ||
53 | .Pp | ||
54 | .Fa base | ||
55 | is the pointer to the beginning of an array. | ||
56 | The argument | ||
57 | .Fa nelp | ||
58 | is the current number of elements in the array, where each element | ||
59 | is | ||
60 | .Fa width | ||
61 | bytes long. | ||
62 | The | ||
63 | .Fa compar | ||
64 | function | ||
65 | is a comparison routine which is used to compare two elements. | ||
66 | It takes two arguments which point to the | ||
67 | .Fa key | ||
68 | object and to an array member, in that order, and must return an integer | ||
69 | less than, equivalent to, or greater than zero if the | ||
70 | .Fa key | ||
71 | object is considered, respectively, to be less than, equal to, or greater | ||
72 | than the array member. | ||
73 | .Pp | ||
74 | The | ||
75 | .Fn lsearch | ||
76 | and | ||
77 | .Fn lfind | ||
78 | functions | ||
79 | return a pointer into the array referenced by | ||
80 | .Fa base | ||
81 | where | ||
82 | .Fa key | ||
83 | is located. | ||
84 | If | ||
85 | .Fa key | ||
86 | does not exist, | ||
87 | .Fn lfind | ||
88 | will return a null pointer and | ||
89 | .Fn lsearch | ||
90 | will add it to the array. | ||
91 | When an element is added to the array by | ||
92 | .Fn lsearch , | ||
93 | the location referenced by the argument | ||
94 | .Fa nelp | ||
95 | is incremented by one. | ||
96 | .Sh SEE ALSO | ||
97 | .Xr bsearch 3 , | ||
98 | .Xr db 3 | ||
99 | .Sh STANDARDS | ||
100 | The | ||
101 | .Fn lsearch | ||
102 | and | ||
103 | .Fn lfind | ||
104 | functions conform to the | ||
105 | .St -p1003.1-2001 | ||
106 | and | ||
107 | .St -xpg4.3 | ||
108 | specifications. | ||
diff --git a/src/lib/libc/stdlib/lsearch.c b/src/lib/libc/stdlib/lsearch.c new file mode 100644 index 0000000000..a01d80e008 --- /dev/null +++ b/src/lib/libc/stdlib/lsearch.c | |||
@@ -0,0 +1,84 @@ | |||
1 | /* $OpenBSD: lsearch.c,v 1.4 2009/10/27 23:59:59 deraadt Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 1989, 1993 | ||
5 | * The Regents of the University of California. All rights reserved. | ||
6 | * | ||
7 | * This code is derived from software contributed to Berkeley by | ||
8 | * Roger L. Snyder. | ||
9 | * | ||
10 | * Redistribution and use in source and binary forms, with or without | ||
11 | * modification, are permitted provided that the following conditions | ||
12 | * are met: | ||
13 | * 1. Redistributions of source code must retain the above copyright | ||
14 | * notice, this list of conditions and the following disclaimer. | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in the | ||
17 | * documentation and/or other materials provided with the distribution. | ||
18 | * 3. Neither the name of the University nor the names of its contributors | ||
19 | * may be used to endorse or promote products derived from this software | ||
20 | * without specific prior written permission. | ||
21 | * | ||
22 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
23 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
24 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
25 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
26 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
27 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
28 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
29 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
30 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
31 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
32 | * SUCH DAMAGE. | ||
33 | */ | ||
34 | |||
35 | #include <sys/types.h> | ||
36 | #include <string.h> | ||
37 | #include <search.h> | ||
38 | |||
39 | typedef int (*cmp_fn_t)(const void *, const void *); | ||
40 | static void *linear_base(const void *, const void *, size_t *, size_t, | ||
41 | cmp_fn_t, int); | ||
42 | |||
43 | void * | ||
44 | lsearch(const void *key, const void *base, size_t *nelp, size_t width, | ||
45 | cmp_fn_t compar) | ||
46 | { | ||
47 | |||
48 | return(linear_base(key, base, nelp, width, compar, 1)); | ||
49 | } | ||
50 | |||
51 | void * | ||
52 | lfind(const void *key, const void *base, size_t *nelp, size_t width, | ||
53 | cmp_fn_t compar) | ||
54 | { | ||
55 | return(linear_base(key, base, nelp, width, compar, 0)); | ||
56 | } | ||
57 | |||
58 | static void * | ||
59 | linear_base(const void *key, const void *base, size_t *nelp, size_t width, | ||
60 | cmp_fn_t compar, int add_flag) | ||
61 | { | ||
62 | const char *element, *end; | ||
63 | |||
64 | end = (const char *)base + *nelp * width; | ||
65 | for (element = base; element < end; element += width) | ||
66 | if (!compar(key, element)) /* key found */ | ||
67 | return((void *)element); | ||
68 | |||
69 | if (!add_flag) /* key not found */ | ||
70 | return(NULL); | ||
71 | |||
72 | /* | ||
73 | * The UNIX System User's Manual, 1986 edition claims that | ||
74 | * a NULL pointer is returned by lsearch with errno set | ||
75 | * appropriately, if there is not enough room in the table | ||
76 | * to add a new item. This can't be done as none of these | ||
77 | * routines have any method of determining the size of the | ||
78 | * table. This comment isn't in the 1986-87 System V | ||
79 | * manual. | ||
80 | */ | ||
81 | ++*nelp; | ||
82 | memcpy((void *)end, key, width); | ||
83 | return((void *)end); | ||
84 | } | ||
diff --git a/src/lib/libc/stdlib/malloc.3 b/src/lib/libc/stdlib/malloc.3 new file mode 100644 index 0000000000..6a012fd23d --- /dev/null +++ b/src/lib/libc/stdlib/malloc.3 | |||
@@ -0,0 +1,458 @@ | |||
1 | .\" | ||
2 | .\" Copyright (c) 1980, 1991, 1993 | ||
3 | .\" The Regents of the University of California. All rights reserved. | ||
4 | .\" | ||
5 | .\" This code is derived from software contributed to Berkeley by | ||
6 | .\" the American National Standards Committee X3, on Information | ||
7 | .\" Processing Systems. | ||
8 | .\" | ||
9 | .\" Redistribution and use in source and binary forms, with or without | ||
10 | .\" modification, are permitted provided that the following conditions | ||
11 | .\" are met: | ||
12 | .\" 1. Redistributions of source code must retain the above copyright | ||
13 | .\" notice, this list of conditions and the following disclaimer. | ||
14 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
15 | .\" notice, this list of conditions and the following disclaimer in the | ||
16 | .\" documentation and/or other materials provided with the distribution. | ||
17 | .\" 3. 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 | .\" $OpenBSD: malloc.3,v 1.70 2011/07/22 07:00:44 otto Exp $ | ||
34 | .\" | ||
35 | .Dd $Mdocdate: July 22 2011 $ | ||
36 | .Dt MALLOC 3 | ||
37 | .Os | ||
38 | .Sh NAME | ||
39 | .Nm malloc , | ||
40 | .Nm calloc , | ||
41 | .Nm realloc , | ||
42 | .Nm free , | ||
43 | .Nm cfree | ||
44 | .Nd memory allocation and deallocation | ||
45 | .Sh SYNOPSIS | ||
46 | .Fd #include <stdlib.h> | ||
47 | .Ft void * | ||
48 | .Fn malloc "size_t size" | ||
49 | .Ft void * | ||
50 | .Fn calloc "size_t nmemb" "size_t size" | ||
51 | .Ft void * | ||
52 | .Fn realloc "void *ptr" "size_t size" | ||
53 | .Ft void | ||
54 | .Fn free "void *ptr" | ||
55 | .Ft void | ||
56 | .Fn cfree "void *ptr" | ||
57 | .Ft char * | ||
58 | .Va malloc_options ; | ||
59 | .Sh DESCRIPTION | ||
60 | The | ||
61 | .Fn malloc | ||
62 | function allocates uninitialized space for an object whose | ||
63 | size is specified by | ||
64 | .Fa size . | ||
65 | The | ||
66 | .Fn malloc | ||
67 | function maintains multiple lists of free blocks according to size, allocating | ||
68 | space from the appropriate list. | ||
69 | .Pp | ||
70 | The allocated space is | ||
71 | suitably aligned (after possible pointer | ||
72 | coercion) for storage of any type of object. | ||
73 | If the space is of | ||
74 | .Em pagesize | ||
75 | or larger, the memory returned will be page-aligned. | ||
76 | .Pp | ||
77 | Allocation of a zero size object returns a pointer to a zero size object. | ||
78 | This zero size object is access protected, so any access to it will | ||
79 | generate an exception (SIGSEGV). | ||
80 | Many zero-sized objects can be placed consecutively in shared | ||
81 | protected pages. | ||
82 | The minimum size of the protection on each object is suitably aligned and | ||
83 | sized as previously stated, but the protection may extend further depending | ||
84 | on where in a protected zone the object lands. | ||
85 | .Pp | ||
86 | When using | ||
87 | .Fn malloc | ||
88 | be careful to avoid the following idiom: | ||
89 | .Bd -literal -offset indent | ||
90 | if ((p = malloc(num * size)) == NULL) | ||
91 | err(1, "malloc"); | ||
92 | .Ed | ||
93 | .Pp | ||
94 | The multiplication may lead to an integer overflow. | ||
95 | To avoid this, | ||
96 | .Fn calloc | ||
97 | is recommended. | ||
98 | .Pp | ||
99 | If | ||
100 | .Fn malloc | ||
101 | must be used, be sure to test for overflow: | ||
102 | .Bd -literal -offset indent | ||
103 | if (size && num > SIZE_MAX / size) { | ||
104 | errno = ENOMEM; | ||
105 | err(1, "overflow"); | ||
106 | } | ||
107 | .Ed | ||
108 | .Pp | ||
109 | The | ||
110 | .Fn calloc | ||
111 | function allocates space for an array of | ||
112 | .Fa nmemb | ||
113 | objects, each of whose size is | ||
114 | .Fa size . | ||
115 | The space is initialized to zero. | ||
116 | The use of | ||
117 | .Fn calloc | ||
118 | is strongly encouraged when allocating multiple sized objects | ||
119 | in order to avoid possible integer overflows. | ||
120 | .Pp | ||
121 | The | ||
122 | .Fn free | ||
123 | function causes the space pointed to by | ||
124 | .Fa ptr | ||
125 | to be either placed on a list of free pages to make it available for future | ||
126 | allocation or, if required, to be returned to the kernel using | ||
127 | .Xr munmap 2 . | ||
128 | If | ||
129 | .Fa ptr | ||
130 | is a null pointer, no action occurs. | ||
131 | .Pp | ||
132 | A | ||
133 | .Fn cfree | ||
134 | function is also provided for compatibility with old systems and other | ||
135 | .Nm malloc | ||
136 | libraries; it is simply an alias for | ||
137 | .Fn free . | ||
138 | .Pp | ||
139 | The | ||
140 | .Fn realloc | ||
141 | function changes the size of the object pointed to by | ||
142 | .Fa ptr | ||
143 | to | ||
144 | .Fa size | ||
145 | bytes and returns a pointer to the (possibly moved) object. | ||
146 | The contents of the object are unchanged up to the lesser | ||
147 | of the new and old sizes. | ||
148 | If the new size is larger, the value of the newly allocated portion | ||
149 | of the object is indeterminate and uninitialized. | ||
150 | If | ||
151 | .Fa ptr | ||
152 | is a null pointer, the | ||
153 | .Fn realloc | ||
154 | function behaves like the | ||
155 | .Fn malloc | ||
156 | function for the specified size. | ||
157 | If the space cannot be allocated, the object | ||
158 | pointed to by | ||
159 | .Fa ptr | ||
160 | is unchanged. | ||
161 | If | ||
162 | .Fa size | ||
163 | is zero and | ||
164 | .Fa ptr | ||
165 | is not a null pointer, the object it points to is freed and a new zero size | ||
166 | object is returned. | ||
167 | .Pp | ||
168 | When using | ||
169 | .Fn realloc | ||
170 | be careful to avoid the following idiom: | ||
171 | .Bd -literal -offset indent | ||
172 | size += 50; | ||
173 | if ((p = realloc(p, size)) == NULL) | ||
174 | return (NULL); | ||
175 | .Ed | ||
176 | .Pp | ||
177 | Do not adjust the variable describing how much memory has been allocated | ||
178 | until the allocation has been successful. | ||
179 | This can cause aberrant program behavior if the incorrect size value is used. | ||
180 | In most cases, the above sample will also result in a leak of memory. | ||
181 | As stated earlier, a return value of | ||
182 | .Dv NULL | ||
183 | indicates that the old object still remains allocated. | ||
184 | Better code looks like this: | ||
185 | .Bd -literal -offset indent | ||
186 | newsize = size + 50; | ||
187 | if ((newp = realloc(p, newsize)) == NULL) { | ||
188 | free(p); | ||
189 | p = NULL; | ||
190 | size = 0; | ||
191 | return (NULL); | ||
192 | } | ||
193 | p = newp; | ||
194 | size = newsize; | ||
195 | .Ed | ||
196 | .Pp | ||
197 | As with | ||
198 | .Fn malloc | ||
199 | it is important to ensure the new size value will not overflow; | ||
200 | i.e. avoid allocations like the following: | ||
201 | .Bd -literal -offset indent | ||
202 | if ((newp = realloc(p, num * size)) == NULL) { | ||
203 | ... | ||
204 | .Ed | ||
205 | .Sh MALLOC_OPTIONS | ||
206 | Malloc will first look for a symbolic link called | ||
207 | .Pa /etc/malloc.conf | ||
208 | and next check the environment for a variable called | ||
209 | .Ev MALLOC_OPTIONS | ||
210 | and finally for the global variable | ||
211 | .Va malloc_options | ||
212 | and scan them for flags in that order. | ||
213 | Flags are single letters, uppercase means on, lowercase means off. | ||
214 | .Bl -tag -width indent | ||
215 | .It Cm A | ||
216 | .Dq Abort . | ||
217 | .Fn malloc | ||
218 | will coredump the process, rather than tolerate internal | ||
219 | inconsistencies or incorrect usage. | ||
220 | This is the default and a very handy debugging aid, | ||
221 | since the core file represents the time of failure, | ||
222 | rather than when the bogus pointer was used. | ||
223 | .It Cm D | ||
224 | .Dq Dump . | ||
225 | .Fn malloc | ||
226 | will dump statistics to the file | ||
227 | .Pa ./malloc.out , | ||
228 | if it already exists, | ||
229 | at exit. | ||
230 | This option requires the library to have been compiled with -DMALLOC_STATS in | ||
231 | order to have any effect. | ||
232 | .It Cm F | ||
233 | .Dq Freeguard . | ||
234 | Enable use after free protection. | ||
235 | Unused pages on the freelist are read and write protected to | ||
236 | cause a segmentation fault upon access. | ||
237 | This will also switch off the delayed freeing of chunks, | ||
238 | reducing random behaviour but detecting double | ||
239 | .Fn free | ||
240 | calls as early as possible. | ||
241 | .It Cm G | ||
242 | .Dq Guard . | ||
243 | Enable guard pages. | ||
244 | Each page size or larger allocation is followed by a guard page that will | ||
245 | cause a segmentation fault upon any access. | ||
246 | .It Cm H | ||
247 | .Dq Hint . | ||
248 | Pass a hint to the kernel about pages we don't use. | ||
249 | If the machine is paging a lot this may help a bit. | ||
250 | .It Cm J | ||
251 | .Dq Junk . | ||
252 | Fill some junk into the area allocated. | ||
253 | Currently junk is bytes of 0xd0 when allocating; this is pronounced | ||
254 | .Dq Duh . | ||
255 | \&:-) | ||
256 | Freed chunks are filled with 0xdf. | ||
257 | .It Cm P | ||
258 | .Dq Move allocations within a page. | ||
259 | Allocations larger than half a page but smaller than a page | ||
260 | are aligned to the end of a page to catch buffer overruns in more | ||
261 | cases. | ||
262 | This is the default. | ||
263 | .It Cm R | ||
264 | .Dq realloc . | ||
265 | Always reallocate when | ||
266 | .Fn realloc | ||
267 | is called, even if the initial allocation was big enough. | ||
268 | This can substantially aid in compacting memory. | ||
269 | .\".Pp | ||
270 | .\".It Cm U | ||
271 | .\".Dq utrace . | ||
272 | .\"Generate entries for | ||
273 | .\".Xr ktrace 1 | ||
274 | .\"for all operations. | ||
275 | .\"Consult the source for this one. | ||
276 | .It Cm S | ||
277 | Enable all options suitable for security auditing. | ||
278 | .It Cm X | ||
279 | .Dq xmalloc . | ||
280 | Rather than return failure, | ||
281 | .Xr abort 3 | ||
282 | the program with a diagnostic message on stderr. | ||
283 | It is the intention that this option be set at compile time by | ||
284 | including in the source: | ||
285 | .Bd -literal -offset indent | ||
286 | extern char *malloc_options; | ||
287 | malloc_options = "X"; | ||
288 | .Ed | ||
289 | .Pp | ||
290 | Note that this will cause code that is supposed to handle | ||
291 | out-of-memory conditions gracefully to abort instead. | ||
292 | .It Cm Z | ||
293 | .Dq Zero . | ||
294 | Fill some junk into the area allocated (see | ||
295 | .Cm J ) , | ||
296 | except for the exact length the user asked for, which is zeroed. | ||
297 | .It Cm < | ||
298 | .Dq Half the cache size . | ||
299 | Decrease the size of the free page cache by a factor of two. | ||
300 | .It Cm > | ||
301 | .Dq Double the cache size . | ||
302 | Increase the size of the free page cache by a factor of two. | ||
303 | .El | ||
304 | .Pp | ||
305 | So to set a systemwide reduction of the cache to a quarter of the | ||
306 | default size and use guard pages: | ||
307 | .Dl # ln -s 'G\*(Lt\*(Lt' /etc/malloc.conf | ||
308 | .Pp | ||
309 | The flags are mostly for testing and debugging. | ||
310 | If a program changes behavior if any of these options (except | ||
311 | .Cm X ) | ||
312 | are used, | ||
313 | it is buggy. | ||
314 | .Pp | ||
315 | The default number of free pages cached is 64. | ||
316 | .Sh RETURN VALUES | ||
317 | The | ||
318 | .Fn malloc | ||
319 | and | ||
320 | .Fn calloc | ||
321 | functions return a pointer to the allocated space if successful; otherwise, | ||
322 | a null pointer is returned and | ||
323 | .Va errno | ||
324 | is set to | ||
325 | .Er ENOMEM . | ||
326 | .Pp | ||
327 | The | ||
328 | .Fn free | ||
329 | and | ||
330 | .Fn cfree | ||
331 | functions return no value. | ||
332 | .Pp | ||
333 | The | ||
334 | .Fn realloc | ||
335 | function returns a pointer to the (possibly moved) allocated space | ||
336 | if successful; otherwise, a null pointer is returned and | ||
337 | .Va errno | ||
338 | is set to | ||
339 | .Er ENOMEM . | ||
340 | .Sh ENVIRONMENT | ||
341 | .Bl -tag -width Ev | ||
342 | .It Ev MALLOC_OPTIONS | ||
343 | See above. | ||
344 | .El | ||
345 | .Sh FILES | ||
346 | .Bl -tag -width "/etc/malloc.conf" | ||
347 | .It Pa /etc/malloc.conf | ||
348 | symbolic link to filename containing option flags | ||
349 | .El | ||
350 | .Sh DIAGNOSTICS | ||
351 | If | ||
352 | .Fn malloc , | ||
353 | .Fn calloc , | ||
354 | .Fn realloc , | ||
355 | or | ||
356 | .Fn free | ||
357 | detect an error condition, | ||
358 | a message will be printed to file descriptor | ||
359 | 2 (not using stdio). | ||
360 | Errors will result in the process being aborted, | ||
361 | unless the | ||
362 | .Cm a | ||
363 | option has been specified. | ||
364 | .Pp | ||
365 | Here is a brief description of the error messages and what they mean: | ||
366 | .Bl -tag -width Ds | ||
367 | .It Dq out of memory | ||
368 | If the | ||
369 | .Cm X | ||
370 | option is specified it is an error for | ||
371 | .Fn malloc , | ||
372 | .Fn calloc , | ||
373 | or | ||
374 | .Fn realloc | ||
375 | to return | ||
376 | .Dv NULL . | ||
377 | .It Dq malloc init mmap failed | ||
378 | This is a rather weird condition that is most likely to indicate a | ||
379 | seriously overloaded system or a ulimit restriction. | ||
380 | .It Dq bogus pointer (double free?) | ||
381 | An attempt to | ||
382 | .Fn free | ||
383 | or | ||
384 | .Fn realloc | ||
385 | an unallocated pointer was made. | ||
386 | .It Dq chunk is already free | ||
387 | There was an attempt to free a chunk that had already been freed. | ||
388 | .It Dq modified chunk-pointer | ||
389 | The pointer passed to | ||
390 | .Fn free | ||
391 | or | ||
392 | .Fn realloc | ||
393 | has been modified. | ||
394 | .It Dq recursive call | ||
395 | An attempt was made to call recursively into these functions, i.e., from a | ||
396 | signal handler. | ||
397 | This behavior is not supported. | ||
398 | In particular, signal handlers should | ||
399 | .Em not | ||
400 | use any of the | ||
401 | .Fn malloc | ||
402 | functions nor utilize any other functions which may call | ||
403 | .Fn malloc | ||
404 | (e.g., | ||
405 | .Xr stdio 3 | ||
406 | routines). | ||
407 | .It Dq unknown char in MALLOC_OPTIONS | ||
408 | We found something we didn't understand. | ||
409 | .It Dq malloc cache overflow/underflow | ||
410 | The internal malloc page cache has been corrupted. | ||
411 | .It Dq malloc free slot lost | ||
412 | The internal malloc page cache has been corrupted. | ||
413 | .It Dq guard size | ||
414 | An inconsistent guard size was detected. | ||
415 | .It any other error | ||
416 | .Fn malloc | ||
417 | detected an internal error; | ||
418 | consult sources and/or wizards. | ||
419 | .El | ||
420 | .Sh SEE ALSO | ||
421 | .Xr brk 2 , | ||
422 | .Xr mmap 2 , | ||
423 | .Xr munmap 2 , | ||
424 | .Xr alloca 3 , | ||
425 | .Xr getpagesize 3 , | ||
426 | .Xr posix_memalign 3 | ||
427 | .Sh STANDARDS | ||
428 | The | ||
429 | .Fn malloc | ||
430 | function conforms to | ||
431 | .St -ansiC . | ||
432 | .Sh HISTORY | ||
433 | The | ||
434 | .Nm | ||
435 | family of functions first appeared in | ||
436 | .At v7 . | ||
437 | A new implementation by Chris Kingsley was introduced in | ||
438 | .Bx 4.2 , | ||
439 | followed by a complete rewrite by Poul-Henning Kamp which appeared in | ||
440 | .Fx 2.2 | ||
441 | and was included in | ||
442 | .Ox 2.0 . | ||
443 | These implementations were all | ||
444 | .Xr sbrk 2 | ||
445 | based. | ||
446 | In | ||
447 | .Ox 3.8 , | ||
448 | Thierry Deval rewrote | ||
449 | .Nm | ||
450 | to use the | ||
451 | .Xr mmap 2 | ||
452 | system call, | ||
453 | making the page addresses returned by | ||
454 | .Nm | ||
455 | random. | ||
456 | A rewrite by Otto Moerbeek introducing a new central data structure and more | ||
457 | randomization appeared in | ||
458 | .Ox 4.4 . | ||
diff --git a/src/lib/libc/stdlib/malloc.c b/src/lib/libc/stdlib/malloc.c new file mode 100644 index 0000000000..5fc75c2c75 --- /dev/null +++ b/src/lib/libc/stdlib/malloc.c | |||
@@ -0,0 +1,1693 @@ | |||
1 | /* $OpenBSD: malloc.c,v 1.140 2011/10/06 14:37:04 otto Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 2008 Otto Moerbeek <otto@drijf.net> | ||
4 | * | ||
5 | * Permission to use, copy, modify, and distribute this software for any | ||
6 | * purpose with or without fee is hereby granted, provided that the above | ||
7 | * copyright notice and this permission notice appear in all copies. | ||
8 | * | ||
9 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
10 | * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
11 | * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
12 | * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
13 | * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
14 | * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
15 | * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
16 | */ | ||
17 | |||
18 | /* | ||
19 | * Parts of this code, mainly the sub page sized chunk management code is | ||
20 | * derived from the malloc implementation with the following license: | ||
21 | */ | ||
22 | /* | ||
23 | * ---------------------------------------------------------------------------- | ||
24 | * "THE BEER-WARE LICENSE" (Revision 42): | ||
25 | * <phk@FreeBSD.ORG> wrote this file. As long as you retain this notice you | ||
26 | * can do whatever you want with this stuff. If we meet some day, and you think | ||
27 | * this stuff is worth it, you can buy me a beer in return. Poul-Henning Kamp | ||
28 | * ---------------------------------------------------------------------------- | ||
29 | */ | ||
30 | |||
31 | /* #define MALLOC_STATS */ | ||
32 | |||
33 | #include <sys/types.h> | ||
34 | #include <sys/param.h> | ||
35 | #include <sys/queue.h> | ||
36 | #include <sys/mman.h> | ||
37 | #include <sys/uio.h> | ||
38 | #include <errno.h> | ||
39 | #include <stdint.h> | ||
40 | #include <stdlib.h> | ||
41 | #include <string.h> | ||
42 | #include <stdio.h> | ||
43 | #include <unistd.h> | ||
44 | |||
45 | #ifdef MALLOC_STATS | ||
46 | #include <sys/tree.h> | ||
47 | #include <fcntl.h> | ||
48 | #endif | ||
49 | |||
50 | #include "thread_private.h" | ||
51 | |||
52 | #if defined(__sparc__) && !defined(__sparcv9__) | ||
53 | #define MALLOC_PAGESHIFT (13U) | ||
54 | #elif defined(__mips64__) | ||
55 | #define MALLOC_PAGESHIFT (14U) | ||
56 | #else | ||
57 | #define MALLOC_PAGESHIFT (PGSHIFT) | ||
58 | #endif | ||
59 | |||
60 | #define MALLOC_MINSHIFT 4 | ||
61 | #define MALLOC_MAXSHIFT (MALLOC_PAGESHIFT - 1) | ||
62 | #define MALLOC_PAGESIZE (1UL << MALLOC_PAGESHIFT) | ||
63 | #define MALLOC_MINSIZE (1UL << MALLOC_MINSHIFT) | ||
64 | #define MALLOC_PAGEMASK (MALLOC_PAGESIZE - 1) | ||
65 | #define MASK_POINTER(p) ((void *)(((uintptr_t)(p)) & ~MALLOC_PAGEMASK)) | ||
66 | |||
67 | #define MALLOC_MAXCHUNK (1 << MALLOC_MAXSHIFT) | ||
68 | #define MALLOC_MAXCACHE 256 | ||
69 | #define MALLOC_DELAYED_CHUNKS 15 /* max of getrnibble() */ | ||
70 | #define MALLOC_INITIAL_REGIONS 512 | ||
71 | #define MALLOC_DEFAULT_CACHE 64 | ||
72 | |||
73 | /* | ||
74 | * When the P option is active, we move allocations between half a page | ||
75 | * and a whole page towards the end, subject to alignment constraints. | ||
76 | * This is the extra headroom we allow. Set to zero to be the most | ||
77 | * strict. | ||
78 | */ | ||
79 | #define MALLOC_LEEWAY 0 | ||
80 | |||
81 | #define PAGEROUND(x) (((x) + (MALLOC_PAGEMASK)) & ~MALLOC_PAGEMASK) | ||
82 | |||
83 | /* | ||
84 | * What to use for Junk. This is the byte value we use to fill with | ||
85 | * when the 'J' option is enabled. Use SOME_JUNK right after alloc, | ||
86 | * and SOME_FREEJUNK right before free. | ||
87 | */ | ||
88 | #define SOME_JUNK 0xd0 /* as in "Duh" :-) */ | ||
89 | #define SOME_FREEJUNK 0xdf | ||
90 | |||
91 | #define MMAP(sz) mmap(NULL, (size_t)(sz), PROT_READ | PROT_WRITE, \ | ||
92 | MAP_ANON | MAP_PRIVATE, -1, (off_t) 0) | ||
93 | |||
94 | #define MMAPA(a,sz) mmap((a), (size_t)(sz), PROT_READ | PROT_WRITE, \ | ||
95 | MAP_ANON | MAP_PRIVATE, -1, (off_t) 0) | ||
96 | |||
97 | struct region_info { | ||
98 | void *p; /* page; low bits used to mark chunks */ | ||
99 | uintptr_t size; /* size for pages, or chunk_info pointer */ | ||
100 | #ifdef MALLOC_STATS | ||
101 | void *f; /* where allocated from */ | ||
102 | #endif | ||
103 | }; | ||
104 | |||
105 | LIST_HEAD(chunk_head, chunk_info); | ||
106 | |||
107 | struct dir_info { | ||
108 | u_int32_t canary1; | ||
109 | struct region_info *r; /* region slots */ | ||
110 | size_t regions_total; /* number of region slots */ | ||
111 | size_t regions_free; /* number of free slots */ | ||
112 | /* lists of free chunk info structs */ | ||
113 | struct chunk_head chunk_info_list[MALLOC_MAXSHIFT + 1]; | ||
114 | /* lists of chunks with free slots */ | ||
115 | struct chunk_head chunk_dir[MALLOC_MAXSHIFT + 1]; | ||
116 | size_t free_regions_size; /* free pages cached */ | ||
117 | /* free pages cache */ | ||
118 | struct region_info free_regions[MALLOC_MAXCACHE]; | ||
119 | /* delayed free chunk slots */ | ||
120 | void *delayed_chunks[MALLOC_DELAYED_CHUNKS + 1]; | ||
121 | u_short chunk_start; | ||
122 | #ifdef MALLOC_STATS | ||
123 | size_t inserts; | ||
124 | size_t insert_collisions; | ||
125 | size_t finds; | ||
126 | size_t find_collisions; | ||
127 | size_t deletes; | ||
128 | size_t delete_moves; | ||
129 | size_t cheap_realloc_tries; | ||
130 | size_t cheap_reallocs; | ||
131 | #define STATS_INC(x) ((x)++) | ||
132 | #define STATS_ZERO(x) ((x) = 0) | ||
133 | #define STATS_SETF(x,y) ((x)->f = (y)) | ||
134 | #else | ||
135 | #define STATS_INC(x) /* nothing */ | ||
136 | #define STATS_ZERO(x) /* nothing */ | ||
137 | #define STATS_SETF(x,y) /* nothing */ | ||
138 | #endif /* MALLOC_STATS */ | ||
139 | u_int32_t canary2; | ||
140 | }; | ||
141 | #define DIR_INFO_RSZ ((sizeof(struct dir_info) + MALLOC_PAGEMASK) & \ | ||
142 | ~MALLOC_PAGEMASK) | ||
143 | |||
144 | /* | ||
145 | * This structure describes a page worth of chunks. | ||
146 | * | ||
147 | * How many bits per u_short in the bitmap | ||
148 | */ | ||
149 | #define MALLOC_BITS (NBBY * sizeof(u_short)) | ||
150 | struct chunk_info { | ||
151 | LIST_ENTRY(chunk_info) entries; | ||
152 | void *page; /* pointer to the page */ | ||
153 | u_int32_t canary; | ||
154 | u_short size; /* size of this page's chunks */ | ||
155 | u_short shift; /* how far to shift for this size */ | ||
156 | u_short free; /* how many free chunks */ | ||
157 | u_short total; /* how many chunk */ | ||
158 | /* which chunks are free */ | ||
159 | u_short bits[1]; | ||
160 | }; | ||
161 | |||
162 | struct malloc_readonly { | ||
163 | struct dir_info *g_pool; /* Main bookkeeping information */ | ||
164 | int malloc_abort; /* abort() on error */ | ||
165 | int malloc_freeprot; /* mprotect free pages PROT_NONE? */ | ||
166 | int malloc_hint; /* call madvice on free pages? */ | ||
167 | int malloc_junk; /* junk fill? */ | ||
168 | int malloc_move; /* move allocations to end of page? */ | ||
169 | int malloc_realloc; /* always realloc? */ | ||
170 | int malloc_xmalloc; /* xmalloc behaviour? */ | ||
171 | int malloc_zero; /* zero fill? */ | ||
172 | size_t malloc_guard; /* use guard pages after allocations? */ | ||
173 | u_int malloc_cache; /* free pages we cache */ | ||
174 | #ifdef MALLOC_STATS | ||
175 | int malloc_stats; /* dump statistics at end */ | ||
176 | #endif | ||
177 | u_int32_t malloc_canary; /* Matched against ones in g_pool */ | ||
178 | }; | ||
179 | |||
180 | /* This object is mapped PROT_READ after initialisation to prevent tampering */ | ||
181 | static union { | ||
182 | struct malloc_readonly mopts; | ||
183 | u_char _pad[MALLOC_PAGESIZE]; | ||
184 | } malloc_readonly __attribute__((aligned(MALLOC_PAGESIZE))); | ||
185 | #define mopts malloc_readonly.mopts | ||
186 | #define g_pool mopts.g_pool | ||
187 | |||
188 | char *malloc_options; /* compile-time options */ | ||
189 | |||
190 | static char *malloc_func; /* current function */ | ||
191 | static int malloc_active; /* status of malloc */ | ||
192 | |||
193 | static size_t malloc_guarded; /* bytes used for guards */ | ||
194 | static size_t malloc_used; /* bytes allocated */ | ||
195 | |||
196 | static size_t rnibblesused; /* random nibbles used */ | ||
197 | static u_char rbytes[512]; /* random bytes */ | ||
198 | static u_char getrnibble(void); | ||
199 | |||
200 | extern char *__progname; | ||
201 | |||
202 | #ifdef MALLOC_STATS | ||
203 | void malloc_dump(int); | ||
204 | static void malloc_exit(void); | ||
205 | #define CALLER __builtin_return_address(0) | ||
206 | #else | ||
207 | #define CALLER NULL | ||
208 | #endif | ||
209 | |||
210 | /* low bits of r->p determine size: 0 means >= page size and p->size holding | ||
211 | * real size, otherwise r->size is a shift count, or 1 for malloc(0) | ||
212 | */ | ||
213 | #define REALSIZE(sz, r) \ | ||
214 | (sz) = (uintptr_t)(r)->p & MALLOC_PAGEMASK, \ | ||
215 | (sz) = ((sz) == 0 ? (r)->size : ((sz) == 1 ? 0 : (1 << ((sz)-1)))) | ||
216 | |||
217 | static inline size_t | ||
218 | hash(void *p) | ||
219 | { | ||
220 | size_t sum; | ||
221 | union { | ||
222 | uintptr_t p; | ||
223 | unsigned short a[sizeof(void *) / sizeof(short)]; | ||
224 | } u; | ||
225 | u.p = (uintptr_t)p >> MALLOC_PAGESHIFT; | ||
226 | sum = u.a[0]; | ||
227 | sum = (sum << 7) - sum + u.a[1]; | ||
228 | #ifdef __LP64__ | ||
229 | sum = (sum << 7) - sum + u.a[2]; | ||
230 | sum = (sum << 7) - sum + u.a[3]; | ||
231 | #endif | ||
232 | return sum; | ||
233 | } | ||
234 | |||
235 | static void | ||
236 | wrterror(char *msg, void *p) | ||
237 | { | ||
238 | char *q = " error: "; | ||
239 | struct iovec iov[6]; | ||
240 | char buf[20]; | ||
241 | int saved_errno = errno; | ||
242 | |||
243 | iov[0].iov_base = __progname; | ||
244 | iov[0].iov_len = strlen(__progname); | ||
245 | iov[1].iov_base = malloc_func; | ||
246 | iov[1].iov_len = strlen(malloc_func); | ||
247 | iov[2].iov_base = q; | ||
248 | iov[2].iov_len = strlen(q); | ||
249 | iov[3].iov_base = msg; | ||
250 | iov[3].iov_len = strlen(msg); | ||
251 | iov[4].iov_base = buf; | ||
252 | if (p == NULL) | ||
253 | iov[4].iov_len = 0; | ||
254 | else { | ||
255 | snprintf(buf, sizeof(buf), " %p", p); | ||
256 | iov[4].iov_len = strlen(buf); | ||
257 | } | ||
258 | iov[5].iov_base = "\n"; | ||
259 | iov[5].iov_len = 1; | ||
260 | writev(STDERR_FILENO, iov, 6); | ||
261 | |||
262 | #ifdef MALLOC_STATS | ||
263 | if (mopts.malloc_stats) | ||
264 | malloc_dump(STDERR_FILENO); | ||
265 | #endif /* MALLOC_STATS */ | ||
266 | |||
267 | errno = saved_errno; | ||
268 | if (mopts.malloc_abort) | ||
269 | abort(); | ||
270 | } | ||
271 | |||
272 | static void | ||
273 | rbytes_init(void) | ||
274 | { | ||
275 | arc4random_buf(rbytes, sizeof(rbytes)); | ||
276 | rnibblesused = 0; | ||
277 | } | ||
278 | |||
279 | static inline u_char | ||
280 | getrnibble(void) | ||
281 | { | ||
282 | u_char x; | ||
283 | |||
284 | if (rnibblesused >= 2 * sizeof(rbytes)) | ||
285 | rbytes_init(); | ||
286 | x = rbytes[rnibblesused++ / 2]; | ||
287 | return (rnibblesused & 1 ? x & 0xf : x >> 4); | ||
288 | } | ||
289 | |||
290 | /* | ||
291 | * Cache maintenance. We keep at most malloc_cache pages cached. | ||
292 | * If the cache is becoming full, unmap pages in the cache for real, | ||
293 | * and then add the region to the cache | ||
294 | * Opposed to the regular region data structure, the sizes in the | ||
295 | * cache are in MALLOC_PAGESIZE units. | ||
296 | */ | ||
297 | static void | ||
298 | unmap(struct dir_info *d, void *p, size_t sz) | ||
299 | { | ||
300 | size_t psz = sz >> MALLOC_PAGESHIFT; | ||
301 | size_t rsz, tounmap; | ||
302 | struct region_info *r; | ||
303 | u_int i, offset; | ||
304 | |||
305 | if (sz != PAGEROUND(sz)) { | ||
306 | wrterror("munmap round", NULL); | ||
307 | return; | ||
308 | } | ||
309 | |||
310 | if (psz > mopts.malloc_cache) { | ||
311 | if (munmap(p, sz)) | ||
312 | wrterror("munmap", p); | ||
313 | malloc_used -= sz; | ||
314 | return; | ||
315 | } | ||
316 | tounmap = 0; | ||
317 | rsz = mopts.malloc_cache - d->free_regions_size; | ||
318 | if (psz > rsz) | ||
319 | tounmap = psz - rsz; | ||
320 | offset = getrnibble(); | ||
321 | for (i = 0; tounmap > 0 && i < mopts.malloc_cache; i++) { | ||
322 | r = &d->free_regions[(i + offset) & (mopts.malloc_cache - 1)]; | ||
323 | if (r->p != NULL) { | ||
324 | rsz = r->size << MALLOC_PAGESHIFT; | ||
325 | if (munmap(r->p, rsz)) | ||
326 | wrterror("munmap", r->p); | ||
327 | r->p = NULL; | ||
328 | if (tounmap > r->size) | ||
329 | tounmap -= r->size; | ||
330 | else | ||
331 | tounmap = 0; | ||
332 | d->free_regions_size -= r->size; | ||
333 | r->size = 0; | ||
334 | malloc_used -= rsz; | ||
335 | } | ||
336 | } | ||
337 | if (tounmap > 0) | ||
338 | wrterror("malloc cache underflow", NULL); | ||
339 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
340 | r = &d->free_regions[i]; | ||
341 | if (r->p == NULL) { | ||
342 | if (mopts.malloc_hint) | ||
343 | madvise(p, sz, MADV_FREE); | ||
344 | if (mopts.malloc_freeprot) | ||
345 | mprotect(p, sz, PROT_NONE); | ||
346 | r->p = p; | ||
347 | r->size = psz; | ||
348 | d->free_regions_size += psz; | ||
349 | break; | ||
350 | } | ||
351 | } | ||
352 | if (i == mopts.malloc_cache) | ||
353 | wrterror("malloc free slot lost", NULL); | ||
354 | if (d->free_regions_size > mopts.malloc_cache) | ||
355 | wrterror("malloc cache overflow", NULL); | ||
356 | } | ||
357 | |||
358 | static void | ||
359 | zapcacheregion(struct dir_info *d, void *p) | ||
360 | { | ||
361 | u_int i; | ||
362 | struct region_info *r; | ||
363 | size_t rsz; | ||
364 | |||
365 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
366 | r = &d->free_regions[i]; | ||
367 | if (r->p == p) { | ||
368 | rsz = r->size << MALLOC_PAGESHIFT; | ||
369 | if (munmap(r->p, rsz)) | ||
370 | wrterror("munmap", r->p); | ||
371 | r->p = NULL; | ||
372 | d->free_regions_size -= r->size; | ||
373 | r->size = 0; | ||
374 | malloc_used -= rsz; | ||
375 | } | ||
376 | } | ||
377 | } | ||
378 | |||
379 | static void * | ||
380 | map(struct dir_info *d, size_t sz, int zero_fill) | ||
381 | { | ||
382 | size_t psz = sz >> MALLOC_PAGESHIFT; | ||
383 | struct region_info *r, *big = NULL; | ||
384 | u_int i, offset; | ||
385 | void *p; | ||
386 | |||
387 | if (mopts.malloc_canary != (d->canary1 ^ (u_int32_t)(uintptr_t)d) || | ||
388 | d->canary1 != ~d->canary2) | ||
389 | wrterror("internal struct corrupt", NULL); | ||
390 | if (sz != PAGEROUND(sz)) { | ||
391 | wrterror("map round", NULL); | ||
392 | return NULL; | ||
393 | } | ||
394 | if (psz > d->free_regions_size) { | ||
395 | p = MMAP(sz); | ||
396 | if (p != MAP_FAILED) | ||
397 | malloc_used += sz; | ||
398 | /* zero fill not needed */ | ||
399 | return p; | ||
400 | } | ||
401 | offset = getrnibble(); | ||
402 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
403 | r = &d->free_regions[(i + offset) & (mopts.malloc_cache - 1)]; | ||
404 | if (r->p != NULL) { | ||
405 | if (r->size == psz) { | ||
406 | p = r->p; | ||
407 | if (mopts.malloc_freeprot) | ||
408 | mprotect(p, sz, PROT_READ | PROT_WRITE); | ||
409 | if (mopts.malloc_hint) | ||
410 | madvise(p, sz, MADV_NORMAL); | ||
411 | r->p = NULL; | ||
412 | r->size = 0; | ||
413 | d->free_regions_size -= psz; | ||
414 | if (zero_fill) | ||
415 | memset(p, 0, sz); | ||
416 | else if (mopts.malloc_junk && | ||
417 | mopts.malloc_freeprot) | ||
418 | memset(p, SOME_FREEJUNK, sz); | ||
419 | return p; | ||
420 | } else if (r->size > psz) | ||
421 | big = r; | ||
422 | } | ||
423 | } | ||
424 | if (big != NULL) { | ||
425 | r = big; | ||
426 | p = (char *)r->p + ((r->size - psz) << MALLOC_PAGESHIFT); | ||
427 | if (mopts.malloc_freeprot) | ||
428 | mprotect(p, sz, PROT_READ | PROT_WRITE); | ||
429 | if (mopts.malloc_hint) | ||
430 | madvise(p, sz, MADV_NORMAL); | ||
431 | r->size -= psz; | ||
432 | d->free_regions_size -= psz; | ||
433 | if (zero_fill) | ||
434 | memset(p, 0, sz); | ||
435 | else if (mopts.malloc_junk && mopts.malloc_freeprot) | ||
436 | memset(p, SOME_FREEJUNK, sz); | ||
437 | return p; | ||
438 | } | ||
439 | p = MMAP(sz); | ||
440 | if (p != MAP_FAILED) | ||
441 | malloc_used += sz; | ||
442 | if (d->free_regions_size > mopts.malloc_cache) | ||
443 | wrterror("malloc cache", NULL); | ||
444 | /* zero fill not needed */ | ||
445 | return p; | ||
446 | } | ||
447 | |||
448 | /* | ||
449 | * Initialize a dir_info, which should have been cleared by caller | ||
450 | */ | ||
451 | static int | ||
452 | omalloc_init(struct dir_info **dp) | ||
453 | { | ||
454 | char *p, b[64]; | ||
455 | int i, j; | ||
456 | size_t d_avail, regioninfo_size; | ||
457 | struct dir_info *d; | ||
458 | |||
459 | rbytes_init(); | ||
460 | |||
461 | /* | ||
462 | * Default options | ||
463 | */ | ||
464 | mopts.malloc_abort = 1; | ||
465 | mopts.malloc_move = 1; | ||
466 | mopts.malloc_cache = MALLOC_DEFAULT_CACHE; | ||
467 | |||
468 | for (i = 0; i < 3; i++) { | ||
469 | switch (i) { | ||
470 | case 0: | ||
471 | j = readlink("/etc/malloc.conf", b, sizeof b - 1); | ||
472 | if (j <= 0) | ||
473 | continue; | ||
474 | b[j] = '\0'; | ||
475 | p = b; | ||
476 | break; | ||
477 | case 1: | ||
478 | if (issetugid() == 0) | ||
479 | p = getenv("MALLOC_OPTIONS"); | ||
480 | else | ||
481 | continue; | ||
482 | break; | ||
483 | case 2: | ||
484 | p = malloc_options; | ||
485 | break; | ||
486 | default: | ||
487 | p = NULL; | ||
488 | } | ||
489 | |||
490 | for (; p != NULL && *p != '\0'; p++) { | ||
491 | switch (*p) { | ||
492 | case '>': | ||
493 | mopts.malloc_cache <<= 1; | ||
494 | if (mopts.malloc_cache > MALLOC_MAXCACHE) | ||
495 | mopts.malloc_cache = MALLOC_MAXCACHE; | ||
496 | break; | ||
497 | case '<': | ||
498 | mopts.malloc_cache >>= 1; | ||
499 | break; | ||
500 | case 'a': | ||
501 | mopts.malloc_abort = 0; | ||
502 | break; | ||
503 | case 'A': | ||
504 | mopts.malloc_abort = 1; | ||
505 | break; | ||
506 | #ifdef MALLOC_STATS | ||
507 | case 'd': | ||
508 | mopts.malloc_stats = 0; | ||
509 | break; | ||
510 | case 'D': | ||
511 | mopts.malloc_stats = 1; | ||
512 | break; | ||
513 | #endif /* MALLOC_STATS */ | ||
514 | case 'f': | ||
515 | mopts.malloc_freeprot = 0; | ||
516 | break; | ||
517 | case 'F': | ||
518 | mopts.malloc_freeprot = 1; | ||
519 | break; | ||
520 | case 'g': | ||
521 | mopts.malloc_guard = 0; | ||
522 | break; | ||
523 | case 'G': | ||
524 | mopts.malloc_guard = MALLOC_PAGESIZE; | ||
525 | break; | ||
526 | case 'h': | ||
527 | mopts.malloc_hint = 0; | ||
528 | break; | ||
529 | case 'H': | ||
530 | mopts.malloc_hint = 1; | ||
531 | break; | ||
532 | case 'j': | ||
533 | mopts.malloc_junk = 0; | ||
534 | break; | ||
535 | case 'J': | ||
536 | mopts.malloc_junk = 1; | ||
537 | break; | ||
538 | case 'n': | ||
539 | case 'N': | ||
540 | break; | ||
541 | case 'p': | ||
542 | mopts.malloc_move = 0; | ||
543 | break; | ||
544 | case 'P': | ||
545 | mopts.malloc_move = 1; | ||
546 | break; | ||
547 | case 'r': | ||
548 | mopts.malloc_realloc = 0; | ||
549 | break; | ||
550 | case 'R': | ||
551 | mopts.malloc_realloc = 1; | ||
552 | break; | ||
553 | case 's': | ||
554 | mopts.malloc_freeprot = mopts.malloc_junk = 0; | ||
555 | mopts.malloc_guard = 0; | ||
556 | mopts.malloc_cache = MALLOC_DEFAULT_CACHE; | ||
557 | break; | ||
558 | case 'S': | ||
559 | mopts.malloc_freeprot = mopts.malloc_junk = 1; | ||
560 | mopts.malloc_guard = MALLOC_PAGESIZE; | ||
561 | mopts.malloc_cache = 0; | ||
562 | break; | ||
563 | case 'x': | ||
564 | mopts.malloc_xmalloc = 0; | ||
565 | break; | ||
566 | case 'X': | ||
567 | mopts.malloc_xmalloc = 1; | ||
568 | break; | ||
569 | case 'z': | ||
570 | mopts.malloc_zero = 0; | ||
571 | break; | ||
572 | case 'Z': | ||
573 | mopts.malloc_zero = 1; | ||
574 | break; | ||
575 | default: { | ||
576 | static const char q[] = "malloc() warning: " | ||
577 | "unknown char in MALLOC_OPTIONS\n"; | ||
578 | write(STDERR_FILENO, q, sizeof(q) - 1); | ||
579 | break; | ||
580 | } | ||
581 | } | ||
582 | } | ||
583 | } | ||
584 | |||
585 | /* | ||
586 | * We want junk in the entire allocation, and zero only in the part | ||
587 | * the user asked for. | ||
588 | */ | ||
589 | if (mopts.malloc_zero) | ||
590 | mopts.malloc_junk = 1; | ||
591 | |||
592 | #ifdef MALLOC_STATS | ||
593 | if (mopts.malloc_stats && (atexit(malloc_exit) == -1)) { | ||
594 | static const char q[] = "malloc() warning: atexit(2) failed." | ||
595 | " Will not be able to dump stats on exit\n"; | ||
596 | write(STDERR_FILENO, q, sizeof(q) - 1); | ||
597 | } | ||
598 | #endif /* MALLOC_STATS */ | ||
599 | |||
600 | while ((mopts.malloc_canary = arc4random()) == 0) | ||
601 | ; | ||
602 | |||
603 | /* | ||
604 | * Allocate dir_info with a guard page on either side. Also | ||
605 | * randomise offset inside the page at which the dir_info | ||
606 | * lies (subject to alignment by 1 << MALLOC_MINSHIFT) | ||
607 | */ | ||
608 | if ((p = MMAP(DIR_INFO_RSZ + (MALLOC_PAGESIZE * 2))) == MAP_FAILED) | ||
609 | return -1; | ||
610 | mprotect(p, MALLOC_PAGESIZE, PROT_NONE); | ||
611 | mprotect(p + MALLOC_PAGESIZE + DIR_INFO_RSZ, | ||
612 | MALLOC_PAGESIZE, PROT_NONE); | ||
613 | d_avail = (DIR_INFO_RSZ - sizeof(*d)) >> MALLOC_MINSHIFT; | ||
614 | d = (struct dir_info *)(p + MALLOC_PAGESIZE + | ||
615 | (arc4random_uniform(d_avail) << MALLOC_MINSHIFT)); | ||
616 | |||
617 | d->regions_free = d->regions_total = MALLOC_INITIAL_REGIONS; | ||
618 | regioninfo_size = d->regions_total * sizeof(struct region_info); | ||
619 | d->r = MMAP(regioninfo_size); | ||
620 | if (d->r == MAP_FAILED) { | ||
621 | wrterror("malloc init mmap failed", NULL); | ||
622 | d->regions_total = 0; | ||
623 | return 1; | ||
624 | } | ||
625 | for (i = 0; i <= MALLOC_MAXSHIFT; i++) { | ||
626 | LIST_INIT(&d->chunk_info_list[i]); | ||
627 | LIST_INIT(&d->chunk_dir[i]); | ||
628 | } | ||
629 | malloc_used += regioninfo_size; | ||
630 | d->canary1 = mopts.malloc_canary ^ (u_int32_t)(uintptr_t)d; | ||
631 | d->canary2 = ~d->canary1; | ||
632 | |||
633 | *dp = d; | ||
634 | |||
635 | /* | ||
636 | * Options have been set and will never be reset. | ||
637 | * Prevent further tampering with them. | ||
638 | */ | ||
639 | if (((uintptr_t)&malloc_readonly & MALLOC_PAGEMASK) == 0) | ||
640 | mprotect(&malloc_readonly, sizeof(malloc_readonly), PROT_READ); | ||
641 | |||
642 | return 0; | ||
643 | } | ||
644 | |||
645 | static int | ||
646 | omalloc_grow(struct dir_info *d) | ||
647 | { | ||
648 | size_t newtotal; | ||
649 | size_t newsize; | ||
650 | size_t mask; | ||
651 | size_t i; | ||
652 | struct region_info *p; | ||
653 | |||
654 | if (d->regions_total > SIZE_MAX / sizeof(struct region_info) / 2 ) | ||
655 | return 1; | ||
656 | |||
657 | newtotal = d->regions_total * 2; | ||
658 | newsize = newtotal * sizeof(struct region_info); | ||
659 | mask = newtotal - 1; | ||
660 | |||
661 | p = MMAP(newsize); | ||
662 | if (p == MAP_FAILED) | ||
663 | return 1; | ||
664 | |||
665 | malloc_used += newsize; | ||
666 | memset(p, 0, newsize); | ||
667 | STATS_ZERO(d->inserts); | ||
668 | STATS_ZERO(d->insert_collisions); | ||
669 | for (i = 0; i < d->regions_total; i++) { | ||
670 | void *q = d->r[i].p; | ||
671 | if (q != NULL) { | ||
672 | size_t index = hash(q) & mask; | ||
673 | STATS_INC(d->inserts); | ||
674 | while (p[index].p != NULL) { | ||
675 | index = (index - 1) & mask; | ||
676 | STATS_INC(d->insert_collisions); | ||
677 | } | ||
678 | p[index] = d->r[i]; | ||
679 | } | ||
680 | } | ||
681 | /* avoid pages containing meta info to end up in cache */ | ||
682 | if (munmap(d->r, d->regions_total * sizeof(struct region_info))) | ||
683 | wrterror("munmap", d->r); | ||
684 | else | ||
685 | malloc_used -= d->regions_total * sizeof(struct region_info); | ||
686 | d->regions_free = d->regions_free + d->regions_total; | ||
687 | d->regions_total = newtotal; | ||
688 | d->r = p; | ||
689 | return 0; | ||
690 | } | ||
691 | |||
692 | static struct chunk_info * | ||
693 | alloc_chunk_info(struct dir_info *d, int bits) | ||
694 | { | ||
695 | struct chunk_info *p; | ||
696 | size_t size, count; | ||
697 | |||
698 | if (bits == 0) | ||
699 | count = MALLOC_PAGESIZE / MALLOC_MINSIZE; | ||
700 | else | ||
701 | count = MALLOC_PAGESIZE >> bits; | ||
702 | |||
703 | size = howmany(count, MALLOC_BITS); | ||
704 | size = sizeof(struct chunk_info) + (size - 1) * sizeof(u_short); | ||
705 | size = ALIGN(size); | ||
706 | |||
707 | if (LIST_EMPTY(&d->chunk_info_list[bits])) { | ||
708 | void *q; | ||
709 | int i; | ||
710 | |||
711 | q = MMAP(MALLOC_PAGESIZE); | ||
712 | if (q == MAP_FAILED) | ||
713 | return NULL; | ||
714 | malloc_used += MALLOC_PAGESIZE; | ||
715 | count = MALLOC_PAGESIZE / size; | ||
716 | for (i = 0; i < count; i++, q += size) | ||
717 | LIST_INSERT_HEAD(&d->chunk_info_list[bits], | ||
718 | (struct chunk_info *)q, entries); | ||
719 | } | ||
720 | p = LIST_FIRST(&d->chunk_info_list[bits]); | ||
721 | LIST_REMOVE(p, entries); | ||
722 | memset(p, 0, size); | ||
723 | p->canary = d->canary1; | ||
724 | return p; | ||
725 | } | ||
726 | |||
727 | static int | ||
728 | insert(struct dir_info *d, void *p, size_t sz, void *f) | ||
729 | { | ||
730 | size_t index; | ||
731 | size_t mask; | ||
732 | void *q; | ||
733 | |||
734 | if (d->regions_free * 4 < d->regions_total) { | ||
735 | if (omalloc_grow(d)) | ||
736 | return 1; | ||
737 | } | ||
738 | mask = d->regions_total - 1; | ||
739 | index = hash(p) & mask; | ||
740 | q = d->r[index].p; | ||
741 | STATS_INC(d->inserts); | ||
742 | while (q != NULL) { | ||
743 | index = (index - 1) & mask; | ||
744 | q = d->r[index].p; | ||
745 | STATS_INC(d->insert_collisions); | ||
746 | } | ||
747 | d->r[index].p = p; | ||
748 | d->r[index].size = sz; | ||
749 | #ifdef MALLOC_STATS | ||
750 | d->r[index].f = f; | ||
751 | #endif | ||
752 | d->regions_free--; | ||
753 | return 0; | ||
754 | } | ||
755 | |||
756 | static struct region_info * | ||
757 | find(struct dir_info *d, void *p) | ||
758 | { | ||
759 | size_t index; | ||
760 | size_t mask = d->regions_total - 1; | ||
761 | void *q, *r; | ||
762 | |||
763 | if (mopts.malloc_canary != (d->canary1 ^ (u_int32_t)(uintptr_t)d) || | ||
764 | d->canary1 != ~d->canary2) | ||
765 | wrterror("internal struct corrupt", NULL); | ||
766 | p = MASK_POINTER(p); | ||
767 | index = hash(p) & mask; | ||
768 | r = d->r[index].p; | ||
769 | q = MASK_POINTER(r); | ||
770 | STATS_INC(d->finds); | ||
771 | while (q != p && r != NULL) { | ||
772 | index = (index - 1) & mask; | ||
773 | r = d->r[index].p; | ||
774 | q = MASK_POINTER(r); | ||
775 | STATS_INC(d->find_collisions); | ||
776 | } | ||
777 | return q == p ? &d->r[index] : NULL; | ||
778 | } | ||
779 | |||
780 | static void | ||
781 | delete(struct dir_info *d, struct region_info *ri) | ||
782 | { | ||
783 | /* algorithm R, Knuth Vol III section 6.4 */ | ||
784 | size_t mask = d->regions_total - 1; | ||
785 | size_t i, j, r; | ||
786 | |||
787 | if (d->regions_total & (d->regions_total - 1)) | ||
788 | wrterror("regions_total not 2^x", NULL); | ||
789 | d->regions_free++; | ||
790 | STATS_INC(g_pool->deletes); | ||
791 | |||
792 | i = ri - d->r; | ||
793 | for (;;) { | ||
794 | d->r[i].p = NULL; | ||
795 | d->r[i].size = 0; | ||
796 | j = i; | ||
797 | for (;;) { | ||
798 | i = (i - 1) & mask; | ||
799 | if (d->r[i].p == NULL) | ||
800 | return; | ||
801 | r = hash(d->r[i].p) & mask; | ||
802 | if ((i <= r && r < j) || (r < j && j < i) || | ||
803 | (j < i && i <= r)) | ||
804 | continue; | ||
805 | d->r[j] = d->r[i]; | ||
806 | STATS_INC(g_pool->delete_moves); | ||
807 | break; | ||
808 | } | ||
809 | |||
810 | } | ||
811 | } | ||
812 | |||
813 | /* | ||
814 | * Allocate a page of chunks | ||
815 | */ | ||
816 | static struct chunk_info * | ||
817 | omalloc_make_chunks(struct dir_info *d, int bits) | ||
818 | { | ||
819 | struct chunk_info *bp; | ||
820 | void *pp; | ||
821 | int i, k; | ||
822 | |||
823 | /* Allocate a new bucket */ | ||
824 | pp = map(d, MALLOC_PAGESIZE, 0); | ||
825 | if (pp == MAP_FAILED) | ||
826 | return NULL; | ||
827 | |||
828 | bp = alloc_chunk_info(d, bits); | ||
829 | if (bp == NULL) { | ||
830 | unmap(d, pp, MALLOC_PAGESIZE); | ||
831 | return NULL; | ||
832 | } | ||
833 | |||
834 | /* memory protect the page allocated in the malloc(0) case */ | ||
835 | if (bits == 0) { | ||
836 | bp->size = 0; | ||
837 | bp->shift = 1; | ||
838 | i = MALLOC_MINSIZE - 1; | ||
839 | while (i >>= 1) | ||
840 | bp->shift++; | ||
841 | bp->total = bp->free = MALLOC_PAGESIZE >> bp->shift; | ||
842 | bp->page = pp; | ||
843 | |||
844 | k = mprotect(pp, MALLOC_PAGESIZE, PROT_NONE); | ||
845 | if (k < 0) { | ||
846 | unmap(d, pp, MALLOC_PAGESIZE); | ||
847 | LIST_INSERT_HEAD(&d->chunk_info_list[0], bp, entries); | ||
848 | return NULL; | ||
849 | } | ||
850 | } else { | ||
851 | bp->size = 1U << bits; | ||
852 | bp->shift = bits; | ||
853 | bp->total = bp->free = MALLOC_PAGESIZE >> bits; | ||
854 | bp->page = pp; | ||
855 | } | ||
856 | |||
857 | /* set all valid bits in the bitmap */ | ||
858 | k = bp->total; | ||
859 | i = 0; | ||
860 | |||
861 | /* Do a bunch at a time */ | ||
862 | for (; (k - i) >= MALLOC_BITS; i += MALLOC_BITS) | ||
863 | bp->bits[i / MALLOC_BITS] = (u_short)~0U; | ||
864 | |||
865 | for (; i < k; i++) | ||
866 | bp->bits[i / MALLOC_BITS] |= (u_short)1U << (i % MALLOC_BITS); | ||
867 | |||
868 | LIST_INSERT_HEAD(&d->chunk_dir[bits], bp, entries); | ||
869 | |||
870 | bits++; | ||
871 | if ((uintptr_t)pp & bits) | ||
872 | wrterror("pp & bits", pp); | ||
873 | |||
874 | insert(d, (void *)((uintptr_t)pp | bits), (uintptr_t)bp, NULL); | ||
875 | return bp; | ||
876 | } | ||
877 | |||
878 | |||
879 | /* | ||
880 | * Allocate a chunk | ||
881 | */ | ||
882 | static void * | ||
883 | malloc_bytes(struct dir_info *d, size_t size, void *f) | ||
884 | { | ||
885 | int i, j; | ||
886 | size_t k; | ||
887 | u_short u, *lp; | ||
888 | struct chunk_info *bp; | ||
889 | |||
890 | if (mopts.malloc_canary != (d->canary1 ^ (u_int32_t)(uintptr_t)d) || | ||
891 | d->canary1 != ~d->canary2) | ||
892 | wrterror("internal struct corrupt", NULL); | ||
893 | /* Don't bother with anything less than this */ | ||
894 | /* unless we have a malloc(0) requests */ | ||
895 | if (size != 0 && size < MALLOC_MINSIZE) | ||
896 | size = MALLOC_MINSIZE; | ||
897 | |||
898 | /* Find the right bucket */ | ||
899 | if (size == 0) | ||
900 | j = 0; | ||
901 | else { | ||
902 | j = MALLOC_MINSHIFT; | ||
903 | i = (size - 1) >> (MALLOC_MINSHIFT - 1); | ||
904 | while (i >>= 1) | ||
905 | j++; | ||
906 | } | ||
907 | |||
908 | /* If it's empty, make a page more of that size chunks */ | ||
909 | if (LIST_EMPTY(&d->chunk_dir[j])) { | ||
910 | bp = omalloc_make_chunks(d, j); | ||
911 | if (bp == NULL) | ||
912 | return NULL; | ||
913 | } else | ||
914 | bp = LIST_FIRST(&d->chunk_dir[j]); | ||
915 | |||
916 | if (bp->canary != d->canary1) | ||
917 | wrterror("chunk info corrupted", NULL); | ||
918 | |||
919 | i = d->chunk_start; | ||
920 | if (bp->free > 1) | ||
921 | i += getrnibble(); | ||
922 | if (i >= bp->total) | ||
923 | i &= bp->total - 1; | ||
924 | for (;;) { | ||
925 | for (;;) { | ||
926 | lp = &bp->bits[i / MALLOC_BITS]; | ||
927 | if (!*lp) { | ||
928 | i += MALLOC_BITS; | ||
929 | i &= ~(MALLOC_BITS - 1); | ||
930 | if (i >= bp->total) | ||
931 | i = 0; | ||
932 | } else | ||
933 | break; | ||
934 | } | ||
935 | k = i % MALLOC_BITS; | ||
936 | u = 1 << k; | ||
937 | if (*lp & u) | ||
938 | break; | ||
939 | if (++i >= bp->total) | ||
940 | i = 0; | ||
941 | } | ||
942 | d->chunk_start += i + 1; | ||
943 | #ifdef MALLOC_STATS | ||
944 | if (i == 0) { | ||
945 | struct region_info *r = find(d, bp->page); | ||
946 | r->f = f; | ||
947 | } | ||
948 | #endif | ||
949 | |||
950 | *lp ^= u; | ||
951 | |||
952 | /* If there are no more free, remove from free-list */ | ||
953 | if (!--bp->free) | ||
954 | LIST_REMOVE(bp, entries); | ||
955 | |||
956 | /* Adjust to the real offset of that chunk */ | ||
957 | k += (lp - bp->bits) * MALLOC_BITS; | ||
958 | k <<= bp->shift; | ||
959 | |||
960 | if (mopts.malloc_junk && bp->size > 0) | ||
961 | memset((char *)bp->page + k, SOME_JUNK, bp->size); | ||
962 | return ((char *)bp->page + k); | ||
963 | } | ||
964 | |||
965 | |||
966 | /* | ||
967 | * Free a chunk, and possibly the page it's on, if the page becomes empty. | ||
968 | */ | ||
969 | static void | ||
970 | free_bytes(struct dir_info *d, struct region_info *r, void *ptr) | ||
971 | { | ||
972 | struct chunk_head *mp; | ||
973 | struct chunk_info *info; | ||
974 | int i; | ||
975 | |||
976 | info = (struct chunk_info *)r->size; | ||
977 | if (info->canary != d->canary1) | ||
978 | wrterror("chunk info corrupted", NULL); | ||
979 | |||
980 | /* Find the chunk number on the page */ | ||
981 | i = ((uintptr_t)ptr & MALLOC_PAGEMASK) >> info->shift; | ||
982 | |||
983 | if ((uintptr_t)ptr & ((1U << (info->shift)) - 1)) { | ||
984 | wrterror("modified chunk-pointer", ptr); | ||
985 | return; | ||
986 | } | ||
987 | if (info->bits[i / MALLOC_BITS] & (1U << (i % MALLOC_BITS))) { | ||
988 | wrterror("chunk is already free", ptr); | ||
989 | return; | ||
990 | } | ||
991 | |||
992 | info->bits[i / MALLOC_BITS] |= 1U << (i % MALLOC_BITS); | ||
993 | info->free++; | ||
994 | |||
995 | if (info->size != 0) | ||
996 | mp = d->chunk_dir + info->shift; | ||
997 | else | ||
998 | mp = d->chunk_dir; | ||
999 | |||
1000 | if (info->free == 1) { | ||
1001 | /* Page became non-full */ | ||
1002 | LIST_INSERT_HEAD(mp, info, entries); | ||
1003 | return; | ||
1004 | } | ||
1005 | if (info->free != info->total) | ||
1006 | return; | ||
1007 | |||
1008 | LIST_REMOVE(info, entries); | ||
1009 | |||
1010 | if (info->size == 0 && !mopts.malloc_freeprot) | ||
1011 | mprotect(info->page, MALLOC_PAGESIZE, PROT_READ | PROT_WRITE); | ||
1012 | unmap(d, info->page, MALLOC_PAGESIZE); | ||
1013 | |||
1014 | delete(d, r); | ||
1015 | if (info->size != 0) | ||
1016 | mp = &d->chunk_info_list[info->shift]; | ||
1017 | else | ||
1018 | mp = &d->chunk_info_list[0]; | ||
1019 | LIST_INSERT_HEAD(mp, info, entries); | ||
1020 | } | ||
1021 | |||
1022 | |||
1023 | |||
1024 | static void * | ||
1025 | omalloc(size_t sz, int zero_fill, void *f) | ||
1026 | { | ||
1027 | void *p; | ||
1028 | size_t psz; | ||
1029 | |||
1030 | if (sz > MALLOC_MAXCHUNK) { | ||
1031 | if (sz >= SIZE_MAX - mopts.malloc_guard - MALLOC_PAGESIZE) { | ||
1032 | errno = ENOMEM; | ||
1033 | return NULL; | ||
1034 | } | ||
1035 | sz += mopts.malloc_guard; | ||
1036 | psz = PAGEROUND(sz); | ||
1037 | p = map(g_pool, psz, zero_fill); | ||
1038 | if (p == MAP_FAILED) { | ||
1039 | errno = ENOMEM; | ||
1040 | return NULL; | ||
1041 | } | ||
1042 | if (insert(g_pool, p, sz, f)) { | ||
1043 | unmap(g_pool, p, psz); | ||
1044 | errno = ENOMEM; | ||
1045 | return NULL; | ||
1046 | } | ||
1047 | if (mopts.malloc_guard) { | ||
1048 | if (mprotect((char *)p + psz - mopts.malloc_guard, | ||
1049 | mopts.malloc_guard, PROT_NONE)) | ||
1050 | wrterror("mprotect", NULL); | ||
1051 | malloc_guarded += mopts.malloc_guard; | ||
1052 | } | ||
1053 | |||
1054 | if (mopts.malloc_move && | ||
1055 | sz - mopts.malloc_guard < MALLOC_PAGESIZE - | ||
1056 | MALLOC_LEEWAY) { | ||
1057 | /* fill whole allocation */ | ||
1058 | if (mopts.malloc_junk) | ||
1059 | memset(p, SOME_JUNK, psz - mopts.malloc_guard); | ||
1060 | /* shift towards the end */ | ||
1061 | p = ((char *)p) + ((MALLOC_PAGESIZE - MALLOC_LEEWAY - | ||
1062 | (sz - mopts.malloc_guard)) & ~(MALLOC_MINSIZE-1)); | ||
1063 | /* fill zeros if needed and overwritten above */ | ||
1064 | if (zero_fill && mopts.malloc_junk) | ||
1065 | memset(p, 0, sz - mopts.malloc_guard); | ||
1066 | } else { | ||
1067 | if (mopts.malloc_junk) { | ||
1068 | if (zero_fill) | ||
1069 | memset((char *)p + sz - mopts.malloc_guard, | ||
1070 | SOME_JUNK, psz - sz); | ||
1071 | else | ||
1072 | memset(p, SOME_JUNK, | ||
1073 | psz - mopts.malloc_guard); | ||
1074 | } | ||
1075 | } | ||
1076 | |||
1077 | } else { | ||
1078 | /* takes care of SOME_JUNK */ | ||
1079 | p = malloc_bytes(g_pool, sz, f); | ||
1080 | if (zero_fill && p != NULL && sz > 0) | ||
1081 | memset(p, 0, sz); | ||
1082 | } | ||
1083 | |||
1084 | return p; | ||
1085 | } | ||
1086 | |||
1087 | /* | ||
1088 | * Common function for handling recursion. Only | ||
1089 | * print the error message once, to avoid making the problem | ||
1090 | * potentially worse. | ||
1091 | */ | ||
1092 | static void | ||
1093 | malloc_recurse(void) | ||
1094 | { | ||
1095 | static int noprint; | ||
1096 | |||
1097 | if (noprint == 0) { | ||
1098 | noprint = 1; | ||
1099 | wrterror("recursive call", NULL); | ||
1100 | } | ||
1101 | malloc_active--; | ||
1102 | _MALLOC_UNLOCK(); | ||
1103 | errno = EDEADLK; | ||
1104 | } | ||
1105 | |||
1106 | static int | ||
1107 | malloc_init(void) | ||
1108 | { | ||
1109 | if (omalloc_init(&g_pool)) { | ||
1110 | _MALLOC_UNLOCK(); | ||
1111 | if (mopts.malloc_xmalloc) | ||
1112 | wrterror("out of memory", NULL); | ||
1113 | errno = ENOMEM; | ||
1114 | return -1; | ||
1115 | } | ||
1116 | return 0; | ||
1117 | } | ||
1118 | |||
1119 | void * | ||
1120 | malloc(size_t size) | ||
1121 | { | ||
1122 | void *r; | ||
1123 | int saved_errno = errno; | ||
1124 | |||
1125 | _MALLOC_LOCK(); | ||
1126 | malloc_func = " in malloc():"; | ||
1127 | if (g_pool == NULL) { | ||
1128 | if (malloc_init() != 0) | ||
1129 | return NULL; | ||
1130 | } | ||
1131 | if (malloc_active++) { | ||
1132 | malloc_recurse(); | ||
1133 | return NULL; | ||
1134 | } | ||
1135 | r = omalloc(size, mopts.malloc_zero, CALLER); | ||
1136 | malloc_active--; | ||
1137 | _MALLOC_UNLOCK(); | ||
1138 | if (r == NULL && mopts.malloc_xmalloc) { | ||
1139 | wrterror("out of memory", NULL); | ||
1140 | errno = ENOMEM; | ||
1141 | } | ||
1142 | if (r != NULL) | ||
1143 | errno = saved_errno; | ||
1144 | return r; | ||
1145 | } | ||
1146 | |||
1147 | static void | ||
1148 | ofree(void *p) | ||
1149 | { | ||
1150 | struct region_info *r; | ||
1151 | size_t sz; | ||
1152 | |||
1153 | r = find(g_pool, p); | ||
1154 | if (r == NULL) { | ||
1155 | wrterror("bogus pointer (double free?)", p); | ||
1156 | return; | ||
1157 | } | ||
1158 | REALSIZE(sz, r); | ||
1159 | if (sz > MALLOC_MAXCHUNK) { | ||
1160 | if (sz - mopts.malloc_guard >= MALLOC_PAGESIZE - | ||
1161 | MALLOC_LEEWAY) { | ||
1162 | if (r->p != p) { | ||
1163 | wrterror("bogus pointer", p); | ||
1164 | return; | ||
1165 | } | ||
1166 | } else { | ||
1167 | #if notyetbecause_of_realloc | ||
1168 | /* shifted towards the end */ | ||
1169 | if (p != ((char *)r->p) + ((MALLOC_PAGESIZE - | ||
1170 | MALLOC_MINSIZE - sz - mopts.malloc_guard) & | ||
1171 | ~(MALLOC_MINSIZE-1))) { | ||
1172 | } | ||
1173 | #endif | ||
1174 | p = r->p; | ||
1175 | } | ||
1176 | if (mopts.malloc_guard) { | ||
1177 | if (sz < mopts.malloc_guard) | ||
1178 | wrterror("guard size", NULL); | ||
1179 | if (!mopts.malloc_freeprot) { | ||
1180 | if (mprotect((char *)p + PAGEROUND(sz) - | ||
1181 | mopts.malloc_guard, mopts.malloc_guard, | ||
1182 | PROT_READ | PROT_WRITE)) | ||
1183 | wrterror("mprotect", NULL); | ||
1184 | } | ||
1185 | malloc_guarded -= mopts.malloc_guard; | ||
1186 | } | ||
1187 | if (mopts.malloc_junk && !mopts.malloc_freeprot) | ||
1188 | memset(p, SOME_FREEJUNK, | ||
1189 | PAGEROUND(sz) - mopts.malloc_guard); | ||
1190 | unmap(g_pool, p, PAGEROUND(sz)); | ||
1191 | delete(g_pool, r); | ||
1192 | } else { | ||
1193 | void *tmp; | ||
1194 | int i; | ||
1195 | |||
1196 | if (mopts.malloc_junk && sz > 0) | ||
1197 | memset(p, SOME_FREEJUNK, sz); | ||
1198 | if (!mopts.malloc_freeprot) { | ||
1199 | i = getrnibble(); | ||
1200 | tmp = p; | ||
1201 | p = g_pool->delayed_chunks[i]; | ||
1202 | g_pool->delayed_chunks[i] = tmp; | ||
1203 | } | ||
1204 | if (p != NULL) { | ||
1205 | r = find(g_pool, p); | ||
1206 | if (r == NULL) { | ||
1207 | wrterror("bogus pointer (double free?)", p); | ||
1208 | return; | ||
1209 | } | ||
1210 | free_bytes(g_pool, r, p); | ||
1211 | } | ||
1212 | } | ||
1213 | } | ||
1214 | |||
1215 | void | ||
1216 | free(void *ptr) | ||
1217 | { | ||
1218 | int saved_errno = errno; | ||
1219 | |||
1220 | /* This is legal. */ | ||
1221 | if (ptr == NULL) | ||
1222 | return; | ||
1223 | |||
1224 | _MALLOC_LOCK(); | ||
1225 | malloc_func = " in free():"; | ||
1226 | if (g_pool == NULL) { | ||
1227 | _MALLOC_UNLOCK(); | ||
1228 | wrterror("free() called before allocation", NULL); | ||
1229 | return; | ||
1230 | } | ||
1231 | if (malloc_active++) { | ||
1232 | malloc_recurse(); | ||
1233 | return; | ||
1234 | } | ||
1235 | ofree(ptr); | ||
1236 | malloc_active--; | ||
1237 | _MALLOC_UNLOCK(); | ||
1238 | errno = saved_errno; | ||
1239 | } | ||
1240 | |||
1241 | |||
1242 | static void * | ||
1243 | orealloc(void *p, size_t newsz, void *f) | ||
1244 | { | ||
1245 | struct region_info *r; | ||
1246 | size_t oldsz, goldsz, gnewsz; | ||
1247 | void *q; | ||
1248 | |||
1249 | if (p == NULL) | ||
1250 | return omalloc(newsz, 0, f); | ||
1251 | |||
1252 | r = find(g_pool, p); | ||
1253 | if (r == NULL) { | ||
1254 | wrterror("bogus pointer (double free?)", p); | ||
1255 | return NULL; | ||
1256 | } | ||
1257 | if (newsz >= SIZE_MAX - mopts.malloc_guard - MALLOC_PAGESIZE) { | ||
1258 | errno = ENOMEM; | ||
1259 | return NULL; | ||
1260 | } | ||
1261 | |||
1262 | REALSIZE(oldsz, r); | ||
1263 | goldsz = oldsz; | ||
1264 | if (oldsz > MALLOC_MAXCHUNK) { | ||
1265 | if (oldsz < mopts.malloc_guard) | ||
1266 | wrterror("guard size", NULL); | ||
1267 | oldsz -= mopts.malloc_guard; | ||
1268 | } | ||
1269 | |||
1270 | gnewsz = newsz; | ||
1271 | if (gnewsz > MALLOC_MAXCHUNK) | ||
1272 | gnewsz += mopts.malloc_guard; | ||
1273 | |||
1274 | if (newsz > MALLOC_MAXCHUNK && oldsz > MALLOC_MAXCHUNK && p == r->p && | ||
1275 | !mopts.malloc_realloc) { | ||
1276 | size_t roldsz = PAGEROUND(goldsz); | ||
1277 | size_t rnewsz = PAGEROUND(gnewsz); | ||
1278 | |||
1279 | if (rnewsz > roldsz) { | ||
1280 | if (!mopts.malloc_guard) { | ||
1281 | STATS_INC(g_pool->cheap_realloc_tries); | ||
1282 | zapcacheregion(g_pool, (char *)p + roldsz); | ||
1283 | q = MMAPA((char *)p + roldsz, rnewsz - roldsz); | ||
1284 | if (q == (char *)p + roldsz) { | ||
1285 | malloc_used += rnewsz - roldsz; | ||
1286 | if (mopts.malloc_junk) | ||
1287 | memset(q, SOME_JUNK, | ||
1288 | rnewsz - roldsz); | ||
1289 | r->size = newsz; | ||
1290 | STATS_SETF(r, f); | ||
1291 | STATS_INC(g_pool->cheap_reallocs); | ||
1292 | return p; | ||
1293 | } else if (q != MAP_FAILED) | ||
1294 | munmap(q, rnewsz - roldsz); | ||
1295 | } | ||
1296 | } else if (rnewsz < roldsz) { | ||
1297 | if (mopts.malloc_guard) { | ||
1298 | if (mprotect((char *)p + roldsz - | ||
1299 | mopts.malloc_guard, mopts.malloc_guard, | ||
1300 | PROT_READ | PROT_WRITE)) | ||
1301 | wrterror("mprotect", NULL); | ||
1302 | if (mprotect((char *)p + rnewsz - | ||
1303 | mopts.malloc_guard, mopts.malloc_guard, | ||
1304 | PROT_NONE)) | ||
1305 | wrterror("mprotect", NULL); | ||
1306 | } | ||
1307 | unmap(g_pool, (char *)p + rnewsz, roldsz - rnewsz); | ||
1308 | r->size = gnewsz; | ||
1309 | STATS_SETF(r, f); | ||
1310 | return p; | ||
1311 | } else { | ||
1312 | if (newsz > oldsz && mopts.malloc_junk) | ||
1313 | memset((char *)p + newsz, SOME_JUNK, | ||
1314 | rnewsz - mopts.malloc_guard - newsz); | ||
1315 | r->size = gnewsz; | ||
1316 | STATS_SETF(r, f); | ||
1317 | return p; | ||
1318 | } | ||
1319 | } | ||
1320 | if (newsz <= oldsz && newsz > oldsz / 2 && !mopts.malloc_realloc) { | ||
1321 | if (mopts.malloc_junk && newsz > 0) | ||
1322 | memset((char *)p + newsz, SOME_JUNK, oldsz - newsz); | ||
1323 | STATS_SETF(r, f); | ||
1324 | return p; | ||
1325 | } else if (newsz != oldsz || mopts.malloc_realloc) { | ||
1326 | q = omalloc(newsz, 0, f); | ||
1327 | if (q == NULL) | ||
1328 | return NULL; | ||
1329 | if (newsz != 0 && oldsz != 0) | ||
1330 | memcpy(q, p, oldsz < newsz ? oldsz : newsz); | ||
1331 | ofree(p); | ||
1332 | return q; | ||
1333 | } else { | ||
1334 | STATS_SETF(r, f); | ||
1335 | return p; | ||
1336 | } | ||
1337 | } | ||
1338 | |||
1339 | void * | ||
1340 | realloc(void *ptr, size_t size) | ||
1341 | { | ||
1342 | void *r; | ||
1343 | int saved_errno = errno; | ||
1344 | |||
1345 | _MALLOC_LOCK(); | ||
1346 | malloc_func = " in realloc():"; | ||
1347 | if (g_pool == NULL) { | ||
1348 | if (malloc_init() != 0) | ||
1349 | return NULL; | ||
1350 | } | ||
1351 | if (malloc_active++) { | ||
1352 | malloc_recurse(); | ||
1353 | return NULL; | ||
1354 | } | ||
1355 | r = orealloc(ptr, size, CALLER); | ||
1356 | |||
1357 | malloc_active--; | ||
1358 | _MALLOC_UNLOCK(); | ||
1359 | if (r == NULL && mopts.malloc_xmalloc) { | ||
1360 | wrterror("out of memory", NULL); | ||
1361 | errno = ENOMEM; | ||
1362 | } | ||
1363 | if (r != NULL) | ||
1364 | errno = saved_errno; | ||
1365 | return r; | ||
1366 | } | ||
1367 | |||
1368 | |||
1369 | #define MUL_NO_OVERFLOW (1UL << (sizeof(size_t) * 4)) | ||
1370 | |||
1371 | void * | ||
1372 | calloc(size_t nmemb, size_t size) | ||
1373 | { | ||
1374 | void *r; | ||
1375 | int saved_errno = errno; | ||
1376 | |||
1377 | _MALLOC_LOCK(); | ||
1378 | malloc_func = " in calloc():"; | ||
1379 | if (g_pool == NULL) { | ||
1380 | if (malloc_init() != 0) | ||
1381 | return NULL; | ||
1382 | } | ||
1383 | if ((nmemb >= MUL_NO_OVERFLOW || size >= MUL_NO_OVERFLOW) && | ||
1384 | nmemb > 0 && SIZE_MAX / nmemb < size) { | ||
1385 | _MALLOC_UNLOCK(); | ||
1386 | if (mopts.malloc_xmalloc) | ||
1387 | wrterror("out of memory", NULL); | ||
1388 | errno = ENOMEM; | ||
1389 | return NULL; | ||
1390 | } | ||
1391 | |||
1392 | if (malloc_active++) { | ||
1393 | malloc_recurse(); | ||
1394 | return NULL; | ||
1395 | } | ||
1396 | |||
1397 | size *= nmemb; | ||
1398 | r = omalloc(size, 1, CALLER); | ||
1399 | |||
1400 | malloc_active--; | ||
1401 | _MALLOC_UNLOCK(); | ||
1402 | if (r == NULL && mopts.malloc_xmalloc) { | ||
1403 | wrterror("out of memory", NULL); | ||
1404 | errno = ENOMEM; | ||
1405 | } | ||
1406 | if (r != NULL) | ||
1407 | errno = saved_errno; | ||
1408 | return r; | ||
1409 | } | ||
1410 | |||
1411 | int | ||
1412 | posix_memalign(void **memptr, size_t alignment, size_t size) | ||
1413 | { | ||
1414 | void *result; | ||
1415 | |||
1416 | /* Make sure that alignment is a large enough power of 2. */ | ||
1417 | if (((alignment - 1) & alignment) != 0 || alignment < sizeof(void *) || | ||
1418 | alignment > MALLOC_PAGESIZE) | ||
1419 | return EINVAL; | ||
1420 | |||
1421 | /* | ||
1422 | * max(size, alignment) is enough to assure the requested alignment, | ||
1423 | * since the allocator always allocates power-of-two blocks. | ||
1424 | */ | ||
1425 | if (size < alignment) | ||
1426 | size = alignment; | ||
1427 | result = malloc(size); | ||
1428 | |||
1429 | if (result == NULL) | ||
1430 | return ENOMEM; | ||
1431 | |||
1432 | *memptr = result; | ||
1433 | return 0; | ||
1434 | } | ||
1435 | |||
1436 | #ifdef MALLOC_STATS | ||
1437 | |||
1438 | struct malloc_leak { | ||
1439 | void (*f)(); | ||
1440 | size_t total_size; | ||
1441 | int count; | ||
1442 | }; | ||
1443 | |||
1444 | struct leaknode { | ||
1445 | RB_ENTRY(leaknode) entry; | ||
1446 | struct malloc_leak d; | ||
1447 | }; | ||
1448 | |||
1449 | static int | ||
1450 | leakcmp(struct leaknode *e1, struct leaknode *e2) | ||
1451 | { | ||
1452 | return e1->d.f < e2->d.f ? -1 : e1->d.f > e2->d.f; | ||
1453 | } | ||
1454 | |||
1455 | static RB_HEAD(leaktree, leaknode) leakhead; | ||
1456 | RB_GENERATE_STATIC(leaktree, leaknode, entry, leakcmp) | ||
1457 | |||
1458 | static void | ||
1459 | putleakinfo(void *f, size_t sz, int cnt) | ||
1460 | { | ||
1461 | struct leaknode key, *p; | ||
1462 | static struct leaknode *page; | ||
1463 | static int used; | ||
1464 | |||
1465 | if (cnt == 0) | ||
1466 | return; | ||
1467 | |||
1468 | key.d.f = f; | ||
1469 | p = RB_FIND(leaktree, &leakhead, &key); | ||
1470 | if (p == NULL) { | ||
1471 | if (page == NULL || | ||
1472 | used >= MALLOC_PAGESIZE / sizeof(struct leaknode)) { | ||
1473 | page = MMAP(MALLOC_PAGESIZE); | ||
1474 | if (page == MAP_FAILED) | ||
1475 | return; | ||
1476 | used = 0; | ||
1477 | } | ||
1478 | p = &page[used++]; | ||
1479 | p->d.f = f; | ||
1480 | p->d.total_size = sz * cnt; | ||
1481 | p->d.count = cnt; | ||
1482 | RB_INSERT(leaktree, &leakhead, p); | ||
1483 | } else { | ||
1484 | p->d.total_size += sz * cnt; | ||
1485 | p->d.count += cnt; | ||
1486 | } | ||
1487 | } | ||
1488 | |||
1489 | static struct malloc_leak *malloc_leaks; | ||
1490 | |||
1491 | static void | ||
1492 | dump_leaks(int fd) | ||
1493 | { | ||
1494 | struct leaknode *p; | ||
1495 | char buf[64]; | ||
1496 | int i = 0; | ||
1497 | |||
1498 | snprintf(buf, sizeof(buf), "Leak report\n"); | ||
1499 | write(fd, buf, strlen(buf)); | ||
1500 | snprintf(buf, sizeof(buf), " f sum # avg\n"); | ||
1501 | write(fd, buf, strlen(buf)); | ||
1502 | /* XXX only one page of summary */ | ||
1503 | if (malloc_leaks == NULL) | ||
1504 | malloc_leaks = MMAP(MALLOC_PAGESIZE); | ||
1505 | if (malloc_leaks != MAP_FAILED) | ||
1506 | memset(malloc_leaks, 0, MALLOC_PAGESIZE); | ||
1507 | RB_FOREACH(p, leaktree, &leakhead) { | ||
1508 | snprintf(buf, sizeof(buf), "%12p %7zu %6u %6zu\n", p->d.f, | ||
1509 | p->d.total_size, p->d.count, p->d.total_size / p->d.count); | ||
1510 | write(fd, buf, strlen(buf)); | ||
1511 | if (malloc_leaks == MAP_FAILED || | ||
1512 | i >= MALLOC_PAGESIZE / sizeof(struct malloc_leak)) | ||
1513 | continue; | ||
1514 | malloc_leaks[i].f = p->d.f; | ||
1515 | malloc_leaks[i].total_size = p->d.total_size; | ||
1516 | malloc_leaks[i].count = p->d.count; | ||
1517 | i++; | ||
1518 | } | ||
1519 | } | ||
1520 | |||
1521 | static void | ||
1522 | dump_chunk(int fd, struct chunk_info *p, void *f, int fromfreelist) | ||
1523 | { | ||
1524 | char buf[64]; | ||
1525 | |||
1526 | while (p != NULL) { | ||
1527 | snprintf(buf, sizeof(buf), "chunk %12p %12p %4d %d/%d\n", | ||
1528 | p->page, ((p->bits[0] & 1) ? NULL : f), | ||
1529 | p->size, p->free, p->total); | ||
1530 | write(fd, buf, strlen(buf)); | ||
1531 | if (!fromfreelist) { | ||
1532 | if (p->bits[0] & 1) | ||
1533 | putleakinfo(NULL, p->size, p->total - p->free); | ||
1534 | else { | ||
1535 | putleakinfo(f, p->size, 1); | ||
1536 | putleakinfo(NULL, p->size, | ||
1537 | p->total - p->free - 1); | ||
1538 | } | ||
1539 | break; | ||
1540 | } | ||
1541 | p = LIST_NEXT(p, entries); | ||
1542 | if (p != NULL) { | ||
1543 | snprintf(buf, sizeof(buf), " "); | ||
1544 | write(fd, buf, strlen(buf)); | ||
1545 | } | ||
1546 | } | ||
1547 | } | ||
1548 | |||
1549 | static void | ||
1550 | dump_free_chunk_info(int fd, struct dir_info *d) | ||
1551 | { | ||
1552 | char buf[64]; | ||
1553 | int i, count; | ||
1554 | |||
1555 | snprintf(buf, sizeof(buf), "Free chunk structs:\n"); | ||
1556 | write(fd, buf, strlen(buf)); | ||
1557 | for (i = 0; i <= MALLOC_MAXSHIFT; i++) { | ||
1558 | struct chunk_info *p; | ||
1559 | |||
1560 | count = 0; | ||
1561 | LIST_FOREACH(p, &d->chunk_info_list[i], entries) | ||
1562 | count++; | ||
1563 | p = LIST_FIRST(&d->chunk_dir[i]); | ||
1564 | if (p == NULL && count == 0) | ||
1565 | continue; | ||
1566 | snprintf(buf, sizeof(buf), "%2d) %3d ", i, count); | ||
1567 | write(fd, buf, strlen(buf)); | ||
1568 | if (p != NULL) | ||
1569 | dump_chunk(fd, p, NULL, 1); | ||
1570 | else | ||
1571 | write(fd, "\n", 1); | ||
1572 | } | ||
1573 | |||
1574 | } | ||
1575 | |||
1576 | static void | ||
1577 | dump_free_page_info(int fd, struct dir_info *d) | ||
1578 | { | ||
1579 | char buf[64]; | ||
1580 | int i; | ||
1581 | |||
1582 | snprintf(buf, sizeof(buf), "Free pages cached: %zu\n", | ||
1583 | d->free_regions_size); | ||
1584 | write(fd, buf, strlen(buf)); | ||
1585 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
1586 | if (d->free_regions[i].p != NULL) { | ||
1587 | snprintf(buf, sizeof(buf), "%2d) ", i); | ||
1588 | write(fd, buf, strlen(buf)); | ||
1589 | snprintf(buf, sizeof(buf), "free at %p: %zu\n", | ||
1590 | d->free_regions[i].p, d->free_regions[i].size); | ||
1591 | write(fd, buf, strlen(buf)); | ||
1592 | } | ||
1593 | } | ||
1594 | } | ||
1595 | |||
1596 | static void | ||
1597 | malloc_dump1(int fd, struct dir_info *d) | ||
1598 | { | ||
1599 | char buf[64]; | ||
1600 | size_t i, realsize; | ||
1601 | |||
1602 | snprintf(buf, sizeof(buf), "Malloc dir of %s at %p\n", __progname, d); | ||
1603 | write(fd, buf, strlen(buf)); | ||
1604 | if (d == NULL) | ||
1605 | return; | ||
1606 | snprintf(buf, sizeof(buf), "Region slots free %zu/%zu\n", | ||
1607 | d->regions_free, d->regions_total); | ||
1608 | write(fd, buf, strlen(buf)); | ||
1609 | snprintf(buf, sizeof(buf), "Finds %zu/%zu\n", d->finds, | ||
1610 | d->find_collisions); | ||
1611 | write(fd, buf, strlen(buf)); | ||
1612 | snprintf(buf, sizeof(buf), "Inserts %zu/%zu\n", d->inserts, | ||
1613 | d->insert_collisions); | ||
1614 | write(fd, buf, strlen(buf)); | ||
1615 | snprintf(buf, sizeof(buf), "Deletes %zu/%zu\n", d->deletes, | ||
1616 | d->delete_moves); | ||
1617 | write(fd, buf, strlen(buf)); | ||
1618 | snprintf(buf, sizeof(buf), "Cheap reallocs %zu/%zu\n", | ||
1619 | d->cheap_reallocs, d->cheap_realloc_tries); | ||
1620 | write(fd, buf, strlen(buf)); | ||
1621 | dump_free_chunk_info(fd, d); | ||
1622 | dump_free_page_info(fd, d); | ||
1623 | snprintf(buf, sizeof(buf), | ||
1624 | "slot) hash d type page f size [free/n]\n"); | ||
1625 | write(fd, buf, strlen(buf)); | ||
1626 | for (i = 0; i < d->regions_total; i++) { | ||
1627 | if (d->r[i].p != NULL) { | ||
1628 | size_t h = hash(d->r[i].p) & | ||
1629 | (d->regions_total - 1); | ||
1630 | snprintf(buf, sizeof(buf), "%4zx) #%4zx %zd ", | ||
1631 | i, h, h - i); | ||
1632 | write(fd, buf, strlen(buf)); | ||
1633 | REALSIZE(realsize, &d->r[i]); | ||
1634 | if (realsize > MALLOC_MAXCHUNK) { | ||
1635 | putleakinfo(d->r[i].f, realsize, 1); | ||
1636 | snprintf(buf, sizeof(buf), | ||
1637 | "pages %12p %12p %zu\n", d->r[i].p, | ||
1638 | d->r[i].f, realsize); | ||
1639 | write(fd, buf, strlen(buf)); | ||
1640 | } else | ||
1641 | dump_chunk(fd, | ||
1642 | (struct chunk_info *)d->r[i].size, | ||
1643 | d->r[i].f, 0); | ||
1644 | } | ||
1645 | } | ||
1646 | snprintf(buf, sizeof(buf), "In use %zu\n", malloc_used); | ||
1647 | write(fd, buf, strlen(buf)); | ||
1648 | snprintf(buf, sizeof(buf), "Guarded %zu\n", malloc_guarded); | ||
1649 | write(fd, buf, strlen(buf)); | ||
1650 | dump_leaks(fd); | ||
1651 | write(fd, "\n", 1); | ||
1652 | } | ||
1653 | |||
1654 | void | ||
1655 | malloc_dump(int fd) | ||
1656 | { | ||
1657 | int i; | ||
1658 | void *p; | ||
1659 | struct region_info *r; | ||
1660 | int saved_errno = errno; | ||
1661 | |||
1662 | for (i = 0; i <= MALLOC_DELAYED_CHUNKS; i++) { | ||
1663 | p = g_pool->delayed_chunks[i]; | ||
1664 | if (p == NULL) | ||
1665 | continue; | ||
1666 | r = find(g_pool, p); | ||
1667 | if (r == NULL) | ||
1668 | wrterror("bogus pointer in malloc_dump", p); | ||
1669 | free_bytes(g_pool, r, p); | ||
1670 | g_pool->delayed_chunks[i] = NULL; | ||
1671 | } | ||
1672 | /* XXX leak when run multiple times */ | ||
1673 | RB_INIT(&leakhead); | ||
1674 | malloc_dump1(fd, g_pool); | ||
1675 | errno = saved_errno; | ||
1676 | } | ||
1677 | |||
1678 | static void | ||
1679 | malloc_exit(void) | ||
1680 | { | ||
1681 | static const char q[] = "malloc() warning: Couldn't dump stats\n"; | ||
1682 | int save_errno = errno, fd; | ||
1683 | |||
1684 | fd = open("malloc.out", O_RDWR|O_APPEND); | ||
1685 | if (fd != -1) { | ||
1686 | malloc_dump(fd); | ||
1687 | close(fd); | ||
1688 | } else | ||
1689 | write(STDERR_FILENO, q, sizeof(q) - 1); | ||
1690 | errno = save_errno; | ||
1691 | } | ||
1692 | |||
1693 | #endif /* MALLOC_STATS */ | ||
diff --git a/src/lib/libc/stdlib/merge.c b/src/lib/libc/stdlib/merge.c new file mode 100644 index 0000000000..43ef8b08e2 --- /dev/null +++ b/src/lib/libc/stdlib/merge.c | |||
@@ -0,0 +1,333 @@ | |||
1 | /* $OpenBSD: merge.c,v 1.9 2011/03/06 00:55:38 deraadt Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1992, 1993 | ||
4 | * The Regents of the University of California. All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Peter McIlroy. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | /* | ||
35 | * Hybrid exponential search/linear search merge sort with hybrid | ||
36 | * natural/pairwise first pass. Requires about .3% more comparisons | ||
37 | * for random data than LSMS with pairwise first pass alone. | ||
38 | * It works for objects as small as two bytes. | ||
39 | */ | ||
40 | |||
41 | #define NATURAL | ||
42 | #define THRESHOLD 16 /* Best choice for natural merge cut-off. */ | ||
43 | |||
44 | /* #define NATURAL to get hybrid natural merge. | ||
45 | * (The default is pairwise merging.) | ||
46 | */ | ||
47 | |||
48 | #include <sys/types.h> | ||
49 | |||
50 | #include <errno.h> | ||
51 | #include <stdlib.h> | ||
52 | #include <string.h> | ||
53 | |||
54 | static void setup(u_char *, u_char *, size_t, size_t, int (*)()); | ||
55 | static void insertionsort(u_char *, size_t, size_t, int (*)()); | ||
56 | |||
57 | #define ISIZE sizeof(int) | ||
58 | #define PSIZE sizeof(u_char *) | ||
59 | #define ICOPY_LIST(src, dst, last) \ | ||
60 | do \ | ||
61 | *(int*)dst = *(int*)src, src += ISIZE, dst += ISIZE; \ | ||
62 | while(src < last) | ||
63 | #define ICOPY_ELT(src, dst, i) \ | ||
64 | do \ | ||
65 | *(int*) dst = *(int*) src, src += ISIZE, dst += ISIZE; \ | ||
66 | while (i -= ISIZE) | ||
67 | |||
68 | #define CCOPY_LIST(src, dst, last) \ | ||
69 | do \ | ||
70 | *dst++ = *src++; \ | ||
71 | while (src < last) | ||
72 | #define CCOPY_ELT(src, dst, i) \ | ||
73 | do \ | ||
74 | *dst++ = *src++; \ | ||
75 | while (i -= 1) | ||
76 | |||
77 | /* | ||
78 | * Find the next possible pointer head. (Trickery for forcing an array | ||
79 | * to do double duty as a linked list when objects do not align with word | ||
80 | * boundaries. | ||
81 | */ | ||
82 | /* Assumption: PSIZE is a power of 2. */ | ||
83 | #define EVAL(p) (u_char **) \ | ||
84 | ((u_char *)0 + \ | ||
85 | (((u_char *)p + PSIZE - 1 - (u_char *) 0) & ~(PSIZE - 1))) | ||
86 | |||
87 | /* | ||
88 | * Arguments are as for qsort. | ||
89 | */ | ||
90 | int | ||
91 | mergesort(void *base, size_t nmemb, size_t size, | ||
92 | int (*cmp)(const void *, const void *)) | ||
93 | { | ||
94 | int i, sense; | ||
95 | int big, iflag; | ||
96 | u_char *f1, *f2, *t, *b, *tp2, *q, *l1, *l2; | ||
97 | u_char *list2, *list1, *p2, *p, *last, **p1; | ||
98 | |||
99 | if (size < PSIZE / 2) { /* Pointers must fit into 2 * size. */ | ||
100 | errno = EINVAL; | ||
101 | return (-1); | ||
102 | } | ||
103 | |||
104 | /* | ||
105 | * XXX | ||
106 | * Stupid subtraction for the Cray. | ||
107 | */ | ||
108 | iflag = 0; | ||
109 | if (!(size % ISIZE) && !(((char *)base - (char *)0) % ISIZE)) | ||
110 | iflag = 1; | ||
111 | |||
112 | if ((list2 = malloc(nmemb * size + PSIZE)) == NULL) | ||
113 | return (-1); | ||
114 | |||
115 | list1 = base; | ||
116 | setup(list1, list2, nmemb, size, cmp); | ||
117 | last = list2 + nmemb * size; | ||
118 | i = big = 0; | ||
119 | while (*EVAL(list2) != last) { | ||
120 | l2 = list1; | ||
121 | p1 = EVAL(list1); | ||
122 | for (tp2 = p2 = list2; p2 != last; p1 = EVAL(l2)) { | ||
123 | p2 = *EVAL(p2); | ||
124 | f1 = l2; | ||
125 | f2 = l1 = list1 + (p2 - list2); | ||
126 | if (p2 != last) | ||
127 | p2 = *EVAL(p2); | ||
128 | l2 = list1 + (p2 - list2); | ||
129 | while (f1 < l1 && f2 < l2) { | ||
130 | if ((*cmp)(f1, f2) <= 0) { | ||
131 | q = f2; | ||
132 | b = f1, t = l1; | ||
133 | sense = -1; | ||
134 | } else { | ||
135 | q = f1; | ||
136 | b = f2, t = l2; | ||
137 | sense = 0; | ||
138 | } | ||
139 | if (!big) { /* here i = 0 */ | ||
140 | while ((b += size) < t && cmp(q, b) >sense) | ||
141 | if (++i == 6) { | ||
142 | big = 1; | ||
143 | goto EXPONENTIAL; | ||
144 | } | ||
145 | } else { | ||
146 | EXPONENTIAL: for (i = size; ; i <<= 1) | ||
147 | if ((p = (b + i)) >= t) { | ||
148 | if ((p = t - size) > b && | ||
149 | (*cmp)(q, p) <= sense) | ||
150 | t = p; | ||
151 | else | ||
152 | b = p; | ||
153 | break; | ||
154 | } else if ((*cmp)(q, p) <= sense) { | ||
155 | t = p; | ||
156 | if (i == size) | ||
157 | big = 0; | ||
158 | goto FASTCASE; | ||
159 | } else | ||
160 | b = p; | ||
161 | while (t > b+size) { | ||
162 | i = (((t - b) / size) >> 1) * size; | ||
163 | if ((*cmp)(q, p = b + i) <= sense) | ||
164 | t = p; | ||
165 | else | ||
166 | b = p; | ||
167 | } | ||
168 | goto COPY; | ||
169 | FASTCASE: while (i > size) | ||
170 | if ((*cmp)(q, | ||
171 | p = b + (i >>= 1)) <= sense) | ||
172 | t = p; | ||
173 | else | ||
174 | b = p; | ||
175 | COPY: b = t; | ||
176 | } | ||
177 | i = size; | ||
178 | if (q == f1) { | ||
179 | if (iflag) { | ||
180 | ICOPY_LIST(f2, tp2, b); | ||
181 | ICOPY_ELT(f1, tp2, i); | ||
182 | } else { | ||
183 | CCOPY_LIST(f2, tp2, b); | ||
184 | CCOPY_ELT(f1, tp2, i); | ||
185 | } | ||
186 | } else { | ||
187 | if (iflag) { | ||
188 | ICOPY_LIST(f1, tp2, b); | ||
189 | ICOPY_ELT(f2, tp2, i); | ||
190 | } else { | ||
191 | CCOPY_LIST(f1, tp2, b); | ||
192 | CCOPY_ELT(f2, tp2, i); | ||
193 | } | ||
194 | } | ||
195 | } | ||
196 | if (f2 < l2) { | ||
197 | if (iflag) | ||
198 | ICOPY_LIST(f2, tp2, l2); | ||
199 | else | ||
200 | CCOPY_LIST(f2, tp2, l2); | ||
201 | } else if (f1 < l1) { | ||
202 | if (iflag) | ||
203 | ICOPY_LIST(f1, tp2, l1); | ||
204 | else | ||
205 | CCOPY_LIST(f1, tp2, l1); | ||
206 | } | ||
207 | *p1 = l2; | ||
208 | } | ||
209 | tp2 = list1; /* swap list1, list2 */ | ||
210 | list1 = list2; | ||
211 | list2 = tp2; | ||
212 | last = list2 + nmemb*size; | ||
213 | } | ||
214 | if (base == list2) { | ||
215 | memmove(list2, list1, nmemb*size); | ||
216 | list2 = list1; | ||
217 | } | ||
218 | free(list2); | ||
219 | return (0); | ||
220 | } | ||
221 | |||
222 | #define swap(a, b) { \ | ||
223 | s = b; \ | ||
224 | i = size; \ | ||
225 | do { \ | ||
226 | tmp = *a; *a++ = *s; *s++ = tmp; \ | ||
227 | } while (--i); \ | ||
228 | a -= size; \ | ||
229 | } | ||
230 | #define reverse(bot, top) { \ | ||
231 | s = top; \ | ||
232 | do { \ | ||
233 | i = size; \ | ||
234 | do { \ | ||
235 | tmp = *bot; *bot++ = *s; *s++ = tmp; \ | ||
236 | } while (--i); \ | ||
237 | s -= size2; \ | ||
238 | } while(bot < s); \ | ||
239 | } | ||
240 | |||
241 | /* | ||
242 | * Optional hybrid natural/pairwise first pass. Eats up list1 in runs of | ||
243 | * increasing order, list2 in a corresponding linked list. Checks for runs | ||
244 | * when THRESHOLD/2 pairs compare with same sense. (Only used when NATURAL | ||
245 | * is defined. Otherwise simple pairwise merging is used.) | ||
246 | */ | ||
247 | void | ||
248 | setup(u_char *list1, u_char *list2, size_t n, size_t size, | ||
249 | int (*cmp)(const void *, const void *)) | ||
250 | { | ||
251 | int i, length, size2, sense; | ||
252 | u_char tmp, *f1, *f2, *s, *l2, *last, *p2; | ||
253 | |||
254 | size2 = size*2; | ||
255 | if (n <= 5) { | ||
256 | insertionsort(list1, n, size, cmp); | ||
257 | *EVAL(list2) = (u_char*) list2 + n*size; | ||
258 | return; | ||
259 | } | ||
260 | /* | ||
261 | * Avoid running pointers out of bounds; limit n to evens | ||
262 | * for simplicity. | ||
263 | */ | ||
264 | i = 4 + (n & 1); | ||
265 | insertionsort(list1 + (n - i) * size, i, size, cmp); | ||
266 | last = list1 + size * (n - i); | ||
267 | *EVAL(list2 + (last - list1)) = list2 + n * size; | ||
268 | |||
269 | #ifdef NATURAL | ||
270 | p2 = list2; | ||
271 | f1 = list1; | ||
272 | sense = (cmp(f1, f1 + size) > 0); | ||
273 | for (; f1 < last; sense = !sense) { | ||
274 | length = 2; | ||
275 | /* Find pairs with same sense. */ | ||
276 | for (f2 = f1 + size2; f2 < last; f2 += size2) { | ||
277 | if ((cmp(f2, f2+ size) > 0) != sense) | ||
278 | break; | ||
279 | length += 2; | ||
280 | } | ||
281 | if (length < THRESHOLD) { /* Pairwise merge */ | ||
282 | do { | ||
283 | p2 = *EVAL(p2) = f1 + size2 - list1 + list2; | ||
284 | if (sense > 0) | ||
285 | swap (f1, f1 + size); | ||
286 | } while ((f1 += size2) < f2); | ||
287 | } else { /* Natural merge */ | ||
288 | l2 = f2; | ||
289 | for (f2 = f1 + size2; f2 < l2; f2 += size2) { | ||
290 | if ((cmp(f2-size, f2) > 0) != sense) { | ||
291 | p2 = *EVAL(p2) = f2 - list1 + list2; | ||
292 | if (sense > 0) | ||
293 | reverse(f1, f2-size); | ||
294 | f1 = f2; | ||
295 | } | ||
296 | } | ||
297 | if (sense > 0) | ||
298 | reverse (f1, f2-size); | ||
299 | f1 = f2; | ||
300 | if (f2 < last || cmp(f2 - size, f2) > 0) | ||
301 | p2 = *EVAL(p2) = f2 - list1 + list2; | ||
302 | else | ||
303 | p2 = *EVAL(p2) = list2 + n*size; | ||
304 | } | ||
305 | } | ||
306 | #else /* pairwise merge only. */ | ||
307 | for (f1 = list1, p2 = list2; f1 < last; f1 += size2) { | ||
308 | p2 = *EVAL(p2) = p2 + size2; | ||
309 | if (cmp (f1, f1 + size) > 0) | ||
310 | swap(f1, f1 + size); | ||
311 | } | ||
312 | #endif /* NATURAL */ | ||
313 | } | ||
314 | |||
315 | /* | ||
316 | * This is to avoid out-of-bounds addresses in sorting the | ||
317 | * last 4 elements. | ||
318 | */ | ||
319 | static void | ||
320 | insertionsort(u_char *a, size_t n, size_t size, | ||
321 | int (*cmp)(const void *, const void *)) | ||
322 | { | ||
323 | u_char *ai, *s, *t, *u, tmp; | ||
324 | int i; | ||
325 | |||
326 | for (ai = a+size; --n >= 1; ai += size) | ||
327 | for (t = ai; t > a; t -= size) { | ||
328 | u = t - size; | ||
329 | if (cmp(u, t) <= 0) | ||
330 | break; | ||
331 | swap(u, t); | ||
332 | } | ||
333 | } | ||
diff --git a/src/lib/libc/stdlib/mrand48.c b/src/lib/libc/stdlib/mrand48.c new file mode 100644 index 0000000000..977264aba5 --- /dev/null +++ b/src/lib/libc/stdlib/mrand48.c | |||
@@ -0,0 +1,24 @@ | |||
1 | /* $OpenBSD: mrand48.c,v 1.3 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | extern unsigned short __rand48_seed[3]; | ||
18 | |||
19 | long | ||
20 | mrand48(void) | ||
21 | { | ||
22 | __dorand48(__rand48_seed); | ||
23 | return ((long) __rand48_seed[2] << 16) + (long) __rand48_seed[1]; | ||
24 | } | ||
diff --git a/src/lib/libc/stdlib/nrand48.c b/src/lib/libc/stdlib/nrand48.c new file mode 100644 index 0000000000..f1f548c3af --- /dev/null +++ b/src/lib/libc/stdlib/nrand48.c | |||
@@ -0,0 +1,22 @@ | |||
1 | /* $OpenBSD: nrand48.c,v 1.3 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | long | ||
18 | nrand48(unsigned short xseed[3]) | ||
19 | { | ||
20 | __dorand48(xseed); | ||
21 | return ((long) xseed[2] << 15) + ((long) xseed[1] >> 1); | ||
22 | } | ||
diff --git a/src/lib/libc/stdlib/posix_memalign.3 b/src/lib/libc/stdlib/posix_memalign.3 new file mode 100644 index 0000000000..46b74af7be --- /dev/null +++ b/src/lib/libc/stdlib/posix_memalign.3 | |||
@@ -0,0 +1,94 @@ | |||
1 | .\" $OpenBSD: posix_memalign.3,v 1.2 2010/05/19 06:32:43 jmc Exp $ | ||
2 | .\" Copyright (C) 2006 Jason Evans <jasone@FreeBSD.org>. | ||
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(s), this list of conditions and the following disclaimer as | ||
10 | .\" the first lines of this file unmodified other than the possible | ||
11 | .\" addition of one or more copyright notices. | ||
12 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
13 | .\" notice(s), this list of conditions and the following disclaimer in | ||
14 | .\" the documentation and/or other materials provided with the | ||
15 | .\" distribution. | ||
16 | .\" | ||
17 | .\" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER(S) ``AS IS'' AND ANY | ||
18 | .\" EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
19 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
20 | .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER(S) BE | ||
21 | .\" LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | ||
22 | .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF | ||
23 | .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR | ||
24 | .\" BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, | ||
25 | .\" WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE | ||
26 | .\" OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, | ||
27 | .\" EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ||
28 | .\" | ||
29 | .\" $FreeBSD: src/lib/libc/stdlib/posix_memalign.3,v 1.3 2007/03/28 04:32:51 jasone Exp $ | ||
30 | .\" | ||
31 | .Dd $Mdocdate: May 19 2010 $ | ||
32 | .Dt POSIX_MEMALIGN 3 | ||
33 | .Os | ||
34 | .Sh NAME | ||
35 | .Nm posix_memalign | ||
36 | .Nd aligned memory allocation | ||
37 | .Sh SYNOPSIS | ||
38 | .In stdlib.h | ||
39 | .Ft int | ||
40 | .Fn posix_memalign "void **ptr" "size_t alignment" "size_t size" | ||
41 | .Sh DESCRIPTION | ||
42 | The | ||
43 | .Fn posix_memalign | ||
44 | function allocates | ||
45 | .Fa size | ||
46 | bytes of memory such that the allocation's base address is a multiple of | ||
47 | .Fa alignment , | ||
48 | and returns the allocation in the value pointed to by | ||
49 | .Fa ptr . | ||
50 | .Pp | ||
51 | The requested | ||
52 | .Fa alignment | ||
53 | must be a power of 2 at least as large as | ||
54 | .Fn sizeof "void *" . | ||
55 | .Pp | ||
56 | Memory that is allocated via | ||
57 | .Fn posix_memalign | ||
58 | can be used as an argument in subsequent calls to | ||
59 | .Xr realloc 3 | ||
60 | and | ||
61 | .Xr free 3 . | ||
62 | .Sh RETURN VALUES | ||
63 | The | ||
64 | .Fn posix_memalign | ||
65 | function returns the value 0 if successful; otherwise it returns an error value. | ||
66 | .Sh ERRORS | ||
67 | The | ||
68 | .Fn posix_memalign | ||
69 | function will fail if: | ||
70 | .Bl -tag -width Er | ||
71 | .It Bq Er EINVAL | ||
72 | The | ||
73 | .Fa alignment | ||
74 | parameter is not a power of 2 at least as large as | ||
75 | .Fn sizeof "void *" . | ||
76 | .It Bq Er ENOMEM | ||
77 | Memory allocation error. | ||
78 | .El | ||
79 | .Sh SEE ALSO | ||
80 | .Xr free 3 , | ||
81 | .Xr malloc 3 , | ||
82 | .Xr realloc 3 | ||
83 | .Sh STANDARDS | ||
84 | The | ||
85 | .Fn posix_memalign | ||
86 | function conforms to | ||
87 | .St -p1003.1-2001 . | ||
88 | .Sh HISTORY | ||
89 | The | ||
90 | .Fn posix_memalign | ||
91 | function first appeared in | ||
92 | .Ox 4.8 . | ||
93 | .Sh BUGS | ||
94 | Only alignments up to the page size can be specified. | ||
diff --git a/src/lib/libc/stdlib/qabs.3 b/src/lib/libc/stdlib/qabs.3 new file mode 100644 index 0000000000..b12dc59276 --- /dev/null +++ b/src/lib/libc/stdlib/qabs.3 | |||
@@ -0,0 +1,56 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: qabs.3,v 1.12 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt QABS 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm qabs | ||
39 | .Nd return the absolute value of a quad integer | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft quad_t | ||
43 | .Fn qabs "quad_t j" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn qabs | ||
47 | function returns the absolute value of the quad integer | ||
48 | .Fa j . | ||
49 | .Sh SEE ALSO | ||
50 | .Xr abs 3 , | ||
51 | .Xr cabs 3 , | ||
52 | .Xr floor 3 , | ||
53 | .Xr imaxabs 3 , | ||
54 | .Xr labs 3 | ||
55 | .Sh BUGS | ||
56 | The absolute value of the most negative integer remains negative. | ||
diff --git a/src/lib/libc/stdlib/qabs.c b/src/lib/libc/stdlib/qabs.c new file mode 100644 index 0000000000..656b93c822 --- /dev/null +++ b/src/lib/libc/stdlib/qabs.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: qabs.c,v 1.5 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1990 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <stdlib.h> | ||
32 | |||
33 | quad_t | ||
34 | qabs(quad_t j) | ||
35 | { | ||
36 | return(j < 0 ? -j : j); | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/qdiv.3 b/src/lib/libc/stdlib/qdiv.3 new file mode 100644 index 0000000000..94e3bdffb6 --- /dev/null +++ b/src/lib/libc/stdlib/qdiv.3 | |||
@@ -0,0 +1,61 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: qdiv.3,v 1.9 2011/07/07 13:30:28 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: July 7 2011 $ | ||
35 | .Dt QDIV 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm qdiv | ||
39 | .Nd return quotient and remainder from division | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft qdiv_t | ||
43 | .Fn qdiv "quad_t num" "quad_t denom" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn qdiv | ||
47 | function computes the value | ||
48 | .Fa num Ns / Ns Fa denom | ||
49 | and returns the quotient and remainder in a structure named | ||
50 | .Li qdiv_t | ||
51 | that contains two | ||
52 | .Li quad integer | ||
53 | members named | ||
54 | .Fa quot | ||
55 | and | ||
56 | .Fa rem . | ||
57 | .Sh SEE ALSO | ||
58 | .Xr div 3 , | ||
59 | .Xr imaxdiv 3 , | ||
60 | .Xr ldiv 3 , | ||
61 | .Xr lldiv 3 | ||
diff --git a/src/lib/libc/stdlib/qdiv.c b/src/lib/libc/stdlib/qdiv.c new file mode 100644 index 0000000000..f3db0915ed --- /dev/null +++ b/src/lib/libc/stdlib/qdiv.c | |||
@@ -0,0 +1,50 @@ | |||
1 | /* $OpenBSD: qdiv.c,v 1.5 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1990 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Chris Torek. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | #include <stdlib.h> /* qdiv_t */ | ||
35 | |||
36 | qdiv_t | ||
37 | qdiv(quad_t num, quad_t denom) | ||
38 | { | ||
39 | qdiv_t r; | ||
40 | |||
41 | /* see div.c for comments */ | ||
42 | |||
43 | r.quot = num / denom; | ||
44 | r.rem = num % denom; | ||
45 | if (num >= 0 && r.rem < 0) { | ||
46 | r.quot++; | ||
47 | r.rem -= denom; | ||
48 | } | ||
49 | return (r); | ||
50 | } | ||
diff --git a/src/lib/libc/stdlib/qsort.3 b/src/lib/libc/stdlib/qsort.3 new file mode 100644 index 0000000000..92c75d5365 --- /dev/null +++ b/src/lib/libc/stdlib/qsort.3 | |||
@@ -0,0 +1,233 @@ | |||
1 | .\" Copyright (c) 1990, 1991, 1993 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: qsort.3,v 1.15 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt QSORT 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm qsort , | ||
39 | .Nm heapsort , | ||
40 | .Nm mergesort | ||
41 | .Nd sort functions | ||
42 | .Sh SYNOPSIS | ||
43 | .Fd #include <stdlib.h> | ||
44 | .Ft void | ||
45 | .Fn qsort "void *base" "size_t nmemb" "size_t size" "int (*compar)(const void *, const void *)" | ||
46 | .Ft int | ||
47 | .Fn heapsort "void *base" "size_t nmemb" "size_t size" "int (*compar)(const void *, const void *)" | ||
48 | .Ft int | ||
49 | .Fn mergesort "void *base" "size_t nmemb" "size_t size" "int (*compar)(const void *, const void *)" | ||
50 | .Sh DESCRIPTION | ||
51 | The | ||
52 | .Fn qsort | ||
53 | function is a modified partition-exchange sort, or quicksort. | ||
54 | The | ||
55 | .Fn heapsort | ||
56 | function is a modified selection sort. | ||
57 | The | ||
58 | .Fn mergesort | ||
59 | function is a modified merge sort with exponential search | ||
60 | intended for sorting data with pre-existing order. | ||
61 | .Pp | ||
62 | The | ||
63 | .Fn qsort | ||
64 | and | ||
65 | .Fn heapsort | ||
66 | functions sort an array of | ||
67 | .Fa nmemb | ||
68 | objects, the initial member of which is pointed to by | ||
69 | .Fa base . | ||
70 | The size of each object is specified by | ||
71 | .Fa size . | ||
72 | .Fn mergesort | ||
73 | behaves similarly, but | ||
74 | .Em requires | ||
75 | that | ||
76 | .Fa size | ||
77 | be greater than | ||
78 | .Dq "sizeof(void *) / 2" . | ||
79 | .Pp | ||
80 | The contents of the array | ||
81 | .Fa base | ||
82 | are sorted in ascending order according to | ||
83 | a comparison function pointed to by | ||
84 | .Fa compar , | ||
85 | which requires two arguments pointing to the objects being | ||
86 | compared. | ||
87 | .Pp | ||
88 | The comparison function must return an integer less than, equal to, or | ||
89 | greater than zero if the first argument is considered to be respectively | ||
90 | less than, equal to, or greater than the second. | ||
91 | .Pp | ||
92 | The functions | ||
93 | .Fn qsort | ||
94 | and | ||
95 | .Fn heapsort | ||
96 | are | ||
97 | .Em not | ||
98 | stable, that is, if two members compare as equal, their order in | ||
99 | the sorted array is undefined. | ||
100 | The function | ||
101 | .Fn mergesort | ||
102 | is stable. | ||
103 | .Pp | ||
104 | The | ||
105 | .Fn qsort | ||
106 | function is an implementation of C.A.R. Hoare's | ||
107 | .Dq quicksort | ||
108 | algorithm, | ||
109 | a variant of partition-exchange sorting; in particular, see D.E. Knuth's | ||
110 | Algorithm Q. | ||
111 | .Fn qsort | ||
112 | takes O N lg N average time. | ||
113 | This implementation uses median selection to avoid its | ||
114 | O N**2 worst-case behavior. | ||
115 | .Pp | ||
116 | The | ||
117 | .Fn heapsort | ||
118 | function is an implementation of J.W.J. William's | ||
119 | .Dq heapsort | ||
120 | algorithm, | ||
121 | a variant of selection sorting; in particular, see D.E. Knuth's Algorithm H. | ||
122 | .Fn heapsort | ||
123 | takes O N lg N worst-case time. | ||
124 | This implementation of | ||
125 | .Fn heapsort | ||
126 | is implemented without recursive function calls. | ||
127 | .Pp | ||
128 | The function | ||
129 | .Fn mergesort | ||
130 | requires additional memory of size | ||
131 | .Fa nmemb * | ||
132 | .Fa size | ||
133 | bytes; it should be used only when space is not at a premium. | ||
134 | .Fn mergesort | ||
135 | is optimized for data with pre-existing order; its worst case | ||
136 | time is O N lg N; its best case is O N. | ||
137 | .Pp | ||
138 | Normally, | ||
139 | .Fn qsort | ||
140 | is faster than | ||
141 | .Fn mergesort , | ||
142 | which is faster than | ||
143 | .Fn heapsort . | ||
144 | Memory availability and pre-existing order in the data can make this untrue. | ||
145 | .Sh RETURN VALUES | ||
146 | The | ||
147 | .Fn qsort | ||
148 | function returns no value. | ||
149 | .Pp | ||
150 | Upon successful completion, | ||
151 | .Fn heapsort | ||
152 | and | ||
153 | .Fn mergesort | ||
154 | return 0. | ||
155 | Otherwise, they return \-1 and the global variable | ||
156 | .Va errno | ||
157 | is set to indicate the error. | ||
158 | .Sh ERRORS | ||
159 | The | ||
160 | .Fn heapsort | ||
161 | and | ||
162 | .Fn mergesort | ||
163 | functions succeed unless: | ||
164 | .Bl -tag -width Er | ||
165 | .It Bq Er EINVAL | ||
166 | The | ||
167 | .Fa size | ||
168 | argument is zero, or the | ||
169 | .Fa size | ||
170 | argument to | ||
171 | .Fn mergesort | ||
172 | is less than | ||
173 | .Dq "sizeof(void *) / 2" . | ||
174 | .It Bq Er ENOMEM | ||
175 | .Fn heapsort | ||
176 | or | ||
177 | .Fn mergesort | ||
178 | were unable to allocate memory. | ||
179 | .El | ||
180 | .Sh SEE ALSO | ||
181 | .Xr sort 1 , | ||
182 | .Xr radixsort 3 | ||
183 | .Rs | ||
184 | .%A Hoare, C.A.R. | ||
185 | .%D 1962 | ||
186 | .%T "Quicksort" | ||
187 | .%J "The Computer Journal" | ||
188 | .%V 5:1 | ||
189 | .%P pp. 10-15 | ||
190 | .Re | ||
191 | .Rs | ||
192 | .%A Williams, J.W.J | ||
193 | .%D 1964 | ||
194 | .%T "Heapsort" | ||
195 | .%J "Communications of the ACM" | ||
196 | .%V 7:1 | ||
197 | .%P pp. 347\-348 | ||
198 | .Re | ||
199 | .Rs | ||
200 | .%A Knuth, D.E. | ||
201 | .%D 1968 | ||
202 | .%B "The Art of Computer Programming" | ||
203 | .%V Vol. 3 | ||
204 | .%T "Sorting and Searching" | ||
205 | .%P pp. 114\-123, 145\-149 | ||
206 | .Re | ||
207 | .Rs | ||
208 | .%A McIlroy, P.M. | ||
209 | .%T "Optimistic Sorting and Information Theoretic Complexity" | ||
210 | .%J "Fourth Annual ACM-SIAM Symposium on Discrete Algorithms" | ||
211 | .%P pp. 467\-464 | ||
212 | .%D January 1993 | ||
213 | .Re | ||
214 | .Rs | ||
215 | .%A Bentley, J.L. | ||
216 | .%A McIlroy, M.D. | ||
217 | .%T "Engineering a Sort Function" | ||
218 | .%J "Software \- Practice and Experience" | ||
219 | .%V Vol. 23(11) | ||
220 | .%P pp. 1249\-1265 | ||
221 | .%D November 1993 | ||
222 | .Re | ||
223 | .Sh STANDARDS | ||
224 | Previous versions of | ||
225 | .Fn qsort | ||
226 | did not permit the comparison routine itself to call | ||
227 | .Fn qsort . | ||
228 | This is no longer true. | ||
229 | .Pp | ||
230 | The | ||
231 | .Fn qsort | ||
232 | function conforms to | ||
233 | .St -ansiC . | ||
diff --git a/src/lib/libc/stdlib/qsort.c b/src/lib/libc/stdlib/qsort.c new file mode 100644 index 0000000000..f28449fb5b --- /dev/null +++ b/src/lib/libc/stdlib/qsort.c | |||
@@ -0,0 +1,162 @@ | |||
1 | /* $OpenBSD: qsort.c,v 1.11 2010/02/08 11:04:07 otto Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1992, 1993 | ||
4 | * The Regents of the University of California. All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <sys/types.h> | ||
32 | #include <stdlib.h> | ||
33 | |||
34 | static __inline char *med3(char *, char *, char *, int (*)(const void *, const void *)); | ||
35 | static __inline void swapfunc(char *, char *, size_t, int); | ||
36 | |||
37 | #define min(a, b) (a) < (b) ? a : b | ||
38 | |||
39 | /* | ||
40 | * Qsort routine from Bentley & McIlroy's "Engineering a Sort Function". | ||
41 | */ | ||
42 | #define swapcode(TYPE, parmi, parmj, n) { \ | ||
43 | size_t i = (n) / sizeof (TYPE); \ | ||
44 | TYPE *pi = (TYPE *) (parmi); \ | ||
45 | TYPE *pj = (TYPE *) (parmj); \ | ||
46 | do { \ | ||
47 | TYPE t = *pi; \ | ||
48 | *pi++ = *pj; \ | ||
49 | *pj++ = t; \ | ||
50 | } while (--i > 0); \ | ||
51 | } | ||
52 | |||
53 | #define SWAPINIT(a, es) swaptype = ((char *)a - (char *)0) % sizeof(long) || \ | ||
54 | es % sizeof(long) ? 2 : es == sizeof(long)? 0 : 1; | ||
55 | |||
56 | static __inline void | ||
57 | swapfunc(char *a, char *b, size_t n, int swaptype) | ||
58 | { | ||
59 | if (swaptype <= 1) | ||
60 | swapcode(long, a, b, n) | ||
61 | else | ||
62 | swapcode(char, a, b, n) | ||
63 | } | ||
64 | |||
65 | #define swap(a, b) \ | ||
66 | if (swaptype == 0) { \ | ||
67 | long t = *(long *)(a); \ | ||
68 | *(long *)(a) = *(long *)(b); \ | ||
69 | *(long *)(b) = t; \ | ||
70 | } else \ | ||
71 | swapfunc(a, b, es, swaptype) | ||
72 | |||
73 | #define vecswap(a, b, n) if ((n) > 0) swapfunc(a, b, n, swaptype) | ||
74 | |||
75 | static __inline char * | ||
76 | med3(char *a, char *b, char *c, int (*cmp)(const void *, const void *)) | ||
77 | { | ||
78 | return cmp(a, b) < 0 ? | ||
79 | (cmp(b, c) < 0 ? b : (cmp(a, c) < 0 ? c : a )) | ||
80 | :(cmp(b, c) > 0 ? b : (cmp(a, c) < 0 ? a : c )); | ||
81 | } | ||
82 | |||
83 | void | ||
84 | qsort(void *aa, size_t n, size_t es, int (*cmp)(const void *, const void *)) | ||
85 | { | ||
86 | char *pa, *pb, *pc, *pd, *pl, *pm, *pn; | ||
87 | int cmp_result, swaptype, swap_cnt; | ||
88 | size_t d, r; | ||
89 | char *a = aa; | ||
90 | |||
91 | loop: SWAPINIT(a, es); | ||
92 | swap_cnt = 0; | ||
93 | if (n < 7) { | ||
94 | for (pm = (char *)a + es; pm < (char *) a + n * es; pm += es) | ||
95 | for (pl = pm; pl > (char *) a && cmp(pl - es, pl) > 0; | ||
96 | pl -= es) | ||
97 | swap(pl, pl - es); | ||
98 | return; | ||
99 | } | ||
100 | pm = (char *)a + (n / 2) * es; | ||
101 | if (n > 7) { | ||
102 | pl = (char *)a; | ||
103 | pn = (char *)a + (n - 1) * es; | ||
104 | if (n > 40) { | ||
105 | d = (n / 8) * es; | ||
106 | pl = med3(pl, pl + d, pl + 2 * d, cmp); | ||
107 | pm = med3(pm - d, pm, pm + d, cmp); | ||
108 | pn = med3(pn - 2 * d, pn - d, pn, cmp); | ||
109 | } | ||
110 | pm = med3(pl, pm, pn, cmp); | ||
111 | } | ||
112 | swap(a, pm); | ||
113 | pa = pb = (char *)a + es; | ||
114 | |||
115 | pc = pd = (char *)a + (n - 1) * es; | ||
116 | for (;;) { | ||
117 | while (pb <= pc && (cmp_result = cmp(pb, a)) <= 0) { | ||
118 | if (cmp_result == 0) { | ||
119 | swap_cnt = 1; | ||
120 | swap(pa, pb); | ||
121 | pa += es; | ||
122 | } | ||
123 | pb += es; | ||
124 | } | ||
125 | while (pb <= pc && (cmp_result = cmp(pc, a)) >= 0) { | ||
126 | if (cmp_result == 0) { | ||
127 | swap_cnt = 1; | ||
128 | swap(pc, pd); | ||
129 | pd -= es; | ||
130 | } | ||
131 | pc -= es; | ||
132 | } | ||
133 | if (pb > pc) | ||
134 | break; | ||
135 | swap(pb, pc); | ||
136 | swap_cnt = 1; | ||
137 | pb += es; | ||
138 | pc -= es; | ||
139 | } | ||
140 | if (swap_cnt == 0) { /* Switch to insertion sort */ | ||
141 | for (pm = (char *) a + es; pm < (char *) a + n * es; pm += es) | ||
142 | for (pl = pm; pl > (char *) a && cmp(pl - es, pl) > 0; | ||
143 | pl -= es) | ||
144 | swap(pl, pl - es); | ||
145 | return; | ||
146 | } | ||
147 | |||
148 | pn = (char *)a + n * es; | ||
149 | r = min(pa - (char *)a, pb - pa); | ||
150 | vecswap(a, pb - r, r); | ||
151 | r = min(pd - pc, pn - pd - es); | ||
152 | vecswap(pb, pn - r, r); | ||
153 | if ((r = pb - pa) > es) | ||
154 | qsort(a, r / es, es, cmp); | ||
155 | if ((r = pd - pc) > es) { | ||
156 | /* Iterate rather than recurse to save stack space */ | ||
157 | a = pn - r; | ||
158 | n = r / es; | ||
159 | goto loop; | ||
160 | } | ||
161 | /* qsort(pn - r, r / es, es, cmp);*/ | ||
162 | } | ||
diff --git a/src/lib/libc/stdlib/radixsort.3 b/src/lib/libc/stdlib/radixsort.3 new file mode 100644 index 0000000000..b90a557718 --- /dev/null +++ b/src/lib/libc/stdlib/radixsort.3 | |||
@@ -0,0 +1,155 @@ | |||
1 | .\" Copyright (c) 1990, 1991, 1993 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" Redistribution and use in source and binary forms, with or without | ||
5 | .\" modification, are permitted provided that the following conditions | ||
6 | .\" are met: | ||
7 | .\" 1. Redistributions of source code must retain the above copyright | ||
8 | .\" notice, this list of conditions and the following disclaimer. | ||
9 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer in the | ||
11 | .\" documentation and/or other materials provided with the distribution. | ||
12 | .\" 3. Neither the name of the University nor the names of its contributors | ||
13 | .\" may be used to endorse or promote products derived from this software | ||
14 | .\" without specific prior written permission. | ||
15 | .\" | ||
16 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
17 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
18 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
19 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
20 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
21 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
22 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
23 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
24 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
25 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
26 | .\" SUCH DAMAGE. | ||
27 | .\" | ||
28 | .\" $OpenBSD: radixsort.3,v 1.11 2007/05/31 19:19:31 jmc Exp $ | ||
29 | .\" | ||
30 | .Dd $Mdocdate: May 31 2007 $ | ||
31 | .Dt RADIXSORT 3 | ||
32 | .Os | ||
33 | .Sh NAME | ||
34 | .Nm radixsort , | ||
35 | .Nm sradixsort | ||
36 | .Nd radix sort | ||
37 | .Sh SYNOPSIS | ||
38 | .Fd #include <limits.h> | ||
39 | .Fd #include <stdlib.h> | ||
40 | .Ft int | ||
41 | .Fn radixsort "const u_char **base" "int nmemb" "const u_char *table" "u_int endbyte" | ||
42 | .Ft int | ||
43 | .Fn sradixsort "const u_char **base" "int nmemb" "const u_char *table" "u_int endbyte" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn radixsort | ||
47 | and | ||
48 | .Fn sradixsort | ||
49 | functions are implementations of radix sort. | ||
50 | .Pp | ||
51 | These functions sort an array of | ||
52 | .Fa nmemb | ||
53 | pointers to byte strings. | ||
54 | The initial member is referenced by | ||
55 | .Fa base . | ||
56 | The byte strings may contain any values; the end of each string | ||
57 | is denoted by the user-specified value | ||
58 | .Fa endbyte . | ||
59 | .Pp | ||
60 | Applications may specify a sort order by providing the | ||
61 | .Fa table | ||
62 | argument. | ||
63 | If non-null, | ||
64 | .Fa table | ||
65 | must reference an array of | ||
66 | .Dv UCHAR_MAX | ||
67 | + 1 bytes which contains the sort weight of each possible byte value. | ||
68 | The end-of-string byte must have a sort weight of 0 or 255 | ||
69 | (for sorting in reverse order). | ||
70 | More than one byte may have the same sort weight. | ||
71 | The | ||
72 | .Fa table | ||
73 | argument is useful for applications which wish to sort different characters | ||
74 | equally; for example, providing a table with the same weights | ||
75 | for A\-Z as for a\-z will result in a case-insensitive sort. | ||
76 | If | ||
77 | .Fa table | ||
78 | is | ||
79 | .Dv NULL , | ||
80 | the contents of the array are sorted in ascending order according to the | ||
81 | .Tn ASCII | ||
82 | order of the byte strings they reference and | ||
83 | .Fa endbyte | ||
84 | has a sorting weight of 0. | ||
85 | .Pp | ||
86 | The | ||
87 | .Fn sradixsort | ||
88 | function is stable; that is, if two elements compare as equal, their | ||
89 | order in the sorted array is unchanged. | ||
90 | The | ||
91 | .Fn sradixsort | ||
92 | function uses additional memory sufficient to hold | ||
93 | .Fa nmemb | ||
94 | pointers. | ||
95 | .Pp | ||
96 | The | ||
97 | .Fn radixsort | ||
98 | function is not stable, but uses no additional memory. | ||
99 | .Pp | ||
100 | These functions are variants of most-significant-byte radix sorting; in | ||
101 | particular, see D.E. Knuth's Algorithm R and section 5.2.5, exercise 10. | ||
102 | They take linear time relative to the number of bytes in the strings. | ||
103 | .Sh RETURN VALUES | ||
104 | Upon successful completion 0 is returned. | ||
105 | Otherwise, \-1 is returned and the global variable | ||
106 | .Va errno | ||
107 | is set to indicate the error. | ||
108 | .Sh ERRORS | ||
109 | .Bl -tag -width Er | ||
110 | .It Bq Er EINVAL | ||
111 | The value of the | ||
112 | .Fa endbyte | ||
113 | element of | ||
114 | .Fa table | ||
115 | is not 0 or 255. | ||
116 | .El | ||
117 | .Pp | ||
118 | Additionally, the | ||
119 | .Fn sradixsort | ||
120 | function may fail and set | ||
121 | .Va errno | ||
122 | for any of the errors specified for the library routine | ||
123 | .Xr malloc 3 . | ||
124 | .Sh SEE ALSO | ||
125 | .Xr sort 1 , | ||
126 | .Xr qsort 3 | ||
127 | .Rs | ||
128 | .%A Knuth, D.E. | ||
129 | .%D 1968 | ||
130 | .%B "The Art of Computer Programming" | ||
131 | .%T "Sorting and Searching" | ||
132 | .%V Vol. 3 | ||
133 | .%P pp. 170-178 | ||
134 | .Re | ||
135 | .Rs | ||
136 | .%A Paige, R. | ||
137 | .%D 1987 | ||
138 | .%T "Three Partition Refinement Algorithms" | ||
139 | .%J "SIAM J. Comput." | ||
140 | .%V Vol. 16 | ||
141 | .%N No. 6 | ||
142 | .Re | ||
143 | .Rs | ||
144 | .%A McIlroy, P. | ||
145 | .%D 1993 | ||
146 | .%B "Engineering Radix Sort" | ||
147 | .%T "Computing Systems" | ||
148 | .%V Vol. 6:1 | ||
149 | .%P pp. 5-27 | ||
150 | .Re | ||
151 | .Sh HISTORY | ||
152 | The | ||
153 | .Fn radixsort | ||
154 | function first appeared in | ||
155 | .Bx 4.4 . | ||
diff --git a/src/lib/libc/stdlib/radixsort.c b/src/lib/libc/stdlib/radixsort.c new file mode 100644 index 0000000000..49d03b52d5 --- /dev/null +++ b/src/lib/libc/stdlib/radixsort.c | |||
@@ -0,0 +1,294 @@ | |||
1 | /* $OpenBSD: radixsort.c,v 1.9 2007/09/02 15:19:17 deraadt Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1990, 1993 | ||
4 | * The Regents of the University of California. All rights reserved. | ||
5 | * | ||
6 | * This code is derived from software contributed to Berkeley by | ||
7 | * Peter McIlroy and by Dan Bernstein at New York University, | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * 2. Redistributions in binary form must reproduce the above copyright | ||
15 | * notice, this list of conditions and the following disclaimer in the | ||
16 | * documentation and/or other materials provided with the distribution. | ||
17 | * 3. 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 | |||
34 | /* | ||
35 | * Radixsort routines. | ||
36 | * | ||
37 | * Program r_sort_a() is unstable but uses O(logN) extra memory for a stack. | ||
38 | * Use radixsort(a, n, trace, endchar) for this case. | ||
39 | * | ||
40 | * For stable sorting (using N extra pointers) use sradixsort(), which calls | ||
41 | * r_sort_b(). | ||
42 | * | ||
43 | * For a description of this code, see D. McIlroy, P. McIlroy, K. Bostic, | ||
44 | * "Engineering Radix Sort". | ||
45 | */ | ||
46 | |||
47 | #include <sys/types.h> | ||
48 | #include <stdlib.h> | ||
49 | #include <errno.h> | ||
50 | |||
51 | typedef struct { | ||
52 | const u_char **sa; | ||
53 | int sn, si; | ||
54 | } stack; | ||
55 | |||
56 | static __inline void simplesort | ||
57 | (const u_char **, int, int, const u_char *, u_int); | ||
58 | static void r_sort_a(const u_char **, int, int, const u_char *, u_int); | ||
59 | static void r_sort_b(const u_char **, | ||
60 | const u_char **, int, int, const u_char *, u_int); | ||
61 | |||
62 | #define THRESHOLD 20 /* Divert to simplesort(). */ | ||
63 | #define SIZE 512 /* Default stack size. */ | ||
64 | |||
65 | #define SETUP { \ | ||
66 | if (tab == NULL) { \ | ||
67 | tr = tr0; \ | ||
68 | for (c = 0; c < endch; c++) \ | ||
69 | tr0[c] = c + 1; \ | ||
70 | tr0[c] = 0; \ | ||
71 | for (c++; c < 256; c++) \ | ||
72 | tr0[c] = c; \ | ||
73 | endch = 0; \ | ||
74 | } else { \ | ||
75 | endch = tab[endch]; \ | ||
76 | tr = tab; \ | ||
77 | if (endch != 0 && endch != 255) { \ | ||
78 | errno = EINVAL; \ | ||
79 | return (-1); \ | ||
80 | } \ | ||
81 | } \ | ||
82 | } | ||
83 | |||
84 | int | ||
85 | radixsort(const u_char **a, int n, const u_char *tab, u_int endch) | ||
86 | { | ||
87 | const u_char *tr; | ||
88 | int c; | ||
89 | u_char tr0[256]; | ||
90 | |||
91 | SETUP; | ||
92 | r_sort_a(a, n, 0, tr, endch); | ||
93 | return (0); | ||
94 | } | ||
95 | |||
96 | int | ||
97 | sradixsort(const u_char **a, int n, const u_char *tab, u_int endch) | ||
98 | { | ||
99 | const u_char *tr, **ta; | ||
100 | int c; | ||
101 | u_char tr0[256]; | ||
102 | |||
103 | SETUP; | ||
104 | if (n < THRESHOLD) | ||
105 | simplesort(a, n, 0, tr, endch); | ||
106 | else { | ||
107 | if ((ta = calloc(n, sizeof(a))) == NULL) | ||
108 | return (-1); | ||
109 | r_sort_b(a, ta, n, 0, tr, endch); | ||
110 | free(ta); | ||
111 | } | ||
112 | return (0); | ||
113 | } | ||
114 | |||
115 | #define empty(s) (s >= sp) | ||
116 | #define pop(a, n, i) a = (--sp)->sa, n = sp->sn, i = sp->si | ||
117 | #define push(a, n, i) sp->sa = a, sp->sn = n, (sp++)->si = i | ||
118 | #define swap(a, b, t) t = a, a = b, b = t | ||
119 | |||
120 | /* Unstable, in-place sort. */ | ||
121 | void | ||
122 | r_sort_a(const u_char **a, int n, int i, const u_char *tr, u_int endch) | ||
123 | { | ||
124 | static int count[256], nc, bmin; | ||
125 | int c; | ||
126 | const u_char **ak, *r; | ||
127 | stack s[SIZE], *sp, *sp0, *sp1, temp; | ||
128 | int *cp, bigc; | ||
129 | const u_char **an, *t, **aj, **top[256]; | ||
130 | |||
131 | /* Set up stack. */ | ||
132 | sp = s; | ||
133 | push(a, n, i); | ||
134 | while (!empty(s)) { | ||
135 | pop(a, n, i); | ||
136 | if (n < THRESHOLD) { | ||
137 | simplesort(a, n, i, tr, endch); | ||
138 | continue; | ||
139 | } | ||
140 | an = a + n; | ||
141 | |||
142 | /* Make character histogram. */ | ||
143 | if (nc == 0) { | ||
144 | bmin = 255; /* First occupied bin, excluding eos. */ | ||
145 | for (ak = a; ak < an;) { | ||
146 | c = tr[(*ak++)[i]]; | ||
147 | if (++count[c] == 1 && c != endch) { | ||
148 | if (c < bmin) | ||
149 | bmin = c; | ||
150 | nc++; | ||
151 | } | ||
152 | } | ||
153 | if (sp + nc > s + SIZE) { /* Get more stack. */ | ||
154 | r_sort_a(a, n, i, tr, endch); | ||
155 | continue; | ||
156 | } | ||
157 | } | ||
158 | |||
159 | /* | ||
160 | * Set top[]; push incompletely sorted bins onto stack. | ||
161 | * top[] = pointers to last out-of-place element in bins. | ||
162 | * count[] = counts of elements in bins. | ||
163 | * Before permuting: top[c-1] + count[c] = top[c]; | ||
164 | * during deal: top[c] counts down to top[c-1]. | ||
165 | */ | ||
166 | sp0 = sp1 = sp; /* Stack position of biggest bin. */ | ||
167 | bigc = 2; /* Size of biggest bin. */ | ||
168 | if (endch == 0) /* Special case: set top[eos]. */ | ||
169 | top[0] = ak = a + count[0]; | ||
170 | else { | ||
171 | ak = a; | ||
172 | top[255] = an; | ||
173 | } | ||
174 | for (cp = count + bmin; nc > 0; cp++) { | ||
175 | while (*cp == 0) /* Find next non-empty pile. */ | ||
176 | cp++; | ||
177 | if (*cp > 1) { | ||
178 | if (*cp > bigc) { | ||
179 | bigc = *cp; | ||
180 | sp1 = sp; | ||
181 | } | ||
182 | push(ak, *cp, i+1); | ||
183 | } | ||
184 | top[cp-count] = ak += *cp; | ||
185 | nc--; | ||
186 | } | ||
187 | swap(*sp0, *sp1, temp); /* Play it safe -- biggest bin last. */ | ||
188 | |||
189 | /* | ||
190 | * Permute misplacements home. Already home: everything | ||
191 | * before aj, and in bin[c], items from top[c] on. | ||
192 | * Inner loop: | ||
193 | * r = next element to put in place; | ||
194 | * ak = top[r[i]] = location to put the next element. | ||
195 | * aj = bottom of 1st disordered bin. | ||
196 | * Outer loop: | ||
197 | * Once the 1st disordered bin is done, ie. aj >= ak, | ||
198 | * aj<-aj + count[c] connects the bins in a linked list; | ||
199 | * reset count[c]. | ||
200 | */ | ||
201 | for (aj = a; aj < an; *aj = r, aj += count[c], count[c] = 0) | ||
202 | for (r = *aj; aj < (ak = --top[c = tr[r[i]]]);) | ||
203 | swap(*ak, r, t); | ||
204 | } | ||
205 | } | ||
206 | |||
207 | /* Stable sort, requiring additional memory. */ | ||
208 | void | ||
209 | r_sort_b(const u_char **a, const u_char **ta, int n, int i, const u_char *tr, | ||
210 | u_int endch) | ||
211 | { | ||
212 | static int count[256], nc, bmin; | ||
213 | int c; | ||
214 | const u_char **ak, **ai; | ||
215 | stack s[512], *sp, *sp0, *sp1, temp; | ||
216 | const u_char **top[256]; | ||
217 | int *cp, bigc; | ||
218 | |||
219 | sp = s; | ||
220 | push(a, n, i); | ||
221 | while (!empty(s)) { | ||
222 | pop(a, n, i); | ||
223 | if (n < THRESHOLD) { | ||
224 | simplesort(a, n, i, tr, endch); | ||
225 | continue; | ||
226 | } | ||
227 | |||
228 | if (nc == 0) { | ||
229 | bmin = 255; | ||
230 | for (ak = a + n; --ak >= a;) { | ||
231 | c = tr[(*ak)[i]]; | ||
232 | if (++count[c] == 1 && c != endch) { | ||
233 | if (c < bmin) | ||
234 | bmin = c; | ||
235 | nc++; | ||
236 | } | ||
237 | } | ||
238 | if (sp + nc > s + SIZE) { | ||
239 | r_sort_b(a, ta, n, i, tr, endch); | ||
240 | continue; | ||
241 | } | ||
242 | } | ||
243 | |||
244 | sp0 = sp1 = sp; | ||
245 | bigc = 2; | ||
246 | if (endch == 0) { | ||
247 | top[0] = ak = a + count[0]; | ||
248 | count[0] = 0; | ||
249 | } else { | ||
250 | ak = a; | ||
251 | top[255] = a + n; | ||
252 | count[255] = 0; | ||
253 | } | ||
254 | for (cp = count + bmin; nc > 0; cp++) { | ||
255 | while (*cp == 0) | ||
256 | cp++; | ||
257 | if ((c = *cp) > 1) { | ||
258 | if (c > bigc) { | ||
259 | bigc = c; | ||
260 | sp1 = sp; | ||
261 | } | ||
262 | push(ak, c, i+1); | ||
263 | } | ||
264 | top[cp-count] = ak += c; | ||
265 | *cp = 0; /* Reset count[]. */ | ||
266 | nc--; | ||
267 | } | ||
268 | swap(*sp0, *sp1, temp); | ||
269 | |||
270 | for (ak = ta + n, ai = a+n; ak > ta;) /* Copy to temp. */ | ||
271 | *--ak = *--ai; | ||
272 | for (ak = ta+n; --ak >= ta;) /* Deal to piles. */ | ||
273 | *--top[tr[(*ak)[i]]] = *ak; | ||
274 | } | ||
275 | } | ||
276 | |||
277 | static __inline void | ||
278 | simplesort(const u_char **a, int n, int b, const u_char *tr, u_int endch) | ||
279 | /* insertion sort */ | ||
280 | { | ||
281 | u_char ch; | ||
282 | const u_char **ak, **ai, *s, *t; | ||
283 | |||
284 | for (ak = a+1; --n >= 1; ak++) | ||
285 | for (ai = ak; ai > a; ai--) { | ||
286 | for (s = ai[0] + b, t = ai[-1] + b; | ||
287 | (ch = tr[*s]) != endch; s++, t++) | ||
288 | if (ch != tr[*t]) | ||
289 | break; | ||
290 | if (ch >= tr[*t]) | ||
291 | break; | ||
292 | swap(ai[0], ai[-1], s); | ||
293 | } | ||
294 | } | ||
diff --git a/src/lib/libc/stdlib/rand.3 b/src/lib/libc/stdlib/rand.3 new file mode 100644 index 0000000000..df4feaacdb --- /dev/null +++ b/src/lib/libc/stdlib/rand.3 | |||
@@ -0,0 +1,98 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: rand.3,v 1.10 2007/05/31 19:19:31 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: May 31 2007 $ | ||
35 | .Dt RAND 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm rand , | ||
39 | .Nm srand | ||
40 | .Nd bad random number generator | ||
41 | .Sh SYNOPSIS | ||
42 | .Fd #include <stdlib.h> | ||
43 | .Ft void | ||
44 | .Fn srand "unsigned int seed" | ||
45 | .Ft int | ||
46 | .Fn rand void | ||
47 | .Ft int | ||
48 | .Fn rand_r "unsigned int *seed" | ||
49 | .Sh DESCRIPTION | ||
50 | .Bf -symbolic | ||
51 | These interfaces are obsoleted by | ||
52 | .Xr random 3 . | ||
53 | .Ef | ||
54 | .Pp | ||
55 | The | ||
56 | .Fn rand | ||
57 | function computes a sequence of pseudo-random integers in the range | ||
58 | of 0 to | ||
59 | .Dv RAND_MAX | ||
60 | (as defined by the header file | ||
61 | .Aq Pa stdlib.h ) . | ||
62 | .Pp | ||
63 | The | ||
64 | .Fn srand | ||
65 | function sets its argument as the seed for a new sequence of | ||
66 | pseudo-random numbers to be returned by | ||
67 | .Fn rand . | ||
68 | These sequences are repeatable by calling | ||
69 | .Fn srand | ||
70 | with the same seed value. | ||
71 | .Pp | ||
72 | If no seed value is provided, the functions are automatically | ||
73 | seeded with a value of 1. | ||
74 | .Pp | ||
75 | The | ||
76 | .Fn rand_r | ||
77 | is a thread-safe version of | ||
78 | .Fn rand . | ||
79 | Storage for the seed must be provided through the | ||
80 | .Fa seed | ||
81 | argument, and needs to have been initialized by the caller. | ||
82 | .Sh SEE ALSO | ||
83 | .Xr arc4random 3 , | ||
84 | .Xr rand48 3 , | ||
85 | .Xr random 3 | ||
86 | .Sh STANDARDS | ||
87 | The | ||
88 | .Fn rand | ||
89 | and | ||
90 | .Fn srand | ||
91 | functions conform to | ||
92 | .St -ansiC . | ||
93 | .Pp | ||
94 | The | ||
95 | .Fn rand_r | ||
96 | function conforms to ISO/IEC 9945-1 ANSI/IEEE | ||
97 | .Pq Dq Tn POSIX | ||
98 | Std 1003.1c Draft 10. | ||
diff --git a/src/lib/libc/stdlib/rand.c b/src/lib/libc/stdlib/rand.c new file mode 100644 index 0000000000..0f9c100807 --- /dev/null +++ b/src/lib/libc/stdlib/rand.c | |||
@@ -0,0 +1,52 @@ | |||
1 | /*- | ||
2 | * Copyright (c) 1990 The Regents of the University of California. | ||
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 | * 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. Neither the name of the University nor the names of its contributors | ||
14 | * may be used to endorse or promote products derived from this software | ||
15 | * without specific prior written permission. | ||
16 | * | ||
17 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
18 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
19 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
20 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
21 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
22 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
23 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
24 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
25 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
26 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
27 | * SUCH DAMAGE. | ||
28 | */ | ||
29 | |||
30 | #include <sys/types.h> | ||
31 | #include <stdlib.h> | ||
32 | |||
33 | static u_int next = 1; | ||
34 | |||
35 | int | ||
36 | rand_r(u_int *seed) | ||
37 | { | ||
38 | *seed = *seed * 1103515245 + 12345; | ||
39 | return (*seed % ((u_int)RAND_MAX + 1)); | ||
40 | } | ||
41 | |||
42 | int | ||
43 | rand(void) | ||
44 | { | ||
45 | return (rand_r(&next)); | ||
46 | } | ||
47 | |||
48 | void | ||
49 | srand(u_int seed) | ||
50 | { | ||
51 | next = seed; | ||
52 | } | ||
diff --git a/src/lib/libc/stdlib/rand48.3 b/src/lib/libc/stdlib/rand48.3 new file mode 100644 index 0000000000..0e8ca5389b --- /dev/null +++ b/src/lib/libc/stdlib/rand48.3 | |||
@@ -0,0 +1,165 @@ | |||
1 | .\" Copyright (c) 1993 Martin Birgmeier | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" You may redistribute unmodified or modified versions of this source | ||
5 | .\" code provided that the above copyright notice and this and the | ||
6 | .\" following conditions are retained. | ||
7 | .\" | ||
8 | .\" This software is provided ``as is'', and comes with no warranties | ||
9 | .\" of any kind. I shall in no event be liable for anything that happens | ||
10 | .\" to anyone/anything when using this software. | ||
11 | .\" | ||
12 | .\" $OpenBSD: rand48.3,v 1.11 2007/05/31 19:19:31 jmc Exp $ | ||
13 | .\" | ||
14 | .Dd $Mdocdate: May 31 2007 $ | ||
15 | .Dt RAND48 3 | ||
16 | .Os | ||
17 | .Sh NAME | ||
18 | .Nm drand48 , | ||
19 | .Nm erand48 , | ||
20 | .Nm lrand48 , | ||
21 | .Nm nrand48 , | ||
22 | .Nm mrand48 , | ||
23 | .Nm jrand48 , | ||
24 | .Nm srand48 , | ||
25 | .Nm seed48 , | ||
26 | .Nm lcong48 | ||
27 | .Nd pseudo-random number generators and initialization routines | ||
28 | .Sh SYNOPSIS | ||
29 | .Fd #include <stdlib.h> | ||
30 | .Ft double | ||
31 | .Fn drand48 void | ||
32 | .Ft double | ||
33 | .Fn erand48 "unsigned short xseed[3]" | ||
34 | .Ft long | ||
35 | .Fn lrand48 void | ||
36 | .Ft long | ||
37 | .Fn nrand48 "unsigned short xseed[3]" | ||
38 | .Ft long | ||
39 | .Fn mrand48 void | ||
40 | .Ft long | ||
41 | .Fn jrand48 "unsigned short xseed[3]" | ||
42 | .Ft void | ||
43 | .Fn srand48 "long seed" | ||
44 | .Ft "unsigned short *" | ||
45 | .Fn seed48 "unsigned short xseed[3]" | ||
46 | .Ft void | ||
47 | .Fn lcong48 "unsigned short p[7]" | ||
48 | .Sh DESCRIPTION | ||
49 | The | ||
50 | .Fn rand48 | ||
51 | family of functions generates pseudo-random numbers using a linear | ||
52 | congruential algorithm working on integers 48 bits in size. | ||
53 | The particular formula employed is | ||
54 | r(n+1) = (a * r(n) + c) mod m | ||
55 | where the default values are | ||
56 | for the multiplicand a = 0xfdeece66d = 25214903917 and | ||
57 | the addend c = 0xb = 11. | ||
58 | The modulus is always fixed at m = 2 ** 48. | ||
59 | r(n) is called the seed of the random number generator. | ||
60 | .Pp | ||
61 | For all the six generator routines described next, the first | ||
62 | computational step is to perform a single iteration of the algorithm. | ||
63 | .Pp | ||
64 | .Fn drand48 | ||
65 | and | ||
66 | .Fn erand48 | ||
67 | return values of type double. | ||
68 | The full 48 bits of r(n+1) are | ||
69 | loaded into the mantissa of the returned value, with the exponent set | ||
70 | such that the values produced lie in the interval [0.0, 1.0]. | ||
71 | .Pp | ||
72 | .Fn lrand48 | ||
73 | and | ||
74 | .Fn nrand48 | ||
75 | return values of type long in the range | ||
76 | [0, 2**31-1]. | ||
77 | The high-order (31) bits of | ||
78 | r(n+1) are loaded into the lower bits of the returned value, with | ||
79 | the topmost (sign) bit set to zero. | ||
80 | .Pp | ||
81 | .Fn mrand48 | ||
82 | and | ||
83 | .Fn jrand48 | ||
84 | return values of type long in the range | ||
85 | [-2**31, 2**31-1]. | ||
86 | The high-order (32) bits of r(n+1) are loaded into the returned value. | ||
87 | .Pp | ||
88 | .Fn drand48 , | ||
89 | .Fn lrand48 , | ||
90 | and | ||
91 | .Fn mrand48 | ||
92 | use an internal buffer to store r(n). | ||
93 | For these functions | ||
94 | the initial value of r(0) = 0x1234abcd330e = 20017429951246. | ||
95 | .Pp | ||
96 | On the other hand, | ||
97 | .Fn erand48 , | ||
98 | .Fn nrand48 , | ||
99 | and | ||
100 | .Fn jrand48 | ||
101 | use a user-supplied buffer to store the seed r(n), | ||
102 | which consists of an array of 3 shorts, where the zeroth member | ||
103 | holds the least significant bits. | ||
104 | .Pp | ||
105 | All functions share the same multiplicand and addend. | ||
106 | .Pp | ||
107 | .Fn srand48 | ||
108 | is used to initialize the internal buffer r(n) of | ||
109 | .Fn drand48 , | ||
110 | .Fn lrand48 , | ||
111 | and | ||
112 | .Fn mrand48 | ||
113 | such that the 32 bits of the seed value are copied into the upper 32 bits | ||
114 | of r(n), with the lower 16 bits of r(n) arbitrarily being set to 0x330e. | ||
115 | Additionally, the constant multiplicand and addend of the algorithm are | ||
116 | reset to the default values given above. | ||
117 | .Pp | ||
118 | .Fn seed48 | ||
119 | also initializes the internal buffer r(n) of | ||
120 | .Fn drand48 , | ||
121 | .Fn lrand48 , | ||
122 | and | ||
123 | .Fn mrand48 , | ||
124 | but here all 48 bits of the seed can be specified in an array of 3 shorts, | ||
125 | where the zeroth member specifies the lowest bits. | ||
126 | Again, the constant multiplicand and addend of the algorithm are | ||
127 | reset to the default values given above. | ||
128 | .Fn seed48 | ||
129 | returns a pointer to an array of 3 shorts which contains the old seed. | ||
130 | This array is statically allocated, so its contents are lost after | ||
131 | each new call to | ||
132 | .Fn seed48 . | ||
133 | .Pp | ||
134 | Finally, | ||
135 | .Fn lcong48 | ||
136 | allows full control over the multiplicand and addend used in | ||
137 | .Fn drand48 , | ||
138 | .Fn erand48 , | ||
139 | .Fn lrand48 , | ||
140 | .Fn nrand48 , | ||
141 | .Fn mrand48 , | ||
142 | and | ||
143 | .Fn jrand48 , | ||
144 | and the seed used in | ||
145 | .Fn drand48 , | ||
146 | .Fn lrand48 , | ||
147 | and | ||
148 | .Fn mrand48 . | ||
149 | An array of 7 shorts is passed as parameter; the first three shorts are | ||
150 | used to initialize the seed; the second three are used to initialize the | ||
151 | multiplicand; and the last short is used to initialize the addend. | ||
152 | It is thus not possible to use values greater than 0xffff as the addend. | ||
153 | .Pp | ||
154 | Note that all three methods of seeding the random number generator | ||
155 | always also set the multiplicand and addend for any of the six | ||
156 | generator calls. | ||
157 | .Pp | ||
158 | For a more powerful random number generator, see | ||
159 | .Xr random 3 . | ||
160 | .Sh SEE ALSO | ||
161 | .Xr arc4random 3 , | ||
162 | .Xr rand 3 , | ||
163 | .Xr random 3 | ||
164 | .Sh AUTHORS | ||
165 | Martin Birgmeier | ||
diff --git a/src/lib/libc/stdlib/rand48.h b/src/lib/libc/stdlib/rand48.h new file mode 100644 index 0000000000..afa49f65f3 --- /dev/null +++ b/src/lib/libc/stdlib/rand48.h | |||
@@ -0,0 +1,32 @@ | |||
1 | /* | ||
2 | * Copyright (c) 1993 Martin Birgmeier | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * You may redistribute unmodified or modified versions of this source | ||
6 | * code provided that the above copyright notice and this and the | ||
7 | * following conditions are retained. | ||
8 | * | ||
9 | * This software is provided ``as is'', and comes with no warranties | ||
10 | * of any kind. I shall in no event be liable for anything that happens | ||
11 | * to anyone/anything when using this software. | ||
12 | * | ||
13 | * $OpenBSD: rand48.h,v 1.3 2002/02/16 21:27:24 millert Exp $ | ||
14 | */ | ||
15 | |||
16 | #ifndef _RAND48_H_ | ||
17 | #define _RAND48_H_ | ||
18 | |||
19 | #include <math.h> | ||
20 | #include <stdlib.h> | ||
21 | |||
22 | void __dorand48(unsigned short[3]); | ||
23 | |||
24 | #define RAND48_SEED_0 (0x330e) | ||
25 | #define RAND48_SEED_1 (0xabcd) | ||
26 | #define RAND48_SEED_2 (0x1234) | ||
27 | #define RAND48_MULT_0 (0xe66d) | ||
28 | #define RAND48_MULT_1 (0xdeec) | ||
29 | #define RAND48_MULT_2 (0x0005) | ||
30 | #define RAND48_ADD (0x000b) | ||
31 | |||
32 | #endif /* _RAND48_H_ */ | ||
diff --git a/src/lib/libc/stdlib/random.3 b/src/lib/libc/stdlib/random.3 new file mode 100644 index 0000000000..ed05df162b --- /dev/null +++ b/src/lib/libc/stdlib/random.3 | |||
@@ -0,0 +1,185 @@ | |||
1 | .\" Copyright (c) 1983, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" Redistribution and use in source and binary forms, with or without | ||
5 | .\" modification, are permitted provided that the following conditions | ||
6 | .\" are met: | ||
7 | .\" 1. Redistributions of source code must retain the above copyright | ||
8 | .\" notice, this list of conditions and the following disclaimer. | ||
9 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer in the | ||
11 | .\" documentation and/or other materials provided with the distribution. | ||
12 | .\" 3. Neither the name of the University nor the names of its contributors | ||
13 | .\" may be used to endorse or promote products derived from this software | ||
14 | .\" without specific prior written permission. | ||
15 | .\" | ||
16 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
17 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
18 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
19 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
20 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
21 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
22 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
23 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
24 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
25 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
26 | .\" SUCH DAMAGE. | ||
27 | .\" | ||
28 | .\" $OpenBSD: random.3,v 1.19 2007/05/31 19:19:31 jmc Exp $ | ||
29 | .\" | ||
30 | .Dd $Mdocdate: May 31 2007 $ | ||
31 | .Dt RANDOM 3 | ||
32 | .Os | ||
33 | .Sh NAME | ||
34 | .Nm random , | ||
35 | .Nm srandom , | ||
36 | .Nm srandomdev , | ||
37 | .Nm initstate , | ||
38 | .Nm setstate | ||
39 | .Nd better random number generator; routines for changing generators | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft long | ||
43 | .Fn random void | ||
44 | .Ft void | ||
45 | .Fn srandom "unsigned int seed" | ||
46 | .Ft void | ||
47 | .Fn srandomdev void | ||
48 | .Ft char * | ||
49 | .Fn initstate "unsigned int seed" "char *state" "size_t n" | ||
50 | .Ft char * | ||
51 | .Fn setstate "const char *state" | ||
52 | .Sh DESCRIPTION | ||
53 | The | ||
54 | .Fn random | ||
55 | function uses a non-linear additive feedback random number generator employing | ||
56 | a default table of size 31 long integers to return successive pseudo-random | ||
57 | numbers in the range from 0 to (2**31)\-1. | ||
58 | The period of this random number generator is very large, approximately | ||
59 | 16*((2**31)\-1). | ||
60 | .Pp | ||
61 | The | ||
62 | .Fn random | ||
63 | and | ||
64 | .Fn srandom | ||
65 | functions have (almost) the same calling sequence and initialization | ||
66 | properties as | ||
67 | .Xr rand 3 Ns / Ns Xr srand 3 . | ||
68 | The difference is that | ||
69 | .Xr rand | ||
70 | produces a much less random sequence \(em in fact, the low dozen bits | ||
71 | generated by rand go through a cyclic pattern. | ||
72 | All the bits generated by | ||
73 | .Fn random | ||
74 | are usable. | ||
75 | For example, | ||
76 | .Sq Li random()&01 | ||
77 | will produce a random binary | ||
78 | value. | ||
79 | .Pp | ||
80 | Like | ||
81 | .Xr rand 3 , | ||
82 | .Fn random | ||
83 | will by default produce a sequence of numbers that can be duplicated | ||
84 | by calling | ||
85 | .Fn srandom | ||
86 | with | ||
87 | .Ql 1 | ||
88 | as the seed. | ||
89 | .Pp | ||
90 | The | ||
91 | .Fn srandomdev | ||
92 | routine initializes a state array using | ||
93 | random numbers obtained from the kernel, | ||
94 | suitable for cryptographic use. | ||
95 | Note that this particular seeding procedure can generate | ||
96 | states which are impossible to reproduce by calling | ||
97 | .Fn srandom | ||
98 | with any value, since the succeeding terms in the | ||
99 | state buffer are no longer derived from the LC algorithm applied to | ||
100 | a fixed seed. | ||
101 | .Pp | ||
102 | The | ||
103 | .Fn initstate | ||
104 | routine allows a state array, passed in as an argument, to be initialized | ||
105 | for future use. | ||
106 | The size of the state array (in bytes) is used by | ||
107 | .Fn initstate | ||
108 | to decide how sophisticated a random number generator it should use \(em the | ||
109 | more state, the better the random numbers will be. | ||
110 | (Current "optimal" values for the amount of state information are | ||
111 | 8, 32, 64, 128, and 256 bytes; other amounts will be rounded down to | ||
112 | the nearest known amount. | ||
113 | Using less than 8 bytes will cause an error.) | ||
114 | The seed for the initialization (which specifies a starting point for | ||
115 | the random number sequence, and provides for restarting at the same | ||
116 | point) is also an argument. | ||
117 | The | ||
118 | .Fn initstate | ||
119 | function returns a pointer to the previous state information array. | ||
120 | .Pp | ||
121 | Once a state has been initialized, the | ||
122 | .Fn setstate | ||
123 | routine provides for rapid switching between states. | ||
124 | The | ||
125 | .Fn setstate | ||
126 | function returns a pointer to the previous state array; its | ||
127 | argument state array is used for further random number generation | ||
128 | until the next call to | ||
129 | .Fn initstate | ||
130 | or | ||
131 | .Fn setstate . | ||
132 | .Pp | ||
133 | Once a state array has been initialized, it may be restarted at a | ||
134 | different point either by calling | ||
135 | .Fn initstate | ||
136 | (with the desired seed, the state array, and its size) or by calling | ||
137 | both | ||
138 | .Fn setstate | ||
139 | (with the state array) and | ||
140 | .Fn srandom | ||
141 | (with the desired seed). | ||
142 | The advantage of calling both | ||
143 | .Fn setstate | ||
144 | and | ||
145 | .Fn srandom | ||
146 | is that the size of the state array does not have to be remembered after | ||
147 | it is initialized. | ||
148 | .Pp | ||
149 | With 256 bytes of state information, the period of the random number | ||
150 | generator is greater than 2**69 | ||
151 | which should be sufficient for most purposes. | ||
152 | .Sh DIAGNOSTICS | ||
153 | If | ||
154 | .Fn initstate | ||
155 | is called with less than 8 bytes of state information, or if | ||
156 | .Fn setstate | ||
157 | detects that the state information has been garbled, error | ||
158 | messages are printed on the standard error output. | ||
159 | .Sh SEE ALSO | ||
160 | .Xr arc4random 3 , | ||
161 | .Xr drand48 3 , | ||
162 | .Xr rand 3 , | ||
163 | .Xr random 4 | ||
164 | .Sh STANDARDS | ||
165 | The | ||
166 | .Fn random , | ||
167 | .Fn srandom , | ||
168 | .Fn initstate , | ||
169 | and | ||
170 | .Fn setstate | ||
171 | functions conform to | ||
172 | .St -xpg4.2 . | ||
173 | .Pp | ||
174 | The | ||
175 | .Fn srandomdev | ||
176 | function is an extension. | ||
177 | .Sh HISTORY | ||
178 | These | ||
179 | functions appeared in | ||
180 | .Bx 4.2 . | ||
181 | .Sh AUTHORS | ||
182 | .An Earl T. Cohen | ||
183 | .Sh BUGS | ||
184 | About 2/3 the speed of | ||
185 | .Xr rand 3 . | ||
diff --git a/src/lib/libc/stdlib/random.c b/src/lib/libc/stdlib/random.c new file mode 100644 index 0000000000..48e892042b --- /dev/null +++ b/src/lib/libc/stdlib/random.c | |||
@@ -0,0 +1,395 @@ | |||
1 | /* $OpenBSD: random.c,v 1.15 2005/11/30 07:51:02 otto Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1983 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <sys/param.h> | ||
32 | #include <sys/sysctl.h> | ||
33 | #include <sys/time.h> | ||
34 | #include <fcntl.h> | ||
35 | #include <stdio.h> | ||
36 | #include <stdlib.h> | ||
37 | #include <unistd.h> | ||
38 | |||
39 | /* | ||
40 | * random.c: | ||
41 | * | ||
42 | * An improved random number generation package. In addition to the standard | ||
43 | * rand()/srand() like interface, this package also has a special state info | ||
44 | * interface. The initstate() routine is called with a seed, an array of | ||
45 | * bytes, and a count of how many bytes are being passed in; this array is | ||
46 | * then initialized to contain information for random number generation with | ||
47 | * that much state information. Good sizes for the amount of state | ||
48 | * information are 32, 64, 128, and 256 bytes. The state can be switched by | ||
49 | * calling the setstate() routine with the same array as was initiallized | ||
50 | * with initstate(). By default, the package runs with 128 bytes of state | ||
51 | * information and generates far better random numbers than a linear | ||
52 | * congruential generator. If the amount of state information is less than | ||
53 | * 32 bytes, a simple linear congruential R.N.G. is used. | ||
54 | * | ||
55 | * Internally, the state information is treated as an array of int32_t; the | ||
56 | * zeroeth element of the array is the type of R.N.G. being used (small | ||
57 | * integer); the remainder of the array is the state information for the | ||
58 | * R.N.G. Thus, 32 bytes of state information will give 7 int32_ts worth of | ||
59 | * state information, which will allow a degree seven polynomial. (Note: | ||
60 | * the zeroeth word of state information also has some other information | ||
61 | * stored in it -- see setstate() for details). | ||
62 | * | ||
63 | * The random number generation technique is a linear feedback shift register | ||
64 | * approach, employing trinomials (since there are fewer terms to sum up that | ||
65 | * way). In this approach, the least significant bit of all the numbers in | ||
66 | * the state table will act as a linear feedback shift register, and will | ||
67 | * have period 2^deg - 1 (where deg is the degree of the polynomial being | ||
68 | * used, assuming that the polynomial is irreducible and primitive). The | ||
69 | * higher order bits will have longer periods, since their values are also | ||
70 | * influenced by pseudo-random carries out of the lower bits. The total | ||
71 | * period of the generator is approximately deg*(2**deg - 1); thus doubling | ||
72 | * the amount of state information has a vast influence on the period of the | ||
73 | * generator. Note: the deg*(2**deg - 1) is an approximation only good for | ||
74 | * large deg, when the period of the shift register is the dominant factor. | ||
75 | * With deg equal to seven, the period is actually much longer than the | ||
76 | * 7*(2**7 - 1) predicted by this formula. | ||
77 | */ | ||
78 | |||
79 | /* | ||
80 | * For each of the currently supported random number generators, we have a | ||
81 | * break value on the amount of state information (you need at least this | ||
82 | * many bytes of state info to support this random number generator), a degree | ||
83 | * for the polynomial (actually a trinomial) that the R.N.G. is based on, and | ||
84 | * the separation between the two lower order coefficients of the trinomial. | ||
85 | */ | ||
86 | #define TYPE_0 0 /* linear congruential */ | ||
87 | #define BREAK_0 8 | ||
88 | #define DEG_0 0 | ||
89 | #define SEP_0 0 | ||
90 | |||
91 | #define TYPE_1 1 /* x**7 + x**3 + 1 */ | ||
92 | #define BREAK_1 32 | ||
93 | #define DEG_1 7 | ||
94 | #define SEP_1 3 | ||
95 | |||
96 | #define TYPE_2 2 /* x**15 + x + 1 */ | ||
97 | #define BREAK_2 64 | ||
98 | #define DEG_2 15 | ||
99 | #define SEP_2 1 | ||
100 | |||
101 | #define TYPE_3 3 /* x**31 + x**3 + 1 */ | ||
102 | #define BREAK_3 128 | ||
103 | #define DEG_3 31 | ||
104 | #define SEP_3 3 | ||
105 | |||
106 | #define TYPE_4 4 /* x**63 + x + 1 */ | ||
107 | #define BREAK_4 256 | ||
108 | #define DEG_4 63 | ||
109 | #define SEP_4 1 | ||
110 | |||
111 | /* | ||
112 | * Array versions of the above information to make code run faster -- | ||
113 | * relies on fact that TYPE_i == i. | ||
114 | */ | ||
115 | #define MAX_TYPES 5 /* max number of types above */ | ||
116 | |||
117 | static int degrees[MAX_TYPES] = { DEG_0, DEG_1, DEG_2, DEG_3, DEG_4 }; | ||
118 | static int seps [MAX_TYPES] = { SEP_0, SEP_1, SEP_2, SEP_3, SEP_4 }; | ||
119 | |||
120 | /* | ||
121 | * Initially, everything is set up as if from: | ||
122 | * | ||
123 | * initstate(1, &randtbl, 128); | ||
124 | * | ||
125 | * Note that this initialization takes advantage of the fact that srandom() | ||
126 | * advances the front and rear pointers 10*rand_deg times, and hence the | ||
127 | * rear pointer which starts at 0 will also end up at zero; thus the zeroeth | ||
128 | * element of the state information, which contains info about the current | ||
129 | * position of the rear pointer is just | ||
130 | * | ||
131 | * MAX_TYPES * (rptr - state) + TYPE_3 == TYPE_3. | ||
132 | */ | ||
133 | |||
134 | static int32_t randtbl[DEG_3 + 1] = { | ||
135 | TYPE_3, | ||
136 | 0x991539b1, 0x16a5bce3, 0x6774a4cd, 0x3e01511e, 0x4e508aaa, 0x61048c05, | ||
137 | 0xf5500617, 0x846b7115, 0x6a19892c, 0x896a97af, 0xdb48f936, 0x14898454, | ||
138 | 0x37ffd106, 0xb58bff9c, 0x59e17104, 0xcf918a49, 0x09378c83, 0x52c7a471, | ||
139 | 0x8d293ea9, 0x1f4fc301, 0xc3db71be, 0x39b44e1c, 0xf8a44ef9, 0x4c8b80b1, | ||
140 | 0x19edc328, 0x87bf4bdd, 0xc9b240e5, 0xe9ee4b1b, 0x4382aee7, 0x535b6b41, | ||
141 | 0xf3bec5da, | ||
142 | }; | ||
143 | |||
144 | /* | ||
145 | * fptr and rptr are two pointers into the state info, a front and a rear | ||
146 | * pointer. These two pointers are always rand_sep places aparts, as they | ||
147 | * cycle cyclically through the state information. (Yes, this does mean we | ||
148 | * could get away with just one pointer, but the code for random() is more | ||
149 | * efficient this way). The pointers are left positioned as they would be | ||
150 | * from the call | ||
151 | * | ||
152 | * initstate(1, randtbl, 128); | ||
153 | * | ||
154 | * (The position of the rear pointer, rptr, is really 0 (as explained above | ||
155 | * in the initialization of randtbl) because the state table pointer is set | ||
156 | * to point to randtbl[1] (as explained below). | ||
157 | */ | ||
158 | static int32_t *fptr = &randtbl[SEP_3 + 1]; | ||
159 | static int32_t *rptr = &randtbl[1]; | ||
160 | |||
161 | /* | ||
162 | * The following things are the pointer to the state information table, the | ||
163 | * type of the current generator, the degree of the current polynomial being | ||
164 | * used, and the separation between the two pointers. Note that for efficiency | ||
165 | * of random(), we remember the first location of the state information, not | ||
166 | * the zeroeth. Hence it is valid to access state[-1], which is used to | ||
167 | * store the type of the R.N.G. Also, we remember the last location, since | ||
168 | * this is more efficient than indexing every time to find the address of | ||
169 | * the last element to see if the front and rear pointers have wrapped. | ||
170 | */ | ||
171 | static int32_t *state = &randtbl[1]; | ||
172 | static int32_t *end_ptr = &randtbl[DEG_3 + 1]; | ||
173 | static int rand_type = TYPE_3; | ||
174 | static int rand_deg = DEG_3; | ||
175 | static int rand_sep = SEP_3; | ||
176 | |||
177 | /* | ||
178 | * srandom: | ||
179 | * | ||
180 | * Initialize the random number generator based on the given seed. If the | ||
181 | * type is the trivial no-state-information type, just remember the seed. | ||
182 | * Otherwise, initializes state[] based on the given "seed" via a linear | ||
183 | * congruential generator. Then, the pointers are set to known locations | ||
184 | * that are exactly rand_sep places apart. Lastly, it cycles the state | ||
185 | * information a given number of times to get rid of any initial dependencies | ||
186 | * introduced by the L.C.R.N.G. Note that the initialization of randtbl[] | ||
187 | * for default usage relies on values produced by this routine. | ||
188 | */ | ||
189 | void | ||
190 | srandom(unsigned int x) | ||
191 | { | ||
192 | int i; | ||
193 | int32_t test; | ||
194 | div_t val; | ||
195 | |||
196 | if (rand_type == TYPE_0) | ||
197 | state[0] = x; | ||
198 | else { | ||
199 | state[0] = x; | ||
200 | for (i = 1; i < rand_deg; i++) { | ||
201 | /* | ||
202 | * Implement the following, without overflowing 31 bits: | ||
203 | * | ||
204 | * state[i] = (16807 * state[i - 1]) % 2147483647; | ||
205 | * | ||
206 | * 2^31-1 (prime) = 2147483647 = 127773*16807+2836 | ||
207 | */ | ||
208 | val = div(state[i-1], 127773); | ||
209 | test = 16807 * val.rem - 2836 * val.quot; | ||
210 | state[i] = test + (test < 0 ? 2147483647 : 0); | ||
211 | } | ||
212 | fptr = &state[rand_sep]; | ||
213 | rptr = &state[0]; | ||
214 | for (i = 0; i < 10 * rand_deg; i++) | ||
215 | (void)random(); | ||
216 | } | ||
217 | } | ||
218 | |||
219 | /* | ||
220 | * srandomdev: | ||
221 | * | ||
222 | * Many programs choose the seed value in a totally predictable manner. | ||
223 | * This often causes problems. We seed the generator using random | ||
224 | * data from the kernel. | ||
225 | * Note that this particular seeding procedure can generate states | ||
226 | * which are impossible to reproduce by calling srandom() with any | ||
227 | * value, since the succeeding terms in the state buffer are no longer | ||
228 | * derived from the LC algorithm applied to a fixed seed. | ||
229 | */ | ||
230 | void | ||
231 | srandomdev(void) | ||
232 | { | ||
233 | int mib[2]; | ||
234 | size_t len; | ||
235 | |||
236 | if (rand_type == TYPE_0) | ||
237 | len = sizeof(state[0]); | ||
238 | else | ||
239 | len = rand_deg * sizeof(state[0]); | ||
240 | |||
241 | mib[0] = CTL_KERN; | ||
242 | mib[1] = KERN_ARND; | ||
243 | sysctl(mib, 2, state, &len, NULL, 0); | ||
244 | |||
245 | if (rand_type != TYPE_0) { | ||
246 | fptr = &state[rand_sep]; | ||
247 | rptr = &state[0]; | ||
248 | } | ||
249 | } | ||
250 | |||
251 | /* | ||
252 | * initstate: | ||
253 | * | ||
254 | * Initialize the state information in the given array of n bytes for future | ||
255 | * random number generation. Based on the number of bytes we are given, and | ||
256 | * the break values for the different R.N.G.'s, we choose the best (largest) | ||
257 | * one we can and set things up for it. srandom() is then called to | ||
258 | * initialize the state information. | ||
259 | * | ||
260 | * Note that on return from srandom(), we set state[-1] to be the type | ||
261 | * multiplexed with the current value of the rear pointer; this is so | ||
262 | * successive calls to initstate() won't lose this information and will be | ||
263 | * able to restart with setstate(). | ||
264 | * | ||
265 | * Note: the first thing we do is save the current state, if any, just like | ||
266 | * setstate() so that it doesn't matter when initstate is called. | ||
267 | * | ||
268 | * Returns a pointer to the old state. | ||
269 | */ | ||
270 | char * | ||
271 | initstate(u_int seed, char *arg_state, size_t n) | ||
272 | { | ||
273 | char *ostate = (char *)(&state[-1]); | ||
274 | |||
275 | if (rand_type == TYPE_0) | ||
276 | state[-1] = rand_type; | ||
277 | else | ||
278 | state[-1] = MAX_TYPES * (rptr - state) + rand_type; | ||
279 | if (n < BREAK_0) | ||
280 | return(NULL); | ||
281 | if (n < BREAK_1) { | ||
282 | rand_type = TYPE_0; | ||
283 | rand_deg = DEG_0; | ||
284 | rand_sep = SEP_0; | ||
285 | } else if (n < BREAK_2) { | ||
286 | rand_type = TYPE_1; | ||
287 | rand_deg = DEG_1; | ||
288 | rand_sep = SEP_1; | ||
289 | } else if (n < BREAK_3) { | ||
290 | rand_type = TYPE_2; | ||
291 | rand_deg = DEG_2; | ||
292 | rand_sep = SEP_2; | ||
293 | } else if (n < BREAK_4) { | ||
294 | rand_type = TYPE_3; | ||
295 | rand_deg = DEG_3; | ||
296 | rand_sep = SEP_3; | ||
297 | } else { | ||
298 | rand_type = TYPE_4; | ||
299 | rand_deg = DEG_4; | ||
300 | rand_sep = SEP_4; | ||
301 | } | ||
302 | state = &(((int32_t *)arg_state)[1]); /* first location */ | ||
303 | end_ptr = &state[rand_deg]; /* must set end_ptr before srandom */ | ||
304 | srandom(seed); | ||
305 | if (rand_type == TYPE_0) | ||
306 | state[-1] = rand_type; | ||
307 | else | ||
308 | state[-1] = MAX_TYPES*(rptr - state) + rand_type; | ||
309 | return(ostate); | ||
310 | } | ||
311 | |||
312 | /* | ||
313 | * setstate: | ||
314 | * | ||
315 | * Restore the state from the given state array. | ||
316 | * | ||
317 | * Note: it is important that we also remember the locations of the pointers | ||
318 | * in the current state information, and restore the locations of the pointers | ||
319 | * from the old state information. This is done by multiplexing the pointer | ||
320 | * location into the zeroeth word of the state information. | ||
321 | * | ||
322 | * Note that due to the order in which things are done, it is OK to call | ||
323 | * setstate() with the same state as the current state. | ||
324 | * | ||
325 | * Returns a pointer to the old state information. | ||
326 | */ | ||
327 | char * | ||
328 | setstate(const char *arg_state) | ||
329 | { | ||
330 | int32_t *new_state = (int32_t *)arg_state; | ||
331 | int32_t type = new_state[0] % MAX_TYPES; | ||
332 | int32_t rear = new_state[0] / MAX_TYPES; | ||
333 | char *ostate = (char *)(&state[-1]); | ||
334 | |||
335 | if (rand_type == TYPE_0) | ||
336 | state[-1] = rand_type; | ||
337 | else | ||
338 | state[-1] = MAX_TYPES * (rptr - state) + rand_type; | ||
339 | switch(type) { | ||
340 | case TYPE_0: | ||
341 | case TYPE_1: | ||
342 | case TYPE_2: | ||
343 | case TYPE_3: | ||
344 | case TYPE_4: | ||
345 | rand_type = type; | ||
346 | rand_deg = degrees[type]; | ||
347 | rand_sep = seps[type]; | ||
348 | break; | ||
349 | default: | ||
350 | return(NULL); | ||
351 | } | ||
352 | state = &new_state[1]; | ||
353 | if (rand_type != TYPE_0) { | ||
354 | rptr = &state[rear]; | ||
355 | fptr = &state[(rear + rand_sep) % rand_deg]; | ||
356 | } | ||
357 | end_ptr = &state[rand_deg]; /* set end_ptr too */ | ||
358 | return(ostate); | ||
359 | } | ||
360 | |||
361 | /* | ||
362 | * random: | ||
363 | * | ||
364 | * If we are using the trivial TYPE_0 R.N.G., just do the old linear | ||
365 | * congruential bit. Otherwise, we do our fancy trinomial stuff, which is | ||
366 | * the same in all the other cases due to all the global variables that have | ||
367 | * been set up. The basic operation is to add the number at the rear pointer | ||
368 | * into the one at the front pointer. Then both pointers are advanced to | ||
369 | * the next location cyclically in the table. The value returned is the sum | ||
370 | * generated, reduced to 31 bits by throwing away the "least random" low bit. | ||
371 | * | ||
372 | * Note: the code takes advantage of the fact that both the front and | ||
373 | * rear pointers can't wrap on the same call by not testing the rear | ||
374 | * pointer if the front one has wrapped. | ||
375 | * | ||
376 | * Returns a 31-bit random number. | ||
377 | */ | ||
378 | long | ||
379 | random(void) | ||
380 | { | ||
381 | int32_t i; | ||
382 | |||
383 | if (rand_type == TYPE_0) | ||
384 | i = state[0] = (state[0] * 1103515245 + 12345) & 0x7fffffff; | ||
385 | else { | ||
386 | *fptr += *rptr; | ||
387 | i = (*fptr >> 1) & 0x7fffffff; /* chucking least random bit */ | ||
388 | if (++fptr >= end_ptr) { | ||
389 | fptr = state; | ||
390 | ++rptr; | ||
391 | } else if (++rptr >= end_ptr) | ||
392 | rptr = state; | ||
393 | } | ||
394 | return((long)i); | ||
395 | } | ||
diff --git a/src/lib/libc/stdlib/realpath.3 b/src/lib/libc/stdlib/realpath.3 new file mode 100644 index 0000000000..68ed088161 --- /dev/null +++ b/src/lib/libc/stdlib/realpath.3 | |||
@@ -0,0 +1,130 @@ | |||
1 | .\" Copyright (c) 1994 | ||
2 | .\" The Regents of the University of California. All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Jan-Simon Pendry. | ||
6 | .\" | ||
7 | .\" Redistribution and use in source and binary forms, with or without | ||
8 | .\" modification, are permitted provided that the following conditions | ||
9 | .\" are met: | ||
10 | .\" 1. Redistributions of source code must retain the above copyright | ||
11 | .\" notice, this list of conditions and the following disclaimer. | ||
12 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
13 | .\" notice, this list of conditions and the following disclaimer in the | ||
14 | .\" documentation and/or other materials provided with the distribution. | ||
15 | .\" 3. Neither the name of the University nor the names of its contributors | ||
16 | .\" may be used to endorse or promote products derived from this software | ||
17 | .\" without specific prior written permission. | ||
18 | .\" | ||
19 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | .\" SUCH DAMAGE. | ||
30 | .\" | ||
31 | .\" $OpenBSD: realpath.3,v 1.17 2011/07/24 22:29:05 jmc Exp $ | ||
32 | .\" | ||
33 | .Dd $Mdocdate: July 24 2011 $ | ||
34 | .Dt REALPATH 3 | ||
35 | .Os | ||
36 | .Sh NAME | ||
37 | .Nm realpath | ||
38 | .Nd returns the canonicalized absolute pathname | ||
39 | .Sh SYNOPSIS | ||
40 | .Fd #include <limits.h> | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft "char *" | ||
43 | .Fn realpath "const char *pathname" "char *resolved" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn realpath | ||
47 | function resolves all symbolic links, extra | ||
48 | .Dq / | ||
49 | characters and references to | ||
50 | .Pa /./ | ||
51 | and | ||
52 | .Pa /../ | ||
53 | in | ||
54 | .Fa pathname , | ||
55 | and copies the resulting absolute pathname into the memory referenced by | ||
56 | .Fa resolved . | ||
57 | The | ||
58 | .Fa resolved | ||
59 | argument | ||
60 | .Em must | ||
61 | refer to a buffer capable of storing at least | ||
62 | .Dv PATH_MAX | ||
63 | characters, or be | ||
64 | .Dv NULL . | ||
65 | .Pp | ||
66 | The | ||
67 | .Fn realpath | ||
68 | function will resolve both absolute and relative paths | ||
69 | and return the absolute pathname corresponding to | ||
70 | .Fa pathname . | ||
71 | All but the last component of | ||
72 | .Fa pathname | ||
73 | must exist when | ||
74 | .Fn realpath | ||
75 | is called. | ||
76 | .Sh RETURN VALUES | ||
77 | The | ||
78 | .Fn realpath | ||
79 | function returns | ||
80 | .Fa resolved | ||
81 | on success. | ||
82 | If | ||
83 | .Fa resolved | ||
84 | is | ||
85 | .Dv NULL | ||
86 | and no error occurred, then | ||
87 | .Fa realpath | ||
88 | returns a NUL-terminated string in a newly allocated buffer. | ||
89 | If an error occurs, | ||
90 | .Fn realpath | ||
91 | returns | ||
92 | .Dv NULL | ||
93 | and the contents of | ||
94 | .Fa resolved | ||
95 | are undefined. | ||
96 | .Sh ERRORS | ||
97 | The function | ||
98 | .Fn realpath | ||
99 | may fail and set the external variable | ||
100 | .Va errno | ||
101 | for any of the errors specified for the library functions | ||
102 | .Xr lstat 2 , | ||
103 | .Xr readlink 2 , | ||
104 | and | ||
105 | .Xr getcwd 3 . | ||
106 | .Sh SEE ALSO | ||
107 | .Xr readlink 1 , | ||
108 | .Xr getcwd 3 | ||
109 | .Sh STANDARDS | ||
110 | The | ||
111 | .Fn realpath | ||
112 | function conforms to | ||
113 | .St -p1003.1-2008 . | ||
114 | .Sh HISTORY | ||
115 | The | ||
116 | .Fn realpath | ||
117 | function call first appeared in | ||
118 | .Bx 4.4 . | ||
119 | .Sh CAVEATS | ||
120 | This implementation of | ||
121 | .Fn realpath | ||
122 | differs slightly from the Solaris implementation. | ||
123 | The | ||
124 | .Bx 4.4 | ||
125 | version always returns absolute pathnames, | ||
126 | whereas the Solaris implementation will, | ||
127 | under certain circumstances, return a relative | ||
128 | .Fa resolved | ||
129 | when given a relative | ||
130 | .Fa pathname . | ||
diff --git a/src/lib/libc/stdlib/realpath.c b/src/lib/libc/stdlib/realpath.c new file mode 100644 index 0000000000..21af4cf005 --- /dev/null +++ b/src/lib/libc/stdlib/realpath.c | |||
@@ -0,0 +1,212 @@ | |||
1 | /* $OpenBSD: realpath.c,v 1.14 2011/07/24 21:03:00 miod Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 2003 Constantin S. Svintsoff <kostik@iclub.nsu.ru> | ||
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. The names of the authors may not be used to endorse or promote | ||
14 | * products derived from this software without specific prior written | ||
15 | * permission. | ||
16 | * | ||
17 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND | ||
18 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
19 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
20 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
21 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
22 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
23 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
24 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
25 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
26 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
27 | * SUCH DAMAGE. | ||
28 | */ | ||
29 | |||
30 | #include <sys/param.h> | ||
31 | #include <sys/stat.h> | ||
32 | |||
33 | #include <errno.h> | ||
34 | #include <stdlib.h> | ||
35 | #include <string.h> | ||
36 | #include <unistd.h> | ||
37 | |||
38 | /* | ||
39 | * char *realpath(const char *path, char resolved[PATH_MAX]); | ||
40 | * | ||
41 | * Find the real name of path, by removing all ".", ".." and symlink | ||
42 | * components. Returns (resolved) on success, or (NULL) on failure, | ||
43 | * in which case the path which caused trouble is left in (resolved). | ||
44 | */ | ||
45 | char * | ||
46 | realpath(const char *path, char *resolved) | ||
47 | { | ||
48 | struct stat sb; | ||
49 | char *p, *q, *s; | ||
50 | size_t left_len, resolved_len; | ||
51 | unsigned symlinks; | ||
52 | int serrno, slen, mem_allocated; | ||
53 | char left[PATH_MAX], next_token[PATH_MAX], symlink[PATH_MAX]; | ||
54 | |||
55 | if (path[0] == '\0') { | ||
56 | errno = ENOENT; | ||
57 | return (NULL); | ||
58 | } | ||
59 | |||
60 | serrno = errno; | ||
61 | |||
62 | if (resolved == NULL) { | ||
63 | resolved = malloc(PATH_MAX); | ||
64 | if (resolved == NULL) | ||
65 | return (NULL); | ||
66 | mem_allocated = 1; | ||
67 | } else | ||
68 | mem_allocated = 0; | ||
69 | |||
70 | symlinks = 0; | ||
71 | if (path[0] == '/') { | ||
72 | resolved[0] = '/'; | ||
73 | resolved[1] = '\0'; | ||
74 | if (path[1] == '\0') | ||
75 | return (resolved); | ||
76 | resolved_len = 1; | ||
77 | left_len = strlcpy(left, path + 1, sizeof(left)); | ||
78 | } else { | ||
79 | if (getcwd(resolved, PATH_MAX) == NULL) { | ||
80 | if (mem_allocated) | ||
81 | free(resolved); | ||
82 | else | ||
83 | strlcpy(resolved, ".", PATH_MAX); | ||
84 | return (NULL); | ||
85 | } | ||
86 | resolved_len = strlen(resolved); | ||
87 | left_len = strlcpy(left, path, sizeof(left)); | ||
88 | } | ||
89 | if (left_len >= sizeof(left) || resolved_len >= PATH_MAX) { | ||
90 | errno = ENAMETOOLONG; | ||
91 | goto err; | ||
92 | } | ||
93 | |||
94 | /* | ||
95 | * Iterate over path components in `left'. | ||
96 | */ | ||
97 | while (left_len != 0) { | ||
98 | /* | ||
99 | * Extract the next path component and adjust `left' | ||
100 | * and its length. | ||
101 | */ | ||
102 | p = strchr(left, '/'); | ||
103 | s = p ? p : left + left_len; | ||
104 | if (s - left >= sizeof(next_token)) { | ||
105 | errno = ENAMETOOLONG; | ||
106 | goto err; | ||
107 | } | ||
108 | memcpy(next_token, left, s - left); | ||
109 | next_token[s - left] = '\0'; | ||
110 | left_len -= s - left; | ||
111 | if (p != NULL) | ||
112 | memmove(left, s + 1, left_len + 1); | ||
113 | if (resolved[resolved_len - 1] != '/') { | ||
114 | if (resolved_len + 1 >= PATH_MAX) { | ||
115 | errno = ENAMETOOLONG; | ||
116 | goto err; | ||
117 | } | ||
118 | resolved[resolved_len++] = '/'; | ||
119 | resolved[resolved_len] = '\0'; | ||
120 | } | ||
121 | if (next_token[0] == '\0') | ||
122 | continue; | ||
123 | else if (strcmp(next_token, ".") == 0) | ||
124 | continue; | ||
125 | else if (strcmp(next_token, "..") == 0) { | ||
126 | /* | ||
127 | * Strip the last path component except when we have | ||
128 | * single "/" | ||
129 | */ | ||
130 | if (resolved_len > 1) { | ||
131 | resolved[resolved_len - 1] = '\0'; | ||
132 | q = strrchr(resolved, '/') + 1; | ||
133 | *q = '\0'; | ||
134 | resolved_len = q - resolved; | ||
135 | } | ||
136 | continue; | ||
137 | } | ||
138 | |||
139 | /* | ||
140 | * Append the next path component and lstat() it. If | ||
141 | * lstat() fails we still can return successfully if | ||
142 | * there are no more path components left. | ||
143 | */ | ||
144 | resolved_len = strlcat(resolved, next_token, PATH_MAX); | ||
145 | if (resolved_len >= PATH_MAX) { | ||
146 | errno = ENAMETOOLONG; | ||
147 | goto err; | ||
148 | } | ||
149 | if (lstat(resolved, &sb) != 0) { | ||
150 | if (errno == ENOENT && p == NULL) { | ||
151 | errno = serrno; | ||
152 | return (resolved); | ||
153 | } | ||
154 | goto err; | ||
155 | } | ||
156 | if (S_ISLNK(sb.st_mode)) { | ||
157 | if (symlinks++ > MAXSYMLINKS) { | ||
158 | errno = ELOOP; | ||
159 | goto err; | ||
160 | } | ||
161 | slen = readlink(resolved, symlink, sizeof(symlink) - 1); | ||
162 | if (slen < 0) | ||
163 | goto err; | ||
164 | symlink[slen] = '\0'; | ||
165 | if (symlink[0] == '/') { | ||
166 | resolved[1] = 0; | ||
167 | resolved_len = 1; | ||
168 | } else if (resolved_len > 1) { | ||
169 | /* Strip the last path component. */ | ||
170 | resolved[resolved_len - 1] = '\0'; | ||
171 | q = strrchr(resolved, '/') + 1; | ||
172 | *q = '\0'; | ||
173 | resolved_len = q - resolved; | ||
174 | } | ||
175 | |||
176 | /* | ||
177 | * If there are any path components left, then | ||
178 | * append them to symlink. The result is placed | ||
179 | * in `left'. | ||
180 | */ | ||
181 | if (p != NULL) { | ||
182 | if (symlink[slen - 1] != '/') { | ||
183 | if (slen + 1 >= sizeof(symlink)) { | ||
184 | errno = ENAMETOOLONG; | ||
185 | goto err; | ||
186 | } | ||
187 | symlink[slen] = '/'; | ||
188 | symlink[slen + 1] = 0; | ||
189 | } | ||
190 | left_len = strlcat(symlink, left, sizeof(left)); | ||
191 | if (left_len >= sizeof(left)) { | ||
192 | errno = ENAMETOOLONG; | ||
193 | goto err; | ||
194 | } | ||
195 | } | ||
196 | left_len = strlcpy(left, symlink, sizeof(left)); | ||
197 | } | ||
198 | } | ||
199 | |||
200 | /* | ||
201 | * Remove trailing slash except when the resolved pathname | ||
202 | * is a single "/". | ||
203 | */ | ||
204 | if (resolved_len > 1 && resolved[resolved_len - 1] == '/') | ||
205 | resolved[resolved_len - 1] = '\0'; | ||
206 | return (resolved); | ||
207 | |||
208 | err: | ||
209 | if (mem_allocated) | ||
210 | free(resolved); | ||
211 | return (NULL); | ||
212 | } | ||
diff --git a/src/lib/libc/stdlib/remque.c b/src/lib/libc/stdlib/remque.c new file mode 100644 index 0000000000..ae249ae053 --- /dev/null +++ b/src/lib/libc/stdlib/remque.c | |||
@@ -0,0 +1,44 @@ | |||
1 | /* $OpenBSD: remque.c,v 1.2 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 1993 John Brezak | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. The name of the author may be used to endorse or promote products | ||
16 | * derived from this software without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR | ||
19 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | ||
20 | * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE | ||
21 | * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, | ||
22 | * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES | ||
23 | * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | ||
24 | * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
26 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN | ||
27 | * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | ||
28 | * POSSIBILITY OF SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <search.h> | ||
32 | |||
33 | struct qelem { | ||
34 | struct qelem *q_forw; | ||
35 | struct qelem *q_back; | ||
36 | }; | ||
37 | |||
38 | void | ||
39 | remque(void *element) | ||
40 | { | ||
41 | struct qelem *e = (struct qelem *) element; | ||
42 | e->q_forw->q_back = e->q_back; | ||
43 | e->q_back->q_forw = e->q_forw; | ||
44 | } | ||
diff --git a/src/lib/libc/stdlib/seed48.c b/src/lib/libc/stdlib/seed48.c new file mode 100644 index 0000000000..583262f2d5 --- /dev/null +++ b/src/lib/libc/stdlib/seed48.c | |||
@@ -0,0 +1,37 @@ | |||
1 | /* $OpenBSD: seed48.c,v 1.3 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | extern unsigned short __rand48_seed[3]; | ||
18 | extern unsigned short __rand48_mult[3]; | ||
19 | extern unsigned short __rand48_add; | ||
20 | |||
21 | unsigned short * | ||
22 | seed48(unsigned short xseed[3]) | ||
23 | { | ||
24 | static unsigned short sseed[3]; | ||
25 | |||
26 | sseed[0] = __rand48_seed[0]; | ||
27 | sseed[1] = __rand48_seed[1]; | ||
28 | sseed[2] = __rand48_seed[2]; | ||
29 | __rand48_seed[0] = xseed[0]; | ||
30 | __rand48_seed[1] = xseed[1]; | ||
31 | __rand48_seed[2] = xseed[2]; | ||
32 | __rand48_mult[0] = RAND48_MULT_0; | ||
33 | __rand48_mult[1] = RAND48_MULT_1; | ||
34 | __rand48_mult[2] = RAND48_MULT_2; | ||
35 | __rand48_add = RAND48_ADD; | ||
36 | return sseed; | ||
37 | } | ||
diff --git a/src/lib/libc/stdlib/setenv.c b/src/lib/libc/stdlib/setenv.c new file mode 100644 index 0000000000..089ab92d38 --- /dev/null +++ b/src/lib/libc/stdlib/setenv.c | |||
@@ -0,0 +1,178 @@ | |||
1 | /* $OpenBSD: setenv.c,v 1.13 2010/08/23 22:31:50 millert Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1987 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <errno.h> | ||
32 | #include <stdlib.h> | ||
33 | #include <string.h> | ||
34 | |||
35 | char *__findenv(const char *name, int len, int *offset); | ||
36 | |||
37 | extern char **environ; | ||
38 | static char **lastenv; /* last value of environ */ | ||
39 | |||
40 | /* | ||
41 | * putenv -- | ||
42 | * Add a name=value string directly to the environmental, replacing | ||
43 | * any current value. | ||
44 | */ | ||
45 | int | ||
46 | putenv(char *str) | ||
47 | { | ||
48 | char **P, *cp; | ||
49 | size_t cnt; | ||
50 | int offset = 0; | ||
51 | |||
52 | for (cp = str; *cp && *cp != '='; ++cp) | ||
53 | ; | ||
54 | if (*cp != '=') { | ||
55 | errno = EINVAL; | ||
56 | return (-1); /* missing `=' in string */ | ||
57 | } | ||
58 | |||
59 | if (__findenv(str, (int)(cp - str), &offset) != NULL) { | ||
60 | environ[offset++] = str; | ||
61 | /* could be set multiple times */ | ||
62 | while (__findenv(str, (int)(cp - str), &offset)) { | ||
63 | for (P = &environ[offset];; ++P) | ||
64 | if (!(*P = *(P + 1))) | ||
65 | break; | ||
66 | } | ||
67 | return (0); | ||
68 | } | ||
69 | |||
70 | /* create new slot for string */ | ||
71 | for (P = environ; *P != NULL; P++) | ||
72 | ; | ||
73 | cnt = P - environ; | ||
74 | P = (char **)realloc(lastenv, sizeof(char *) * (cnt + 2)); | ||
75 | if (!P) | ||
76 | return (-1); | ||
77 | if (lastenv != environ) | ||
78 | memcpy(P, environ, cnt * sizeof(char *)); | ||
79 | lastenv = environ = P; | ||
80 | environ[cnt] = str; | ||
81 | environ[cnt + 1] = NULL; | ||
82 | return (0); | ||
83 | } | ||
84 | |||
85 | /* | ||
86 | * setenv -- | ||
87 | * Set the value of the environmental variable "name" to be | ||
88 | * "value". If rewrite is set, replace any current value. | ||
89 | */ | ||
90 | int | ||
91 | setenv(const char *name, const char *value, int rewrite) | ||
92 | { | ||
93 | char *C, **P; | ||
94 | const char *np; | ||
95 | int l_value, offset = 0; | ||
96 | |||
97 | for (np = name; *np && *np != '='; ++np) | ||
98 | ; | ||
99 | #ifdef notyet | ||
100 | if (*np) { | ||
101 | errno = EINVAL; | ||
102 | return (-1); /* has `=' in name */ | ||
103 | } | ||
104 | #endif | ||
105 | |||
106 | l_value = strlen(value); | ||
107 | if ((C = __findenv(name, (int)(np - name), &offset)) != NULL) { | ||
108 | int tmpoff = offset + 1; | ||
109 | if (!rewrite) | ||
110 | return (0); | ||
111 | #if 0 /* XXX - existing entry may not be writable */ | ||
112 | if (strlen(C) >= l_value) { /* old larger; copy over */ | ||
113 | while ((*C++ = *value++)) | ||
114 | ; | ||
115 | return (0); | ||
116 | } | ||
117 | #endif | ||
118 | /* could be set multiple times */ | ||
119 | while (__findenv(name, (int)(np - name), &tmpoff)) { | ||
120 | for (P = &environ[tmpoff];; ++P) | ||
121 | if (!(*P = *(P + 1))) | ||
122 | break; | ||
123 | } | ||
124 | } else { /* create new slot */ | ||
125 | size_t cnt; | ||
126 | |||
127 | for (P = environ; *P != NULL; P++) | ||
128 | ; | ||
129 | cnt = P - environ; | ||
130 | P = (char **)realloc(lastenv, sizeof(char *) * (cnt + 2)); | ||
131 | if (!P) | ||
132 | return (-1); | ||
133 | if (lastenv != environ) | ||
134 | memcpy(P, environ, cnt * sizeof(char *)); | ||
135 | lastenv = environ = P; | ||
136 | offset = cnt; | ||
137 | environ[cnt + 1] = NULL; | ||
138 | } | ||
139 | if (!(environ[offset] = /* name + `=' + value */ | ||
140 | malloc((size_t)((int)(np - name) + l_value + 2)))) | ||
141 | return (-1); | ||
142 | for (C = environ[offset]; (*C = *name++) && *C != '='; ++C) | ||
143 | ; | ||
144 | for (*C++ = '='; (*C++ = *value++); ) | ||
145 | ; | ||
146 | return (0); | ||
147 | } | ||
148 | |||
149 | /* | ||
150 | * unsetenv(name) -- | ||
151 | * Delete environmental variable "name". | ||
152 | */ | ||
153 | int | ||
154 | unsetenv(const char *name) | ||
155 | { | ||
156 | char **P; | ||
157 | const char *np; | ||
158 | int offset = 0; | ||
159 | |||
160 | if (!name || !*name) { | ||
161 | errno = EINVAL; | ||
162 | return (-1); | ||
163 | } | ||
164 | for (np = name; *np && *np != '='; ++np) | ||
165 | ; | ||
166 | if (*np) { | ||
167 | errno = EINVAL; | ||
168 | return (-1); /* has `=' in name */ | ||
169 | } | ||
170 | |||
171 | /* could be set multiple times */ | ||
172 | while (__findenv(name, (int)(np - name), &offset)) { | ||
173 | for (P = &environ[offset];; ++P) | ||
174 | if (!(*P = *(P + 1))) | ||
175 | break; | ||
176 | } | ||
177 | return (0); | ||
178 | } | ||
diff --git a/src/lib/libc/stdlib/srand48.c b/src/lib/libc/stdlib/srand48.c new file mode 100644 index 0000000000..f76b6cca86 --- /dev/null +++ b/src/lib/libc/stdlib/srand48.c | |||
@@ -0,0 +1,31 @@ | |||
1 | /* $OpenBSD: srand48.c,v 1.3 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1993 Martin Birgmeier | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * You may redistribute unmodified or modified versions of this source | ||
7 | * code provided that the above copyright notice and this and the | ||
8 | * following conditions are retained. | ||
9 | * | ||
10 | * This software is provided ``as is'', and comes with no warranties | ||
11 | * of any kind. I shall in no event be liable for anything that happens | ||
12 | * to anyone/anything when using this software. | ||
13 | */ | ||
14 | |||
15 | #include "rand48.h" | ||
16 | |||
17 | extern unsigned short __rand48_seed[3]; | ||
18 | extern unsigned short __rand48_mult[3]; | ||
19 | extern unsigned short __rand48_add; | ||
20 | |||
21 | void | ||
22 | srand48(long seed) | ||
23 | { | ||
24 | __rand48_seed[0] = RAND48_SEED_0; | ||
25 | __rand48_seed[1] = (unsigned short) seed; | ||
26 | __rand48_seed[2] = (unsigned short) (seed >> 16); | ||
27 | __rand48_mult[0] = RAND48_MULT_0; | ||
28 | __rand48_mult[1] = RAND48_MULT_1; | ||
29 | __rand48_mult[2] = RAND48_MULT_2; | ||
30 | __rand48_add = RAND48_ADD; | ||
31 | } | ||
diff --git a/src/lib/libc/stdlib/strtod.3 b/src/lib/libc/stdlib/strtod.3 new file mode 100644 index 0000000000..f1fc781f7d --- /dev/null +++ b/src/lib/libc/stdlib/strtod.3 | |||
@@ -0,0 +1,145 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: strtod.3,v 1.14 2008/09/13 22:48:45 martynas Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: September 13 2008 $ | ||
35 | .Dt STRTOD 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm strtod , | ||
39 | .Nm strtof , | ||
40 | .Nm strtold | ||
41 | .Nd convert | ||
42 | .Tn ASCII | ||
43 | string to double, float or long double | ||
44 | .Sh SYNOPSIS | ||
45 | .Fd #include <math.h> | ||
46 | .Fd #include <stdlib.h> | ||
47 | .Ft double | ||
48 | .Fn strtod "const char *nptr" "char **endptr" | ||
49 | .Pp | ||
50 | .Ft float | ||
51 | .Fn strtof "const char *nptr" "char **endptr" | ||
52 | .Pp | ||
53 | .Ft long double | ||
54 | .Fn strtold "const char *nptr" "char **endptr" | ||
55 | .Sh DESCRIPTION | ||
56 | The | ||
57 | .Fn strtod | ||
58 | function converts the initial portion of the string pointed to by | ||
59 | .Fa nptr | ||
60 | to | ||
61 | .Li double | ||
62 | representation. | ||
63 | The | ||
64 | .Fn strtof | ||
65 | function converts the initial portion of the string pointed to by | ||
66 | .Fa nptr | ||
67 | to | ||
68 | .Li float | ||
69 | representation. | ||
70 | The | ||
71 | .Fn strtold | ||
72 | function converts the initial portion of the string pointed to by | ||
73 | .Fa nptr | ||
74 | to | ||
75 | .Li long double | ||
76 | representation. | ||
77 | .Pp | ||
78 | The expected form of the string is an optional plus | ||
79 | .Pq Ql + | ||
80 | or minus sign | ||
81 | .Pq Ql - | ||
82 | followed by a sequence of digits optionally containing | ||
83 | a decimal-point character, optionally followed by an exponent. | ||
84 | An exponent consists of an | ||
85 | .Sq E | ||
86 | or | ||
87 | .Sq e , | ||
88 | followed by an optional plus or minus sign, followed by a sequence of digits. | ||
89 | .Pp | ||
90 | Leading whitespace characters in the string (as defined by the | ||
91 | .Xr isspace 3 | ||
92 | function) are skipped. | ||
93 | .Sh RETURN VALUES | ||
94 | The | ||
95 | .Fn strtod , | ||
96 | .Fn strtof | ||
97 | and | ||
98 | .Fn strtold | ||
99 | functions return the converted value, if any. | ||
100 | .Pp | ||
101 | If | ||
102 | .Fa endptr | ||
103 | is not | ||
104 | .Dv NULL , | ||
105 | a pointer to the character after the last character used | ||
106 | in the conversion is stored in the location referenced by | ||
107 | .Fa endptr . | ||
108 | .Pp | ||
109 | If no conversion is performed, zero is returned and the value of | ||
110 | .Fa nptr | ||
111 | is stored in the location referenced by | ||
112 | .Fa endptr . | ||
113 | .Pp | ||
114 | If the correct value would cause overflow, plus or minus | ||
115 | .Dv HUGE_VAL | ||
116 | is returned (according to the sign of the value), and | ||
117 | .Er ERANGE | ||
118 | is stored in | ||
119 | .Va errno . | ||
120 | If the correct value would cause underflow, zero is returned and | ||
121 | .Er ERANGE | ||
122 | is stored in | ||
123 | .Va errno . | ||
124 | .Sh ERRORS | ||
125 | .Bl -tag -width Er | ||
126 | .It Bq Er ERANGE | ||
127 | Overflow or underflow occurred. | ||
128 | .El | ||
129 | .Sh SEE ALSO | ||
130 | .Xr atof 3 , | ||
131 | .Xr atoi 3 , | ||
132 | .Xr atol 3 , | ||
133 | .Xr strtol 3 , | ||
134 | .Xr strtoul 3 | ||
135 | .Sh STANDARDS | ||
136 | The | ||
137 | .Fn strtod | ||
138 | function conforms to | ||
139 | .St -ansiC-89 . | ||
140 | The | ||
141 | .Fn strtof | ||
142 | and | ||
143 | .Fn strtold | ||
144 | functions conform to | ||
145 | .St -ansiC-99 . | ||
diff --git a/src/lib/libc/stdlib/strtoimax.c b/src/lib/libc/stdlib/strtoimax.c new file mode 100644 index 0000000000..2c77f41650 --- /dev/null +++ b/src/lib/libc/stdlib/strtoimax.c | |||
@@ -0,0 +1,140 @@ | |||
1 | /* $OpenBSD: strtoimax.c,v 1.1 2006/01/13 17:58:09 millert Exp $ */ | ||
2 | |||
3 | /*- | ||
4 | * Copyright (c) 1992 The Regents of the University of California. | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. Neither the name of the University nor the names of its contributors | ||
16 | * may be used to endorse or promote products derived from this software | ||
17 | * without specific prior written permission. | ||
18 | * | ||
19 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | * SUCH DAMAGE. | ||
30 | */ | ||
31 | |||
32 | #include <ctype.h> | ||
33 | #include <errno.h> | ||
34 | #include <inttypes.h> | ||
35 | |||
36 | /* | ||
37 | * Convert a string to an intmax_t | ||
38 | * | ||
39 | * Ignores `locale' stuff. Assumes that the upper and lower case | ||
40 | * alphabets and digits are each contiguous. | ||
41 | */ | ||
42 | intmax_t | ||
43 | strtoimax(const char *nptr, char **endptr, int base) | ||
44 | { | ||
45 | const char *s; | ||
46 | intmax_t acc, cutoff; | ||
47 | int c; | ||
48 | int neg, any, cutlim; | ||
49 | |||
50 | /* | ||
51 | * Skip white space and pick up leading +/- sign if any. | ||
52 | * If base is 0, allow 0x for hex and 0 for octal, else | ||
53 | * assume decimal; if base is already 16, allow 0x. | ||
54 | */ | ||
55 | s = nptr; | ||
56 | do { | ||
57 | c = (unsigned char) *s++; | ||
58 | } while (isspace(c)); | ||
59 | if (c == '-') { | ||
60 | neg = 1; | ||
61 | c = *s++; | ||
62 | } else { | ||
63 | neg = 0; | ||
64 | if (c == '+') | ||
65 | c = *s++; | ||
66 | } | ||
67 | if ((base == 0 || base == 16) && | ||
68 | c == '0' && (*s == 'x' || *s == 'X')) { | ||
69 | c = s[1]; | ||
70 | s += 2; | ||
71 | base = 16; | ||
72 | } | ||
73 | if (base == 0) | ||
74 | base = c == '0' ? 8 : 10; | ||
75 | |||
76 | /* | ||
77 | * Compute the cutoff value between legal numbers and illegal | ||
78 | * numbers. That is the largest legal value, divided by the | ||
79 | * base. An input number that is greater than this value, if | ||
80 | * followed by a legal input character, is too big. One that | ||
81 | * is equal to this value may be valid or not; the limit | ||
82 | * between valid and invalid numbers is then based on the last | ||
83 | * digit. For instance, if the range for intmax_t is | ||
84 | * [-9223372036854775808..9223372036854775807] and the input base | ||
85 | * is 10, cutoff will be set to 922337203685477580 and cutlim to | ||
86 | * either 7 (neg==0) or 8 (neg==1), meaning that if we have | ||
87 | * accumulated a value > 922337203685477580, or equal but the | ||
88 | * next digit is > 7 (or 8), the number is too big, and we will | ||
89 | * return a range error. | ||
90 | * | ||
91 | * Set any if any `digits' consumed; make it negative to indicate | ||
92 | * overflow. | ||
93 | */ | ||
94 | cutoff = neg ? INTMAX_MIN : INTMAX_MAX; | ||
95 | cutlim = cutoff % base; | ||
96 | cutoff /= base; | ||
97 | if (neg) { | ||
98 | if (cutlim > 0) { | ||
99 | cutlim -= base; | ||
100 | cutoff += 1; | ||
101 | } | ||
102 | cutlim = -cutlim; | ||
103 | } | ||
104 | for (acc = 0, any = 0;; c = (unsigned char) *s++) { | ||
105 | if (isdigit(c)) | ||
106 | c -= '0'; | ||
107 | else if (isalpha(c)) | ||
108 | c -= isupper(c) ? 'A' - 10 : 'a' - 10; | ||
109 | else | ||
110 | break; | ||
111 | if (c >= base) | ||
112 | break; | ||
113 | if (any < 0) | ||
114 | continue; | ||
115 | if (neg) { | ||
116 | if (acc < cutoff || (acc == cutoff && c > cutlim)) { | ||
117 | any = -1; | ||
118 | acc = INTMAX_MIN; | ||
119 | errno = ERANGE; | ||
120 | } else { | ||
121 | any = 1; | ||
122 | acc *= base; | ||
123 | acc -= c; | ||
124 | } | ||
125 | } else { | ||
126 | if (acc > cutoff || (acc == cutoff && c > cutlim)) { | ||
127 | any = -1; | ||
128 | acc = INTMAX_MAX; | ||
129 | errno = ERANGE; | ||
130 | } else { | ||
131 | any = 1; | ||
132 | acc *= base; | ||
133 | acc += c; | ||
134 | } | ||
135 | } | ||
136 | } | ||
137 | if (endptr != 0) | ||
138 | *endptr = (char *) (any ? s - 1 : nptr); | ||
139 | return (acc); | ||
140 | } | ||
diff --git a/src/lib/libc/stdlib/strtol.3 b/src/lib/libc/stdlib/strtol.3 new file mode 100644 index 0000000000..6f9037a645 --- /dev/null +++ b/src/lib/libc/stdlib/strtol.3 | |||
@@ -0,0 +1,264 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: strtol.3,v 1.22 2011/09/03 23:24:51 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: September 3 2011 $ | ||
35 | .Dt STRTOL 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm strtol , | ||
39 | .Nm strtoll , | ||
40 | .Nm strtoimax , | ||
41 | .Nm strtoq , | ||
42 | .Nd "convert string value to a long, long long or intmax_t integer" | ||
43 | .Sh SYNOPSIS | ||
44 | .Fd #include <limits.h> | ||
45 | .Fd #include <stdlib.h> | ||
46 | .Ft long | ||
47 | .Fn strtol "const char *nptr" "char **endptr" "int base" | ||
48 | .Pp | ||
49 | .Ft long long | ||
50 | .Fn strtoll "const char *nptr" "char **endptr" "int base" | ||
51 | .Pp | ||
52 | .Fd #include <inttypes.h> | ||
53 | .Ft intmax_t | ||
54 | .Fn strtoimax "const char *nptr" "char **endptr" "int base" | ||
55 | .Pp | ||
56 | .Fd #include <sys/types.h> | ||
57 | .Fd #include <limits.h> | ||
58 | .Fd #include <stdlib.h> | ||
59 | .Ft quad_t | ||
60 | .Fn strtoq "const char *nptr" "char **endptr" "int base" | ||
61 | .Sh DESCRIPTION | ||
62 | The | ||
63 | .Fn strtol | ||
64 | function converts the string in | ||
65 | .Fa nptr | ||
66 | to a | ||
67 | .Li long | ||
68 | value. | ||
69 | The | ||
70 | .Fn strtoll | ||
71 | function converts the string in | ||
72 | .Fa nptr | ||
73 | to a | ||
74 | .Li long long | ||
75 | value. | ||
76 | The | ||
77 | .Fn strtoimax | ||
78 | function converts the string in | ||
79 | .Fa nptr | ||
80 | to an | ||
81 | .Li intmax_t | ||
82 | value. | ||
83 | The | ||
84 | .Fn strtoq | ||
85 | function is a deprecated equivalent of | ||
86 | .Fn strtoll | ||
87 | and is provided for backwards compatibility with legacy programs. | ||
88 | The conversion is done according to the given | ||
89 | .Fa base , | ||
90 | which must be a number between 2 and 36 inclusive or the special value 0. | ||
91 | .Pp | ||
92 | The string may begin with an arbitrary amount of whitespace | ||
93 | (as determined by | ||
94 | .Xr isspace 3 ) | ||
95 | followed by a single optional | ||
96 | .Ql + | ||
97 | or | ||
98 | .Ql - | ||
99 | sign. | ||
100 | If | ||
101 | .Fa base | ||
102 | is zero or 16, the string may then include a | ||
103 | .Ql 0x | ||
104 | prefix, and the number will be read in base 16; otherwise, a zero | ||
105 | .Fa base | ||
106 | is taken as 10 (decimal) unless the next character is | ||
107 | .Ql 0 , | ||
108 | in which case it is taken as 8 (octal). | ||
109 | .Pp | ||
110 | The remainder of the string is converted to a | ||
111 | .Li long , | ||
112 | .Li long long , | ||
113 | or | ||
114 | .Li intmax_t , | ||
115 | value in the obvious manner, | ||
116 | stopping at the first character which is not a valid digit | ||
117 | in the given base. | ||
118 | (In bases above 10, the letter | ||
119 | .Ql A | ||
120 | in either upper or lower case represents 10, | ||
121 | .Ql B | ||
122 | represents 11, and so forth, with | ||
123 | .Ql Z | ||
124 | representing 35.) | ||
125 | .Pp | ||
126 | If | ||
127 | .Fa endptr | ||
128 | is non-null, | ||
129 | .Fn strtol | ||
130 | stores the address of the first invalid character in | ||
131 | .Fa *endptr . | ||
132 | If there were no digits at all, however, | ||
133 | .Fn strtol | ||
134 | stores the original value of | ||
135 | .Fa nptr | ||
136 | in | ||
137 | .Fa *endptr . | ||
138 | (Thus, if | ||
139 | .Fa *nptr | ||
140 | is not | ||
141 | .Ql \e0 | ||
142 | but | ||
143 | .Fa **endptr | ||
144 | is | ||
145 | .Ql \e0 | ||
146 | on return, the entire string was valid.) | ||
147 | .Sh RETURN VALUES | ||
148 | The | ||
149 | .Fn strtol , | ||
150 | .Fn strtoll , | ||
151 | .Fn strtoimax , | ||
152 | and | ||
153 | .Fn strtoq | ||
154 | functions return the result of the conversion, | ||
155 | unless the value would underflow or overflow. | ||
156 | If no conversion could be performed, 0 is returned; | ||
157 | the global variable | ||
158 | .Va errno | ||
159 | is also set to | ||
160 | .Er EINVAL , | ||
161 | though this is not portable across all platforms. | ||
162 | If overflow or underflow occurs, | ||
163 | .Va errno | ||
164 | is set to | ||
165 | .Er ERANGE | ||
166 | and the function return value is as follows: | ||
167 | .Bl -column "strtoimaxXX" "INTMAX_MIN" "INTMAX_MAX" -offset indent | ||
168 | .It Sy Function Ta Sy underflow Ta Sy overflow | ||
169 | .It Fn strtol Ta Dv LONG_MIN Ta Dv LONG_MAX | ||
170 | .It Fn strtoll Ta Dv LLONG_MIN Ta Dv LLONG_MAX | ||
171 | .It Fn strtoimax Ta Dv INTMAX_MIN Ta Dv INTMAX_MAX | ||
172 | .It Fn strtoq Ta Dv LLONG_MIN Ta Dv LLONG_MAX | ||
173 | .El | ||
174 | .Sh EXAMPLES | ||
175 | Ensuring that a string is a valid number (i.e., in range and containing no | ||
176 | trailing characters) requires clearing | ||
177 | .Va errno | ||
178 | beforehand explicitly since | ||
179 | .Va errno | ||
180 | is not changed on a successful call to | ||
181 | .Fn strtol , | ||
182 | and the return value of | ||
183 | .Fn strtol | ||
184 | cannot be used unambiguously to signal an error: | ||
185 | .Bd -literal -offset indent | ||
186 | char *ep; | ||
187 | long lval; | ||
188 | |||
189 | \&... | ||
190 | |||
191 | errno = 0; | ||
192 | lval = strtol(buf, &ep, 10); | ||
193 | if (buf[0] == '\e0' || *ep != '\e0') | ||
194 | goto not_a_number; | ||
195 | if (errno == ERANGE && (lval == LONG_MAX || lval == LONG_MIN)) | ||
196 | goto out_of_range; | ||
197 | .Ed | ||
198 | .Pp | ||
199 | This example will accept | ||
200 | .Dq 12 | ||
201 | but not | ||
202 | .Dq 12foo | ||
203 | or | ||
204 | .Dq 12\en . | ||
205 | If trailing whitespace is acceptable, further checks must be done on | ||
206 | .Va *ep ; | ||
207 | alternately, use | ||
208 | .Xr sscanf 3 . | ||
209 | .Pp | ||
210 | If | ||
211 | .Fn strtol | ||
212 | is being used instead of | ||
213 | .Xr atoi 3 , | ||
214 | error checking is further complicated because the desired return value is an | ||
215 | .Li int | ||
216 | rather than a | ||
217 | .Li long ; | ||
218 | however, on some architectures integers and long integers are the same size. | ||
219 | Thus the following is necessary: | ||
220 | .Bd -literal -offset indent | ||
221 | char *ep; | ||
222 | int ival; | ||
223 | long lval; | ||
224 | |||
225 | \&... | ||
226 | |||
227 | errno = 0; | ||
228 | lval = strtol(buf, &ep, 10); | ||
229 | if (buf[0] == '\e0' || *ep != '\e0') | ||
230 | goto not_a_number; | ||
231 | if ((errno == ERANGE && (lval == LONG_MAX || lval == LONG_MIN)) || | ||
232 | (lval > INT_MAX || lval < INT_MIN)) | ||
233 | goto out_of_range; | ||
234 | ival = lval; | ||
235 | .Ed | ||
236 | .Sh ERRORS | ||
237 | .Bl -tag -width Er | ||
238 | .It Bq Er ERANGE | ||
239 | The given string was out of range; the value converted has been clamped. | ||
240 | .El | ||
241 | .Sh SEE ALSO | ||
242 | .Xr atof 3 , | ||
243 | .Xr atoi 3 , | ||
244 | .Xr atol 3 , | ||
245 | .Xr atoll 3 , | ||
246 | .Xr sscanf 3 , | ||
247 | .Xr strtod 3 , | ||
248 | .Xr strtonum 3 , | ||
249 | .Xr strtoul 3 | ||
250 | .Sh STANDARDS | ||
251 | The | ||
252 | .Fn strtol , | ||
253 | .Fn strtoll , | ||
254 | and | ||
255 | .Fn strtoimax | ||
256 | functions conform to | ||
257 | .St -ansiC-99 . | ||
258 | The | ||
259 | .Fn strtoq | ||
260 | function is a | ||
261 | .Bx | ||
262 | extension and is provided for backwards compatibility with legacy programs. | ||
263 | .Sh BUGS | ||
264 | Ignores the current locale. | ||
diff --git a/src/lib/libc/stdlib/strtol.c b/src/lib/libc/stdlib/strtol.c new file mode 100644 index 0000000000..5a244766db --- /dev/null +++ b/src/lib/libc/stdlib/strtol.c | |||
@@ -0,0 +1,140 @@ | |||
1 | /* $OpenBSD: strtol.c,v 1.7 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1990 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <ctype.h> | ||
32 | #include <errno.h> | ||
33 | #include <limits.h> | ||
34 | #include <stdlib.h> | ||
35 | |||
36 | |||
37 | /* | ||
38 | * Convert a string to a long integer. | ||
39 | * | ||
40 | * Ignores `locale' stuff. Assumes that the upper and lower case | ||
41 | * alphabets and digits are each contiguous. | ||
42 | */ | ||
43 | long | ||
44 | strtol(const char *nptr, char **endptr, int base) | ||
45 | { | ||
46 | const char *s; | ||
47 | long acc, cutoff; | ||
48 | int c; | ||
49 | int neg, any, cutlim; | ||
50 | |||
51 | /* | ||
52 | * Skip white space and pick up leading +/- sign if any. | ||
53 | * If base is 0, allow 0x for hex and 0 for octal, else | ||
54 | * assume decimal; if base is already 16, allow 0x. | ||
55 | */ | ||
56 | s = nptr; | ||
57 | do { | ||
58 | c = (unsigned char) *s++; | ||
59 | } while (isspace(c)); | ||
60 | if (c == '-') { | ||
61 | neg = 1; | ||
62 | c = *s++; | ||
63 | } else { | ||
64 | neg = 0; | ||
65 | if (c == '+') | ||
66 | c = *s++; | ||
67 | } | ||
68 | if ((base == 0 || base == 16) && | ||
69 | c == '0' && (*s == 'x' || *s == 'X')) { | ||
70 | c = s[1]; | ||
71 | s += 2; | ||
72 | base = 16; | ||
73 | } | ||
74 | if (base == 0) | ||
75 | base = c == '0' ? 8 : 10; | ||
76 | |||
77 | /* | ||
78 | * Compute the cutoff value between legal numbers and illegal | ||
79 | * numbers. That is the largest legal value, divided by the | ||
80 | * base. An input number that is greater than this value, if | ||
81 | * followed by a legal input character, is too big. One that | ||
82 | * is equal to this value may be valid or not; the limit | ||
83 | * between valid and invalid numbers is then based on the last | ||
84 | * digit. For instance, if the range for longs is | ||
85 | * [-2147483648..2147483647] and the input base is 10, | ||
86 | * cutoff will be set to 214748364 and cutlim to either | ||
87 | * 7 (neg==0) or 8 (neg==1), meaning that if we have accumulated | ||
88 | * a value > 214748364, or equal but the next digit is > 7 (or 8), | ||
89 | * the number is too big, and we will return a range error. | ||
90 | * | ||
91 | * Set any if any `digits' consumed; make it negative to indicate | ||
92 | * overflow. | ||
93 | */ | ||
94 | cutoff = neg ? LONG_MIN : LONG_MAX; | ||
95 | cutlim = cutoff % base; | ||
96 | cutoff /= base; | ||
97 | if (neg) { | ||
98 | if (cutlim > 0) { | ||
99 | cutlim -= base; | ||
100 | cutoff += 1; | ||
101 | } | ||
102 | cutlim = -cutlim; | ||
103 | } | ||
104 | for (acc = 0, any = 0;; c = (unsigned char) *s++) { | ||
105 | if (isdigit(c)) | ||
106 | c -= '0'; | ||
107 | else if (isalpha(c)) | ||
108 | c -= isupper(c) ? 'A' - 10 : 'a' - 10; | ||
109 | else | ||
110 | break; | ||
111 | if (c >= base) | ||
112 | break; | ||
113 | if (any < 0) | ||
114 | continue; | ||
115 | if (neg) { | ||
116 | if (acc < cutoff || acc == cutoff && c > cutlim) { | ||
117 | any = -1; | ||
118 | acc = LONG_MIN; | ||
119 | errno = ERANGE; | ||
120 | } else { | ||
121 | any = 1; | ||
122 | acc *= base; | ||
123 | acc -= c; | ||
124 | } | ||
125 | } else { | ||
126 | if (acc > cutoff || acc == cutoff && c > cutlim) { | ||
127 | any = -1; | ||
128 | acc = LONG_MAX; | ||
129 | errno = ERANGE; | ||
130 | } else { | ||
131 | any = 1; | ||
132 | acc *= base; | ||
133 | acc += c; | ||
134 | } | ||
135 | } | ||
136 | } | ||
137 | if (endptr != 0) | ||
138 | *endptr = (char *) (any ? s - 1 : nptr); | ||
139 | return (acc); | ||
140 | } | ||
diff --git a/src/lib/libc/stdlib/strtoll.c b/src/lib/libc/stdlib/strtoll.c new file mode 100644 index 0000000000..37379252e3 --- /dev/null +++ b/src/lib/libc/stdlib/strtoll.c | |||
@@ -0,0 +1,153 @@ | |||
1 | /* $OpenBSD: strtoll.c,v 1.6 2005/11/10 10:00:17 espie Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1992 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <sys/types.h> | ||
32 | |||
33 | #include <ctype.h> | ||
34 | #include <errno.h> | ||
35 | #include <limits.h> | ||
36 | #include <stdlib.h> | ||
37 | |||
38 | /* | ||
39 | * Convert a string to a long long. | ||
40 | * | ||
41 | * Ignores `locale' stuff. Assumes that the upper and lower case | ||
42 | * alphabets and digits are each contiguous. | ||
43 | */ | ||
44 | long long | ||
45 | strtoll(const char *nptr, char **endptr, int base) | ||
46 | { | ||
47 | const char *s; | ||
48 | long long acc, cutoff; | ||
49 | int c; | ||
50 | int neg, any, cutlim; | ||
51 | |||
52 | /* | ||
53 | * Skip white space and pick up leading +/- sign if any. | ||
54 | * If base is 0, allow 0x for hex and 0 for octal, else | ||
55 | * assume decimal; if base is already 16, allow 0x. | ||
56 | */ | ||
57 | s = nptr; | ||
58 | do { | ||
59 | c = (unsigned char) *s++; | ||
60 | } while (isspace(c)); | ||
61 | if (c == '-') { | ||
62 | neg = 1; | ||
63 | c = *s++; | ||
64 | } else { | ||
65 | neg = 0; | ||
66 | if (c == '+') | ||
67 | c = *s++; | ||
68 | } | ||
69 | if ((base == 0 || base == 16) && | ||
70 | c == '0' && (*s == 'x' || *s == 'X')) { | ||
71 | c = s[1]; | ||
72 | s += 2; | ||
73 | base = 16; | ||
74 | } | ||
75 | if (base == 0) | ||
76 | base = c == '0' ? 8 : 10; | ||
77 | |||
78 | /* | ||
79 | * Compute the cutoff value between legal numbers and illegal | ||
80 | * numbers. That is the largest legal value, divided by the | ||
81 | * base. An input number that is greater than this value, if | ||
82 | * followed by a legal input character, is too big. One that | ||
83 | * is equal to this value may be valid or not; the limit | ||
84 | * between valid and invalid numbers is then based on the last | ||
85 | * digit. For instance, if the range for long longs is | ||
86 | * [-9223372036854775808..9223372036854775807] and the input base | ||
87 | * is 10, cutoff will be set to 922337203685477580 and cutlim to | ||
88 | * either 7 (neg==0) or 8 (neg==1), meaning that if we have | ||
89 | * accumulated a value > 922337203685477580, or equal but the | ||
90 | * next digit is > 7 (or 8), the number is too big, and we will | ||
91 | * return a range error. | ||
92 | * | ||
93 | * Set any if any `digits' consumed; make it negative to indicate | ||
94 | * overflow. | ||
95 | */ | ||
96 | cutoff = neg ? LLONG_MIN : LLONG_MAX; | ||
97 | cutlim = cutoff % base; | ||
98 | cutoff /= base; | ||
99 | if (neg) { | ||
100 | if (cutlim > 0) { | ||
101 | cutlim -= base; | ||
102 | cutoff += 1; | ||
103 | } | ||
104 | cutlim = -cutlim; | ||
105 | } | ||
106 | for (acc = 0, any = 0;; c = (unsigned char) *s++) { | ||
107 | if (isdigit(c)) | ||
108 | c -= '0'; | ||
109 | else if (isalpha(c)) | ||
110 | c -= isupper(c) ? 'A' - 10 : 'a' - 10; | ||
111 | else | ||
112 | break; | ||
113 | if (c >= base) | ||
114 | break; | ||
115 | if (any < 0) | ||
116 | continue; | ||
117 | if (neg) { | ||
118 | if (acc < cutoff || (acc == cutoff && c > cutlim)) { | ||
119 | any = -1; | ||
120 | acc = LLONG_MIN; | ||
121 | errno = ERANGE; | ||
122 | } else { | ||
123 | any = 1; | ||
124 | acc *= base; | ||
125 | acc -= c; | ||
126 | } | ||
127 | } else { | ||
128 | if (acc > cutoff || (acc == cutoff && c > cutlim)) { | ||
129 | any = -1; | ||
130 | acc = LLONG_MAX; | ||
131 | errno = ERANGE; | ||
132 | } else { | ||
133 | any = 1; | ||
134 | acc *= base; | ||
135 | acc += c; | ||
136 | } | ||
137 | } | ||
138 | } | ||
139 | if (endptr != 0) | ||
140 | *endptr = (char *) (any ? s - 1 : nptr); | ||
141 | return (acc); | ||
142 | } | ||
143 | |||
144 | #ifdef __weak_alias | ||
145 | __weak_alias(strtoq, strtoll); | ||
146 | #else | ||
147 | quad_t | ||
148 | strtoq(const char *nptr, char **endptr, int base) | ||
149 | { | ||
150 | |||
151 | return ((quad_t)strtoll(nptr, endptr, base)); | ||
152 | } | ||
153 | #endif | ||
diff --git a/src/lib/libc/stdlib/strtonum.3 b/src/lib/libc/stdlib/strtonum.3 new file mode 100644 index 0000000000..58b4112ac3 --- /dev/null +++ b/src/lib/libc/stdlib/strtonum.3 | |||
@@ -0,0 +1,152 @@ | |||
1 | .\" $OpenBSD: strtonum.3,v 1.14 2007/05/31 19:19:31 jmc Exp $ | ||
2 | .\" | ||
3 | .\" Copyright (c) 2004 Ted Unangst | ||
4 | .\" | ||
5 | .\" Permission to use, copy, modify, and distribute this software for any | ||
6 | .\" purpose with or without fee is hereby granted, provided that the above | ||
7 | .\" copyright notice and this permission notice appear in all copies. | ||
8 | .\" | ||
9 | .\" THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
10 | .\" WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
11 | .\" MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
12 | .\" ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
13 | .\" WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
14 | .\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
15 | .\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
16 | .\" | ||
17 | .Dd $Mdocdate: May 31 2007 $ | ||
18 | .Dt STRTONUM 3 | ||
19 | .Os | ||
20 | .Sh NAME | ||
21 | .Nm strtonum | ||
22 | .Nd "reliably convert string value to an integer" | ||
23 | .Sh SYNOPSIS | ||
24 | .Fd #include <stdlib.h> | ||
25 | .Ft long long | ||
26 | .Fo strtonum | ||
27 | .Fa "const char *nptr" | ||
28 | .Fa "long long minval" | ||
29 | .Fa "long long maxval" | ||
30 | .Fa "const char **errstr" | ||
31 | .Fc | ||
32 | .Sh DESCRIPTION | ||
33 | The | ||
34 | .Fn strtonum | ||
35 | function converts the string in | ||
36 | .Fa nptr | ||
37 | to a | ||
38 | .Li long long | ||
39 | value. | ||
40 | The | ||
41 | .Fn strtonum | ||
42 | function was designed to facilitate safe, robust programming | ||
43 | and overcome the shortcomings of the | ||
44 | .Xr atoi 3 | ||
45 | and | ||
46 | .Xr strtol 3 | ||
47 | family of interfaces. | ||
48 | .Pp | ||
49 | The string may begin with an arbitrary amount of whitespace | ||
50 | (as determined by | ||
51 | .Xr isspace 3 ) | ||
52 | followed by a single optional | ||
53 | .Ql + | ||
54 | or | ||
55 | .Ql - | ||
56 | sign. | ||
57 | .Pp | ||
58 | The remainder of the string is converted to a | ||
59 | .Li long long | ||
60 | value according to base 10. | ||
61 | .Pp | ||
62 | The value obtained is then checked against the provided | ||
63 | .Fa minval | ||
64 | and | ||
65 | .Fa maxval | ||
66 | bounds. | ||
67 | If | ||
68 | .Fa errstr | ||
69 | is non-null, | ||
70 | .Fn strtonum | ||
71 | stores an error string in | ||
72 | .Fa *errstr | ||
73 | indicating the failure. | ||
74 | .Sh RETURN VALUES | ||
75 | The | ||
76 | .Fn strtonum | ||
77 | function returns the result of the conversion, | ||
78 | unless the value would exceed the provided bounds or is invalid. | ||
79 | On error, 0 is returned, | ||
80 | .Va errno | ||
81 | is set, and | ||
82 | .Fa errstr | ||
83 | will point to an error message. | ||
84 | .Fa *errstr | ||
85 | will be set to | ||
86 | .Dv NULL | ||
87 | on success; | ||
88 | this fact can be used to differentiate | ||
89 | a successful return of 0 from an error. | ||
90 | .Sh EXAMPLES | ||
91 | Using | ||
92 | .Fn strtonum | ||
93 | correctly is meant to be simpler than the alternative functions. | ||
94 | .Bd -literal -offset indent | ||
95 | int iterations; | ||
96 | const char *errstr; | ||
97 | |||
98 | iterations = strtonum(optarg, 1, 64, &errstr); | ||
99 | if (errstr) | ||
100 | errx(1, "number of iterations is %s: %s", errstr, optarg); | ||
101 | .Ed | ||
102 | .Pp | ||
103 | The above example will guarantee that the value of iterations is between | ||
104 | 1 and 64 (inclusive). | ||
105 | .Sh ERRORS | ||
106 | .Bl -tag -width Er | ||
107 | .It Bq Er ERANGE | ||
108 | The given string was out of range. | ||
109 | .It Bq Er EINVAL | ||
110 | The given string did not consist solely of digit characters. | ||
111 | .It Bq Er EINVAL | ||
112 | .Ar minval | ||
113 | was larger than | ||
114 | .Ar maxval . | ||
115 | .El | ||
116 | .Pp | ||
117 | If an error occurs, | ||
118 | .Fa errstr | ||
119 | will be set to one of the following strings: | ||
120 | .Pp | ||
121 | .Bl -tag -width "too largeXX" -compact | ||
122 | .It too large | ||
123 | The result was larger than the provided maximum value. | ||
124 | .It too small | ||
125 | The result was smaller than the provided minimum value. | ||
126 | .It invalid | ||
127 | The string did not consist solely of digit characters. | ||
128 | .El | ||
129 | .Sh SEE ALSO | ||
130 | .Xr atof 3 , | ||
131 | .Xr atoi 3 , | ||
132 | .Xr atol 3 , | ||
133 | .Xr atoll 3 , | ||
134 | .Xr sscanf 3 , | ||
135 | .Xr strtod 3 , | ||
136 | .Xr strtol 3 , | ||
137 | .Xr strtoul 3 | ||
138 | .Sh STANDARDS | ||
139 | .Fn strtonum | ||
140 | is an | ||
141 | .Ox | ||
142 | extension. | ||
143 | The existing alternatives, such as | ||
144 | .Xr atoi 3 | ||
145 | and | ||
146 | .Xr strtol 3 , | ||
147 | are either impossible or difficult to use safely. | ||
148 | .Sh HISTORY | ||
149 | The | ||
150 | .Fn strtonum | ||
151 | function first appeared in | ||
152 | .Ox 3.6 . | ||
diff --git a/src/lib/libc/stdlib/strtonum.c b/src/lib/libc/stdlib/strtonum.c new file mode 100644 index 0000000000..e426388ed0 --- /dev/null +++ b/src/lib/libc/stdlib/strtonum.c | |||
@@ -0,0 +1,65 @@ | |||
1 | /* $OpenBSD: strtonum.c,v 1.6 2004/08/03 19:38:01 millert Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Copyright (c) 2004 Ted Unangst and Todd Miller | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Permission to use, copy, modify, and distribute this software for any | ||
8 | * purpose with or without fee is hereby granted, provided that the above | ||
9 | * copyright notice and this permission notice appear in all copies. | ||
10 | * | ||
11 | * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
12 | * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
13 | * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
14 | * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
15 | * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
16 | * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
17 | * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
18 | */ | ||
19 | |||
20 | #include <errno.h> | ||
21 | #include <limits.h> | ||
22 | #include <stdlib.h> | ||
23 | |||
24 | #define INVALID 1 | ||
25 | #define TOOSMALL 2 | ||
26 | #define TOOLARGE 3 | ||
27 | |||
28 | long long | ||
29 | strtonum(const char *numstr, long long minval, long long maxval, | ||
30 | const char **errstrp) | ||
31 | { | ||
32 | long long ll = 0; | ||
33 | char *ep; | ||
34 | int error = 0; | ||
35 | struct errval { | ||
36 | const char *errstr; | ||
37 | int err; | ||
38 | } ev[4] = { | ||
39 | { NULL, 0 }, | ||
40 | { "invalid", EINVAL }, | ||
41 | { "too small", ERANGE }, | ||
42 | { "too large", ERANGE }, | ||
43 | }; | ||
44 | |||
45 | ev[0].err = errno; | ||
46 | errno = 0; | ||
47 | if (minval > maxval) | ||
48 | error = INVALID; | ||
49 | else { | ||
50 | ll = strtoll(numstr, &ep, 10); | ||
51 | if (numstr == ep || *ep != '\0') | ||
52 | error = INVALID; | ||
53 | else if ((ll == LLONG_MIN && errno == ERANGE) || ll < minval) | ||
54 | error = TOOSMALL; | ||
55 | else if ((ll == LLONG_MAX && errno == ERANGE) || ll > maxval) | ||
56 | error = TOOLARGE; | ||
57 | } | ||
58 | if (errstrp != NULL) | ||
59 | *errstrp = ev[error].errstr; | ||
60 | errno = ev[error].err; | ||
61 | if (error) | ||
62 | ll = 0; | ||
63 | |||
64 | return (ll); | ||
65 | } | ||
diff --git a/src/lib/libc/stdlib/strtoul.3 b/src/lib/libc/stdlib/strtoul.3 new file mode 100644 index 0000000000..5e86772ef0 --- /dev/null +++ b/src/lib/libc/stdlib/strtoul.3 | |||
@@ -0,0 +1,245 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" Chris Torek and the American National Standards Committee X3, | ||
6 | .\" on Information Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: strtoul.3,v 1.20 2010/04/07 18:32:53 jmc Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: April 7 2010 $ | ||
35 | .Dt STRTOUL 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm strtoul , | ||
39 | .Nm strtoull , | ||
40 | .Nm strtoumax , | ||
41 | .Nm strtouq | ||
42 | .Nd "convert a string to an unsigned long, unsigned long long or uintmax_t integer" | ||
43 | .Sh SYNOPSIS | ||
44 | .Fd #include <limits.h> | ||
45 | .Fd #include <stdlib.h> | ||
46 | .Ft unsigned long | ||
47 | .Fn strtoul "const char *nptr" "char **endptr" "int base" | ||
48 | .Ft unsigned long long | ||
49 | .Fn strtoull "const char *nptr" "char **endptr" "int base" | ||
50 | .Fd #include <inttypes.h> | ||
51 | .Ft uintmax_t | ||
52 | .Fn strtoumax "const char *nptr" "char **endptr" "int base" | ||
53 | .Fd #include <sys/types.h> | ||
54 | .Fd #include <limits.h> | ||
55 | .Fd #include <stdlib.h> | ||
56 | .Ft u_quad_t | ||
57 | .Fn strtouq "const char *nptr" "char **endptr" "int base" | ||
58 | .Sh DESCRIPTION | ||
59 | The | ||
60 | .Fn strtoul | ||
61 | function converts the string in | ||
62 | .Fa nptr | ||
63 | to an | ||
64 | .Li unsigned long | ||
65 | value. | ||
66 | The | ||
67 | .Fn strtoull | ||
68 | function converts the string in | ||
69 | .Fa nptr | ||
70 | to an | ||
71 | .Li unsigned long long | ||
72 | value. | ||
73 | The | ||
74 | .Fn strtoumax | ||
75 | function converts the string in | ||
76 | .Fa nptr | ||
77 | to a | ||
78 | .Li umaxint_t | ||
79 | value. | ||
80 | The | ||
81 | .Fn strtouq | ||
82 | function is a deprecated equivalent of | ||
83 | .Fn strtoull | ||
84 | and is provided for backwards compatibility with legacy programs. | ||
85 | The conversion is done according to the given | ||
86 | .Fa base , | ||
87 | which must be a number between 2 and 36 inclusive | ||
88 | or the special value 0. | ||
89 | If the string in | ||
90 | .Fa nptr | ||
91 | represents a negative number, it will be converted to its unsigned equivalent. | ||
92 | This behavior is consistent with what happens when a signed integer type is | ||
93 | cast to its unsigned counterpart. | ||
94 | .Pp | ||
95 | The string may begin with an arbitrary amount of whitespace | ||
96 | (as determined by | ||
97 | .Xr isspace 3 ) | ||
98 | followed by a single optional | ||
99 | .Ql + | ||
100 | or | ||
101 | .Ql - | ||
102 | sign. | ||
103 | If | ||
104 | .Fa base | ||
105 | is zero or 16, the string may then include a | ||
106 | .Ql 0x | ||
107 | prefix, and the number will be read in base 16; otherwise, a zero | ||
108 | .Fa base | ||
109 | is taken as 10 (decimal) unless the next character is | ||
110 | .Ql 0 , | ||
111 | in which case it is taken as 8 (octal). | ||
112 | .Pp | ||
113 | The remainder of the string is converted to an | ||
114 | .Li unsigned long | ||
115 | value in the obvious manner, stopping at the end of the string | ||
116 | or at the first character that does not produce a valid digit | ||
117 | in the given base. | ||
118 | (In bases above 10, the letter | ||
119 | .Ql A | ||
120 | in either upper or lower case represents 10, | ||
121 | .Ql B | ||
122 | represents 11, and so forth, with | ||
123 | .Ql Z | ||
124 | representing 35.) | ||
125 | .Pp | ||
126 | If | ||
127 | .Fa endptr | ||
128 | is non-null, | ||
129 | .Fn strtoul | ||
130 | stores the address of the first invalid character in | ||
131 | .Fa *endptr . | ||
132 | If there were no digits at all, however, | ||
133 | .Fn strtoul | ||
134 | stores the original value of | ||
135 | .Fa nptr | ||
136 | in | ||
137 | .Fa *endptr . | ||
138 | (Thus, if | ||
139 | .Fa *nptr | ||
140 | is not | ||
141 | .Ql \e0 | ||
142 | but | ||
143 | .Fa **endptr | ||
144 | is | ||
145 | .Ql \e0 | ||
146 | on return, the entire string was valid.) | ||
147 | .Sh RETURN VALUES | ||
148 | The | ||
149 | .Fn strtoul , | ||
150 | .Fn strtoull , | ||
151 | .Fn strtoumax | ||
152 | and | ||
153 | .Fn strtouq | ||
154 | functions return either the result of the conversion or, | ||
155 | if there was a leading minus sign, | ||
156 | the negation of the result of the conversion, | ||
157 | unless the original (non-negated) value would overflow. | ||
158 | If overflow occurs, | ||
159 | .Fn strtoul | ||
160 | returns | ||
161 | .Dv ULONG_MAX , | ||
162 | .Fn strtoull | ||
163 | returns | ||
164 | .Dv ULLONG_MAX , | ||
165 | .Fn strtoumax | ||
166 | returns | ||
167 | .Dv UINTMAX_MAX , | ||
168 | .Fn strtouq | ||
169 | returns | ||
170 | .Dv ULLONG_MAX | ||
171 | and the global variable | ||
172 | .Va errno | ||
173 | is set to | ||
174 | .Er ERANGE . | ||
175 | If no conversion could be performed, 0 is returned; | ||
176 | the global variable | ||
177 | .Va errno | ||
178 | is also set to | ||
179 | .Er EINVAL , | ||
180 | though this is not portable across all platforms. | ||
181 | .Pp | ||
182 | There is no way to determine if | ||
183 | .Fn strtoul | ||
184 | has processed a negative number (and returned an unsigned value) short of | ||
185 | examining the string in | ||
186 | .Fa nptr | ||
187 | directly. | ||
188 | .Sh EXAMPLES | ||
189 | Ensuring that a string is a valid number (i.e., in range and containing no | ||
190 | trailing characters) requires clearing | ||
191 | .Va errno | ||
192 | beforehand explicitly since | ||
193 | .Va errno | ||
194 | is not changed on a successful call to | ||
195 | .Fn strtoul , | ||
196 | and the return value of | ||
197 | .Fn strtoul | ||
198 | cannot be used unambiguously to signal an error: | ||
199 | .Bd -literal -offset indent | ||
200 | char *ep; | ||
201 | unsigned long ulval; | ||
202 | |||
203 | \&... | ||
204 | |||
205 | errno = 0; | ||
206 | ulval = strtoul(buf, &ep, 10); | ||
207 | if (buf[0] == '\e0' || *ep != '\e0') | ||
208 | goto not_a_number; | ||
209 | if (errno == ERANGE && ulval == ULONG_MAX) | ||
210 | goto out_of_range; | ||
211 | .Ed | ||
212 | .Pp | ||
213 | This example will accept | ||
214 | .Dq 12 | ||
215 | but not | ||
216 | .Dq 12foo | ||
217 | or | ||
218 | .Dq 12\en . | ||
219 | If trailing whitespace is acceptable, further checks must be done on | ||
220 | .Va *ep ; | ||
221 | alternately, use | ||
222 | .Xr sscanf 3 . | ||
223 | .Sh ERRORS | ||
224 | .Bl -tag -width Er | ||
225 | .It Bq Er ERANGE | ||
226 | The given string was out of range; the value converted has been clamped. | ||
227 | .El | ||
228 | .Sh SEE ALSO | ||
229 | .Xr sscanf 3 , | ||
230 | .Xr strtol 3 | ||
231 | .Sh STANDARDS | ||
232 | The | ||
233 | .Fn strtoul , | ||
234 | .Fn strtoull , | ||
235 | and | ||
236 | .Fn strtoumax | ||
237 | functions conform to | ||
238 | .St -ansiC-99 . | ||
239 | The | ||
240 | .Fn strtouq | ||
241 | function is a | ||
242 | .Bx | ||
243 | extension and is provided for backwards compatibility with legacy programs. | ||
244 | .Sh BUGS | ||
245 | Ignores the current locale. | ||
diff --git a/src/lib/libc/stdlib/strtoul.c b/src/lib/libc/stdlib/strtoul.c new file mode 100644 index 0000000000..d7dddab778 --- /dev/null +++ b/src/lib/libc/stdlib/strtoul.c | |||
@@ -0,0 +1,102 @@ | |||
1 | /* $OpenBSD: strtoul.c,v 1.7 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1990 Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <ctype.h> | ||
32 | #include <errno.h> | ||
33 | #include <limits.h> | ||
34 | #include <stdlib.h> | ||
35 | |||
36 | /* | ||
37 | * Convert a string to an unsigned long integer. | ||
38 | * | ||
39 | * Ignores `locale' stuff. Assumes that the upper and lower case | ||
40 | * alphabets and digits are each contiguous. | ||
41 | */ | ||
42 | unsigned long | ||
43 | strtoul(const char *nptr, char **endptr, int base) | ||
44 | { | ||
45 | const char *s; | ||
46 | unsigned long acc, cutoff; | ||
47 | int c; | ||
48 | int neg, any, cutlim; | ||
49 | |||
50 | /* | ||
51 | * See strtol for comments as to the logic used. | ||
52 | */ | ||
53 | s = nptr; | ||
54 | do { | ||
55 | c = (unsigned char) *s++; | ||
56 | } while (isspace(c)); | ||
57 | if (c == '-') { | ||
58 | neg = 1; | ||
59 | c = *s++; | ||
60 | } else { | ||
61 | neg = 0; | ||
62 | if (c == '+') | ||
63 | c = *s++; | ||
64 | } | ||
65 | if ((base == 0 || base == 16) && | ||
66 | c == '0' && (*s == 'x' || *s == 'X')) { | ||
67 | c = s[1]; | ||
68 | s += 2; | ||
69 | base = 16; | ||
70 | } | ||
71 | if (base == 0) | ||
72 | base = c == '0' ? 8 : 10; | ||
73 | |||
74 | cutoff = ULONG_MAX / (unsigned long)base; | ||
75 | cutlim = ULONG_MAX % (unsigned long)base; | ||
76 | for (acc = 0, any = 0;; c = (unsigned char) *s++) { | ||
77 | if (isdigit(c)) | ||
78 | c -= '0'; | ||
79 | else if (isalpha(c)) | ||
80 | c -= isupper(c) ? 'A' - 10 : 'a' - 10; | ||
81 | else | ||
82 | break; | ||
83 | if (c >= base) | ||
84 | break; | ||
85 | if (any < 0) | ||
86 | continue; | ||
87 | if (acc > cutoff || acc == cutoff && c > cutlim) { | ||
88 | any = -1; | ||
89 | acc = ULONG_MAX; | ||
90 | errno = ERANGE; | ||
91 | } else { | ||
92 | any = 1; | ||
93 | acc *= (unsigned long)base; | ||
94 | acc += c; | ||
95 | } | ||
96 | } | ||
97 | if (neg && any > 0) | ||
98 | acc = -acc; | ||
99 | if (endptr != 0) | ||
100 | *endptr = (char *) (any ? s - 1 : nptr); | ||
101 | return (acc); | ||
102 | } | ||
diff --git a/src/lib/libc/stdlib/strtoull.c b/src/lib/libc/stdlib/strtoull.c new file mode 100644 index 0000000000..37859776f9 --- /dev/null +++ b/src/lib/libc/stdlib/strtoull.c | |||
@@ -0,0 +1,115 @@ | |||
1 | /* $OpenBSD: strtoull.c,v 1.5 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /*- | ||
3 | * Copyright (c) 1992 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <sys/types.h> | ||
32 | |||
33 | #include <ctype.h> | ||
34 | #include <errno.h> | ||
35 | #include <limits.h> | ||
36 | #include <stdlib.h> | ||
37 | |||
38 | /* | ||
39 | * Convert a string to an unsigned long long. | ||
40 | * | ||
41 | * Ignores `locale' stuff. Assumes that the upper and lower case | ||
42 | * alphabets and digits are each contiguous. | ||
43 | */ | ||
44 | unsigned long long | ||
45 | strtoull(const char *nptr, char **endptr, int base) | ||
46 | { | ||
47 | const char *s; | ||
48 | unsigned long long acc, cutoff; | ||
49 | int c; | ||
50 | int neg, any, cutlim; | ||
51 | |||
52 | /* | ||
53 | * See strtoq for comments as to the logic used. | ||
54 | */ | ||
55 | s = nptr; | ||
56 | do { | ||
57 | c = (unsigned char) *s++; | ||
58 | } while (isspace(c)); | ||
59 | if (c == '-') { | ||
60 | neg = 1; | ||
61 | c = *s++; | ||
62 | } else { | ||
63 | neg = 0; | ||
64 | if (c == '+') | ||
65 | c = *s++; | ||
66 | } | ||
67 | if ((base == 0 || base == 16) && | ||
68 | c == '0' && (*s == 'x' || *s == 'X')) { | ||
69 | c = s[1]; | ||
70 | s += 2; | ||
71 | base = 16; | ||
72 | } | ||
73 | if (base == 0) | ||
74 | base = c == '0' ? 8 : 10; | ||
75 | |||
76 | cutoff = ULLONG_MAX / (unsigned long long)base; | ||
77 | cutlim = ULLONG_MAX % (unsigned long long)base; | ||
78 | for (acc = 0, any = 0;; c = (unsigned char) *s++) { | ||
79 | if (isdigit(c)) | ||
80 | c -= '0'; | ||
81 | else if (isalpha(c)) | ||
82 | c -= isupper(c) ? 'A' - 10 : 'a' - 10; | ||
83 | else | ||
84 | break; | ||
85 | if (c >= base) | ||
86 | break; | ||
87 | if (any < 0) | ||
88 | continue; | ||
89 | if (acc > cutoff || (acc == cutoff && c > cutlim)) { | ||
90 | any = -1; | ||
91 | acc = ULLONG_MAX; | ||
92 | errno = ERANGE; | ||
93 | } else { | ||
94 | any = 1; | ||
95 | acc *= (unsigned long long)base; | ||
96 | acc += c; | ||
97 | } | ||
98 | } | ||
99 | if (neg && any > 0) | ||
100 | acc = -acc; | ||
101 | if (endptr != 0) | ||
102 | *endptr = (char *) (any ? s - 1 : nptr); | ||
103 | return (acc); | ||
104 | } | ||
105 | |||
106 | #ifdef __weak_alias | ||
107 | __weak_alias(strtouq, strtoull); | ||
108 | #else | ||
109 | u_quad_t | ||
110 | strtouq(const char *nptr, char **endptr, int base) | ||
111 | { | ||
112 | |||
113 | return ((u_quad_t)strtoull(nptr, endptr, base)); | ||
114 | } | ||
115 | #endif | ||
diff --git a/src/lib/libc/stdlib/strtoumax.c b/src/lib/libc/stdlib/strtoumax.c new file mode 100644 index 0000000000..ce6e2c00f1 --- /dev/null +++ b/src/lib/libc/stdlib/strtoumax.c | |||
@@ -0,0 +1,102 @@ | |||
1 | /* $OpenBSD: strtoumax.c,v 1.1 2006/01/13 17:58:09 millert Exp $ */ | ||
2 | |||
3 | /*- | ||
4 | * Copyright (c) 1992 The Regents of the University of California. | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * Redistribution and use in source and binary forms, with or without | ||
8 | * modification, are permitted provided that the following conditions | ||
9 | * are met: | ||
10 | * 1. Redistributions of source code must retain the above copyright | ||
11 | * notice, this list of conditions and the following disclaimer. | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in the | ||
14 | * documentation and/or other materials provided with the distribution. | ||
15 | * 3. Neither the name of the University nor the names of its contributors | ||
16 | * may be used to endorse or promote products derived from this software | ||
17 | * without specific prior written permission. | ||
18 | * | ||
19 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
20 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
21 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
22 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
23 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
24 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
25 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
26 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
28 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
29 | * SUCH DAMAGE. | ||
30 | */ | ||
31 | |||
32 | #include <ctype.h> | ||
33 | #include <errno.h> | ||
34 | #include <inttypes.h> | ||
35 | |||
36 | /* | ||
37 | * Convert a string to a uintmax_t. | ||
38 | * | ||
39 | * Ignores `locale' stuff. Assumes that the upper and lower case | ||
40 | * alphabets and digits are each contiguous. | ||
41 | */ | ||
42 | uintmax_t | ||
43 | strtoumax(const char *nptr, char **endptr, int base) | ||
44 | { | ||
45 | const char *s; | ||
46 | uintmax_t acc, cutoff; | ||
47 | int c; | ||
48 | int neg, any, cutlim; | ||
49 | |||
50 | /* | ||
51 | * See strtoq for comments as to the logic used. | ||
52 | */ | ||
53 | s = nptr; | ||
54 | do { | ||
55 | c = (unsigned char) *s++; | ||
56 | } while (isspace(c)); | ||
57 | if (c == '-') { | ||
58 | neg = 1; | ||
59 | c = *s++; | ||
60 | } else { | ||
61 | neg = 0; | ||
62 | if (c == '+') | ||
63 | c = *s++; | ||
64 | } | ||
65 | if ((base == 0 || base == 16) && | ||
66 | c == '0' && (*s == 'x' || *s == 'X')) { | ||
67 | c = s[1]; | ||
68 | s += 2; | ||
69 | base = 16; | ||
70 | } | ||
71 | if (base == 0) | ||
72 | base = c == '0' ? 8 : 10; | ||
73 | |||
74 | cutoff = UINTMAX_MAX / (uintmax_t)base; | ||
75 | cutlim = UINTMAX_MAX % (uintmax_t)base; | ||
76 | for (acc = 0, any = 0;; c = (unsigned char) *s++) { | ||
77 | if (isdigit(c)) | ||
78 | c -= '0'; | ||
79 | else if (isalpha(c)) | ||
80 | c -= isupper(c) ? 'A' - 10 : 'a' - 10; | ||
81 | else | ||
82 | break; | ||
83 | if (c >= base) | ||
84 | break; | ||
85 | if (any < 0) | ||
86 | continue; | ||
87 | if (acc > cutoff || (acc == cutoff && c > cutlim)) { | ||
88 | any = -1; | ||
89 | acc = UINTMAX_MAX; | ||
90 | errno = ERANGE; | ||
91 | } else { | ||
92 | any = 1; | ||
93 | acc *= (uintmax_t)base; | ||
94 | acc += c; | ||
95 | } | ||
96 | } | ||
97 | if (neg && any > 0) | ||
98 | acc = -acc; | ||
99 | if (endptr != 0) | ||
100 | *endptr = (char *) (any ? s - 1 : nptr); | ||
101 | return (acc); | ||
102 | } | ||
diff --git a/src/lib/libc/stdlib/system.3 b/src/lib/libc/stdlib/system.3 new file mode 100644 index 0000000000..a49e595bc0 --- /dev/null +++ b/src/lib/libc/stdlib/system.3 | |||
@@ -0,0 +1,104 @@ | |||
1 | .\" Copyright (c) 1990, 1991 The Regents of the University of California. | ||
2 | .\" All rights reserved. | ||
3 | .\" | ||
4 | .\" This code is derived from software contributed to Berkeley by | ||
5 | .\" the American National Standards Committee X3, on Information | ||
6 | .\" Processing Systems. | ||
7 | .\" | ||
8 | .\" Redistribution and use in source and binary forms, with or without | ||
9 | .\" modification, are permitted provided that the following conditions | ||
10 | .\" are met: | ||
11 | .\" 1. Redistributions of source code must retain the above copyright | ||
12 | .\" notice, this list of conditions and the following disclaimer. | ||
13 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
14 | .\" notice, this list of conditions and the following disclaimer in the | ||
15 | .\" documentation and/or other materials provided with the distribution. | ||
16 | .\" 3. Neither the name of the University nor the names of its contributors | ||
17 | .\" may be used to endorse or promote products derived from this software | ||
18 | .\" without specific prior written permission. | ||
19 | .\" | ||
20 | .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
21 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
22 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
23 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
24 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
25 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
26 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
27 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
28 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
29 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
30 | .\" SUCH DAMAGE. | ||
31 | .\" | ||
32 | .\" $OpenBSD: system.3,v 1.11 2008/04/04 19:30:41 kurt Exp $ | ||
33 | .\" | ||
34 | .Dd $Mdocdate: April 4 2008 $ | ||
35 | .Dt SYSTEM 3 | ||
36 | .Os | ||
37 | .Sh NAME | ||
38 | .Nm system | ||
39 | .Nd pass a command to the shell | ||
40 | .Sh SYNOPSIS | ||
41 | .Fd #include <stdlib.h> | ||
42 | .Ft int | ||
43 | .Fn system "const char *string" | ||
44 | .Sh DESCRIPTION | ||
45 | The | ||
46 | .Fn system | ||
47 | function hands the argument | ||
48 | .Fa string | ||
49 | to the command interpreter | ||
50 | .Xr sh 1 . | ||
51 | The calling process waits for the shell to finish executing the command, | ||
52 | ignoring | ||
53 | .Dv SIGINT | ||
54 | and | ||
55 | .Dv SIGQUIT , | ||
56 | and blocking | ||
57 | .Dv SIGCHLD . | ||
58 | .Pp | ||
59 | If | ||
60 | .Fa string | ||
61 | is | ||
62 | .Dv NULL , | ||
63 | .Fn system | ||
64 | will return non-zero. | ||
65 | Otherwise, | ||
66 | .Fn system | ||
67 | returns the termination status of the shell in the format specified by | ||
68 | .Xr waitpid 2 . | ||
69 | .Pp | ||
70 | Note that fork handlers established using | ||
71 | .Xr pthread_atfork 3 | ||
72 | are not called when a multithreaded program calls | ||
73 | .Fn system . | ||
74 | .Sh RETURN VALUES | ||
75 | If a child process cannot be created, or the termination status of | ||
76 | the shell cannot be obtained, | ||
77 | .Fn system | ||
78 | returns \-1 and sets | ||
79 | .Va errno | ||
80 | to indicate the error. | ||
81 | If execution of the shell fails, | ||
82 | .Fn system | ||
83 | returns the termination status for a program that terminates with a call of | ||
84 | .Fn exit 127 . | ||
85 | .Sh SEE ALSO | ||
86 | .Xr sh 1 , | ||
87 | .Xr execve 2 , | ||
88 | .Xr waitpid 2 , | ||
89 | .Xr popen 3 | ||
90 | .Sh STANDARDS | ||
91 | The | ||
92 | .Fn system | ||
93 | function conforms to | ||
94 | .St -ansiC | ||
95 | and | ||
96 | .St -p1003.2-92 . | ||
97 | .Sh CAVEATS | ||
98 | Never supply the | ||
99 | .Fn system | ||
100 | function with a command containing any part of an unsanitized user-supplied | ||
101 | string. | ||
102 | Shell meta-characters present will be honored by the | ||
103 | .Xr sh 1 | ||
104 | command interpreter. | ||
diff --git a/src/lib/libc/stdlib/system.c b/src/lib/libc/stdlib/system.c new file mode 100644 index 0000000000..14ddcae8d3 --- /dev/null +++ b/src/lib/libc/stdlib/system.c | |||
@@ -0,0 +1,74 @@ | |||
1 | /* $OpenBSD: system.c,v 1.8 2005/08/08 08:05:37 espie Exp $ */ | ||
2 | /* | ||
3 | * Copyright (c) 1988 The Regents of the University of California. | ||
4 | * All rights reserved. | ||
5 | * | ||
6 | * Redistribution and use in source and binary forms, with or without | ||
7 | * modification, are permitted provided that the following conditions | ||
8 | * are met: | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
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. Neither the name of the University nor the names of its contributors | ||
15 | * may be used to endorse or promote products derived from this software | ||
16 | * without specific prior written permission. | ||
17 | * | ||
18 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND | ||
19 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
20 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE | ||
22 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
24 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
25 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
26 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
27 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
28 | * SUCH DAMAGE. | ||
29 | */ | ||
30 | |||
31 | #include <sys/types.h> | ||
32 | #include <sys/wait.h> | ||
33 | #include <signal.h> | ||
34 | #include <stdlib.h> | ||
35 | #include <unistd.h> | ||
36 | #include <paths.h> | ||
37 | |||
38 | extern char **environ; | ||
39 | |||
40 | int | ||
41 | system(const char *command) | ||
42 | { | ||
43 | pid_t pid; | ||
44 | sig_t intsave, quitsave; | ||
45 | sigset_t mask, omask; | ||
46 | int pstat; | ||
47 | char *argp[] = {"sh", "-c", NULL, NULL}; | ||
48 | |||
49 | if (!command) /* just checking... */ | ||
50 | return(1); | ||
51 | |||
52 | argp[2] = (char *)command; | ||
53 | |||
54 | sigemptyset(&mask); | ||
55 | sigaddset(&mask, SIGCHLD); | ||
56 | sigprocmask(SIG_BLOCK, &mask, &omask); | ||
57 | switch (pid = vfork()) { | ||
58 | case -1: /* error */ | ||
59 | sigprocmask(SIG_SETMASK, &omask, NULL); | ||
60 | return(-1); | ||
61 | case 0: /* child */ | ||
62 | sigprocmask(SIG_SETMASK, &omask, NULL); | ||
63 | execve(_PATH_BSHELL, argp, environ); | ||
64 | _exit(127); | ||
65 | } | ||
66 | |||
67 | intsave = signal(SIGINT, SIG_IGN); | ||
68 | quitsave = signal(SIGQUIT, SIG_IGN); | ||
69 | pid = waitpid(pid, (int *)&pstat, 0); | ||
70 | sigprocmask(SIG_SETMASK, &omask, NULL); | ||
71 | (void)signal(SIGINT, intsave); | ||
72 | (void)signal(SIGQUIT, quitsave); | ||
73 | return (pid == -1 ? -1 : pstat); | ||
74 | } | ||
diff --git a/src/lib/libc/stdlib/tfind.c b/src/lib/libc/stdlib/tfind.c new file mode 100644 index 0000000000..ff6bcd742d --- /dev/null +++ b/src/lib/libc/stdlib/tfind.c | |||
@@ -0,0 +1,41 @@ | |||
1 | /* $OpenBSD: tfind.c,v 1.5 2005/03/30 18:51:49 pat Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Tree search generalized from Knuth (6.2.2) Algorithm T just like | ||
5 | * the AT&T man page says. | ||
6 | * | ||
7 | * The node_t structure is for internal use only, lint doesn't grok it. | ||
8 | * | ||
9 | * Written by reading the System V Interface Definition, not the code. | ||
10 | * | ||
11 | * Totally public domain. | ||
12 | */ | ||
13 | /*LINTLIBRARY*/ | ||
14 | #include <search.h> | ||
15 | |||
16 | typedef struct node_t | ||
17 | { | ||
18 | char *key; | ||
19 | struct node_t *llink, *rlink; | ||
20 | } node; | ||
21 | |||
22 | /* find a node, or return 0 */ | ||
23 | void * | ||
24 | tfind(const void *vkey, void * const *vrootp, | ||
25 | int (*compar)(const void *, const void *)) | ||
26 | { | ||
27 | char *key = (char *)vkey; | ||
28 | node **rootp = (node **)vrootp; | ||
29 | |||
30 | if (rootp == (struct node_t **)0) | ||
31 | return ((struct node_t *)0); | ||
32 | while (*rootp != (struct node_t *)0) { /* T1: */ | ||
33 | int r; | ||
34 | if ((r = (*compar)(key, (*rootp)->key)) == 0) /* T2: */ | ||
35 | return (*rootp); /* key found */ | ||
36 | rootp = (r < 0) ? | ||
37 | &(*rootp)->llink : /* T3: follow left branch */ | ||
38 | &(*rootp)->rlink; /* T4: follow right branch */ | ||
39 | } | ||
40 | return (node *)0; | ||
41 | } | ||
diff --git a/src/lib/libc/stdlib/tsearch.3 b/src/lib/libc/stdlib/tsearch.3 new file mode 100644 index 0000000000..0a52822620 --- /dev/null +++ b/src/lib/libc/stdlib/tsearch.3 | |||
@@ -0,0 +1,127 @@ | |||
1 | .\" $OpenBSD: tsearch.3,v 1.16 2007/05/31 19:19:32 jmc Exp $ | ||
2 | .\" | ||
3 | .\" Copyright (c) 1997 Todd C. Miller <Todd.Miller@courtesan.com> | ||
4 | .\" | ||
5 | .\" Permission to use, copy, modify, and distribute this software for any | ||
6 | .\" purpose with or without fee is hereby granted, provided that the above | ||
7 | .\" copyright notice and this permission notice appear in all copies. | ||
8 | .\" | ||
9 | .\" THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | ||
10 | .\" WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | ||
11 | .\" MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | ||
12 | .\" ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | ||
13 | .\" WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | ||
14 | .\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | ||
15 | .\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | ||
16 | .\" | ||
17 | .Dd $Mdocdate: May 31 2007 $ | ||
18 | .Dt TSEARCH 3 | ||
19 | .Os | ||
20 | .Sh NAME | ||
21 | .Nm tsearch , | ||
22 | .Nm tfind , | ||
23 | .Nm tdelete , | ||
24 | .Nm twalk | ||
25 | .Nd manipulate binary search trees | ||
26 | .Sh SYNOPSIS | ||
27 | .Fd #include <search.h> | ||
28 | .Ft void * | ||
29 | .Fn tdelete "const void *key" "void **rootp" "int (*compar) (const void *, const void *)" | ||
30 | .Ft void * | ||
31 | .Fn tfind "const void *key" "void * const *rootp" "int (*compar) (const void *, const void *)" | ||
32 | .Ft void * | ||
33 | .Fn tsearch "const void *key" "void **rootp" "int (*compar) (const void *, const void *)" | ||
34 | .Ft void | ||
35 | .Fn twalk "const void *root" "void (*action) (const void *, VISIT, int)" | ||
36 | .Sh DESCRIPTION | ||
37 | The | ||
38 | .Fn tdelete , | ||
39 | .Fn tfind , | ||
40 | .Fn tsearch , | ||
41 | and | ||
42 | .Fn twalk | ||
43 | functions manage binary search trees based on algorithms T and D | ||
44 | from Knuth (6.2.2). | ||
45 | The comparison function passed in by | ||
46 | the user has the same style of return values as | ||
47 | .Xr strcmp 3 . | ||
48 | .Pp | ||
49 | .Fn tfind | ||
50 | searches for the datum matched by the argument | ||
51 | .Fa key | ||
52 | in the binary tree rooted at | ||
53 | .Fa rootp , | ||
54 | returning a pointer to the datum if it is found and | ||
55 | .Dv NULL | ||
56 | if it is not. | ||
57 | .Pp | ||
58 | .Fn tsearch | ||
59 | is identical to | ||
60 | .Fn tfind | ||
61 | except that if no match is found, | ||
62 | .Fa key | ||
63 | is inserted into the tree and a pointer to it is returned. | ||
64 | If | ||
65 | .Fa rootp | ||
66 | points to a null value a new binary search tree is created. | ||
67 | .Pp | ||
68 | .Fn tdelete | ||
69 | deletes a node from the specified binary search tree and returns | ||
70 | a pointer to the parent of the node to be deleted. | ||
71 | It takes the same arguments as | ||
72 | .Fn tfind | ||
73 | and | ||
74 | .Fn tsearch . | ||
75 | If the node to be deleted is the root of the binary search tree, | ||
76 | .Fa rootp | ||
77 | will be adjusted and a pointer to the new root will be returned. | ||
78 | .Pp | ||
79 | .Fn twalk | ||
80 | walks the binary search tree rooted in | ||
81 | .Fa root | ||
82 | and calls the function | ||
83 | .Fa action | ||
84 | on each node. | ||
85 | .Fa action | ||
86 | is called with three arguments: a pointer to the current node, | ||
87 | a value from the enum | ||
88 | .Sy "typedef enum { preorder, postorder, endorder, leaf } VISIT;" | ||
89 | specifying the traversal type, and a node level (where level | ||
90 | zero is the root of the tree). | ||
91 | .Sh RETURN VALUES | ||
92 | The | ||
93 | .Fn tsearch | ||
94 | function returns | ||
95 | .Dv NULL | ||
96 | if allocation of a new node fails (usually | ||
97 | due to a lack of free memory). | ||
98 | .Pp | ||
99 | .Fn tfind , | ||
100 | .Fn tsearch , | ||
101 | and | ||
102 | .Fn tdelete | ||
103 | return | ||
104 | .Dv NULL | ||
105 | if | ||
106 | .Fa rootp | ||
107 | is | ||
108 | .Dv NULL | ||
109 | or the datum cannot be found. | ||
110 | .Pp | ||
111 | The | ||
112 | .Fn twalk | ||
113 | function returns no value. | ||
114 | .Sh SEE ALSO | ||
115 | .Xr bsearch 3 , | ||
116 | .Xr lsearch 3 | ||
117 | .Sh STANDARDS | ||
118 | These functions conform to | ||
119 | .St -p1003.1-2004 . | ||
120 | .Sh CAVEATS | ||
121 | The | ||
122 | .St -p1003.1-2004 | ||
123 | standard does not specify what value should be returned when deleting the | ||
124 | root node. | ||
125 | Since implementations vary, the user of the | ||
126 | .Fn tdelete | ||
127 | function should not rely on a specific behaviour. | ||
diff --git a/src/lib/libc/stdlib/tsearch.c b/src/lib/libc/stdlib/tsearch.c new file mode 100644 index 0000000000..667c57731b --- /dev/null +++ b/src/lib/libc/stdlib/tsearch.c | |||
@@ -0,0 +1,121 @@ | |||
1 | /* $OpenBSD: tsearch.c,v 1.6 2006/04/04 11:21:50 moritz Exp $ */ | ||
2 | |||
3 | /* | ||
4 | * Tree search generalized from Knuth (6.2.2) Algorithm T just like | ||
5 | * the AT&T man page says. | ||
6 | * | ||
7 | * The node_t structure is for internal use only, lint doesn't grok it. | ||
8 | * | ||
9 | * Written by reading the System V Interface Definition, not the code. | ||
10 | * | ||
11 | * Totally public domain. | ||
12 | */ | ||
13 | /*LINTLIBRARY*/ | ||
14 | |||
15 | #include <search.h> | ||
16 | #include <stdlib.h> | ||
17 | |||
18 | typedef struct node_t { | ||
19 | char *key; | ||
20 | struct node_t *left, *right; | ||
21 | } node; | ||
22 | |||
23 | /* find or insert datum into search tree */ | ||
24 | void * | ||
25 | tsearch(const void *vkey, void **vrootp, | ||
26 | int (*compar)(const void *, const void *)) | ||
27 | { | ||
28 | node *q; | ||
29 | char *key = (char *)vkey; | ||
30 | node **rootp = (node **)vrootp; | ||
31 | |||
32 | if (rootp == (struct node_t **)0) | ||
33 | return ((void *)0); | ||
34 | while (*rootp != (struct node_t *)0) { /* Knuth's T1: */ | ||
35 | int r; | ||
36 | |||
37 | if ((r = (*compar)(key, (*rootp)->key)) == 0) /* T2: */ | ||
38 | return ((void *)*rootp); /* we found it! */ | ||
39 | rootp = (r < 0) ? | ||
40 | &(*rootp)->left : /* T3: follow left branch */ | ||
41 | &(*rootp)->right; /* T4: follow right branch */ | ||
42 | } | ||
43 | q = (node *) malloc(sizeof(node)); /* T5: key not found */ | ||
44 | if (q != (struct node_t *)0) { /* make new node */ | ||
45 | *rootp = q; /* link new node to old */ | ||
46 | q->key = key; /* initialize new node */ | ||
47 | q->left = q->right = (struct node_t *)0; | ||
48 | } | ||
49 | return ((void *)q); | ||
50 | } | ||
51 | |||
52 | /* delete node with given key */ | ||
53 | void * | ||
54 | tdelete(const void *vkey, void **vrootp, | ||
55 | int (*compar)(const void *, const void *)) | ||
56 | { | ||
57 | node **rootp = (node **)vrootp; | ||
58 | char *key = (char *)vkey; | ||
59 | node *p; | ||
60 | node *q; | ||
61 | node *r; | ||
62 | int cmp; | ||
63 | |||
64 | if (rootp == (struct node_t **)0 || (p = *rootp) == (struct node_t *)0) | ||
65 | return ((struct node_t *)0); | ||
66 | while ((cmp = (*compar)(key, (*rootp)->key)) != 0) { | ||
67 | p = *rootp; | ||
68 | rootp = (cmp < 0) ? | ||
69 | &(*rootp)->left : /* follow left branch */ | ||
70 | &(*rootp)->right; /* follow right branch */ | ||
71 | if (*rootp == (struct node_t *)0) | ||
72 | return ((void *)0); /* key not found */ | ||
73 | } | ||
74 | r = (*rootp)->right; /* D1: */ | ||
75 | if ((q = (*rootp)->left) == (struct node_t *)0) /* Left (struct node_t *)0? */ | ||
76 | q = r; | ||
77 | else if (r != (struct node_t *)0) { /* Right link is null? */ | ||
78 | if (r->left == (struct node_t *)0) { /* D2: Find successor */ | ||
79 | r->left = q; | ||
80 | q = r; | ||
81 | } else { /* D3: Find (struct node_t *)0 link */ | ||
82 | for (q = r->left; q->left != (struct node_t *)0; q = r->left) | ||
83 | r = q; | ||
84 | r->left = q->right; | ||
85 | q->left = (*rootp)->left; | ||
86 | q->right = (*rootp)->right; | ||
87 | } | ||
88 | } | ||
89 | if (p == *rootp) | ||
90 | p = q; | ||
91 | free((struct node_t *) *rootp); /* D4: Free node */ | ||
92 | *rootp = q; /* link parent to new node */ | ||
93 | return(p); | ||
94 | } | ||
95 | |||
96 | /* Walk the nodes of a tree */ | ||
97 | static void | ||
98 | trecurse(node *root, void (*action)(const void *, VISIT, int), int level) | ||
99 | { | ||
100 | if (root->left == (struct node_t *)0 && root->right == (struct node_t *)0) | ||
101 | (*action)(root, leaf, level); | ||
102 | else { | ||
103 | (*action)(root, preorder, level); | ||
104 | if (root->left != (struct node_t *)0) | ||
105 | trecurse(root->left, action, level + 1); | ||
106 | (*action)(root, postorder, level); | ||
107 | if (root->right != (struct node_t *)0) | ||
108 | trecurse(root->right, action, level + 1); | ||
109 | (*action)(root, endorder, level); | ||
110 | } | ||
111 | } | ||
112 | |||
113 | /* Walk the nodes of a tree */ | ||
114 | void | ||
115 | twalk(const void *vroot, void (*action)(const void *, VISIT, int)) | ||
116 | { | ||
117 | node *root = (node *)vroot; | ||
118 | |||
119 | if (root != (node *)0 && action != (void (*)(const void *, VISIT, int))0) | ||
120 | trecurse(root, action, 0); | ||
121 | } | ||