.zsh/util

   1 # util
   2 #
   3 # Miscellaneous utility functions
   4 #
   5 # Copyright © 1994–2017 martin f. krafft <madduck@madduck.net>
   6 # Released under the terms of the Artistic Licence 2.0
   7 #
   8 # Source repository: http://git.madduck.net/v/etc/zsh.git
   9 #
  10
  11 is_root() {
  12   test ${EUID:?} -eq 0
  13 }
  14
  15 array_prepend() {
  16   local arrayname="$1"; shift
  17   local i
  18   for i; do
  19     eval "typeset -ga $arrayname; $arrayname=(\$i \${$arrayname[@]/\$i})"
  20   done
  21 }
  22
  23 array_append() {
  24   local arrayname="$1"; shift
  25   local i
  26   for i; do
  27     eval "typeset -ga $arrayname; $arrayname=(\${$arrayname[@]/\$i} \$i)"
  28   done
  29 }
  30
  31 function trace() { ( eval "set -x; $@"; ) }
  32
  33 function run_at_most_every() {
  34   local timespec=
  35   case "$1" in
  36     ((#b)([0-9]##)([smhd])) timespec="${match[2]}-${match[1]}";;
  37     (*)
  38       zerror "missing timespec: $@"
  39       return
  40   esac
  41   shift
  42
  43   local sentinel_dir="${XDG_RUNTIME_DIR:-${TMPDIR:-/tmp}}/run_at_most_once_per"
  44   mkdir --parent "${sentinel_dir}"
  45   local sentinel="${sentinel_dir}/${*//[^[:alnum:]]##/_}_${timespec}"
  46   if test -z ${sentinel}(#qNm${timespec}); then
  47     touch "${sentinel}"
  48     $@
  49     return $?
  50   fi
  51 }
  52
  53 # vim:ft=zsh