gumath 0.2.0dev5

Sign up to get free protection for your applications and to get access to all the features.
Files changed (78) hide show
  1. checksums.yaml +7 -0
  2. data/CONTRIBUTING.md +61 -0
  3. data/Gemfile +5 -0
  4. data/History.md +0 -0
  5. data/README.md +5 -0
  6. data/Rakefile +105 -0
  7. data/ext/ruby_gumath/examples.c +126 -0
  8. data/ext/ruby_gumath/extconf.rb +97 -0
  9. data/ext/ruby_gumath/functions.c +106 -0
  10. data/ext/ruby_gumath/gufunc_object.c +79 -0
  11. data/ext/ruby_gumath/gufunc_object.h +55 -0
  12. data/ext/ruby_gumath/gumath/AUTHORS.txt +5 -0
  13. data/ext/ruby_gumath/gumath/INSTALL.txt +42 -0
  14. data/ext/ruby_gumath/gumath/LICENSE.txt +29 -0
  15. data/ext/ruby_gumath/gumath/MANIFEST.in +3 -0
  16. data/ext/ruby_gumath/gumath/Makefile.in +62 -0
  17. data/ext/ruby_gumath/gumath/README.rst +20 -0
  18. data/ext/ruby_gumath/gumath/config.guess +1530 -0
  19. data/ext/ruby_gumath/gumath/config.h.in +52 -0
  20. data/ext/ruby_gumath/gumath/config.sub +1782 -0
  21. data/ext/ruby_gumath/gumath/configure +5049 -0
  22. data/ext/ruby_gumath/gumath/configure.ac +167 -0
  23. data/ext/ruby_gumath/gumath/doc/_static/copybutton.js +66 -0
  24. data/ext/ruby_gumath/gumath/doc/conf.py +26 -0
  25. data/ext/ruby_gumath/gumath/doc/gumath/functions.rst +62 -0
  26. data/ext/ruby_gumath/gumath/doc/gumath/index.rst +26 -0
  27. data/ext/ruby_gumath/gumath/doc/index.rst +45 -0
  28. data/ext/ruby_gumath/gumath/doc/libgumath/data-structures.rst +130 -0
  29. data/ext/ruby_gumath/gumath/doc/libgumath/functions.rst +78 -0
  30. data/ext/ruby_gumath/gumath/doc/libgumath/index.rst +25 -0
  31. data/ext/ruby_gumath/gumath/doc/libgumath/kernels.rst +41 -0
  32. data/ext/ruby_gumath/gumath/doc/releases/index.rst +11 -0
  33. data/ext/ruby_gumath/gumath/install-sh +527 -0
  34. data/ext/ruby_gumath/gumath/libgumath/Makefile.in +170 -0
  35. data/ext/ruby_gumath/gumath/libgumath/Makefile.vc +160 -0
  36. data/ext/ruby_gumath/gumath/libgumath/apply.c +201 -0
  37. data/ext/ruby_gumath/gumath/libgumath/extending/bfloat16.c +130 -0
  38. data/ext/ruby_gumath/gumath/libgumath/extending/examples.c +176 -0
  39. data/ext/ruby_gumath/gumath/libgumath/extending/graph.c +393 -0
  40. data/ext/ruby_gumath/gumath/libgumath/extending/pdist.c +140 -0
  41. data/ext/ruby_gumath/gumath/libgumath/extending/quaternion.c +156 -0
  42. data/ext/ruby_gumath/gumath/libgumath/func.c +177 -0
  43. data/ext/ruby_gumath/gumath/libgumath/gumath.h +205 -0
  44. data/ext/ruby_gumath/gumath/libgumath/kernels/binary.c +547 -0
  45. data/ext/ruby_gumath/gumath/libgumath/kernels/unary.c +449 -0
  46. data/ext/ruby_gumath/gumath/libgumath/nploops.c +219 -0
  47. data/ext/ruby_gumath/gumath/libgumath/tbl.c +223 -0
  48. data/ext/ruby_gumath/gumath/libgumath/thread.c +175 -0
  49. data/ext/ruby_gumath/gumath/libgumath/xndloops.c +130 -0
  50. data/ext/ruby_gumath/gumath/python/extending.py +24 -0
  51. data/ext/ruby_gumath/gumath/python/gumath/__init__.py +74 -0
  52. data/ext/ruby_gumath/gumath/python/gumath/_gumath.c +577 -0
  53. data/ext/ruby_gumath/gumath/python/gumath/examples.c +93 -0
  54. data/ext/ruby_gumath/gumath/python/gumath/functions.c +77 -0
  55. data/ext/ruby_gumath/gumath/python/gumath/pygumath.h +95 -0
  56. data/ext/ruby_gumath/gumath/python/test_gumath.py +405 -0
  57. data/ext/ruby_gumath/gumath/setup.py +298 -0
  58. data/ext/ruby_gumath/gumath/vcbuild/INSTALL.txt +36 -0
  59. data/ext/ruby_gumath/gumath/vcbuild/vcbuild32.bat +21 -0
  60. data/ext/ruby_gumath/gumath/vcbuild/vcbuild64.bat +21 -0
  61. data/ext/ruby_gumath/gumath/vcbuild/vcclean.bat +10 -0
  62. data/ext/ruby_gumath/gumath/vcbuild/vcdistclean.bat +11 -0
  63. data/ext/ruby_gumath/include/gumath.h +205 -0
  64. data/ext/ruby_gumath/include/ruby_gumath.h +41 -0
  65. data/ext/ruby_gumath/lib/libgumath.a +0 -0
  66. data/ext/ruby_gumath/lib/libgumath.so +1 -0
  67. data/ext/ruby_gumath/lib/libgumath.so.0 +1 -0
  68. data/ext/ruby_gumath/lib/libgumath.so.0.2.0dev3 +0 -0
  69. data/ext/ruby_gumath/ruby_gumath.c +295 -0
  70. data/ext/ruby_gumath/ruby_gumath.h +41 -0
  71. data/ext/ruby_gumath/ruby_gumath_internal.h +45 -0
  72. data/ext/ruby_gumath/util.c +68 -0
  73. data/ext/ruby_gumath/util.h +48 -0
  74. data/gumath.gemspec +47 -0
  75. data/lib/gumath.rb +7 -0
  76. data/lib/gumath/version.rb +5 -0
  77. data/lib/ruby_gumath.so +0 -0
  78. metadata +206 -0
