diff options
Diffstat (limited to 'src/lib/libc/stdlib')
104 files changed, 13323 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..652d6fb90f --- /dev/null +++ b/src/lib/libc/stdlib/Makefile.inc | |||
| @@ -0,0 +1,65 @@ | |||
| 1 | # $OpenBSD: Makefile.inc,v 1.46 2012/09/15 20:59:38 miod 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 | .elif (${MACHINE_CPU} == "i386") | ||
| 18 | SRCS+= abs.S div.S labs.S ldiv.S | ||
| 19 | .elif (${MACHINE_CPU} == "vax") | ||
| 20 | SRCS+= abs.c div.c labs.c ldiv.c | ||
| 21 | .elif (${MACHINE_CPU} == "alpha") | ||
| 22 | # XXX should be .S's | ||
| 23 | SRCS+= abs.c div.c labs.c ldiv.c | ||
| 24 | .else | ||
| 25 | SRCS+= abs.c div.c labs.c ldiv.c | ||
| 26 | .endif | ||
| 27 | |||
| 28 | .if (${MACHINE_CPU} == "vax") || (${MACHINE_CPU} == "m68k") | ||
| 29 | SRCS+= insque.S remque.S | ||
| 30 | .else | ||
| 31 | SRCS+= insque.c remque.c | ||
| 32 | .endif | ||
| 33 | |||
| 34 | MAN+= a64l.3 abort.3 abs.3 alloca.3 atexit.3 atof.3 atoi.3 atol.3 atoll.3 \ | ||
| 35 | bsearch.3 div.3 ecvt.3 exit.3 getenv.3 getopt.3 getopt_long.3 \ | ||
| 36 | getsubopt.3 hcreate.3 imaxabs.3 imaxdiv.3 insque.3 labs.3 ldiv.3 \ | ||
| 37 | lldiv.3 lsearch.3 malloc.3 posix_memalign.3 qabs.3 qdiv.3 qsort.3 \ | ||
| 38 | radixsort.3 rand48.3 rand.3 random.3 realpath.3 strtod.3 strtonum.3 \ | ||
| 39 | strtol.3 strtoul.3 system.3 tsearch.3 | ||
| 40 | |||
| 41 | MLINKS+=exit.3 _Exit.3 | ||
| 42 | MLINKS+=ecvt.3 fcvt.3 ecvt.3 gcvt.3 | ||
| 43 | MLINKS+=getenv.3 setenv.3 getenv.3 unsetenv.3 getenv.3 putenv.3 | ||
| 44 | MLINKS+=getopt_long.3 getopt_long_only.3 | ||
| 45 | MLINKS+=hcreate.3 hdestroy.3 hcreate.3 hsearch.3 | ||
| 46 | MLINKS+=insque.3 remque.3 | ||
| 47 | MLINKS+=labs.3 llabs.3 | ||
| 48 | MLINKS+=lsearch.3 lfind.3 | ||
| 49 | MLINKS+=malloc.3 free.3 malloc.3 realloc.3 malloc.3 calloc.3 | ||
| 50 | MLINKS+=malloc.3 cfree.3 malloc.3 malloc.conf.5 | ||
| 51 | MLINKS+=qsort.3 heapsort.3 qsort.3 mergesort.3 | ||
| 52 | MLINKS+=radixsort.3 sradixsort.3 | ||
| 53 | MLINKS+=rand.3 srand.3 rand.3 rand_r.3 | ||
| 54 | MLINKS+=random.3 initstate.3 random.3 setstate.3 | ||
| 55 | MLINKS+=random.3 srandom.3 random.3 srandomdev.3 | ||
| 56 | MLINKS+=rand48.3 drand48.3 rand48.3 erand48.3 rand48.3 lrand48.3 | ||
| 57 | MLINKS+=rand48.3 mrand48.3 rand48.3 nrand48.3 rand48.3 jrand48.3 | ||
| 58 | MLINKS+=rand48.3 srand48.3 rand48.3 seed48.3 rand48.3 lcong48.3 | ||
| 59 | MLINKS+=strtod.3 strtof.3 strtod.3 strtold.3 | ||
| 60 | MLINKS+=strtol.3 strtoll.3 strtol.3 strtoq.3 strtol.3 strtoimax.3 | ||
| 61 | MLINKS+=strtoul.3 strtoull.3 strtoul.3 strtouq.3 strtoul.3 strtoumax.3 | ||
| 62 | MLINKS+=tsearch.3 tfind.3 | ||
| 63 | MLINKS+=tsearch.3 tdelete.3 | ||
| 64 | MLINKS+=tsearch.3 twalk.3 | ||
| 65 | 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..8cc5c42ff5 --- /dev/null +++ b/src/lib/libc/stdlib/alloca.3 | |||
| @@ -0,0 +1,76 @@ | |||
| 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.12 2012/04/12 15:46:57 deraadt Exp $ | ||
| 29 | .\" | ||
| 30 | .Dd $Mdocdate: April 12 2012 $ | ||
| 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 HISTORY | ||
| 58 | .\" The | ||
| 59 | .\" .Fn alloca | ||
| 60 | .\" function appeared in | ||
| 61 | .\" .Bx ?? . | ||
| 62 | .\" The function appeared in 32v, pwb and pwb.2 and in 3bsd 4bsd | ||
| 63 | .\" The first man page (or link to a man page that I can find at the | ||
| 64 | .\" moment is 4.3... | ||
| 65 | .Sh BUGS | ||
| 66 | The | ||
| 67 | .Fn alloca | ||
| 68 | function is slightly unsafe because it cannot ensure that the pointer | ||
| 69 | returned points to a valid and usable block of memory. | ||
| 70 | The allocation made may exceed the bounds of the stack, or even go | ||
| 71 | further into other objects in memory, and | ||
| 72 | .Fn alloca | ||
| 73 | cannot determine such an error. | ||
| 74 | Avoid | ||
| 75 | .Fn alloca | ||
| 76 | 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..305dd48f50 --- /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.8 2012/07/08 10:25:55 guenther Exp $ | ||
| 33 | .\" | ||
| 34 | .Dd $Mdocdate: July 8 2012 $ | ||
| 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..0191a3420e --- /dev/null +++ b/src/lib/libc/stdlib/ecvt.3 | |||
| @@ -0,0 +1,168 @@ | |||
| 1 | .\" $OpenBSD: ecvt.3,v 1.10 2012/06/01 01:01:57 guenther 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: June 1 2012 $ | ||
| 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 | as of | ||
| 153 | .St -p1003.1-2008 | ||
| 154 | they are no longer a part of the standard. | ||
| 155 | .Sh CAVEATS | ||
| 156 | The | ||
| 157 | .Fn ecvt | ||
| 158 | and | ||
| 159 | .Fn fcvt | ||
| 160 | functions return a pointer to internal storage space that will be | ||
| 161 | overwritten by subsequent calls to either function. | ||
| 162 | .Pp | ||
| 163 | The maximum possible precision of the return value is limited by the | ||
| 164 | precision of a double and may not be the same on all architectures. | ||
| 165 | .Pp | ||
| 166 | The | ||
| 167 | .Xr snprintf 3 | ||
| 168 | 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..f987eb13a1 --- /dev/null +++ b/src/lib/libc/stdlib/getenv.3 | |||
| @@ -0,0 +1,175 @@ | |||
| 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.18 2012/09/23 16:08:04 jeremy Exp $ | ||
| 33 | .\" | ||
| 34 | .Dd $Mdocdate: September 23 2012 $ | ||
| 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 | .Pp | ||
| 57 | The | ||
| 58 | .Fn getenv | ||
| 59 | function obtains the current value of the environment variable | ||
| 60 | .Fa name . | ||
| 61 | If the variable | ||
| 62 | .Fa name | ||
| 63 | is not in the current environment, a null pointer is returned. | ||
| 64 | .Pp | ||
| 65 | The | ||
| 66 | .Fn setenv | ||
| 67 | function inserts or resets the environment variable | ||
| 68 | .Fa name | ||
| 69 | in the current environment list. | ||
| 70 | If the variable | ||
| 71 | .Fa name | ||
| 72 | does not exist in the list, it is inserted with the given | ||
| 73 | .Fa value . | ||
| 74 | If the variable does exist, the argument | ||
| 75 | .Fa overwrite | ||
| 76 | is tested; if | ||
| 77 | .Fa overwrite | ||
| 78 | is zero, the variable is not reset, otherwise it is reset to the given | ||
| 79 | .Fa value . | ||
| 80 | .Pp | ||
| 81 | The | ||
| 82 | .Fn putenv | ||
| 83 | function takes an argument of the form | ||
| 84 | .Ar name Ns = Ns Ar value . | ||
| 85 | The memory pointed to by | ||
| 86 | .Ar string | ||
| 87 | becomes part of the environment and must not be deallocated by the caller. | ||
| 88 | If the variable already exists, it will be overwritten. | ||
| 89 | A common source of bugs is to pass a | ||
| 90 | .Ar string | ||
| 91 | argument that is a locally scoped string buffer. | ||
| 92 | This will result in corruption of the environment after leaving | ||
| 93 | the scope in which the variable is defined. | ||
| 94 | For this reason, the | ||
| 95 | .Fn setenv | ||
| 96 | function is preferred over | ||
| 97 | .Fn putenv . | ||
| 98 | .Pp | ||
| 99 | The | ||
| 100 | .Fn unsetenv | ||
| 101 | function deletes all instances of the variable name pointed to by | ||
| 102 | .Fa name | ||
| 103 | from the list. | ||
| 104 | .Sh RETURN VALUES | ||
| 105 | These functions | ||
| 106 | return zero if successful; otherwise the global variable | ||
| 107 | .Va errno | ||
| 108 | is set to indicate the error and \-1 is returned. | ||
| 109 | .Pp | ||
| 110 | If | ||
| 111 | .Fn getenv | ||
| 112 | is successful, the string returned should be considered read-only. | ||
| 113 | .Sh ERRORS | ||
| 114 | .Bl -tag -width Er | ||
| 115 | .It Bq Er EINVAL | ||
| 116 | The | ||
| 117 | .Fn setenv | ||
| 118 | or | ||
| 119 | .Fn unsetenv | ||
| 120 | function was passed an empty | ||
| 121 | .Ar name | ||
| 122 | or a NULL pointer, or was passed a | ||
| 123 | .Ar name | ||
| 124 | containing an | ||
| 125 | .Sq = | ||
| 126 | character. | ||
| 127 | .Pp | ||
| 128 | The | ||
| 129 | .Fn putenv | ||
| 130 | function was passed a | ||
| 131 | .Ar string | ||
| 132 | that did not contain an | ||
| 133 | .Sq = | ||
| 134 | character. | ||
| 135 | .It Bq Er ENOMEM | ||
| 136 | The | ||
| 137 | .Fn setenv | ||
| 138 | or | ||
| 139 | .Fn putenv | ||
| 140 | function failed because it was unable to allocate memory for the environment. | ||
| 141 | .El | ||
| 142 | .Sh SEE ALSO | ||
| 143 | .Xr csh 1 , | ||
| 144 | .Xr sh 1 , | ||
| 145 | .Xr execve 2 , | ||
| 146 | .Xr environ 7 | ||
| 147 | .Sh STANDARDS | ||
| 148 | The | ||
| 149 | .Fn getenv | ||
| 150 | function conforms to | ||
| 151 | .St -ansiC . | ||
| 152 | The | ||
| 153 | .Fn putenv , | ||
| 154 | .Fn setenv , | ||
| 155 | and | ||
| 156 | .Fn unsetenv | ||
| 157 | functions conform to | ||
| 158 | .St -p1003.1-2008 . | ||
| 159 | .Sh HISTORY | ||
| 160 | The function | ||
| 161 | .Fn getenv | ||
| 162 | appeared in | ||
| 163 | .At v7 | ||
| 164 | and | ||
| 165 | .Bx 3 . | ||
| 166 | The functions | ||
| 167 | .Fn setenv | ||
| 168 | and | ||
| 169 | .Fn unsetenv | ||
| 170 | appeared in | ||
| 171 | .Bx 4.3 Tahoe . | ||
| 172 | The | ||
| 173 | .Fn putenv | ||
| 174 | function appeared in | ||
| 175 | .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..c69ec8316a --- /dev/null +++ b/src/lib/libc/stdlib/malloc.c | |||
| @@ -0,0 +1,1816 @@ | |||
| 1 | /* $OpenBSD: malloc.c,v 1.147 2012/09/13 10:45:41 pirofti 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 (PAGE_SHIFT) | ||
| 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 | #define MQUERY(a, sz) mquery((a), (size_t)(sz), PROT_READ | PROT_WRITE, \ | ||
| 98 | MAP_ANON | MAP_PRIVATE | MAP_FIXED, -1, (off_t)0) | ||
| 99 | |||
| 100 | struct region_info { | ||
| 101 | void *p; /* page; low bits used to mark chunks */ | ||
| 102 | uintptr_t size; /* size for pages, or chunk_info pointer */ | ||
| 103 | #ifdef MALLOC_STATS | ||
| 104 | void *f; /* where allocated from */ | ||
| 105 | #endif | ||
| 106 | }; | ||
| 107 | |||
| 108 | LIST_HEAD(chunk_head, chunk_info); | ||
| 109 | |||
| 110 | struct dir_info { | ||
| 111 | u_int32_t canary1; | ||
| 112 | struct region_info *r; /* region slots */ | ||
| 113 | size_t regions_total; /* number of region slots */ | ||
| 114 | size_t regions_free; /* number of free slots */ | ||
| 115 | /* lists of free chunk info structs */ | ||
| 116 | struct chunk_head chunk_info_list[MALLOC_MAXSHIFT + 1]; | ||
| 117 | /* lists of chunks with free slots */ | ||
| 118 | struct chunk_head chunk_dir[MALLOC_MAXSHIFT + 1]; | ||
| 119 | size_t free_regions_size; /* free pages cached */ | ||
| 120 | /* free pages cache */ | ||
| 121 | struct region_info free_regions[MALLOC_MAXCACHE]; | ||
| 122 | /* delayed free chunk slots */ | ||
| 123 | void *delayed_chunks[MALLOC_DELAYED_CHUNKS + 1]; | ||
| 124 | u_short chunk_start; | ||
| 125 | #ifdef MALLOC_STATS | ||
| 126 | size_t inserts; | ||
| 127 | size_t insert_collisions; | ||
| 128 | size_t finds; | ||
| 129 | size_t find_collisions; | ||
| 130 | size_t deletes; | ||
| 131 | size_t delete_moves; | ||
| 132 | size_t cheap_realloc_tries; | ||
| 133 | size_t cheap_reallocs; | ||
| 134 | #define STATS_INC(x) ((x)++) | ||
| 135 | #define STATS_ZERO(x) ((x) = 0) | ||
| 136 | #define STATS_SETF(x,y) ((x)->f = (y)) | ||
| 137 | #else | ||
| 138 | #define STATS_INC(x) /* nothing */ | ||
| 139 | #define STATS_ZERO(x) /* nothing */ | ||
| 140 | #define STATS_SETF(x,y) /* nothing */ | ||
| 141 | #endif /* MALLOC_STATS */ | ||
| 142 | u_int32_t canary2; | ||
| 143 | }; | ||
| 144 | #define DIR_INFO_RSZ ((sizeof(struct dir_info) + MALLOC_PAGEMASK) & \ | ||
| 145 | ~MALLOC_PAGEMASK) | ||
| 146 | |||
| 147 | /* | ||
| 148 | * This structure describes a page worth of chunks. | ||
| 149 | * | ||
| 150 | * How many bits per u_short in the bitmap | ||
| 151 | */ | ||
| 152 | #define MALLOC_BITS (NBBY * sizeof(u_short)) | ||
| 153 | struct chunk_info { | ||
| 154 | LIST_ENTRY(chunk_info) entries; | ||
| 155 | void *page; /* pointer to the page */ | ||
| 156 | u_int32_t canary; | ||
| 157 | u_short size; /* size of this page's chunks */ | ||
| 158 | u_short shift; /* how far to shift for this size */ | ||
| 159 | u_short free; /* how many free chunks */ | ||
| 160 | u_short total; /* how many chunk */ | ||
| 161 | /* which chunks are free */ | ||
| 162 | u_short bits[1]; | ||
| 163 | }; | ||
| 164 | |||
| 165 | struct malloc_readonly { | ||
| 166 | struct dir_info *g_pool; /* Main bookkeeping information */ | ||
| 167 | int malloc_abort; /* abort() on error */ | ||
| 168 | int malloc_freeprot; /* mprotect free pages PROT_NONE? */ | ||
| 169 | int malloc_hint; /* call madvice on free pages? */ | ||
| 170 | int malloc_junk; /* junk fill? */ | ||
| 171 | int malloc_move; /* move allocations to end of page? */ | ||
| 172 | int malloc_realloc; /* always realloc? */ | ||
| 173 | int malloc_xmalloc; /* xmalloc behaviour? */ | ||
| 174 | int malloc_zero; /* zero fill? */ | ||
| 175 | size_t malloc_guard; /* use guard pages after allocations? */ | ||
| 176 | u_int malloc_cache; /* free pages we cache */ | ||
| 177 | #ifdef MALLOC_STATS | ||
| 178 | int malloc_stats; /* dump statistics at end */ | ||
| 179 | #endif | ||
| 180 | u_int32_t malloc_canary; /* Matched against ones in g_pool */ | ||
| 181 | }; | ||
| 182 | |||
| 183 | /* This object is mapped PROT_READ after initialisation to prevent tampering */ | ||
| 184 | static union { | ||
| 185 | struct malloc_readonly mopts; | ||
| 186 | u_char _pad[MALLOC_PAGESIZE]; | ||
| 187 | } malloc_readonly __attribute__((aligned(MALLOC_PAGESIZE))); | ||
| 188 | #define mopts malloc_readonly.mopts | ||
| 189 | #define g_pool mopts.g_pool | ||
| 190 | |||
| 191 | char *malloc_options; /* compile-time options */ | ||
| 192 | |||
| 193 | static char *malloc_func; /* current function */ | ||
| 194 | static int malloc_active; /* status of malloc */ | ||
| 195 | |||
| 196 | static size_t malloc_guarded; /* bytes used for guards */ | ||
| 197 | static size_t malloc_used; /* bytes allocated */ | ||
| 198 | |||
| 199 | static size_t rnibblesused; /* random nibbles used */ | ||
| 200 | static u_char rbytes[512]; /* random bytes */ | ||
| 201 | static u_char getrnibble(void); | ||
| 202 | |||
| 203 | extern char *__progname; | ||
| 204 | |||
| 205 | #ifdef MALLOC_STATS | ||
| 206 | void malloc_dump(int); | ||
| 207 | static void malloc_exit(void); | ||
| 208 | #define CALLER __builtin_return_address(0) | ||
| 209 | #else | ||
| 210 | #define CALLER NULL | ||
| 211 | #endif | ||
| 212 | |||
| 213 | /* low bits of r->p determine size: 0 means >= page size and p->size holding | ||
| 214 | * real size, otherwise r->size is a shift count, or 1 for malloc(0) | ||
| 215 | */ | ||
| 216 | #define REALSIZE(sz, r) \ | ||
| 217 | (sz) = (uintptr_t)(r)->p & MALLOC_PAGEMASK, \ | ||
| 218 | (sz) = ((sz) == 0 ? (r)->size : ((sz) == 1 ? 0 : (1 << ((sz)-1)))) | ||
| 219 | |||
| 220 | static inline size_t | ||
| 221 | hash(void *p) | ||
| 222 | { | ||
| 223 | size_t sum; | ||
| 224 | union { | ||
| 225 | uintptr_t p; | ||
| 226 | unsigned short a[sizeof(void *) / sizeof(short)]; | ||
| 227 | } u; | ||
| 228 | u.p = (uintptr_t)p >> MALLOC_PAGESHIFT; | ||
| 229 | sum = u.a[0]; | ||
| 230 | sum = (sum << 7) - sum + u.a[1]; | ||
| 231 | #ifdef __LP64__ | ||
| 232 | sum = (sum << 7) - sum + u.a[2]; | ||
| 233 | sum = (sum << 7) - sum + u.a[3]; | ||
| 234 | #endif | ||
| 235 | return sum; | ||
| 236 | } | ||
| 237 | |||
| 238 | static void | ||
| 239 | wrterror(char *msg, void *p) | ||
| 240 | { | ||
| 241 | char *q = " error: "; | ||
| 242 | struct iovec iov[6]; | ||
| 243 | char buf[20]; | ||
| 244 | int saved_errno = errno; | ||
| 245 | |||
| 246 | iov[0].iov_base = __progname; | ||
| 247 | iov[0].iov_len = strlen(__progname); | ||
| 248 | iov[1].iov_base = malloc_func; | ||
| 249 | iov[1].iov_len = strlen(malloc_func); | ||
| 250 | iov[2].iov_base = q; | ||
| 251 | iov[2].iov_len = strlen(q); | ||
| 252 | iov[3].iov_base = msg; | ||
| 253 | iov[3].iov_len = strlen(msg); | ||
| 254 | iov[4].iov_base = buf; | ||
| 255 | if (p == NULL) | ||
| 256 | iov[4].iov_len = 0; | ||
| 257 | else { | ||
| 258 | snprintf(buf, sizeof(buf), " %p", p); | ||
| 259 | iov[4].iov_len = strlen(buf); | ||
| 260 | } | ||
| 261 | iov[5].iov_base = "\n"; | ||
| 262 | iov[5].iov_len = 1; | ||
| 263 | writev(STDERR_FILENO, iov, 6); | ||
| 264 | |||
| 265 | #ifdef MALLOC_STATS | ||
| 266 | if (mopts.malloc_stats) | ||
| 267 | malloc_dump(STDERR_FILENO); | ||
| 268 | #endif /* MALLOC_STATS */ | ||
| 269 | |||
| 270 | errno = saved_errno; | ||
| 271 | if (mopts.malloc_abort) | ||
| 272 | abort(); | ||
| 273 | } | ||
| 274 | |||
| 275 | static void | ||
| 276 | rbytes_init(void) | ||
| 277 | { | ||
| 278 | arc4random_buf(rbytes, sizeof(rbytes)); | ||
| 279 | rnibblesused = 0; | ||
| 280 | } | ||
| 281 | |||
| 282 | static inline u_char | ||
| 283 | getrnibble(void) | ||
| 284 | { | ||
| 285 | u_char x; | ||
| 286 | |||
| 287 | if (rnibblesused >= 2 * sizeof(rbytes)) | ||
| 288 | rbytes_init(); | ||
| 289 | x = rbytes[rnibblesused++ / 2]; | ||
| 290 | return (rnibblesused & 1 ? x & 0xf : x >> 4); | ||
| 291 | } | ||
| 292 | |||
| 293 | /* | ||
| 294 | * Cache maintenance. We keep at most malloc_cache pages cached. | ||
| 295 | * If the cache is becoming full, unmap pages in the cache for real, | ||
| 296 | * and then add the region to the cache | ||
| 297 | * Opposed to the regular region data structure, the sizes in the | ||
| 298 | * cache are in MALLOC_PAGESIZE units. | ||
| 299 | */ | ||
| 300 | static void | ||
| 301 | unmap(struct dir_info *d, void *p, size_t sz) | ||
| 302 | { | ||
| 303 | size_t psz = sz >> MALLOC_PAGESHIFT; | ||
| 304 | size_t rsz, tounmap; | ||
| 305 | struct region_info *r; | ||
| 306 | u_int i, offset; | ||
| 307 | |||
| 308 | if (sz != PAGEROUND(sz)) { | ||
| 309 | wrterror("munmap round", NULL); | ||
| 310 | return; | ||
| 311 | } | ||
| 312 | |||
| 313 | if (psz > mopts.malloc_cache) { | ||
| 314 | if (munmap(p, sz)) | ||
| 315 | wrterror("munmap", p); | ||
| 316 | malloc_used -= sz; | ||
| 317 | return; | ||
| 318 | } | ||
| 319 | tounmap = 0; | ||
| 320 | rsz = mopts.malloc_cache - d->free_regions_size; | ||
| 321 | if (psz > rsz) | ||
| 322 | tounmap = psz - rsz; | ||
| 323 | offset = getrnibble() + getrnibble() << 4; | ||
| 324 | for (i = 0; tounmap > 0 && i < mopts.malloc_cache; i++) { | ||
| 325 | r = &d->free_regions[(i + offset) & (mopts.malloc_cache - 1)]; | ||
| 326 | if (r->p != NULL) { | ||
| 327 | rsz = r->size << MALLOC_PAGESHIFT; | ||
| 328 | if (munmap(r->p, rsz)) | ||
| 329 | wrterror("munmap", r->p); | ||
| 330 | r->p = NULL; | ||
| 331 | if (tounmap > r->size) | ||
| 332 | tounmap -= r->size; | ||
| 333 | else | ||
| 334 | tounmap = 0; | ||
| 335 | d->free_regions_size -= r->size; | ||
| 336 | r->size = 0; | ||
| 337 | malloc_used -= rsz; | ||
| 338 | } | ||
| 339 | } | ||
| 340 | if (tounmap > 0) | ||
| 341 | wrterror("malloc cache underflow", NULL); | ||
| 342 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
| 343 | r = &d->free_regions[(i + offset) & (mopts.malloc_cache - 1)]; | ||
| 344 | if (r->p == NULL) { | ||
| 345 | if (mopts.malloc_hint) | ||
| 346 | madvise(p, sz, MADV_FREE); | ||
| 347 | if (mopts.malloc_freeprot) | ||
| 348 | mprotect(p, sz, PROT_NONE); | ||
| 349 | r->p = p; | ||
| 350 | r->size = psz; | ||
| 351 | d->free_regions_size += psz; | ||
| 352 | break; | ||
| 353 | } | ||
| 354 | } | ||
| 355 | if (i == mopts.malloc_cache) | ||
| 356 | wrterror("malloc free slot lost", NULL); | ||
| 357 | if (d->free_regions_size > mopts.malloc_cache) | ||
| 358 | wrterror("malloc cache overflow", NULL); | ||
| 359 | } | ||
| 360 | |||
| 361 | static void | ||
| 362 | zapcacheregion(struct dir_info *d, void *p, size_t len) | ||
| 363 | { | ||
| 364 | u_int i; | ||
| 365 | struct region_info *r; | ||
| 366 | size_t rsz; | ||
| 367 | |||
| 368 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
| 369 | r = &d->free_regions[i]; | ||
| 370 | if (r->p >= p && r->p <= (void *)((char *)p + len)) { | ||
| 371 | rsz = r->size << MALLOC_PAGESHIFT; | ||
| 372 | if (munmap(r->p, rsz)) | ||
| 373 | wrterror("munmap", r->p); | ||
| 374 | r->p = NULL; | ||
| 375 | d->free_regions_size -= r->size; | ||
| 376 | r->size = 0; | ||
| 377 | malloc_used -= rsz; | ||
| 378 | } | ||
| 379 | } | ||
| 380 | } | ||
| 381 | |||
| 382 | static void * | ||
| 383 | map(struct dir_info *d, size_t sz, int zero_fill) | ||
| 384 | { | ||
| 385 | size_t psz = sz >> MALLOC_PAGESHIFT; | ||
| 386 | struct region_info *r, *big = NULL; | ||
| 387 | u_int i, offset; | ||
| 388 | void *p; | ||
| 389 | |||
| 390 | if (mopts.malloc_canary != (d->canary1 ^ (u_int32_t)(uintptr_t)d) || | ||
| 391 | d->canary1 != ~d->canary2) | ||
| 392 | wrterror("internal struct corrupt", NULL); | ||
| 393 | if (sz != PAGEROUND(sz)) { | ||
| 394 | wrterror("map round", NULL); | ||
| 395 | return MAP_FAILED; | ||
| 396 | } | ||
| 397 | if (psz > d->free_regions_size) { | ||
| 398 | p = MMAP(sz); | ||
| 399 | if (p != MAP_FAILED) | ||
| 400 | malloc_used += sz; | ||
| 401 | /* zero fill not needed */ | ||
| 402 | return p; | ||
| 403 | } | ||
| 404 | offset = getrnibble() + getrnibble() << 4; | ||
| 405 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
| 406 | r = &d->free_regions[(i + offset) & (mopts.malloc_cache - 1)]; | ||
| 407 | if (r->p != NULL) { | ||
| 408 | if (r->size == psz) { | ||
| 409 | p = r->p; | ||
| 410 | if (mopts.malloc_freeprot) | ||
| 411 | mprotect(p, sz, PROT_READ | PROT_WRITE); | ||
| 412 | if (mopts.malloc_hint) | ||
| 413 | madvise(p, sz, MADV_NORMAL); | ||
| 414 | r->p = NULL; | ||
| 415 | r->size = 0; | ||
| 416 | d->free_regions_size -= psz; | ||
| 417 | if (zero_fill) | ||
| 418 | memset(p, 0, sz); | ||
| 419 | else if (mopts.malloc_junk && | ||
| 420 | mopts.malloc_freeprot) | ||
| 421 | memset(p, SOME_FREEJUNK, sz); | ||
| 422 | return p; | ||
| 423 | } else if (r->size > psz) | ||
| 424 | big = r; | ||
| 425 | } | ||
| 426 | } | ||
| 427 | if (big != NULL) { | ||
| 428 | r = big; | ||
| 429 | p = (char *)r->p + ((r->size - psz) << MALLOC_PAGESHIFT); | ||
| 430 | if (mopts.malloc_freeprot) | ||
| 431 | mprotect(p, sz, PROT_READ | PROT_WRITE); | ||
| 432 | if (mopts.malloc_hint) | ||
| 433 | madvise(p, sz, MADV_NORMAL); | ||
| 434 | r->size -= psz; | ||
| 435 | d->free_regions_size -= psz; | ||
| 436 | if (zero_fill) | ||
| 437 | memset(p, 0, sz); | ||
| 438 | else if (mopts.malloc_junk && mopts.malloc_freeprot) | ||
| 439 | memset(p, SOME_FREEJUNK, sz); | ||
| 440 | return p; | ||
| 441 | } | ||
| 442 | p = MMAP(sz); | ||
| 443 | if (p != MAP_FAILED) | ||
| 444 | malloc_used += sz; | ||
| 445 | if (d->free_regions_size > mopts.malloc_cache) | ||
| 446 | wrterror("malloc cache", NULL); | ||
| 447 | /* zero fill not needed */ | ||
| 448 | return p; | ||
| 449 | } | ||
| 450 | |||
| 451 | /* | ||
| 452 | * Initialize a dir_info, which should have been cleared by caller | ||
| 453 | */ | ||
| 454 | static int | ||
| 455 | omalloc_init(struct dir_info **dp) | ||
| 456 | { | ||
| 457 | char *p, b[64]; | ||
| 458 | int i, j; | ||
| 459 | size_t d_avail, regioninfo_size; | ||
| 460 | struct dir_info *d; | ||
| 461 | |||
| 462 | rbytes_init(); | ||
| 463 | |||
| 464 | /* | ||
| 465 | * Default options | ||
| 466 | */ | ||
| 467 | mopts.malloc_abort = 1; | ||
| 468 | mopts.malloc_move = 1; | ||
| 469 | mopts.malloc_cache = MALLOC_DEFAULT_CACHE; | ||
| 470 | |||
| 471 | for (i = 0; i < 3; i++) { | ||
| 472 | switch (i) { | ||
| 473 | case 0: | ||
| 474 | j = readlink("/etc/malloc.conf", b, sizeof b - 1); | ||
| 475 | if (j <= 0) | ||
| 476 | continue; | ||
| 477 | b[j] = '\0'; | ||
| 478 | p = b; | ||
| 479 | break; | ||
| 480 | case 1: | ||
| 481 | if (issetugid() == 0) | ||
| 482 | p = getenv("MALLOC_OPTIONS"); | ||
| 483 | else | ||
| 484 | continue; | ||
| 485 | break; | ||
| 486 | case 2: | ||
| 487 | p = malloc_options; | ||
| 488 | break; | ||
| 489 | default: | ||
| 490 | p = NULL; | ||
| 491 | } | ||
| 492 | |||
| 493 | for (; p != NULL && *p != '\0'; p++) { | ||
| 494 | switch (*p) { | ||
| 495 | case '>': | ||
| 496 | mopts.malloc_cache <<= 1; | ||
| 497 | if (mopts.malloc_cache > MALLOC_MAXCACHE) | ||
| 498 | mopts.malloc_cache = MALLOC_MAXCACHE; | ||
| 499 | break; | ||
| 500 | case '<': | ||
| 501 | mopts.malloc_cache >>= 1; | ||
| 502 | break; | ||
| 503 | case 'a': | ||
| 504 | mopts.malloc_abort = 0; | ||
| 505 | break; | ||
| 506 | case 'A': | ||
| 507 | mopts.malloc_abort = 1; | ||
| 508 | break; | ||
| 509 | #ifdef MALLOC_STATS | ||
| 510 | case 'd': | ||
| 511 | mopts.malloc_stats = 0; | ||
| 512 | break; | ||
| 513 | case 'D': | ||
| 514 | mopts.malloc_stats = 1; | ||
| 515 | break; | ||
| 516 | #endif /* MALLOC_STATS */ | ||
| 517 | case 'f': | ||
| 518 | mopts.malloc_freeprot = 0; | ||
| 519 | break; | ||
| 520 | case 'F': | ||
| 521 | mopts.malloc_freeprot = 1; | ||
| 522 | break; | ||
| 523 | case 'g': | ||
| 524 | mopts.malloc_guard = 0; | ||
| 525 | break; | ||
| 526 | case 'G': | ||
| 527 | mopts.malloc_guard = MALLOC_PAGESIZE; | ||
| 528 | break; | ||
| 529 | case 'h': | ||
| 530 | mopts.malloc_hint = 0; | ||
| 531 | break; | ||
| 532 | case 'H': | ||
| 533 | mopts.malloc_hint = 1; | ||
| 534 | break; | ||
| 535 | case 'j': | ||
| 536 | mopts.malloc_junk = 0; | ||
| 537 | break; | ||
| 538 | case 'J': | ||
| 539 | mopts.malloc_junk = 1; | ||
| 540 | break; | ||
| 541 | case 'n': | ||
| 542 | case 'N': | ||
| 543 | break; | ||
| 544 | case 'p': | ||
| 545 | mopts.malloc_move = 0; | ||
| 546 | break; | ||
| 547 | case 'P': | ||
| 548 | mopts.malloc_move = 1; | ||
| 549 | break; | ||
| 550 | case 'r': | ||
| 551 | mopts.malloc_realloc = 0; | ||
| 552 | break; | ||
| 553 | case 'R': | ||
| 554 | mopts.malloc_realloc = 1; | ||
| 555 | break; | ||
| 556 | case 's': | ||
| 557 | mopts.malloc_freeprot = mopts.malloc_junk = 0; | ||
| 558 | mopts.malloc_guard = 0; | ||
| 559 | mopts.malloc_cache = MALLOC_DEFAULT_CACHE; | ||
| 560 | break; | ||
| 561 | case 'S': | ||
| 562 | mopts.malloc_freeprot = mopts.malloc_junk = 1; | ||
| 563 | mopts.malloc_guard = MALLOC_PAGESIZE; | ||
| 564 | mopts.malloc_cache = 0; | ||
| 565 | break; | ||
| 566 | case 'x': | ||
| 567 | mopts.malloc_xmalloc = 0; | ||
| 568 | break; | ||
| 569 | case 'X': | ||
| 570 | mopts.malloc_xmalloc = 1; | ||
| 571 | break; | ||
| 572 | case 'z': | ||
| 573 | mopts.malloc_zero = 0; | ||
| 574 | break; | ||
| 575 | case 'Z': | ||
| 576 | mopts.malloc_zero = 1; | ||
| 577 | break; | ||
| 578 | default: { | ||
| 579 | static const char q[] = "malloc() warning: " | ||
| 580 | "unknown char in MALLOC_OPTIONS\n"; | ||
| 581 | write(STDERR_FILENO, q, sizeof(q) - 1); | ||
| 582 | break; | ||
| 583 | } | ||
| 584 | } | ||
| 585 | } | ||
| 586 | } | ||
| 587 | |||
| 588 | /* | ||
| 589 | * We want junk in the entire allocation, and zero only in the part | ||
| 590 | * the user asked for. | ||
| 591 | */ | ||
| 592 | if (mopts.malloc_zero) | ||
| 593 | mopts.malloc_junk = 1; | ||
| 594 | |||
| 595 | #ifdef MALLOC_STATS | ||
| 596 | if (mopts.malloc_stats && (atexit(malloc_exit) == -1)) { | ||
| 597 | static const char q[] = "malloc() warning: atexit(2) failed." | ||
| 598 | " Will not be able to dump stats on exit\n"; | ||
| 599 | write(STDERR_FILENO, q, sizeof(q) - 1); | ||
| 600 | } | ||
| 601 | #endif /* MALLOC_STATS */ | ||
| 602 | |||
| 603 | while ((mopts.malloc_canary = arc4random()) == 0) | ||
| 604 | ; | ||
| 605 | |||
| 606 | /* | ||
| 607 | * Allocate dir_info with a guard page on either side. Also | ||
| 608 | * randomise offset inside the page at which the dir_info | ||
| 609 | * lies (subject to alignment by 1 << MALLOC_MINSHIFT) | ||
| 610 | */ | ||
| 611 | if ((p = MMAP(DIR_INFO_RSZ + (MALLOC_PAGESIZE * 2))) == MAP_FAILED) | ||
| 612 | return -1; | ||
| 613 | mprotect(p, MALLOC_PAGESIZE, PROT_NONE); | ||
| 614 | mprotect(p + MALLOC_PAGESIZE + DIR_INFO_RSZ, | ||
| 615 | MALLOC_PAGESIZE, PROT_NONE); | ||
| 616 | d_avail = (DIR_INFO_RSZ - sizeof(*d)) >> MALLOC_MINSHIFT; | ||
| 617 | d = (struct dir_info *)(p + MALLOC_PAGESIZE + | ||
| 618 | (arc4random_uniform(d_avail) << MALLOC_MINSHIFT)); | ||
| 619 | |||
| 620 | d->regions_free = d->regions_total = MALLOC_INITIAL_REGIONS; | ||
| 621 | regioninfo_size = d->regions_total * sizeof(struct region_info); | ||
| 622 | d->r = MMAP(regioninfo_size); | ||
| 623 | if (d->r == MAP_FAILED) { | ||
| 624 | wrterror("malloc init mmap failed", NULL); | ||
| 625 | d->regions_total = 0; | ||
| 626 | return 1; | ||
| 627 | } | ||
| 628 | for (i = 0; i <= MALLOC_MAXSHIFT; i++) { | ||
| 629 | LIST_INIT(&d->chunk_info_list[i]); | ||
| 630 | LIST_INIT(&d->chunk_dir[i]); | ||
| 631 | } | ||
| 632 | malloc_used += regioninfo_size; | ||
| 633 | d->canary1 = mopts.malloc_canary ^ (u_int32_t)(uintptr_t)d; | ||
| 634 | d->canary2 = ~d->canary1; | ||
| 635 | |||
| 636 | *dp = d; | ||
| 637 | |||
| 638 | /* | ||
| 639 | * Options have been set and will never be reset. | ||
| 640 | * Prevent further tampering with them. | ||
| 641 | */ | ||
| 642 | if (((uintptr_t)&malloc_readonly & MALLOC_PAGEMASK) == 0) | ||
| 643 | mprotect(&malloc_readonly, sizeof(malloc_readonly), PROT_READ); | ||
| 644 | |||
| 645 | return 0; | ||
| 646 | } | ||
| 647 | |||
| 648 | static int | ||
| 649 | omalloc_grow(struct dir_info *d) | ||
| 650 | { | ||
| 651 | size_t newtotal; | ||
| 652 | size_t newsize; | ||
| 653 | size_t mask; | ||
| 654 | size_t i; | ||
| 655 | struct region_info *p; | ||
| 656 | |||
| 657 | if (d->regions_total > SIZE_MAX / sizeof(struct region_info) / 2 ) | ||
| 658 | return 1; | ||
| 659 | |||
| 660 | newtotal = d->regions_total * 2; | ||
| 661 | newsize = newtotal * sizeof(struct region_info); | ||
| 662 | mask = newtotal - 1; | ||
| 663 | |||
| 664 | p = MMAP(newsize); | ||
| 665 | if (p == MAP_FAILED) | ||
| 666 | return 1; | ||
| 667 | |||
| 668 | malloc_used += newsize; | ||
| 669 | memset(p, 0, newsize); | ||
| 670 | STATS_ZERO(d->inserts); | ||
| 671 | STATS_ZERO(d->insert_collisions); | ||
| 672 | for (i = 0; i < d->regions_total; i++) { | ||
| 673 | void *q = d->r[i].p; | ||
| 674 | if (q != NULL) { | ||
| 675 | size_t index = hash(q) & mask; | ||
| 676 | STATS_INC(d->inserts); | ||
| 677 | while (p[index].p != NULL) { | ||
| 678 | index = (index - 1) & mask; | ||
| 679 | STATS_INC(d->insert_collisions); | ||
| 680 | } | ||
| 681 | p[index] = d->r[i]; | ||
| 682 | } | ||
| 683 | } | ||
| 684 | /* avoid pages containing meta info to end up in cache */ | ||
| 685 | if (munmap(d->r, d->regions_total * sizeof(struct region_info))) | ||
| 686 | wrterror("munmap", d->r); | ||
| 687 | else | ||
| 688 | malloc_used -= d->regions_total * sizeof(struct region_info); | ||
| 689 | d->regions_free = d->regions_free + d->regions_total; | ||
| 690 | d->regions_total = newtotal; | ||
| 691 | d->r = p; | ||
| 692 | return 0; | ||
| 693 | } | ||
| 694 | |||
| 695 | static struct chunk_info * | ||
| 696 | alloc_chunk_info(struct dir_info *d, int bits) | ||
| 697 | { | ||
| 698 | struct chunk_info *p; | ||
| 699 | size_t size, count; | ||
| 700 | |||
| 701 | if (bits == 0) | ||
| 702 | count = MALLOC_PAGESIZE / MALLOC_MINSIZE; | ||
| 703 | else | ||
| 704 | count = MALLOC_PAGESIZE >> bits; | ||
| 705 | |||
| 706 | size = howmany(count, MALLOC_BITS); | ||
| 707 | size = sizeof(struct chunk_info) + (size - 1) * sizeof(u_short); | ||
| 708 | size = ALIGN(size); | ||
| 709 | |||
| 710 | if (LIST_EMPTY(&d->chunk_info_list[bits])) { | ||
| 711 | void *q; | ||
| 712 | int i; | ||
| 713 | |||
| 714 | q = MMAP(MALLOC_PAGESIZE); | ||
| 715 | if (q == MAP_FAILED) | ||
| 716 | return NULL; | ||
| 717 | malloc_used += MALLOC_PAGESIZE; | ||
| 718 | count = MALLOC_PAGESIZE / size; | ||
| 719 | for (i = 0; i < count; i++, q += size) | ||
| 720 | LIST_INSERT_HEAD(&d->chunk_info_list[bits], | ||
| 721 | (struct chunk_info *)q, entries); | ||
| 722 | } | ||
| 723 | p = LIST_FIRST(&d->chunk_info_list[bits]); | ||
| 724 | LIST_REMOVE(p, entries); | ||
| 725 | memset(p, 0, size); | ||
| 726 | p->canary = d->canary1; | ||
| 727 | return p; | ||
| 728 | } | ||
| 729 | |||
| 730 | |||
| 731 | /* | ||
| 732 | * The hashtable uses the assumption that p is never NULL. This holds since | ||
| 733 | * non-MAP_FIXED mappings with hint 0 start at BRKSIZ. | ||
| 734 | */ | ||
| 735 | static int | ||
| 736 | insert(struct dir_info *d, void *p, size_t sz, void *f) | ||
| 737 | { | ||
| 738 | size_t index; | ||
| 739 | size_t mask; | ||
| 740 | void *q; | ||
| 741 | |||
| 742 | if (d->regions_free * 4 < d->regions_total) { | ||
| 743 | if (omalloc_grow(d)) | ||
| 744 | return 1; | ||
| 745 | } | ||
| 746 | mask = d->regions_total - 1; | ||
| 747 | index = hash(p) & mask; | ||
| 748 | q = d->r[index].p; | ||
| 749 | STATS_INC(d->inserts); | ||
| 750 | while (q != NULL) { | ||
| 751 | index = (index - 1) & mask; | ||
| 752 | q = d->r[index].p; | ||
| 753 | STATS_INC(d->insert_collisions); | ||
| 754 | } | ||
| 755 | d->r[index].p = p; | ||
| 756 | d->r[index].size = sz; | ||
| 757 | #ifdef MALLOC_STATS | ||
| 758 | d->r[index].f = f; | ||
| 759 | #endif | ||
| 760 | d->regions_free--; | ||
| 761 | return 0; | ||
| 762 | } | ||
| 763 | |||
| 764 | static struct region_info * | ||
| 765 | find(struct dir_info *d, void *p) | ||
| 766 | { | ||
| 767 | size_t index; | ||
| 768 | size_t mask = d->regions_total - 1; | ||
| 769 | void *q, *r; | ||
| 770 | |||
| 771 | if (mopts.malloc_canary != (d->canary1 ^ (u_int32_t)(uintptr_t)d) || | ||
| 772 | d->canary1 != ~d->canary2) | ||
| 773 | wrterror("internal struct corrupt", NULL); | ||
| 774 | p = MASK_POINTER(p); | ||
| 775 | index = hash(p) & mask; | ||
| 776 | r = d->r[index].p; | ||
| 777 | q = MASK_POINTER(r); | ||
| 778 | STATS_INC(d->finds); | ||
| 779 | while (q != p && r != NULL) { | ||
| 780 | index = (index - 1) & mask; | ||
| 781 | r = d->r[index].p; | ||
| 782 | q = MASK_POINTER(r); | ||
| 783 | STATS_INC(d->find_collisions); | ||
| 784 | } | ||
| 785 | return (q == p && r != NULL) ? &d->r[index] : NULL; | ||
| 786 | } | ||
| 787 | |||
| 788 | static void | ||
| 789 | delete(struct dir_info *d, struct region_info *ri) | ||
| 790 | { | ||
| 791 | /* algorithm R, Knuth Vol III section 6.4 */ | ||
| 792 | size_t mask = d->regions_total - 1; | ||
| 793 | size_t i, j, r; | ||
| 794 | |||
| 795 | if (d->regions_total & (d->regions_total - 1)) | ||
| 796 | wrterror("regions_total not 2^x", NULL); | ||
| 797 | d->regions_free++; | ||
| 798 | STATS_INC(g_pool->deletes); | ||
| 799 | |||
| 800 | i = ri - d->r; | ||
| 801 | for (;;) { | ||
| 802 | d->r[i].p = NULL; | ||
| 803 | d->r[i].size = 0; | ||
| 804 | j = i; | ||
| 805 | for (;;) { | ||
| 806 | i = (i - 1) & mask; | ||
| 807 | if (d->r[i].p == NULL) | ||
| 808 | return; | ||
| 809 | r = hash(d->r[i].p) & mask; | ||
| 810 | if ((i <= r && r < j) || (r < j && j < i) || | ||
| 811 | (j < i && i <= r)) | ||
| 812 | continue; | ||
| 813 | d->r[j] = d->r[i]; | ||
| 814 | STATS_INC(g_pool->delete_moves); | ||
| 815 | break; | ||
| 816 | } | ||
| 817 | |||
| 818 | } | ||
| 819 | } | ||
| 820 | |||
| 821 | /* | ||
| 822 | * Allocate a page of chunks | ||
| 823 | */ | ||
| 824 | static struct chunk_info * | ||
| 825 | omalloc_make_chunks(struct dir_info *d, int bits) | ||
| 826 | { | ||
| 827 | struct chunk_info *bp; | ||
| 828 | void *pp; | ||
| 829 | int i, k; | ||
| 830 | |||
| 831 | /* Allocate a new bucket */ | ||
| 832 | pp = map(d, MALLOC_PAGESIZE, 0); | ||
| 833 | if (pp == MAP_FAILED) | ||
| 834 | return NULL; | ||
| 835 | |||
| 836 | bp = alloc_chunk_info(d, bits); | ||
| 837 | if (bp == NULL) { | ||
| 838 | unmap(d, pp, MALLOC_PAGESIZE); | ||
| 839 | return NULL; | ||
| 840 | } | ||
| 841 | |||
| 842 | /* memory protect the page allocated in the malloc(0) case */ | ||
| 843 | if (bits == 0) { | ||
| 844 | bp->size = 0; | ||
| 845 | bp->shift = 1; | ||
| 846 | i = MALLOC_MINSIZE - 1; | ||
| 847 | while (i >>= 1) | ||
| 848 | bp->shift++; | ||
| 849 | bp->total = bp->free = MALLOC_PAGESIZE >> bp->shift; | ||
| 850 | bp->page = pp; | ||
| 851 | |||
| 852 | k = mprotect(pp, MALLOC_PAGESIZE, PROT_NONE); | ||
| 853 | if (k < 0) { | ||
| 854 | unmap(d, pp, MALLOC_PAGESIZE); | ||
| 855 | LIST_INSERT_HEAD(&d->chunk_info_list[0], bp, entries); | ||
| 856 | return NULL; | ||
| 857 | } | ||
| 858 | } else { | ||
| 859 | bp->size = 1U << bits; | ||
| 860 | bp->shift = bits; | ||
| 861 | bp->total = bp->free = MALLOC_PAGESIZE >> bits; | ||
| 862 | bp->page = pp; | ||
| 863 | } | ||
| 864 | |||
| 865 | /* set all valid bits in the bitmap */ | ||
| 866 | k = bp->total; | ||
| 867 | i = 0; | ||
| 868 | |||
| 869 | /* Do a bunch at a time */ | ||
| 870 | for (; (k - i) >= MALLOC_BITS; i += MALLOC_BITS) | ||
| 871 | bp->bits[i / MALLOC_BITS] = (u_short)~0U; | ||
| 872 | |||
| 873 | for (; i < k; i++) | ||
| 874 | bp->bits[i / MALLOC_BITS] |= (u_short)1U << (i % MALLOC_BITS); | ||
| 875 | |||
| 876 | LIST_INSERT_HEAD(&d->chunk_dir[bits], bp, entries); | ||
| 877 | |||
| 878 | bits++; | ||
| 879 | if ((uintptr_t)pp & bits) | ||
| 880 | wrterror("pp & bits", pp); | ||
| 881 | |||
| 882 | insert(d, (void *)((uintptr_t)pp | bits), (uintptr_t)bp, NULL); | ||
| 883 | return bp; | ||
| 884 | } | ||
| 885 | |||
| 886 | |||
| 887 | /* | ||
| 888 | * Allocate a chunk | ||
| 889 | */ | ||
| 890 | static void * | ||
| 891 | malloc_bytes(struct dir_info *d, size_t size, void *f) | ||
| 892 | { | ||
| 893 | int i, j; | ||
| 894 | size_t k; | ||
| 895 | u_short u, *lp; | ||
| 896 | struct chunk_info *bp; | ||
| 897 | |||
| 898 | if (mopts.malloc_canary != (d->canary1 ^ (u_int32_t)(uintptr_t)d) || | ||
| 899 | d->canary1 != ~d->canary2) | ||
| 900 | wrterror("internal struct corrupt", NULL); | ||
| 901 | /* Don't bother with anything less than this */ | ||
| 902 | /* unless we have a malloc(0) requests */ | ||
| 903 | if (size != 0 && size < MALLOC_MINSIZE) | ||
| 904 | size = MALLOC_MINSIZE; | ||
| 905 | |||
| 906 | /* Find the right bucket */ | ||
| 907 | if (size == 0) | ||
| 908 | j = 0; | ||
| 909 | else { | ||
| 910 | j = MALLOC_MINSHIFT; | ||
| 911 | i = (size - 1) >> (MALLOC_MINSHIFT - 1); | ||
| 912 | while (i >>= 1) | ||
| 913 | j++; | ||
| 914 | } | ||
| 915 | |||
| 916 | /* If it's empty, make a page more of that size chunks */ | ||
| 917 | if (LIST_EMPTY(&d->chunk_dir[j])) { | ||
| 918 | bp = omalloc_make_chunks(d, j); | ||
| 919 | if (bp == NULL) | ||
| 920 | return NULL; | ||
| 921 | } else | ||
| 922 | bp = LIST_FIRST(&d->chunk_dir[j]); | ||
| 923 | |||
| 924 | if (bp->canary != d->canary1) | ||
| 925 | wrterror("chunk info corrupted", NULL); | ||
| 926 | |||
| 927 | i = d->chunk_start; | ||
| 928 | if (bp->free > 1) | ||
| 929 | i += getrnibble(); | ||
| 930 | if (i >= bp->total) | ||
| 931 | i &= bp->total - 1; | ||
| 932 | for (;;) { | ||
| 933 | for (;;) { | ||
| 934 | lp = &bp->bits[i / MALLOC_BITS]; | ||
| 935 | if (!*lp) { | ||
| 936 | i += MALLOC_BITS; | ||
| 937 | i &= ~(MALLOC_BITS - 1); | ||
| 938 | if (i >= bp->total) | ||
| 939 | i = 0; | ||
| 940 | } else | ||
| 941 | break; | ||
| 942 | } | ||
| 943 | k = i % MALLOC_BITS; | ||
| 944 | u = 1 << k; | ||
| 945 | if (*lp & u) | ||
| 946 | break; | ||
| 947 | if (++i >= bp->total) | ||
| 948 | i = 0; | ||
| 949 | } | ||
| 950 | d->chunk_start += i + 1; | ||
| 951 | #ifdef MALLOC_STATS | ||
| 952 | if (i == 0) { | ||
| 953 | struct region_info *r = find(d, bp->page); | ||
| 954 | r->f = f; | ||
| 955 | } | ||
| 956 | #endif | ||
| 957 | |||
| 958 | *lp ^= u; | ||
| 959 | |||
| 960 | /* If there are no more free, remove from free-list */ | ||
| 961 | if (!--bp->free) | ||
| 962 | LIST_REMOVE(bp, entries); | ||
| 963 | |||
| 964 | /* Adjust to the real offset of that chunk */ | ||
| 965 | k += (lp - bp->bits) * MALLOC_BITS; | ||
| 966 | k <<= bp->shift; | ||
| 967 | |||
| 968 | if (mopts.malloc_junk && bp->size > 0) | ||
| 969 | memset((char *)bp->page + k, SOME_JUNK, bp->size); | ||
| 970 | return ((char *)bp->page + k); | ||
| 971 | } | ||
| 972 | |||
| 973 | |||
| 974 | /* | ||
| 975 | * Free a chunk, and possibly the page it's on, if the page becomes empty. | ||
| 976 | */ | ||
| 977 | static void | ||
| 978 | free_bytes(struct dir_info *d, struct region_info *r, void *ptr) | ||
| 979 | { | ||
| 980 | struct chunk_head *mp; | ||
| 981 | struct chunk_info *info; | ||
| 982 | int i; | ||
| 983 | |||
| 984 | info = (struct chunk_info *)r->size; | ||
| 985 | if (info->canary != d->canary1) | ||
| 986 | wrterror("chunk info corrupted", NULL); | ||
| 987 | |||
| 988 | /* Find the chunk number on the page */ | ||
| 989 | i = ((uintptr_t)ptr & MALLOC_PAGEMASK) >> info->shift; | ||
| 990 | |||
| 991 | if ((uintptr_t)ptr & ((1U << (info->shift)) - 1)) { | ||
| 992 | wrterror("modified chunk-pointer", ptr); | ||
| 993 | return; | ||
| 994 | } | ||
| 995 | if (info->bits[i / MALLOC_BITS] & (1U << (i % MALLOC_BITS))) { | ||
| 996 | wrterror("chunk is already free", ptr); | ||
| 997 | return; | ||
| 998 | } | ||
| 999 | |||
| 1000 | info->bits[i / MALLOC_BITS] |= 1U << (i % MALLOC_BITS); | ||
| 1001 | info->free++; | ||
| 1002 | |||
| 1003 | if (info->size != 0) | ||
| 1004 | mp = d->chunk_dir + info->shift; | ||
| 1005 | else | ||
| 1006 | mp = d->chunk_dir; | ||
| 1007 | |||
| 1008 | if (info->free == 1) { | ||
| 1009 | /* Page became non-full */ | ||
| 1010 | LIST_INSERT_HEAD(mp, info, entries); | ||
| 1011 | return; | ||
| 1012 | } | ||
| 1013 | if (info->free != info->total) | ||
| 1014 | return; | ||
| 1015 | |||
| 1016 | LIST_REMOVE(info, entries); | ||
| 1017 | |||
| 1018 | if (info->size == 0 && !mopts.malloc_freeprot) | ||
| 1019 | mprotect(info->page, MALLOC_PAGESIZE, PROT_READ | PROT_WRITE); | ||
| 1020 | unmap(d, info->page, MALLOC_PAGESIZE); | ||
| 1021 | |||
| 1022 | delete(d, r); | ||
| 1023 | if (info->size != 0) | ||
| 1024 | mp = &d->chunk_info_list[info->shift]; | ||
| 1025 | else | ||
| 1026 | mp = &d->chunk_info_list[0]; | ||
| 1027 | LIST_INSERT_HEAD(mp, info, entries); | ||
| 1028 | } | ||
| 1029 | |||
| 1030 | |||
| 1031 | |||
| 1032 | static void * | ||
| 1033 | omalloc(size_t sz, int zero_fill, void *f) | ||
| 1034 | { | ||
| 1035 | void *p; | ||
| 1036 | size_t psz; | ||
| 1037 | |||
| 1038 | if (sz > MALLOC_MAXCHUNK) { | ||
| 1039 | if (sz >= SIZE_MAX - mopts.malloc_guard - MALLOC_PAGESIZE) { | ||
| 1040 | errno = ENOMEM; | ||
| 1041 | return NULL; | ||
| 1042 | } | ||
| 1043 | sz += mopts.malloc_guard; | ||
| 1044 | psz = PAGEROUND(sz); | ||
| 1045 | p = map(g_pool, psz, zero_fill); | ||
| 1046 | if (p == MAP_FAILED) { | ||
| 1047 | errno = ENOMEM; | ||
| 1048 | return NULL; | ||
| 1049 | } | ||
| 1050 | if (insert(g_pool, p, sz, f)) { | ||
| 1051 | unmap(g_pool, p, psz); | ||
| 1052 | errno = ENOMEM; | ||
| 1053 | return NULL; | ||
| 1054 | } | ||
| 1055 | if (mopts.malloc_guard) { | ||
| 1056 | if (mprotect((char *)p + psz - mopts.malloc_guard, | ||
| 1057 | mopts.malloc_guard, PROT_NONE)) | ||
| 1058 | wrterror("mprotect", NULL); | ||
| 1059 | malloc_guarded += mopts.malloc_guard; | ||
| 1060 | } | ||
| 1061 | |||
| 1062 | if (mopts.malloc_move && | ||
| 1063 | sz - mopts.malloc_guard < MALLOC_PAGESIZE - | ||
| 1064 | MALLOC_LEEWAY) { | ||
| 1065 | /* fill whole allocation */ | ||
| 1066 | if (mopts.malloc_junk) | ||
| 1067 | memset(p, SOME_JUNK, psz - mopts.malloc_guard); | ||
| 1068 | /* shift towards the end */ | ||
| 1069 | p = ((char *)p) + ((MALLOC_PAGESIZE - MALLOC_LEEWAY - | ||
| 1070 | (sz - mopts.malloc_guard)) & ~(MALLOC_MINSIZE-1)); | ||
| 1071 | /* fill zeros if needed and overwritten above */ | ||
| 1072 | if (zero_fill && mopts.malloc_junk) | ||
| 1073 | memset(p, 0, sz - mopts.malloc_guard); | ||
| 1074 | } else { | ||
| 1075 | if (mopts.malloc_junk) { | ||
| 1076 | if (zero_fill) | ||
| 1077 | memset((char *)p + sz - mopts.malloc_guard, | ||
| 1078 | SOME_JUNK, psz - sz); | ||
| 1079 | else | ||
| 1080 | memset(p, SOME_JUNK, | ||
| 1081 | psz - mopts.malloc_guard); | ||
| 1082 | } | ||
| 1083 | } | ||
| 1084 | |||
| 1085 | } else { | ||
| 1086 | /* takes care of SOME_JUNK */ | ||
| 1087 | p = malloc_bytes(g_pool, sz, f); | ||
| 1088 | if (zero_fill && p != NULL && sz > 0) | ||
| 1089 | memset(p, 0, sz); | ||
| 1090 | } | ||
| 1091 | |||
| 1092 | return p; | ||
| 1093 | } | ||
| 1094 | |||
| 1095 | /* | ||
| 1096 | * Common function for handling recursion. Only | ||
| 1097 | * print the error message once, to avoid making the problem | ||
| 1098 | * potentially worse. | ||
| 1099 | */ | ||
| 1100 | static void | ||
| 1101 | malloc_recurse(void) | ||
| 1102 | { | ||
| 1103 | static int noprint; | ||
| 1104 | |||
| 1105 | if (noprint == 0) { | ||
| 1106 | noprint = 1; | ||
| 1107 | wrterror("recursive call", NULL); | ||
| 1108 | } | ||
| 1109 | malloc_active--; | ||
| 1110 | _MALLOC_UNLOCK(); | ||
| 1111 | errno = EDEADLK; | ||
| 1112 | } | ||
| 1113 | |||
| 1114 | static int | ||
| 1115 | malloc_init(void) | ||
| 1116 | { | ||
| 1117 | if (omalloc_init(&g_pool)) { | ||
| 1118 | _MALLOC_UNLOCK(); | ||
| 1119 | if (mopts.malloc_xmalloc) | ||
| 1120 | wrterror("out of memory", NULL); | ||
| 1121 | errno = ENOMEM; | ||
| 1122 | return -1; | ||
| 1123 | } | ||
| 1124 | return 0; | ||
| 1125 | } | ||
| 1126 | |||
| 1127 | void * | ||
| 1128 | malloc(size_t size) | ||
| 1129 | { | ||
| 1130 | void *r; | ||
| 1131 | int saved_errno = errno; | ||
| 1132 | |||
| 1133 | _MALLOC_LOCK(); | ||
| 1134 | malloc_func = " in malloc():"; | ||
| 1135 | if (g_pool == NULL) { | ||
| 1136 | if (malloc_init() != 0) | ||
| 1137 | return NULL; | ||
| 1138 | } | ||
| 1139 | if (malloc_active++) { | ||
| 1140 | malloc_recurse(); | ||
| 1141 | return NULL; | ||
| 1142 | } | ||
| 1143 | r = omalloc(size, mopts.malloc_zero, CALLER); | ||
| 1144 | malloc_active--; | ||
| 1145 | _MALLOC_UNLOCK(); | ||
| 1146 | if (r == NULL && mopts.malloc_xmalloc) { | ||
| 1147 | wrterror("out of memory", NULL); | ||
| 1148 | errno = ENOMEM; | ||
| 1149 | } | ||
| 1150 | if (r != NULL) | ||
| 1151 | errno = saved_errno; | ||
| 1152 | return r; | ||
| 1153 | } | ||
| 1154 | |||
| 1155 | static void | ||
| 1156 | ofree(void *p) | ||
| 1157 | { | ||
| 1158 | struct region_info *r; | ||
| 1159 | size_t sz; | ||
| 1160 | |||
| 1161 | r = find(g_pool, p); | ||
| 1162 | if (r == NULL) { | ||
| 1163 | wrterror("bogus pointer (double free?)", p); | ||
| 1164 | return; | ||
| 1165 | } | ||
| 1166 | REALSIZE(sz, r); | ||
| 1167 | if (sz > MALLOC_MAXCHUNK) { | ||
| 1168 | if (sz - mopts.malloc_guard >= MALLOC_PAGESIZE - | ||
| 1169 | MALLOC_LEEWAY) { | ||
| 1170 | if (r->p != p) { | ||
| 1171 | wrterror("bogus pointer", p); | ||
| 1172 | return; | ||
| 1173 | } | ||
| 1174 | } else { | ||
| 1175 | #if notyetbecause_of_realloc | ||
| 1176 | /* shifted towards the end */ | ||
| 1177 | if (p != ((char *)r->p) + ((MALLOC_PAGESIZE - | ||
| 1178 | MALLOC_MINSIZE - sz - mopts.malloc_guard) & | ||
| 1179 | ~(MALLOC_MINSIZE-1))) { | ||
| 1180 | } | ||
| 1181 | #endif | ||
| 1182 | p = r->p; | ||
| 1183 | } | ||
| 1184 | if (mopts.malloc_guard) { | ||
| 1185 | if (sz < mopts.malloc_guard) | ||
| 1186 | wrterror("guard size", NULL); | ||
| 1187 | if (!mopts.malloc_freeprot) { | ||
| 1188 | if (mprotect((char *)p + PAGEROUND(sz) - | ||
| 1189 | mopts.malloc_guard, mopts.malloc_guard, | ||
| 1190 | PROT_READ | PROT_WRITE)) | ||
| 1191 | wrterror("mprotect", NULL); | ||
| 1192 | } | ||
| 1193 | malloc_guarded -= mopts.malloc_guard; | ||
| 1194 | } | ||
| 1195 | if (mopts.malloc_junk && !mopts.malloc_freeprot) | ||
| 1196 | memset(p, SOME_FREEJUNK, | ||
| 1197 | PAGEROUND(sz) - mopts.malloc_guard); | ||
| 1198 | unmap(g_pool, p, PAGEROUND(sz)); | ||
| 1199 | delete(g_pool, r); | ||
| 1200 | } else { | ||
| 1201 | void *tmp; | ||
| 1202 | int i; | ||
| 1203 | |||
| 1204 | if (mopts.malloc_junk && sz > 0) | ||
| 1205 | memset(p, SOME_FREEJUNK, sz); | ||
| 1206 | if (!mopts.malloc_freeprot) { | ||
| 1207 | i = getrnibble(); | ||
| 1208 | tmp = p; | ||
| 1209 | p = g_pool->delayed_chunks[i]; | ||
| 1210 | g_pool->delayed_chunks[i] = tmp; | ||
| 1211 | } | ||
| 1212 | if (p != NULL) { | ||
| 1213 | r = find(g_pool, p); | ||
| 1214 | if (r == NULL) { | ||
| 1215 | wrterror("bogus pointer (double free?)", p); | ||
| 1216 | return; | ||
| 1217 | } | ||
| 1218 | free_bytes(g_pool, r, p); | ||
| 1219 | } | ||
| 1220 | } | ||
| 1221 | } | ||
| 1222 | |||
| 1223 | void | ||
| 1224 | free(void *ptr) | ||
| 1225 | { | ||
| 1226 | int saved_errno = errno; | ||
| 1227 | |||
| 1228 | /* This is legal. */ | ||
| 1229 | if (ptr == NULL) | ||
| 1230 | return; | ||
| 1231 | |||
| 1232 | _MALLOC_LOCK(); | ||
| 1233 | malloc_func = " in free():"; | ||
| 1234 | if (g_pool == NULL) { | ||
| 1235 | _MALLOC_UNLOCK(); | ||
| 1236 | wrterror("free() called before allocation", NULL); | ||
| 1237 | return; | ||
| 1238 | } | ||
| 1239 | if (malloc_active++) { | ||
| 1240 | malloc_recurse(); | ||
| 1241 | return; | ||
| 1242 | } | ||
| 1243 | ofree(ptr); | ||
| 1244 | malloc_active--; | ||
| 1245 | _MALLOC_UNLOCK(); | ||
| 1246 | errno = saved_errno; | ||
| 1247 | } | ||
| 1248 | |||
| 1249 | |||
| 1250 | static void * | ||
| 1251 | orealloc(void *p, size_t newsz, void *f) | ||
| 1252 | { | ||
| 1253 | struct region_info *r; | ||
| 1254 | size_t oldsz, goldsz, gnewsz; | ||
| 1255 | void *q; | ||
| 1256 | |||
| 1257 | if (p == NULL) | ||
| 1258 | return omalloc(newsz, 0, f); | ||
| 1259 | |||
| 1260 | r = find(g_pool, p); | ||
| 1261 | if (r == NULL) { | ||
| 1262 | wrterror("bogus pointer (double free?)", p); | ||
| 1263 | return NULL; | ||
| 1264 | } | ||
| 1265 | if (newsz >= SIZE_MAX - mopts.malloc_guard - MALLOC_PAGESIZE) { | ||
| 1266 | errno = ENOMEM; | ||
| 1267 | return NULL; | ||
| 1268 | } | ||
| 1269 | |||
| 1270 | REALSIZE(oldsz, r); | ||
| 1271 | goldsz = oldsz; | ||
| 1272 | if (oldsz > MALLOC_MAXCHUNK) { | ||
| 1273 | if (oldsz < mopts.malloc_guard) | ||
| 1274 | wrterror("guard size", NULL); | ||
| 1275 | oldsz -= mopts.malloc_guard; | ||
| 1276 | } | ||
| 1277 | |||
| 1278 | gnewsz = newsz; | ||
| 1279 | if (gnewsz > MALLOC_MAXCHUNK) | ||
| 1280 | gnewsz += mopts.malloc_guard; | ||
| 1281 | |||
| 1282 | if (newsz > MALLOC_MAXCHUNK && oldsz > MALLOC_MAXCHUNK && p == r->p && | ||
| 1283 | !mopts.malloc_realloc) { | ||
| 1284 | size_t roldsz = PAGEROUND(goldsz); | ||
| 1285 | size_t rnewsz = PAGEROUND(gnewsz); | ||
| 1286 | |||
| 1287 | if (rnewsz > roldsz) { | ||
| 1288 | if (!mopts.malloc_guard) { | ||
| 1289 | void *hint = (char *)p + roldsz; | ||
| 1290 | size_t needed = rnewsz - roldsz; | ||
| 1291 | |||
| 1292 | STATS_INC(g_pool->cheap_realloc_tries); | ||
| 1293 | zapcacheregion(g_pool, hint, needed); | ||
| 1294 | q = MQUERY(hint, needed); | ||
| 1295 | if (q == hint) | ||
| 1296 | q = MMAPA(hint, needed); | ||
| 1297 | else | ||
| 1298 | q = MAP_FAILED; | ||
| 1299 | if (q == hint) { | ||
| 1300 | malloc_used += needed; | ||
| 1301 | if (mopts.malloc_junk) | ||
| 1302 | memset(q, SOME_JUNK, needed); | ||
| 1303 | r->size = newsz; | ||
| 1304 | STATS_SETF(r, f); | ||
| 1305 | STATS_INC(g_pool->cheap_reallocs); | ||
| 1306 | return p; | ||
| 1307 | } else if (q != MAP_FAILED) { | ||
| 1308 | if (munmap(q, needed)) | ||
| 1309 | wrterror("munmap", q); | ||
| 1310 | } | ||
| 1311 | } | ||
| 1312 | } else if (rnewsz < roldsz) { | ||
| 1313 | if (mopts.malloc_guard) { | ||
| 1314 | if (mprotect((char *)p + roldsz - | ||
| 1315 | mopts.malloc_guard, mopts.malloc_guard, | ||
| 1316 | PROT_READ | PROT_WRITE)) | ||
| 1317 | wrterror("mprotect", NULL); | ||
| 1318 | if (mprotect((char *)p + rnewsz - | ||
| 1319 | mopts.malloc_guard, mopts.malloc_guard, | ||
| 1320 | PROT_NONE)) | ||
| 1321 | wrterror("mprotect", NULL); | ||
| 1322 | } | ||
| 1323 | unmap(g_pool, (char *)p + rnewsz, roldsz - rnewsz); | ||
| 1324 | r->size = gnewsz; | ||
| 1325 | STATS_SETF(r, f); | ||
| 1326 | return p; | ||
| 1327 | } else { | ||
| 1328 | if (newsz > oldsz && mopts.malloc_junk) | ||
| 1329 | memset((char *)p + newsz, SOME_JUNK, | ||
| 1330 | rnewsz - mopts.malloc_guard - newsz); | ||
| 1331 | r->size = gnewsz; | ||
| 1332 | STATS_SETF(r, f); | ||
| 1333 | return p; | ||
| 1334 | } | ||
| 1335 | } | ||
| 1336 | if (newsz <= oldsz && newsz > oldsz / 2 && !mopts.malloc_realloc) { | ||
| 1337 | if (mopts.malloc_junk && newsz > 0) | ||
| 1338 | memset((char *)p + newsz, SOME_JUNK, oldsz - newsz); | ||
| 1339 | STATS_SETF(r, f); | ||
| 1340 | return p; | ||
| 1341 | } else if (newsz != oldsz || mopts.malloc_realloc) { | ||
| 1342 | q = omalloc(newsz, 0, f); | ||
| 1343 | if (q == NULL) | ||
| 1344 | return NULL; | ||
| 1345 | if (newsz != 0 && oldsz != 0) | ||
| 1346 | memcpy(q, p, oldsz < newsz ? oldsz : newsz); | ||
| 1347 | ofree(p); | ||
| 1348 | return q; | ||
| 1349 | } else { | ||
| 1350 | STATS_SETF(r, f); | ||
| 1351 | return p; | ||
| 1352 | } | ||
| 1353 | } | ||
| 1354 | |||
| 1355 | void * | ||
| 1356 | realloc(void *ptr, size_t size) | ||
| 1357 | { | ||
| 1358 | void *r; | ||
| 1359 | int saved_errno = errno; | ||
| 1360 | |||
| 1361 | _MALLOC_LOCK(); | ||
| 1362 | malloc_func = " in realloc():"; | ||
| 1363 | if (g_pool == NULL) { | ||
| 1364 | if (malloc_init() != 0) | ||
| 1365 | return NULL; | ||
| 1366 | } | ||
| 1367 | if (malloc_active++) { | ||
| 1368 | malloc_recurse(); | ||
| 1369 | return NULL; | ||
| 1370 | } | ||
| 1371 | r = orealloc(ptr, size, CALLER); | ||
| 1372 | |||
| 1373 | malloc_active--; | ||
| 1374 | _MALLOC_UNLOCK(); | ||
| 1375 | if (r == NULL && mopts.malloc_xmalloc) { | ||
| 1376 | wrterror("out of memory", NULL); | ||
| 1377 | errno = ENOMEM; | ||
| 1378 | } | ||
| 1379 | if (r != NULL) | ||
| 1380 | errno = saved_errno; | ||
| 1381 | return r; | ||
| 1382 | } | ||
| 1383 | |||
| 1384 | |||
| 1385 | #define MUL_NO_OVERFLOW (1UL << (sizeof(size_t) * 4)) | ||
| 1386 | |||
| 1387 | void * | ||
| 1388 | calloc(size_t nmemb, size_t size) | ||
| 1389 | { | ||
| 1390 | void *r; | ||
| 1391 | int saved_errno = errno; | ||
| 1392 | |||
| 1393 | _MALLOC_LOCK(); | ||
| 1394 | malloc_func = " in calloc():"; | ||
| 1395 | if (g_pool == NULL) { | ||
| 1396 | if (malloc_init() != 0) | ||
| 1397 | return NULL; | ||
| 1398 | } | ||
| 1399 | if ((nmemb >= MUL_NO_OVERFLOW || size >= MUL_NO_OVERFLOW) && | ||
| 1400 | nmemb > 0 && SIZE_MAX / nmemb < size) { | ||
| 1401 | _MALLOC_UNLOCK(); | ||
| 1402 | if (mopts.malloc_xmalloc) | ||
| 1403 | wrterror("out of memory", NULL); | ||
| 1404 | errno = ENOMEM; | ||
| 1405 | return NULL; | ||
| 1406 | } | ||
| 1407 | |||
| 1408 | if (malloc_active++) { | ||
| 1409 | malloc_recurse(); | ||
| 1410 | return NULL; | ||
| 1411 | } | ||
| 1412 | |||
| 1413 | size *= nmemb; | ||
| 1414 | r = omalloc(size, 1, CALLER); | ||
| 1415 | |||
| 1416 | malloc_active--; | ||
| 1417 | _MALLOC_UNLOCK(); | ||
| 1418 | if (r == NULL && mopts.malloc_xmalloc) { | ||
| 1419 | wrterror("out of memory", NULL); | ||
| 1420 | errno = ENOMEM; | ||
| 1421 | } | ||
| 1422 | if (r != NULL) | ||
| 1423 | errno = saved_errno; | ||
| 1424 | return r; | ||
| 1425 | } | ||
| 1426 | |||
| 1427 | static void * | ||
| 1428 | mapalign(struct dir_info *d, size_t alignment, size_t sz, int zero_fill) | ||
| 1429 | { | ||
| 1430 | void *p, *q; | ||
| 1431 | |||
| 1432 | if (alignment < MALLOC_PAGESIZE || ((alignment - 1) & alignment) != 0) { | ||
| 1433 | wrterror("mapalign bad alignment", NULL); | ||
| 1434 | return MAP_FAILED; | ||
| 1435 | } | ||
| 1436 | if (sz != PAGEROUND(sz)) { | ||
| 1437 | wrterror("mapalign round", NULL); | ||
| 1438 | return MAP_FAILED; | ||
| 1439 | } | ||
| 1440 | |||
| 1441 | /* Allocate sz + alignment bytes of memory, which must include a | ||
| 1442 | * subrange of size bytes that is properly aligned. Unmap the | ||
| 1443 | * other bytes, and then return that subrange. | ||
| 1444 | */ | ||
| 1445 | |||
| 1446 | /* We need sz + alignment to fit into a size_t. */ | ||
| 1447 | if (alignment > SIZE_MAX - sz) | ||
| 1448 | return MAP_FAILED; | ||
| 1449 | |||
| 1450 | p = map(d, sz + alignment, zero_fill); | ||
| 1451 | if (p == MAP_FAILED) | ||
| 1452 | return MAP_FAILED; | ||
| 1453 | q = (void *)(((uintptr_t)p + alignment - 1) & ~(alignment - 1)); | ||
| 1454 | if (q != p) { | ||
| 1455 | if (munmap(p, q - p)) | ||
| 1456 | wrterror("munmap", p); | ||
| 1457 | } | ||
| 1458 | if (munmap(q + sz, alignment - (q - p))) | ||
| 1459 | wrterror("munmap", q + sz); | ||
| 1460 | malloc_used -= alignment; | ||
| 1461 | |||
| 1462 | return q; | ||
| 1463 | } | ||
| 1464 | |||
| 1465 | static void * | ||
| 1466 | omemalign(size_t alignment, size_t sz, int zero_fill, void *f) | ||
| 1467 | { | ||
| 1468 | size_t psz; | ||
| 1469 | void *p; | ||
| 1470 | |||
| 1471 | if (alignment <= MALLOC_PAGESIZE) { | ||
| 1472 | /* | ||
| 1473 | * max(size, alignment) is enough to assure the requested alignment, | ||
| 1474 | * since the allocator always allocates power-of-two blocks. | ||
| 1475 | */ | ||
| 1476 | if (sz < alignment) | ||
| 1477 | sz = alignment; | ||
| 1478 | return omalloc(sz, zero_fill, f); | ||
| 1479 | } | ||
| 1480 | |||
| 1481 | if (sz >= SIZE_MAX - mopts.malloc_guard - MALLOC_PAGESIZE) { | ||
| 1482 | errno = ENOMEM; | ||
| 1483 | return NULL; | ||
| 1484 | } | ||
| 1485 | |||
| 1486 | sz += mopts.malloc_guard; | ||
| 1487 | psz = PAGEROUND(sz); | ||
| 1488 | |||
| 1489 | p = mapalign(g_pool, alignment, psz, zero_fill); | ||
| 1490 | if (p == NULL) { | ||
| 1491 | errno = ENOMEM; | ||
| 1492 | return NULL; | ||
| 1493 | } | ||
| 1494 | |||
| 1495 | if (insert(g_pool, p, sz, f)) { | ||
| 1496 | unmap(g_pool, p, psz); | ||
| 1497 | errno = ENOMEM; | ||
| 1498 | return NULL; | ||
| 1499 | } | ||
| 1500 | |||
| 1501 | if (mopts.malloc_guard) { | ||
| 1502 | if (mprotect((char *)p + psz - mopts.malloc_guard, | ||
| 1503 | mopts.malloc_guard, PROT_NONE)) | ||
| 1504 | wrterror("mprotect", NULL); | ||
| 1505 | malloc_guarded += mopts.malloc_guard; | ||
| 1506 | } | ||
| 1507 | |||
| 1508 | if (mopts.malloc_junk) { | ||
| 1509 | if (zero_fill) | ||
| 1510 | memset((char *)p + sz - mopts.malloc_guard, | ||
| 1511 | SOME_JUNK, psz - sz); | ||
| 1512 | else | ||
| 1513 | memset(p, SOME_JUNK, psz - mopts.malloc_guard); | ||
| 1514 | } | ||
| 1515 | |||
| 1516 | return p; | ||
| 1517 | } | ||
| 1518 | |||
| 1519 | int | ||
| 1520 | posix_memalign(void **memptr, size_t alignment, size_t size) | ||
| 1521 | { | ||
| 1522 | int res, saved_errno = errno; | ||
| 1523 | void *r; | ||
| 1524 | |||
| 1525 | /* Make sure that alignment is a large enough power of 2. */ | ||
| 1526 | if (((alignment - 1) & alignment) != 0 || alignment < sizeof(void *)) | ||
| 1527 | return EINVAL; | ||
| 1528 | |||
| 1529 | _MALLOC_LOCK(); | ||
| 1530 | malloc_func = " in posix_memalign():"; | ||
| 1531 | if (g_pool == NULL) { | ||
| 1532 | if (malloc_init() != 0) | ||
| 1533 | goto err; | ||
| 1534 | } | ||
| 1535 | if (malloc_active++) { | ||
| 1536 | malloc_recurse(); | ||
| 1537 | goto err; | ||
| 1538 | } | ||
| 1539 | r = omemalign(alignment, size, mopts.malloc_zero, CALLER); | ||
| 1540 | malloc_active--; | ||
| 1541 | _MALLOC_UNLOCK(); | ||
| 1542 | if (r == NULL) { | ||
| 1543 | if (mopts.malloc_xmalloc) { | ||
| 1544 | wrterror("out of memory", NULL); | ||
| 1545 | errno = ENOMEM; | ||
| 1546 | } | ||
| 1547 | goto err; | ||
| 1548 | } | ||
| 1549 | errno = saved_errno; | ||
| 1550 | *memptr = r; | ||
| 1551 | return 0; | ||
| 1552 | |||
| 1553 | err: | ||
| 1554 | res = errno; | ||
| 1555 | errno = saved_errno; | ||
| 1556 | return res; | ||
| 1557 | } | ||
| 1558 | |||
| 1559 | #ifdef MALLOC_STATS | ||
| 1560 | |||
| 1561 | struct malloc_leak { | ||
| 1562 | void (*f)(); | ||
| 1563 | size_t total_size; | ||
| 1564 | int count; | ||
| 1565 | }; | ||
| 1566 | |||
| 1567 | struct leaknode { | ||
| 1568 | RB_ENTRY(leaknode) entry; | ||
| 1569 | struct malloc_leak d; | ||
| 1570 | }; | ||
| 1571 | |||
| 1572 | static int | ||
| 1573 | leakcmp(struct leaknode *e1, struct leaknode *e2) | ||
| 1574 | { | ||
| 1575 | return e1->d.f < e2->d.f ? -1 : e1->d.f > e2->d.f; | ||
| 1576 | } | ||
| 1577 | |||
| 1578 | static RB_HEAD(leaktree, leaknode) leakhead; | ||
| 1579 | RB_GENERATE_STATIC(leaktree, leaknode, entry, leakcmp) | ||
| 1580 | |||
| 1581 | static void | ||
| 1582 | putleakinfo(void *f, size_t sz, int cnt) | ||
| 1583 | { | ||
| 1584 | struct leaknode key, *p; | ||
| 1585 | static struct leaknode *page; | ||
| 1586 | static int used; | ||
| 1587 | |||
| 1588 | if (cnt == 0) | ||
| 1589 | return; | ||
| 1590 | |||
| 1591 | key.d.f = f; | ||
| 1592 | p = RB_FIND(leaktree, &leakhead, &key); | ||
| 1593 | if (p == NULL) { | ||
| 1594 | if (page == NULL || | ||
| 1595 | used >= MALLOC_PAGESIZE / sizeof(struct leaknode)) { | ||
| 1596 | page = MMAP(MALLOC_PAGESIZE); | ||
| 1597 | if (page == MAP_FAILED) | ||
| 1598 | return; | ||
| 1599 | used = 0; | ||
| 1600 | } | ||
| 1601 | p = &page[used++]; | ||
| 1602 | p->d.f = f; | ||
| 1603 | p->d.total_size = sz * cnt; | ||
| 1604 | p->d.count = cnt; | ||
| 1605 | RB_INSERT(leaktree, &leakhead, p); | ||
| 1606 | } else { | ||
| 1607 | p->d.total_size += sz * cnt; | ||
| 1608 | p->d.count += cnt; | ||
| 1609 | } | ||
| 1610 | } | ||
| 1611 | |||
| 1612 | static struct malloc_leak *malloc_leaks; | ||
| 1613 | |||
| 1614 | static void | ||
| 1615 | dump_leaks(int fd) | ||
| 1616 | { | ||
| 1617 | struct leaknode *p; | ||
| 1618 | char buf[64]; | ||
| 1619 | int i = 0; | ||
| 1620 | |||
| 1621 | snprintf(buf, sizeof(buf), "Leak report\n"); | ||
| 1622 | write(fd, buf, strlen(buf)); | ||
| 1623 | snprintf(buf, sizeof(buf), " f sum # avg\n"); | ||
| 1624 | write(fd, buf, strlen(buf)); | ||
| 1625 | /* XXX only one page of summary */ | ||
| 1626 | if (malloc_leaks == NULL) | ||
| 1627 | malloc_leaks = MMAP(MALLOC_PAGESIZE); | ||
| 1628 | if (malloc_leaks != MAP_FAILED) | ||
| 1629 | memset(malloc_leaks, 0, MALLOC_PAGESIZE); | ||
| 1630 | RB_FOREACH(p, leaktree, &leakhead) { | ||
| 1631 | snprintf(buf, sizeof(buf), "%12p %7zu %6u %6zu\n", p->d.f, | ||
| 1632 | p->d.total_size, p->d.count, p->d.total_size / p->d.count); | ||
| 1633 | write(fd, buf, strlen(buf)); | ||
| 1634 | if (malloc_leaks == MAP_FAILED || | ||
| 1635 | i >= MALLOC_PAGESIZE / sizeof(struct malloc_leak)) | ||
| 1636 | continue; | ||
| 1637 | malloc_leaks[i].f = p->d.f; | ||
| 1638 | malloc_leaks[i].total_size = p->d.total_size; | ||
| 1639 | malloc_leaks[i].count = p->d.count; | ||
| 1640 | i++; | ||
| 1641 | } | ||
| 1642 | } | ||
| 1643 | |||
| 1644 | static void | ||
| 1645 | dump_chunk(int fd, struct chunk_info *p, void *f, int fromfreelist) | ||
| 1646 | { | ||
| 1647 | char buf[64]; | ||
| 1648 | |||
| 1649 | while (p != NULL) { | ||
| 1650 | snprintf(buf, sizeof(buf), "chunk %12p %12p %4d %d/%d\n", | ||
| 1651 | p->page, ((p->bits[0] & 1) ? NULL : f), | ||
| 1652 | p->size, p->free, p->total); | ||
| 1653 | write(fd, buf, strlen(buf)); | ||
| 1654 | if (!fromfreelist) { | ||
| 1655 | if (p->bits[0] & 1) | ||
| 1656 | putleakinfo(NULL, p->size, p->total - p->free); | ||
| 1657 | else { | ||
| 1658 | putleakinfo(f, p->size, 1); | ||
| 1659 | putleakinfo(NULL, p->size, | ||
| 1660 | p->total - p->free - 1); | ||
| 1661 | } | ||
| 1662 | break; | ||
| 1663 | } | ||
| 1664 | p = LIST_NEXT(p, entries); | ||
| 1665 | if (p != NULL) { | ||
| 1666 | snprintf(buf, sizeof(buf), " "); | ||
| 1667 | write(fd, buf, strlen(buf)); | ||
| 1668 | } | ||
| 1669 | } | ||
| 1670 | } | ||
| 1671 | |||
| 1672 | static void | ||
| 1673 | dump_free_chunk_info(int fd, struct dir_info *d) | ||
| 1674 | { | ||
| 1675 | char buf[64]; | ||
| 1676 | int i, count; | ||
| 1677 | |||
| 1678 | snprintf(buf, sizeof(buf), "Free chunk structs:\n"); | ||
| 1679 | write(fd, buf, strlen(buf)); | ||
| 1680 | for (i = 0; i <= MALLOC_MAXSHIFT; i++) { | ||
| 1681 | struct chunk_info *p; | ||
| 1682 | |||
| 1683 | count = 0; | ||
| 1684 | LIST_FOREACH(p, &d->chunk_info_list[i], entries) | ||
| 1685 | count++; | ||
| 1686 | p = LIST_FIRST(&d->chunk_dir[i]); | ||
| 1687 | if (p == NULL && count == 0) | ||
| 1688 | continue; | ||
| 1689 | snprintf(buf, sizeof(buf), "%2d) %3d ", i, count); | ||
| 1690 | write(fd, buf, strlen(buf)); | ||
| 1691 | if (p != NULL) | ||
| 1692 | dump_chunk(fd, p, NULL, 1); | ||
| 1693 | else | ||
| 1694 | write(fd, "\n", 1); | ||
| 1695 | } | ||
| 1696 | |||
| 1697 | } | ||
| 1698 | |||
| 1699 | static void | ||
| 1700 | dump_free_page_info(int fd, struct dir_info *d) | ||
| 1701 | { | ||
| 1702 | char buf[64]; | ||
| 1703 | int i; | ||
| 1704 | |||
| 1705 | snprintf(buf, sizeof(buf), "Free pages cached: %zu\n", | ||
| 1706 | d->free_regions_size); | ||
| 1707 | write(fd, buf, strlen(buf)); | ||
| 1708 | for (i = 0; i < mopts.malloc_cache; i++) { | ||
| 1709 | if (d->free_regions[i].p != NULL) { | ||
| 1710 | snprintf(buf, sizeof(buf), "%2d) ", i); | ||
| 1711 | write(fd, buf, strlen(buf)); | ||
| 1712 | snprintf(buf, sizeof(buf), "free at %p: %zu\n", | ||
| 1713 | d->free_regions[i].p, d->free_regions[i].size); | ||
| 1714 | write(fd, buf, strlen(buf)); | ||
| 1715 | } | ||
| 1716 | } | ||
| 1717 | } | ||
| 1718 | |||
| 1719 | static void | ||
| 1720 | malloc_dump1(int fd, struct dir_info *d) | ||
| 1721 | { | ||
| 1722 | char buf[64]; | ||
| 1723 | size_t i, realsize; | ||
| 1724 | |||
| 1725 | snprintf(buf, sizeof(buf), "Malloc dir of %s at %p\n", __progname, d); | ||
| 1726 | write(fd, buf, strlen(buf)); | ||
| 1727 | if (d == NULL) | ||
| 1728 | return; | ||
| 1729 | snprintf(buf, sizeof(buf), "Region slots free %zu/%zu\n", | ||
| 1730 | d->regions_free, d->regions_total); | ||
| 1731 | write(fd, buf, strlen(buf)); | ||
| 1732 | snprintf(buf, sizeof(buf), "Finds %zu/%zu\n", d->finds, | ||
| 1733 | d->find_collisions); | ||
| 1734 | write(fd, buf, strlen(buf)); | ||
| 1735 | snprintf(buf, sizeof(buf), "Inserts %zu/%zu\n", d->inserts, | ||
| 1736 | d->insert_collisions); | ||
| 1737 | write(fd, buf, strlen(buf)); | ||
| 1738 | snprintf(buf, sizeof(buf), "Deletes %zu/%zu\n", d->deletes, | ||
| 1739 | d->delete_moves); | ||
| 1740 | write(fd, buf, strlen(buf)); | ||
| 1741 | snprintf(buf, sizeof(buf), "Cheap reallocs %zu/%zu\n", | ||
| 1742 | d->cheap_reallocs, d->cheap_realloc_tries); | ||
| 1743 | write(fd, buf, strlen(buf)); | ||
| 1744 | dump_free_chunk_info(fd, d); | ||
| 1745 | dump_free_page_info(fd, d); | ||
| 1746 | snprintf(buf, sizeof(buf), | ||
| 1747 | "slot) hash d type page f size [free/n]\n"); | ||
| 1748 | write(fd, buf, strlen(buf)); | ||
| 1749 | for (i = 0; i < d->regions_total; i++) { | ||
| 1750 | if (d->r[i].p != NULL) { | ||
| 1751 | size_t h = hash(d->r[i].p) & | ||
| 1752 | (d->regions_total - 1); | ||
| 1753 | snprintf(buf, sizeof(buf), "%4zx) #%4zx %zd ", | ||
| 1754 | i, h, h - i); | ||
| 1755 | write(fd, buf, strlen(buf)); | ||
| 1756 | REALSIZE(realsize, &d->r[i]); | ||
| 1757 | if (realsize > MALLOC_MAXCHUNK) { | ||
| 1758 | putleakinfo(d->r[i].f, realsize, 1); | ||
| 1759 | snprintf(buf, sizeof(buf), | ||
| 1760 | "pages %12p %12p %zu\n", d->r[i].p, | ||
| 1761 | d->r[i].f, realsize); | ||
| 1762 | write(fd, buf, strlen(buf)); | ||
| 1763 | } else | ||
| 1764 | dump_chunk(fd, | ||
| 1765 | (struct chunk_info *)d->r[i].size, | ||
| 1766 | d->r[i].f, 0); | ||
| 1767 | } | ||
| 1768 | } | ||
| 1769 | snprintf(buf, sizeof(buf), "In use %zu\n", malloc_used); | ||
| 1770 | write(fd, buf, strlen(buf)); | ||
| 1771 | snprintf(buf, sizeof(buf), "Guarded %zu\n", malloc_guarded); | ||
| 1772 | write(fd, buf, strlen(buf)); | ||
| 1773 | dump_leaks(fd); | ||
| 1774 | write(fd, "\n", 1); | ||
| 1775 | } | ||
| 1776 | |||
| 1777 | void | ||
| 1778 | malloc_dump(int fd) | ||
| 1779 | { | ||
| 1780 | int i; | ||
| 1781 | void *p; | ||
| 1782 | struct region_info *r; | ||
| 1783 | int saved_errno = errno; | ||
| 1784 | |||
| 1785 | for (i = 0; i <= MALLOC_DELAYED_CHUNKS; i++) { | ||
| 1786 | p = g_pool->delayed_chunks[i]; | ||
| 1787 | if (p == NULL) | ||
| 1788 | continue; | ||
| 1789 | r = find(g_pool, p); | ||
| 1790 | if (r == NULL) | ||
| 1791 | wrterror("bogus pointer in malloc_dump", p); | ||
| 1792 | free_bytes(g_pool, r, p); | ||
| 1793 | g_pool->delayed_chunks[i] = NULL; | ||
| 1794 | } | ||
| 1795 | /* XXX leak when run multiple times */ | ||
| 1796 | RB_INIT(&leakhead); | ||
| 1797 | malloc_dump1(fd, g_pool); | ||
| 1798 | errno = saved_errno; | ||
| 1799 | } | ||
| 1800 | |||
| 1801 | static void | ||
| 1802 | malloc_exit(void) | ||
| 1803 | { | ||
| 1804 | static const char q[] = "malloc() warning: Couldn't dump stats\n"; | ||
| 1805 | int save_errno = errno, fd; | ||
| 1806 | |||
| 1807 | fd = open("malloc.out", O_RDWR|O_APPEND); | ||
| 1808 | if (fd != -1) { | ||
| 1809 | malloc_dump(fd); | ||
| 1810 | close(fd); | ||
| 1811 | } else | ||
| 1812 | write(STDERR_FILENO, q, sizeof(q) - 1); | ||
| 1813 | errno = save_errno; | ||
| 1814 | } | ||
| 1815 | |||
| 1816 | #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..05ec1b9d14 --- /dev/null +++ b/src/lib/libc/stdlib/posix_memalign.3 | |||
| @@ -0,0 +1,92 @@ | |||
| 1 | .\" $OpenBSD: posix_memalign.3,v 1.3 2012/06/18 17:03:52 matthew 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: June 18 2012 $ | ||
| 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 . | ||
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..50fe67d109 --- /dev/null +++ b/src/lib/libc/stdlib/rand.3 | |||
| @@ -0,0 +1,97 @@ | |||
| 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.11 2012/06/02 00:14:16 guenther Exp $ | ||
| 33 | .\" | ||
| 34 | .Dd $Mdocdate: June 2 2012 $ | ||
| 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 | ||
| 97 | .St -p1003.1-2008 . | ||
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..340e6461bd --- /dev/null +++ b/src/lib/libc/stdlib/rand48.3 | |||
| @@ -0,0 +1,179 @@ | |||
| 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.12 2012/06/02 00:14:16 guenther Exp $ | ||
| 13 | .\" | ||
| 14 | .Dd $Mdocdate: June 2 2012 $ | ||
| 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 STANDARDS | ||
| 165 | The | ||
| 166 | .Fn drand48 , | ||
| 167 | .Fn erand48 , | ||
| 168 | .Fn jrand48 , | ||
| 169 | .Fn lcong48 , | ||
| 170 | .Fn lrand48 , | ||
| 171 | .Fn mrand48 , | ||
| 172 | .Fn nrand48 , | ||
| 173 | .Fn seed48 , | ||
| 174 | and | ||
| 175 | .Fn srand48 | ||
| 176 | functions conform to | ||
| 177 | .St -p1003.1-2008 . | ||
| 178 | .Sh AUTHORS | ||
| 179 | 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..84756bb3e3 --- /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.20 2012/06/01 01:01:57 guenther Exp $ | ||
| 29 | .\" | ||
| 30 | .Dd $Mdocdate: June 1 2012 $ | ||
| 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 "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..9c5b9d0f3f --- /dev/null +++ b/src/lib/libc/stdlib/random.c | |||
| @@ -0,0 +1,396 @@ | |||
| 1 | /* $OpenBSD: random.c,v 1.17 2012/06/01 01:01:57 guenther 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 | /* A seed of 0 would result in state[] always being zero. */ | ||
| 200 | state[0] = x ? x : 1; | ||
| 201 | for (i = 1; i < rand_deg; i++) { | ||
| 202 | /* | ||
| 203 | * Implement the following, without overflowing 31 bits: | ||
| 204 | * | ||
| 205 | * state[i] = (16807 * state[i - 1]) % 2147483647; | ||
| 206 | * | ||
| 207 | * 2^31-1 (prime) = 2147483647 = 127773*16807+2836 | ||
| 208 | */ | ||
| 209 | val = div(state[i-1], 127773); | ||
| 210 | test = 16807 * val.rem - 2836 * val.quot; | ||
| 211 | state[i] = test + (test < 0 ? 2147483647 : 0); | ||
| 212 | } | ||
| 213 | fptr = &state[rand_sep]; | ||
| 214 | rptr = &state[0]; | ||
| 215 | for (i = 0; i < 10 * rand_deg; i++) | ||
| 216 | (void)random(); | ||
| 217 | } | ||
| 218 | } | ||
| 219 | |||
| 220 | /* | ||
| 221 | * srandomdev: | ||
| 222 | * | ||
| 223 | * Many programs choose the seed value in a totally predictable manner. | ||
| 224 | * This often causes problems. We seed the generator using random | ||
| 225 | * data from the kernel. | ||
| 226 | * Note that this particular seeding procedure can generate states | ||
| 227 | * which are impossible to reproduce by calling srandom() with any | ||
| 228 | * value, since the succeeding terms in the state buffer are no longer | ||
| 229 | * derived from the LC algorithm applied to a fixed seed. | ||
| 230 | */ | ||
| 231 | void | ||
| 232 | srandomdev(void) | ||
| 233 | { | ||
| 234 | int mib[2]; | ||
| 235 | size_t len; | ||
| 236 | |||
| 237 | if (rand_type == TYPE_0) | ||
| 238 | len = sizeof(state[0]); | ||
| 239 | else | ||
| 240 | len = rand_deg * sizeof(state[0]); | ||
| 241 | |||
| 242 | mib[0] = CTL_KERN; | ||
| 243 | mib[1] = KERN_ARND; | ||
| 244 | sysctl(mib, 2, state, &len, NULL, 0); | ||
| 245 | |||
| 246 | if (rand_type != TYPE_0) { | ||
| 247 | fptr = &state[rand_sep]; | ||
| 248 | rptr = &state[0]; | ||
| 249 | } | ||
| 250 | } | ||
| 251 | |||
| 252 | /* | ||
| 253 | * initstate: | ||
| 254 | * | ||
| 255 | * Initialize the state information in the given array of n bytes for future | ||
| 256 | * random number generation. Based on the number of bytes we are given, and | ||
| 257 | * the break values for the different R.N.G.'s, we choose the best (largest) | ||
| 258 | * one we can and set things up for it. srandom() is then called to | ||
| 259 | * initialize the state information. | ||
| 260 | * | ||
| 261 | * Note that on return from srandom(), we set state[-1] to be the type | ||
| 262 | * multiplexed with the current value of the rear pointer; this is so | ||
| 263 | * successive calls to initstate() won't lose this information and will be | ||
| 264 | * able to restart with setstate(). | ||
| 265 | * | ||
| 266 | * Note: the first thing we do is save the current state, if any, just like | ||
| 267 | * setstate() so that it doesn't matter when initstate is called. | ||
| 268 | * | ||
| 269 | * Returns a pointer to the old state. | ||
| 270 | */ | ||
| 271 | char * | ||
| 272 | initstate(u_int seed, char *arg_state, size_t n) | ||
| 273 | { | ||
| 274 | char *ostate = (char *)(&state[-1]); | ||
| 275 | |||
| 276 | if (rand_type == TYPE_0) | ||
| 277 | state[-1] = rand_type; | ||
| 278 | else | ||
| 279 | state[-1] = MAX_TYPES * (rptr - state) + rand_type; | ||
| 280 | if (n < BREAK_0) | ||
| 281 | return(NULL); | ||
| 282 | if (n < BREAK_1) { | ||
| 283 | rand_type = TYPE_0; | ||
| 284 | rand_deg = DEG_0; | ||
| 285 | rand_sep = SEP_0; | ||
| 286 | } else if (n < BREAK_2) { | ||
| 287 | rand_type = TYPE_1; | ||
| 288 | rand_deg = DEG_1; | ||
| 289 | rand_sep = SEP_1; | ||
| 290 | } else if (n < BREAK_3) { | ||
| 291 | rand_type = TYPE_2; | ||
| 292 | rand_deg = DEG_2; | ||
| 293 | rand_sep = SEP_2; | ||
| 294 | } else if (n < BREAK_4) { | ||
| 295 | rand_type = TYPE_3; | ||
| 296 | rand_deg = DEG_3; | ||
| 297 | rand_sep = SEP_3; | ||
| 298 | } else { | ||
| 299 | rand_type = TYPE_4; | ||
| 300 | rand_deg = DEG_4; | ||
| 301 | rand_sep = SEP_4; | ||
| 302 | } | ||
| 303 | state = &(((int32_t *)arg_state)[1]); /* first location */ | ||
| 304 | end_ptr = &state[rand_deg]; /* must set end_ptr before srandom */ | ||
| 305 | srandom(seed); | ||
| 306 | if (rand_type == TYPE_0) | ||
| 307 | state[-1] = rand_type; | ||
| 308 | else | ||
| 309 | state[-1] = MAX_TYPES*(rptr - state) + rand_type; | ||
| 310 | return(ostate); | ||
| 311 | } | ||
| 312 | |||
| 313 | /* | ||
| 314 | * setstate: | ||
| 315 | * | ||
| 316 | * Restore the state from the given state array. | ||
| 317 | * | ||
| 318 | * Note: it is important that we also remember the locations of the pointers | ||
| 319 | * in the current state information, and restore the locations of the pointers | ||
| 320 | * from the old state information. This is done by multiplexing the pointer | ||
| 321 | * location into the zeroeth word of the state information. | ||
| 322 | * | ||
| 323 | * Note that due to the order in which things are done, it is OK to call | ||
| 324 | * setstate() with the same state as the current state. | ||
| 325 | * | ||
| 326 | * Returns a pointer to the old state information. | ||
| 327 | */ | ||
| 328 | char * | ||
| 329 | setstate(char *arg_state) | ||
| 330 | { | ||
| 331 | int32_t *new_state = (int32_t *)arg_state; | ||
| 332 | int32_t type = new_state[0] % MAX_TYPES; | ||
| 333 | int32_t rear = new_state[0] / MAX_TYPES; | ||
| 334 | char *ostate = (char *)(&state[-1]); | ||
| 335 | |||
| 336 | if (rand_type == TYPE_0) | ||
| 337 | state[-1] = rand_type; | ||
| 338 | else | ||
| 339 | state[-1] = MAX_TYPES * (rptr - state) + rand_type; | ||
| 340 | switch(type) { | ||
| 341 | case TYPE_0: | ||
| 342 | case TYPE_1: | ||
| 343 | case TYPE_2: | ||
| 344 | case TYPE_3: | ||
| 345 | case TYPE_4: | ||
| 346 | rand_type = type; | ||
| 347 | rand_deg = degrees[type]; | ||
| 348 | rand_sep = seps[type]; | ||
| 349 | break; | ||
| 350 | default: | ||
| 351 | return(NULL); | ||
| 352 | } | ||
| 353 | state = &new_state[1]; | ||
| 354 | if (rand_type != TYPE_0) { | ||
| 355 | rptr = &state[rear]; | ||
| 356 | fptr = &state[(rear + rand_sep) % rand_deg]; | ||
| 357 | } | ||
| 358 | end_ptr = &state[rand_deg]; /* set end_ptr too */ | ||
| 359 | return(ostate); | ||
| 360 | } | ||
| 361 | |||
| 362 | /* | ||
| 363 | * random: | ||
| 364 | * | ||
| 365 | * If we are using the trivial TYPE_0 R.N.G., just do the old linear | ||
| 366 | * congruential bit. Otherwise, we do our fancy trinomial stuff, which is | ||
| 367 | * the same in all the other cases due to all the global variables that have | ||
| 368 | * been set up. The basic operation is to add the number at the rear pointer | ||
| 369 | * into the one at the front pointer. Then both pointers are advanced to | ||
| 370 | * the next location cyclically in the table. The value returned is the sum | ||
| 371 | * generated, reduced to 31 bits by throwing away the "least random" low bit. | ||
| 372 | * | ||
| 373 | * Note: the code takes advantage of the fact that both the front and | ||
| 374 | * rear pointers can't wrap on the same call by not testing the rear | ||
| 375 | * pointer if the front one has wrapped. | ||
| 376 | * | ||
| 377 | * Returns a 31-bit random number. | ||
| 378 | */ | ||
| 379 | long | ||
| 380 | random(void) | ||
| 381 | { | ||
| 382 | int32_t i; | ||
| 383 | |||
| 384 | if (rand_type == TYPE_0) | ||
| 385 | i = state[0] = (state[0] * 1103515245 + 12345) & 0x7fffffff; | ||
| 386 | else { | ||
| 387 | *fptr += *rptr; | ||
| 388 | i = (*fptr >> 1) & 0x7fffffff; /* chucking least random bit */ | ||
| 389 | if (++fptr >= end_ptr) { | ||
| 390 | fptr = state; | ||
| 391 | ++rptr; | ||
| 392 | } else if (++rptr >= end_ptr) | ||
| 393 | rptr = state; | ||
| 394 | } | ||
| 395 | return((long)i); | ||
| 396 | } | ||
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..534f48d4b4 --- /dev/null +++ b/src/lib/libc/stdlib/realpath.c | |||
| @@ -0,0 +1,212 @@ | |||
| 1 | /* $OpenBSD: realpath.c,v 1.15 2012/09/13 15:39:05 deraadt 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(symlink)); | ||
| 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..9060fdba88 --- /dev/null +++ b/src/lib/libc/stdlib/setenv.c | |||
| @@ -0,0 +1,180 @@ | |||
| 1 | /* $OpenBSD: setenv.c,v 1.14 2012/09/23 16:08:04 jeremy 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 | if (!name || !*name) { | ||
| 98 | errno = EINVAL; | ||
| 99 | return (-1); | ||
| 100 | } | ||
| 101 | for (np = name; *np && *np != '='; ++np) | ||
| 102 | ; | ||
| 103 | if (*np) { | ||
| 104 | errno = EINVAL; | ||
| 105 | return (-1); /* has `=' in name */ | ||
| 106 | } | ||
| 107 | |||
| 108 | l_value = strlen(value); | ||
| 109 | if ((C = __findenv(name, (int)(np - name), &offset)) != NULL) { | ||
| 110 | int tmpoff = offset + 1; | ||
| 111 | if (!rewrite) | ||
| 112 | return (0); | ||
| 113 | #if 0 /* XXX - existing entry may not be writable */ | ||
| 114 | if (strlen(C) >= l_value) { /* old larger; copy over */ | ||
| 115 | while ((*C++ = *value++)) | ||
| 116 | ; | ||
| 117 | return (0); | ||
| 118 | } | ||
| 119 | #endif | ||
| 120 | /* could be set multiple times */ | ||
| 121 | while (__findenv(name, (int)(np - name), &tmpoff)) { | ||
| 122 | for (P = &environ[tmpoff];; ++P) | ||
| 123 | if (!(*P = *(P + 1))) | ||
| 124 | break; | ||
| 125 | } | ||
| 126 | } else { /* create new slot */ | ||
| 127 | size_t cnt; | ||
| 128 | |||
| 129 | for (P = environ; *P != NULL; P++) | ||
| 130 | ; | ||
| 131 | cnt = P - environ; | ||
| 132 | P = (char **)realloc(lastenv, sizeof(char *) * (cnt + 2)); | ||
| 133 | if (!P) | ||
| 134 | return (-1); | ||
| 135 | if (lastenv != environ) | ||
| 136 | memcpy(P, environ, cnt * sizeof(char *)); | ||
| 137 | lastenv = environ = P; | ||
| 138 | offset = cnt; | ||
| 139 | environ[cnt + 1] = NULL; | ||
| 140 | } | ||
| 141 | if (!(environ[offset] = /* name + `=' + value */ | ||
| 142 | malloc((size_t)((int)(np - name) + l_value + 2)))) | ||
| 143 | return (-1); | ||
| 144 | for (C = environ[offset]; (*C = *name++) && *C != '='; ++C) | ||
| 145 | ; | ||
| 146 | for (*C++ = '='; (*C++ = *value++); ) | ||
| 147 | ; | ||
| 148 | return (0); | ||
| 149 | } | ||
| 150 | |||
| 151 | /* | ||
| 152 | * unsetenv(name) -- | ||
| 153 | * Delete environmental variable "name". | ||
| 154 | */ | ||
| 155 | int | ||
| 156 | unsetenv(const char *name) | ||
| 157 | { | ||
| 158 | char **P; | ||
| 159 | const char *np; | ||
| 160 | int offset = 0; | ||
| 161 | |||
| 162 | if (!name || !*name) { | ||
| 163 | errno = EINVAL; | ||
| 164 | return (-1); | ||
| 165 | } | ||
| 166 | for (np = name; *np && *np != '='; ++np) | ||
| 167 | ; | ||
| 168 | if (*np) { | ||
| 169 | errno = EINVAL; | ||
| 170 | return (-1); /* has `=' in name */ | ||
| 171 | } | ||
| 172 | |||
| 173 | /* could be set multiple times */ | ||
| 174 | while (__findenv(name, (int)(np - name), &offset)) { | ||
| 175 | for (P = &environ[offset];; ++P) | ||
| 176 | if (!(*P = *(P + 1))) | ||
| 177 | break; | ||
| 178 | } | ||
| 179 | return (0); | ||
| 180 | } | ||
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..0066cc02f3 --- /dev/null +++ b/src/lib/libc/stdlib/strtod.3 | |||
| @@ -0,0 +1,170 @@ | |||
| 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.16 2012/09/16 17:54:03 jmc Exp $ | ||
| 33 | .\" | ||
| 34 | .Dd $Mdocdate: September 16 2012 $ | ||
| 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 | Alternatively, if the portion of the string following the optional | ||
| 91 | plus or minus sign begins with | ||
| 92 | .Dq INF | ||
| 93 | or | ||
| 94 | .Dq NAN , | ||
| 95 | ignoring case, it is interpreted as an infinity or a quiet \*(Na, | ||
| 96 | respectively. | ||
| 97 | The syntax | ||
| 98 | .Dq NAN Ns Pq Ar s , | ||
| 99 | where | ||
| 100 | .Ar s | ||
| 101 | is an alphanumeric string, produces the same value as the call | ||
| 102 | .Fo nan | ||
| 103 | .Qq Ar s Ns | ||
| 104 | .Fc | ||
| 105 | (respectively, | ||
| 106 | .Fo nanf | ||
| 107 | .Qq Ar s Ns | ||
| 108 | .Fc | ||
| 109 | and | ||
| 110 | .Fo nanl | ||
| 111 | .Qq Ar s Ns | ||
| 112 | .Fc . ) | ||
| 113 | .Pp | ||
| 114 | In any of the above cases, leading whitespace characters in the | ||
| 115 | string (as defined by the | ||
| 116 | .Xr isspace 3 | ||
| 117 | function) are skipped. | ||
| 118 | .Sh RETURN VALUES | ||
| 119 | The | ||
| 120 | .Fn strtod , | ||
| 121 | .Fn strtof | ||
| 122 | and | ||
| 123 | .Fn strtold | ||
| 124 | functions return the converted value, if any. | ||
| 125 | .Pp | ||
| 126 | If | ||
| 127 | .Fa endptr | ||
| 128 | is not | ||
| 129 | .Dv NULL , | ||
| 130 | a pointer to the character after the last character used | ||
| 131 | in the conversion is stored in the location referenced by | ||
| 132 | .Fa endptr . | ||
| 133 | .Pp | ||
| 134 | If no conversion is performed, zero is returned and the value of | ||
| 135 | .Fa nptr | ||
| 136 | is stored in the location referenced by | ||
| 137 | .Fa endptr . | ||
| 138 | .Pp | ||
| 139 | If the correct value would cause overflow, plus or minus | ||
| 140 | .Dv HUGE_VAL | ||
| 141 | is returned (according to the sign of the value), and | ||
| 142 | .Er ERANGE | ||
| 143 | is stored in | ||
| 144 | .Va errno . | ||
| 145 | If the correct value would cause underflow, zero is returned and | ||
| 146 | .Er ERANGE | ||
| 147 | is stored in | ||
| 148 | .Va errno . | ||
| 149 | .Sh ERRORS | ||
| 150 | .Bl -tag -width Er | ||
| 151 | .It Bq Er ERANGE | ||
| 152 | Overflow or underflow occurred. | ||
| 153 | .El | ||
| 154 | .Sh SEE ALSO | ||
| 155 | .Xr atof 3 , | ||
| 156 | .Xr atoi 3 , | ||
| 157 | .Xr atol 3 , | ||
| 158 | .Xr strtol 3 , | ||
| 159 | .Xr strtoul 3 | ||
| 160 | .Sh STANDARDS | ||
| 161 | The | ||
| 162 | .Fn strtod | ||
| 163 | function conforms to | ||
| 164 | .St -ansiC-89 . | ||
| 165 | The | ||
| 166 | .Fn strtof | ||
| 167 | and | ||
| 168 | .Fn strtold | ||
| 169 | functions conform to | ||
| 170 | .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..829c4edf72 --- /dev/null +++ b/src/lib/libc/stdlib/tsearch.3 | |||
| @@ -0,0 +1,130 @@ | |||
| 1 | .\" $OpenBSD: tsearch.3,v 1.18 2012/07/08 10:25:55 guenther 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: July 8 2012 $ | ||
| 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 | If the node to be deleted is the root of the binary search tree, | ||
| 72 | .Fa rootp | ||
| 73 | will be adjusted and an unspecified non-null pointer will be returned. | ||
| 74 | It takes the same arguments as | ||
| 75 | .Fn tfind | ||
| 76 | and | ||
| 77 | .Fn tsearch . | ||
| 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 tdelete | ||
| 100 | returns a pointer to the parent of the deleted node or an unspecified | ||
| 101 | non-null pointer if the root node is deleted. | ||
| 102 | .Pp | ||
| 103 | .Fn tfind , | ||
| 104 | .Fn tsearch , | ||
| 105 | and | ||
| 106 | .Fn tdelete | ||
| 107 | return | ||
| 108 | .Dv NULL | ||
| 109 | if | ||
| 110 | .Fa rootp | ||
| 111 | is | ||
| 112 | .Dv NULL | ||
| 113 | or the datum cannot be found. | ||
| 114 | .Pp | ||
| 115 | The | ||
| 116 | .Fn twalk | ||
| 117 | function returns no value. | ||
| 118 | .Sh SEE ALSO | ||
| 119 | .Xr bsearch 3 , | ||
| 120 | .Xr lsearch 3 | ||
| 121 | .Sh STANDARDS | ||
| 122 | These functions conform to | ||
| 123 | .St -p1003.1-2008 . | ||
| 124 | .Sh CAVEATS | ||
| 125 | The value returned when deleting the root node was unspecified before | ||
| 126 | the | ||
| 127 | .St -p1003.1-2008 | ||
| 128 | standard, so users of the | ||
| 129 | .Fn tdelete | ||
| 130 | function should be wary of relying 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..2f5e369f6a --- /dev/null +++ b/src/lib/libc/stdlib/tsearch.c | |||
| @@ -0,0 +1,119 @@ | |||
| 1 | /* $OpenBSD: tsearch.c,v 1.7 2012/02/06 20:29:54 guenther 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 = (node *)1; | ||
| 60 | node *q; | ||
| 61 | node *r; | ||
| 62 | int cmp; | ||
| 63 | |||
| 64 | if (rootp == (struct node_t **)0 || *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 | free((struct node_t *) *rootp); /* D4: Free node */ | ||
| 90 | *rootp = q; /* link parent to new node */ | ||
| 91 | return(p); | ||
| 92 | } | ||
| 93 | |||
| 94 | /* Walk the nodes of a tree */ | ||
| 95 | static void | ||
| 96 | trecurse(node *root, void (*action)(const void *, VISIT, int), int level) | ||
| 97 | { | ||
| 98 | if (root->left == (struct node_t *)0 && root->right == (struct node_t *)0) | ||
| 99 | (*action)(root, leaf, level); | ||
| 100 | else { | ||
| 101 | (*action)(root, preorder, level); | ||
| 102 | if (root->left != (struct node_t *)0) | ||
| 103 | trecurse(root->left, action, level + 1); | ||
| 104 | (*action)(root, postorder, level); | ||
| 105 | if (root->right != (struct node_t *)0) | ||
| 106 | trecurse(root->right, action, level + 1); | ||
| 107 | (*action)(root, endorder, level); | ||
| 108 | } | ||
| 109 | } | ||
| 110 | |||
| 111 | /* Walk the nodes of a tree */ | ||
| 112 | void | ||
| 113 | twalk(const void *vroot, void (*action)(const void *, VISIT, int)) | ||
| 114 | { | ||
| 115 | node *root = (node *)vroot; | ||
| 116 | |||
| 117 | if (root != (node *)0 && action != (void (*)(const void *, VISIT, int))0) | ||
| 118 | trecurse(root, action, 0); | ||
| 119 | } | ||
