Mercurial > gnulib

annotate build-aux/mktempd @ 40196:e63f5d3edab5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
relocatable-prog: Update documentation. * doc/relocatable-maint.texi (Supporting Relocation): Update to match the recent changes.
author Bruno Haible <bruno@clisp.org>
date Sun, 24 Feb 2019 01:49:15 +0100
parents b06060465f09
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9799
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
1 #!/bin/sh
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
2 # Create a temporary directory, much like mktemp -d does.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
3
40057
b06060465f09 maint: Run 'make update-copyright'
Paul Eggert <eggert@cs.ucla.edu>
parents: 19491
diff changeset
4 # Copyright (C) 2007-2019 Free Software Foundation, Inc.
9799
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
5
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
6 # This program is free software: you can redistribute it and/or modify
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
7 # it under the terms of the GNU General Public License as published by
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
8 # the Free Software Foundation, either version 3 of the License, or
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
9 # (at your option) any later version.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
10
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
11 # This program is distributed in the hope that it will be useful,
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
14 # GNU General Public License for more details.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
15
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
16 # You should have received a copy of the GNU General Public License
19190
9759915b2aca all: prefer https: URLs
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
17 # along with this program. If not, see <https://www.gnu.org/licenses/>.
9799
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
18
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
19 # Written by Jim Meyering.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
20
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
21 # Usage: mktempd /tmp phoey.XXXXXXXXXX
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
22
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
23 # First, try to use the mktemp program.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
24 # Failing that, we'll roll our own mktemp-like function:
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
25 # - try to get random bytes from /dev/urandom
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
26 # - failing that, generate output from a combination of quickly-varying
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
27 # sources and gzip. Ignore non-varying gzip header, and extract
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
28 # "random" bits from there.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
29 # - given those bits, map to file-name bytes using tr, and try to create
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
30 # the desired directory.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
31 # - make only $MAX_TRIES attempts
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
32
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
33 ME=`basename "$0"`
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
34 die() { echo >&2 "$ME: $@"; exit 1; }
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
35
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
36 MAX_TRIES=4
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
37
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
38 rand_bytes()
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
39 {
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
40 n=$1
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
41
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
42 chars=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
43
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
44 dev_rand=/dev/urandom
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
45 if test -r "$dev_rand"; then
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
46 # Note: 256-length($chars) == 194; 3 copies of $chars is 186 + 8 = 194.
16139
e4bb630139e4 mktempd: silence dd usage
Eric Blake <eblake@redhat.com>
parents: 14079
diff changeset
47 dd ibs=$n count=1 if="$dev_rand" 2>/dev/null \
e4bb630139e4 mktempd: silence dd usage
Eric Blake <eblake@redhat.com>
parents: 14079
diff changeset
48 | tr -c $chars 01234567$chars$chars$chars
9799
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
49 return
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
50 fi
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
51
19491
95ee7455adf3 test-framework-sh: ‘ps -ef’, not ‘ps ef’
Paul Eggert <eggert@cs.ucla.edu>
parents: 19484
diff changeset
52 cmds='date; date +%N; free; who -a; w; ps auxww; ps -ef'
9799
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
53 data=` (eval "$cmds") 2>&1 | gzip `
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
54
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
55 n_plus_50=`expr $n + 50`
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
56
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
57 # Ensure that $data has length at least 50+$n
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
58 while :; do
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
59 len=`echo "$data"|wc -c`
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
60 test $n_plus_50 -le $len && break;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
61 data=` (echo "$data"; eval "$cmds") 2>&1 | gzip `
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
62 done
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
63
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
64 echo "$data" \
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
65 | dd bs=1 skip=50 count=$n 2>/dev/null \
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
66 | tr -c $chars 01234567$chars$chars$chars
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
67 }
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
68
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
69 mktempd()
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
70 {
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
71 case $# in
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
72 2);;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
73 *) die "Usage: $ME DIR TEMPLATE";;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
74 esac
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
75
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
76 destdir=$1
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
77 template=$2
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
78
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
79 # Disallow any trailing slash on specified destdir:
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
80 # it would subvert the post-mktemp "case"-based destdir test.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
81 case $destdir in
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
82 /) ;;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
83 */) die "invalid destination dir: remove trailing slash(es)";;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
84 esac
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
85
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
86 case $template in
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
87 *XXXX) ;;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
88 *) die "invalid template: $template (must have a suffix of at least 4 X's)";;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
89 esac
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
90
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
91 fail=0
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
92
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
93 # First, try to use mktemp.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
94 d=`env -u TMPDIR mktemp -d -t -p "$destdir" "$template" 2>/dev/null` \
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
95 || fail=1
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
96
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
97 # The resulting name must be in the specified directory.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
98 case $d in "$destdir"*);; *) fail=1;; esac
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
99
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
100 # It must have created the directory.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
101 test -d "$d" || fail=1
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
102
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
103 # It must have 0700 permissions. Handle sticky "S" bits.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
104 perms=`ls -dgo "$d" 2>/dev/null|tr S -` || fail=1
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
105 case $perms in drwx------*) ;; *) fail=1;; esac
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
106
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
107 test $fail = 0 && {
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
108 echo "$d"
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
109 return
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
110 }
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
111
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
112 # If we reach this point, we'll have to create a directory manually.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
113
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
114 # Get a copy of the template without its suffix of X's.
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
115 base_template=`echo "$template"|sed 's/XX*$//'`
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
116
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
117 # Calculate how many X's we've just removed.
10072
318ffe3ae81d use "echo STR|wc -c" rather than unportable "expr length STR"
Lasse Collin <lasse.collin@tukaani.org>
parents: 10071
diff changeset
118 template_length=`echo "$template" | wc -c`
318ffe3ae81d use "echo STR|wc -c" rather than unportable "expr length STR"
Lasse Collin <lasse.collin@tukaani.org>
parents: 10071
diff changeset
119 nx=`echo "$base_template" | wc -c`
318ffe3ae81d use "echo STR|wc -c" rather than unportable "expr length STR"
Lasse Collin <lasse.collin@tukaani.org>
parents: 10071
diff changeset
120 nx=`expr $template_length - $nx`
9799
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
121
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
122 err=
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
123 i=1
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
124 while :; do
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
125 X=`rand_bytes $nx`
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
126 candidate_dir="$destdir/$base_template$X"
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
127 err=`mkdir -m 0700 "$candidate_dir" 2>&1` \
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
128 && { echo "$candidate_dir"; return; }
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
129 test $MAX_TRIES -le $i && break;
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
130 i=`expr $i + 1`
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
131 done
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
132 die "$err"
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
133 }
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
134
55aec4615f6d New script and module: mktempd
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
135 mktempd "$@"