admin/emacs-shell-lib

   1 #!/bin/bash
   2 ### emacs-shell-lib - shared code for Emacs shell scripts
   3
   4 ## Copyright (C) 2022-2024 Free Software Foundation, Inc.
   5
   6 ## Author: Stefan Kangas <stefankangas@gmail.com>
   7
   8 ## This file is part of GNU Emacs.
   9
  10 ## GNU Emacs is free software: you can redistribute it and/or modify
  11 ## it under the terms of the GNU General Public License as published by
  12 ## the Free Software Foundation, either version 3 of the License, or
  13 ## (at your option) any later version.
  14
  15 ## GNU Emacs is distributed in the hope that it will be useful,
  16 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ## GNU General Public License for more details.
  19
  20 ## You should have received a copy of the GNU General Public License
  21 ## along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
  22
  23 ### Code:
  24
  25 # Set an explicit umask.
  26 umask 077
  27
  28 # Treat unset variables as an error.
  29 set -o nounset
  30
  31 # Exit immediately on error.
  32 set -o errexit
  33
  34 # Avoid non-standard command output from non-C locales.
  35 unset LANG LC_ALL LC_MESSAGES
  36
  37 PN=${0##*/}                     # basename of script
  38 PD=${0%/*}                      # script directory
  39
  40 [ "$PD" = "$0" ] && PD=.        # if PATH includes PWD
  41
  42 die ()                 # write error to stderr and exit
  43 {
  44     [ $# -gt 0 ] && echo "$PN: $@" >&2
  45     exit 1
  46 }
  47
  48 emacs_tempfiles=()
  49
  50 emacs_tempfiles_cleanup ()
  51 {
  52     for file in ${emacs_tempfiles[@]}; do
  53         rm -f "${file}" 2> /dev/null
  54     done
  55 }
  56
  57 trap '
  58   ret=$?
  59   emacs_tempfiles_cleanup
  60   exit $ret
  61 ' EXIT
  62
  63 emacs_mktemp ()
  64 {
  65     local readonly file="${1-}"
  66     local tempfile
  67     local prefix
  68
  69     if [ -z "$file" ]; then
  70         prefix="$PN"
  71     else
  72         prefix="$1"
  73     fi
  74
  75     if [ -x "$(command -v mktemp)" ]; then
  76         tempfile=$(mktemp "${TMPDIR-/tmp}/${prefix}.XXXXXXXXXX")
  77     else
  78         tempfile="${TMPDIR-/tmp}/${prefix}.$RANDOM$$"
  79         (umask 077 && touch "$tempfile")
  80     fi
  81
  82     [ -z "${tempfile}" ] && die "Creating temporary file failed"
  83
  84     emacs_tempfiles+=("${tempfile}")
  85
  86     echo "$tempfile"
  87 }