provide run_at_most_every function

[etc/zsh.git] / .zsh / util

diff --git a/.zsh/util b/.zsh/util
index 6c8970a86827ade89457848c592219c94c6e0811..9b865362716ae16afd785e56e8ef91bc55bbbbc4 100644 (file)
--- a/.zsh/util
+++ b/.zsh/util
@@ -2,7 +2,7 @@
 #
 # Miscellaneous utility functions
 #
 #
 # Miscellaneous utility functions
 #

-# Copyright © 1994–2008 martin f. krafft <madduck@madduck.net>
+# Copyright © 1994–2017 martin f. krafft <madduck@madduck.net>

 # Released under the terms of the Artistic Licence 2.0
 #
 # Source repository: http://git.madduck.net/v/etc/zsh.git
 # Released under the terms of the Artistic Licence 2.0
 #
 # Source repository: http://git.madduck.net/v/etc/zsh.git


@@ -12,4 +12,42 @@ is_root() {
   test ${EUID:?} -eq 0
 }
 
   test ${EUID:?} -eq 0
 }
 

+array_prepend() {
+  local arrayname="$1"; shift
+  local i
+  for i; do
+    eval "typeset -ga $arrayname; $arrayname=(\$i \${$arrayname[@]/\$i})"
+  done
+}
+
+array_append() {
+  local arrayname="$1"; shift
+  local i
+  for i; do
+    eval "typeset -ga $arrayname; $arrayname=(\${$arrayname[@]/\$i} \$i)"
+  done
+}
+
+function trace() { ( eval "set -x; $@"; ) }
+
+function run_at_most_every() {
+  local timespec=
+  case "$1" in
+    ((#b)([0-9]##)([smhd])) timespec="${match[2]}-${match[1]}";;
+    (*)
+      zerror "missing timespec: $@"
+      return
+  esac
+  shift
+
+  local sentinel_dir="${XDG_RUNTIME_DIR:-${TMPDIR:-/tmp}}/run_at_most_once_per"
+  mkdir --parent "${sentinel_dir}"
+  local sentinel="${sentinel_dir}/${*//[^[:alnum:]]##/_}_${timespec}"
+  if test -z ${sentinel}(#qNm${timespec}); then
+    touch "${sentinel}"
+    $@
+    return $?
+  fi
+}
+

 # vim:ft=zsh
 # vim:ft=zsh