@@ -0,0 +1,78 @@
1
+ .. meta::
2
+ :robots: index,follow
3
+ :description: libgumath documentation
4
+
5
+ .. sectionauthor:: Stefan Krah <skrah at bytereef.org>
6
+
7
+
8
+ Functions
9
+ =========
10
+
11
+ Create a new multimethod
12
+ ------------------------
13
+
14
+ .. topic:: gm_add_func
15
+
16
+ .. code-block:: c
17
+
18
+ gm_func_t *gm_add_func(gm_tbl_t *tbl, const char *name, ndt_context_t *ctx);
19
+
20
+ Add a new multimethod with no associated kernels to a lookup table. If
21
+ *name* is already present in *tbl* or if *name* contains invalid characters,
22
+ return *NULL* and set an error.
23
+
24
+ On success, return the pointer to the new multimethod. The multimethod
25
+ belongs to *tbl*.
26
+
27
+
28
+ Add a kernel to a multimethod
29
+ -----------------------------
30
+
31
+ .. topic:: gm_add_kernel
32
+
33
+ .. code-block:: c
34
+
35
+ int gm_add_kernel(gm_tbl_t *tbl, const gm_kernel_init_t *kernel, ndt_context_t *ctx);
36
+
37
+ Add a kernel set to a multimethod. For convenience the multimethod is
38
+ created and inserted into the table if not already present.
39
+
40
+
41
+ .. code-block:: c
42
+
43
+ int gm_add_kernel_typecheck(gm_tbl_t *tbl, const gm_kernel_init_t *kernel, ndt_context_t *ctx, gm_typecheck_t f);
44
+
45
+ Add a kernel set to a multimethod, using a custom typecheck function.
46
+ For convenience, the multimethod is created and inserted into the table
47
+ if not already present.
48
+
49
+
50
+ Select a kernel based on the input types
51
+ ----------------------------------------
52
+
53
+ .. code-block:: c
54
+
55
+ gm_kernel_t gm_select(ndt_apply_spec_t *spec, const gm_tbl_t *tbl, const char *name,
56
+ const ndt_t *in_types[], int nin, const xnd_t args[],
57
+ ndt_context_t *ctx);
58
+
59
+ The function looks up a multimethod by *name*, using table *tbl*. If the
60
+ multimethod has an optimized custom typecheck function, it is called on
61
+ the input types for kernel selection.
62
+
63
+ Otherwise, the generic *ndt_typecheck* is called on each kernel associated
64
+ with the multimethod in order to find a match for the input arguments.
65
+
66
+
67
+ Apply a kernel to input
68
+ -----------------------
69
+
70
+ .. topic:: gm_apply
71
+
72
+ .. code-block:: c
73
+
74
+ int gm_apply(const gm_kernel_t *kernel, xnd_t stack[], int outer_dims, ndt_context_t *ctx);
75
+
76
+ Apply a kernel to input arguments. *stack* is expected to contain a list of
77
+ input arguments followed by output arguments. *outer_dims* are the number
78
+ of dimensions to traverse before applying the kernel to the inner dimensions.
@@ -0,0 +1,25 @@
1
+ .. meta::
2
+ :robots: index, follow
3
+ :description: libgumath documentation
4
+ :keywords: libgumath, C, array computing
5
+
6
+ .. sectionauthor:: Stefan Krah <skrah at bytereef.org>
7
+
8
+
9
+ libgumath
10
+ ---------
11
+
12
+ libgumath is a library for dispatching computational kernels using
13
+ ndtypes function signatures. Kernels are multimethods and can be
14
+ JIT-generated and inserted in lookup tables at runtime.
15
+
16
+ Kernels target XND containers.
17
+
18
+ libgumath has a small number of generic math library kernels.
19
+
20
+
21
+ .. toctree::
22
+
23
+ data-structures.rst
24
+ functions.rst
25
+ kernels.rst
@@ -0,0 +1,41 @@
1
+ .. meta::
2
+ :robots: index,follow
3
+ :description: libgumath documentation
4
+
5
+ .. sectionauthor:: Stefan Krah <skrah at bytereef.org>
6
+
7
+
8
+ Builtin kernels
9
+ ===============
10
+
11
+ libgumath has a number of builtin kernels that use optimized type checking
12
+ and kernel lookup.
13
+
14
+
15
+ Unary kernels
16
+ -------------
17
+
18
+ .. topic:: unary kernels
19
+
20
+ .. code-block:: c
21
+
22
+ int gm_init_unary_kernels(gm_tbl_t *tbl, ndt_context_t *ctx);
23
+
24
+ Add all builtin unary kernels to *tbl*. The kernels include *fabs*,
25
+ *exp*, *exp2*, *expm1*, *log*, *log2*, *log10*, *log1p*, *logb*, *sqrt*,
26
+ *cbrt*, *sin*, *cos*, *tan*, *asin*, *acos*, *atan*, *sinh*, *cosh*, *tanh*,
27
+ *asinh*, *acosh*, *atanh*, *erf*, *erfc*, *lgamma*, *tgamma*, *ceil*,
28
+ *floor*, *trunc*, *round*, *rearbyint*.
29
+
30
+
31
+ Binary kernels
32
+ --------------
33
+
34
+ .. topic:: binary kernels
35
+
36
+ .. code-block:: c
37
+
38
+ int gm_init_binary_kernels(gm_tbl_t *tbl, ndt_context_t *ctx);
39
+
40
+ Add all binary kernels to *tbl*. The kernels currently only include
41
+ *add*, *subtract*, *multiply*, *divide*.
@@ -0,0 +1,11 @@
1
+ .. meta::
2
+ :robots: index, follow
3
+ :description: gumath documentation
4
+ :keywords: gumath, C, array computing
5
+
6
+ .. sectionauthor:: Stefan Krah <skrah at bytereef.org>
7
+
8
+
9
+ ========
10
+ Releases
11
+ ========
@@ -0,0 +1,527 @@
1
+ #!/bin/sh
2
+ # install - install a program, script, or datafile
3
+
4
+ scriptversion=2011-01-19.21; # UTC
5
+
6
+ # This originates from X11R5 (mit/util/scripts/install.sh), which was
7
+ # later released in X11R6 (xc/config/util/install.sh) with the
8
+ # following copyright and license.
9
+ #
10
+ # Copyright (C) 1994 X Consortium
11
+ #
12
+ # Permission is hereby granted, free of charge, to any person obtaining a copy
13
+ # of this software and associated documentation files (the "Software"), to
14
+ # deal in the Software without restriction, including without limitation the
15
+ # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
16
+ # sell copies of the Software, and to permit persons to whom the Software is
17
+ # furnished to do so, subject to the following conditions:
18
+ #
19
+ # The above copyright notice and this permission notice shall be included in
20
+ # all copies or substantial portions of the Software.
21
+ #
22
+ # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
23
+ # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
24
+ # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
25
+ # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
26
+ # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
27
+ # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
28
+ #
29
+ # Except as contained in this notice, the name of the X Consortium shall not
30
+ # be used in advertising or otherwise to promote the sale, use or other deal-
31
+ # ings in this Software without prior written authorization from the X Consor-
32
+ # tium.
33
+ #
34
+ #
35
+ # FSF changes to this file are in the public domain.
36
+ #
37
+ # Calling this script install-sh is preferred over install.sh, to prevent
38
+ # `make' implicit rules from creating a file called install from it
39
+ # when there is no Makefile.
40
+ #
41
+ # This script is compatible with the BSD install script, but was written
42
+ # from scratch.
43
+
44
+ nl='
45
+ '
46
+ IFS=" "" $nl"
47
+
48
+ # set DOITPROG to echo to test this script
49
+
50
+ # Don't use :- since 4.3BSD and earlier shells don't like it.
51
+ doit=${DOITPROG-}
52
+ if test -z "$doit"; then
53
+ doit_exec=exec
54
+ else
55
+ doit_exec=$doit
56
+ fi
57
+
58
+ # Put in absolute file names if you don't have them in your path;
59
+ # or use environment vars.
60
+
61
+ chgrpprog=${CHGRPPROG-chgrp}
62
+ chmodprog=${CHMODPROG-chmod}
63
+ chownprog=${CHOWNPROG-chown}
64
+ cmpprog=${CMPPROG-cmp}
65
+ cpprog=${CPPROG-cp}
66
+ mkdirprog=${MKDIRPROG-mkdir}
67
+ mvprog=${MVPROG-mv}
68
+ rmprog=${RMPROG-rm}
69
+ stripprog=${STRIPPROG-strip}
70
+
71
+ posix_glob='?'
72
+ initialize_posix_glob='
73
+ test "$posix_glob" != "?" || {
74
+ if (set -f) 2>/dev/null; then
75
+ posix_glob=
76
+ else
77
+ posix_glob=:
78
+ fi
79
+ }
80
+ '
81
+
82
+ posix_mkdir=
83
+
84
+ # Desired mode of installed file.
85
+ mode=0755
86
+
87
+ chgrpcmd=
88
+ chmodcmd=$chmodprog
89
+ chowncmd=
90
+ mvcmd=$mvprog
91
+ rmcmd="$rmprog -f"
92
+ stripcmd=
93
+
94
+ src=
95
+ dst=
96
+ dir_arg=
97
+ dst_arg=
98
+
99
+ copy_on_change=false
100
+ no_target_directory=
101
+
102
+ usage="\
103
+ Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
104
+ or: $0 [OPTION]... SRCFILES... DIRECTORY
105
+ or: $0 [OPTION]... -t DIRECTORY SRCFILES...
106
+ or: $0 [OPTION]... -d DIRECTORIES...
107
+
108
+ In the 1st form, copy SRCFILE to DSTFILE.
109
+ In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
110
+ In the 4th, create DIRECTORIES.
111
+
112
+ Options:
113
+ --help display this help and exit.
114
+ --version display version info and exit.
115
+
116
+ -c (ignored)
117
+ -C install only if different (preserve the last data modification time)
118
+ -d create directories instead of installing files.
119
+ -g GROUP $chgrpprog installed files to GROUP.
120
+ -m MODE $chmodprog installed files to MODE.
121
+ -o USER $chownprog installed files to USER.
122
+ -s $stripprog installed files.
123
+ -t DIRECTORY install into DIRECTORY.
124
+ -T report an error if DSTFILE is a directory.
125
+
126
+ Environment variables override the default commands:
127
+ CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
128
+ RMPROG STRIPPROG
129
+ "
130
+
131
+ while test $# -ne 0; do
132
+ case $1 in
133
+ -c) ;;
134
+
135
+ -C) copy_on_change=true;;
136
+
137
+ -d) dir_arg=true;;
138
+
139
+ -g) chgrpcmd="$chgrpprog $2"
140
+ shift;;
141
+
142
+ --help) echo "$usage"; exit $?;;
143
+
144
+ -m) mode=$2
145
+ case $mode in
146
+ *' '* | *' '* | *'
147
+ '* | *'*'* | *'?'* | *'['*)
148
+ echo "$0: invalid mode: $mode" >&2
149
+ exit 1;;
150
+ esac
151
+ shift;;
152
+
153
+ -o) chowncmd="$chownprog $2"
154
+ shift;;
155
+
156
+ -s) stripcmd=$stripprog;;
157
+
158
+ -t) dst_arg=$2
159
+ # Protect names problematic for `test' and other utilities.
160
+ case $dst_arg in
161
+ -* | [=\(\)!]) dst_arg=./$dst_arg;;
162
+ esac
163
+ shift;;
164
+
165
+ -T) no_target_directory=true;;
166
+
167
+ --version) echo "$0 $scriptversion"; exit $?;;
168
+
169
+ --) shift
170
+ break;;
171
+
172
+ -*) echo "$0: invalid option: $1" >&2
173
+ exit 1;;
174
+
175
+ *) break;;
176
+ esac
177
+ shift
178
+ done
179
+
180
+ if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
181
+ # When -d is used, all remaining arguments are directories to create.
182
+ # When -t is used, the destination is already specified.
183
+ # Otherwise, the last argument is the destination. Remove it from $@.
184
+ for arg
185
+ do
186
+ if test -n "$dst_arg"; then
187
+ # $@ is not empty: it contains at least $arg.
188
+ set fnord "$@" "$dst_arg"
189
+ shift # fnord
190
+ fi
191
+ shift # arg
192
+ dst_arg=$arg
193
+ # Protect names problematic for `test' and other utilities.
194
+ case $dst_arg in
195
+ -* | [=\(\)!]) dst_arg=./$dst_arg;;
196
+ esac
197
+ done
198
+ fi
199
+
200
+ if test $# -eq 0; then
201
+ if test -z "$dir_arg"; then
202
+ echo "$0: no input file specified." >&2
203
+ exit 1
204
+ fi
205
+ # It's OK to call `install-sh -d' without argument.
206
+ # This can happen when creating conditional directories.
207
+ exit 0
208
+ fi
209
+
210
+ if test -z "$dir_arg"; then
211
+ do_exit='(exit $ret); exit $ret'
212
+ trap "ret=129; $do_exit" 1
213
+ trap "ret=130; $do_exit" 2
214
+ trap "ret=141; $do_exit" 13
215
+ trap "ret=143; $do_exit" 15
216
+
217
+ # Set umask so as not to create temps with too-generous modes.
218
+ # However, 'strip' requires both read and write access to temps.
219
+ case $mode in
220
+ # Optimize common cases.
221
+ *644) cp_umask=133;;
222
+ *755) cp_umask=22;;
223
+
224
+ *[0-7])
225
+ if test -z "$stripcmd"; then
226
+ u_plus_rw=
227
+ else
228
+ u_plus_rw='% 200'
229
+ fi
230
+ cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
231
+ *)
232
+ if test -z "$stripcmd"; then
233
+ u_plus_rw=
234
+ else
235
+ u_plus_rw=,u+rw
236
+ fi
237
+ cp_umask=$mode$u_plus_rw;;
238
+ esac
239
+ fi
240
+
241
+ for src
242
+ do
243
+ # Protect names problematic for `test' and other utilities.
244
+ case $src in
245
+ -* | [=\(\)!]) src=./$src;;
246
+ esac
247
+
248
+ if test -n "$dir_arg"; then
249
+ dst=$src
250
+ dstdir=$dst
251
+ test -d "$dstdir"
252
+ dstdir_status=$?
253
+ else
254
+
255
+ # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
256
+ # might cause directories to be created, which would be especially bad
257
+ # if $src (and thus $dsttmp) contains '*'.
258
+ if test ! -f "$src" && test ! -d "$src"; then
259
+ echo "$0: $src does not exist." >&2
260
+ exit 1
261
+ fi
262
+
263
+ if test -z "$dst_arg"; then
264
+ echo "$0: no destination specified." >&2
265
+ exit 1
266
+ fi
267
+ dst=$dst_arg
268
+
269
+ # If destination is a directory, append the input filename; won't work
270
+ # if double slashes aren't ignored.
271
+ if test -d "$dst"; then
272
+ if test -n "$no_target_directory"; then
273
+ echo "$0: $dst_arg: Is a directory" >&2
274
+ exit 1
275
+ fi
276
+ dstdir=$dst
277
+ dst=$dstdir/`basename "$src"`
278
+ dstdir_status=0
279
+ else
280
+ # Prefer dirname, but fall back on a substitute if dirname fails.
281
+ dstdir=`
282
+ (dirname "$dst") 2>/dev/null ||
283
+ expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
284
+ X"$dst" : 'X\(//\)[^/]' \| \
285
+ X"$dst" : 'X\(//\)$' \| \
286
+ X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
287
+ echo X"$dst" |
288
+ sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
289
+ s//\1/
290
+ q
291
+ }
292
+ /^X\(\/\/\)[^/].*/{
293
+ s//\1/
294
+ q
295
+ }
296
+ /^X\(\/\/\)$/{
297
+ s//\1/
298
+ q
299
+ }
300
+ /^X\(\/\).*/{
301
+ s//\1/
302
+ q
303
+ }
304
+ s/.*/./; q'
305
+ `
306
+
307
+ test -d "$dstdir"
308
+ dstdir_status=$?
309
+ fi
310
+ fi
311
+
312
+ obsolete_mkdir_used=false
313
+
314
+ if test $dstdir_status != 0; then
315
+ case $posix_mkdir in
316
+ '')
317
+ # Create intermediate dirs using mode 755 as modified by the umask.
318
+ # This is like FreeBSD 'install' as of 1997-10-28.
319
+ umask=`umask`
320
+ case $stripcmd.$umask in
321
+ # Optimize common cases.
322
+ *[2367][2367]) mkdir_umask=$umask;;
323
+ .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
324
+
325
+ *[0-7])
326
+ mkdir_umask=`expr $umask + 22 \
327
+ - $umask % 100 % 40 + $umask % 20 \
328
+ - $umask % 10 % 4 + $umask % 2
329
+ `;;
330
+ *) mkdir_umask=$umask,go-w;;
331
+ esac
332
+
333
+ # With -d, create the new directory with the user-specified mode.
334
+ # Otherwise, rely on $mkdir_umask.
335
+ if test -n "$dir_arg"; then
336
+ mkdir_mode=-m$mode
337
+ else
338
+ mkdir_mode=
339
+ fi
340
+
341
+ posix_mkdir=false
342
+ case $umask in
343
+ *[123567][0-7][0-7])
344
+ # POSIX mkdir -p sets u+wx bits regardless of umask, which
345
+ # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
346
+ ;;
347
+ *)
348
+ tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
349
+ trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
350
+
351
+ if (umask $mkdir_umask &&
352
+ exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
353
+ then
354
+ if test -z "$dir_arg" || {
355
+ # Check for POSIX incompatibilities with -m.
356
+ # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
357
+ # other-writeable bit of parent directory when it shouldn't.
358
+ # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
359
+ ls_ld_tmpdir=`ls -ld "$tmpdir"`
360
+ case $ls_ld_tmpdir in
361
+ d????-?r-*) different_mode=700;;
362
+ d????-?--*) different_mode=755;;
363
+ *) false;;
364
+ esac &&
365
+ $mkdirprog -m$different_mode -p -- "$tmpdir" && {
366
+ ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
367
+ test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
368
+ }
369
+ }
370
+ then posix_mkdir=:
371
+ fi
372
+ rmdir "$tmpdir/d" "$tmpdir"
373
+ else
374
+ # Remove any dirs left behind by ancient mkdir implementations.
375
+ rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
376
+ fi
377
+ trap '' 0;;
378
+ esac;;
379
+ esac
380
+
381
+ if
382
+ $posix_mkdir && (
383
+ umask $mkdir_umask &&
384
+ $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
385
+ )
386
+ then :
387
+ else
388
+
389
+ # The umask is ridiculous, or mkdir does not conform to POSIX,
390
+ # or it failed possibly due to a race condition. Create the
391
+ # directory the slow way, step by step, checking for races as we go.
392
+
393
+ case $dstdir in
394
+ /*) prefix='/';;
395
+ [-=\(\)!]*) prefix='./';;
396
+ *) prefix='';;
397
+ esac
398
+
399
+ eval "$initialize_posix_glob"
400
+
401
+ oIFS=$IFS
402
+ IFS=/
403
+ $posix_glob set -f
404
+ set fnord $dstdir
405
+ shift
406
+ $posix_glob set +f
407
+ IFS=$oIFS
408
+
409
+ prefixes=
410
+
411
+ for d
412
+ do
413
+ test X"$d" = X && continue
414
+
415
+ prefix=$prefix$d
416
+ if test -d "$prefix"; then
417
+ prefixes=
418
+ else
419
+ if $posix_mkdir; then
420
+ (umask=$mkdir_umask &&
421
+ $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
422
+ # Don't fail if two instances are running concurrently.
423
+ test -d "$prefix" || exit 1
424
+ else
425
+ case $prefix in
426
+ *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
427
+ *) qprefix=$prefix;;
428
+ esac
429
+ prefixes="$prefixes '$qprefix'"
430
+ fi
431
+ fi
432
+ prefix=$prefix/
433
+ done
434
+
435
+ if test -n "$prefixes"; then
436
+ # Don't fail if two instances are running concurrently.
437
+ (umask $mkdir_umask &&
438
+ eval "\$doit_exec \$mkdirprog $prefixes") ||
439
+ test -d "$dstdir" || exit 1
440
+ obsolete_mkdir_used=true
441
+ fi
442
+ fi
443
+ fi
444
+
445
+ if test -n "$dir_arg"; then
446
+ { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
447
+ { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
448
+ { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
449
+ test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
450
+ else
451
+
452
+ # Make a couple of temp file names in the proper directory.
453
+ dsttmp=$dstdir/_inst.$$_
454
+ rmtmp=$dstdir/_rm.$$_
455
+
456
+ # Trap to clean up those temp files at exit.
457
+ trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
458
+
459
+ # Copy the file name to the temp name.
460
+ (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
461
+
462
+ # and set any options; do chmod last to preserve setuid bits.
463
+ #
464
+ # If any of these fail, we abort the whole thing. If we want to
465
+ # ignore errors from any of these, just make sure not to ignore
466
+ # errors from the above "$doit $cpprog $src $dsttmp" command.
467
+ #
468
+ { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
469
+ { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
470
+ { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
471
+ { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
472
+
473
+ # If -C, don't bother to copy if it wouldn't change the file.
474
+ if $copy_on_change &&
475
+ old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
476
+ new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
477
+
478
+ eval "$initialize_posix_glob" &&
479
+ $posix_glob set -f &&
480
+ set X $old && old=:$2:$4:$5:$6 &&
481
+ set X $new && new=:$2:$4:$5:$6 &&
482
+ $posix_glob set +f &&
483
+
484
+ test "$old" = "$new" &&
485
+ $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
486
+ then
487
+ rm -f "$dsttmp"
488
+ else
489
+ # Rename the file to the real destination.
490
+ $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
491
+
492
+ # The rename failed, perhaps because mv can't rename something else
493
+ # to itself, or perhaps because mv is so ancient that it does not
494
+ # support -f.
495
+ {
496
+ # Now remove or move aside any old file at destination location.
497
+ # We try this two ways since rm can't unlink itself on some
498
+ # systems and the destination file might be busy for other
499
+ # reasons. In this case, the final cleanup might fail but the new
500
+ # file should still install successfully.
501
+ {
502
+ test ! -f "$dst" ||
503
+ $doit $rmcmd -f "$dst" 2>/dev/null ||
504
+ { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
505
+ { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
506
+ } ||
507
+ { echo "$0: cannot unlink or rename $dst" >&2
508
+ (exit 1); exit 1
509
+ }
510
+ } &&
511
+
512
+ # Now rename the file to the real destination.
513
+ $doit $mvcmd "$dsttmp" "$dst"
514
+ }
515
+ fi || exit 1
516
+
517
+ trap '' 0
518
+ fi
519
+ done
520
+
521
+ # Local variables:
522
+ # eval: (add-hook 'write-file-hooks 'time-stamp)
523
+ # time-stamp-start: "scriptversion="
524
+ # time-stamp-format: "%:y-%02m-%02d.%02H"
525
+ # time-stamp-time-zone: "UTC"
526
+ # time-stamp-end: "; # UTC"
527
+ # End: