From a5509ebb04f1f045e285af849bbf1cbe865a1a33 Mon Sep 17 00:00:00 2001
From: Sven Wischnowsky <wischnow@users.sourceforge.net>
Date: Mon, 2 Apr 2001 11:09:51 +0000
Subject: moved from Completion/Base/_cache_invalid

---
 Completion/Base/Utility/_cache_invalid | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 Completion/Base/Utility/_cache_invalid

(limited to 'Completion/Base/Utility/_cache_invalid')

diff --git a/Completion/Base/Utility/_cache_invalid b/Completion/Base/Utility/_cache_invalid
new file mode 100644
index 000000000..e55381439
--- /dev/null
+++ b/Completion/Base/Utility/_cache_invalid
@@ -0,0 +1,21 @@
+#autoload
+#
+# Function to decide whether a completions cache needs rebuilding
+
+local _cache_ident _cache_dir _cache_path _cache_policy
+_cache_ident="$1"
+
+# If the cache is disabled, we never want to rebuild it, so pretend
+# it's valid.
+zstyle -t ":completion:${curcontext}:" use-cache || return 1
+
+zstyle -s ":completion:${curcontext}:" cache-path _cache_dir
+: ${_cache_dir:=${ZDOTDIR:-$HOME}/.zcompcache}
+_cache_path="$_cache_dir/$_cache_ident"
+
+# See whether the caching policy says that the cache needs rebuilding
+# (the policy will return 0 if it does).
+zstyle -s ":completion:${curcontext}:" cache-policy _cache_policy
+[[ -n "$_cache_policy" ]] && "$_cache_policy" "$_cache_path" && return 0
+
+return 1
-- 
cgit 1.4.1