diff options
author | Adam Spiers <adamspiers@users.sourceforge.net> | 2000-08-02 13:45:51 +0000 |
---|---|---|
committer | Adam Spiers <adamspiers@users.sourceforge.net> | 2000-08-02 13:45:51 +0000 |
commit | fd15ea0fb5f43a05647e9755f2c86aabd6ee95f8 (patch) | |
tree | 30430d5582628b202d8932a8d85576b0970edbf7 /Completion/Base/_store_cache | |
parent | b2aebcad027eab3339677eb790bfa41b37c3aef0 (diff) | |
download | zsh-fd15ea0fb5f43a05647e9755f2c86aabd6ee95f8.tar.gz zsh-fd15ea0fb5f43a05647e9755f2c86aabd6ee95f8.tar.xz zsh-fd15ea0fb5f43a05647e9755f2c86aabd6ee95f8.zip |
12486: new completion caching layer
Diffstat (limited to 'Completion/Base/_store_cache')
-rw-r--r-- | Completion/Base/_store_cache | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Completion/Base/_store_cache b/Completion/Base/_store_cache new file mode 100644 index 000000000..2fe7dfcb6 --- /dev/null +++ b/Completion/Base/_store_cache @@ -0,0 +1,36 @@ +#autoload +# +# Storage component of completions caching layer + +local _cache_ident +_cache_ident="$1" + +if zstyle -t ":completion:${curcontext}:" use-cache; then + # Decide which directory to cache to, and ensure it exists + zstyle -s ":completion:${curcontext}:" cache-path _cache_dir + : ${_cache_dir:=${ZDOTDIR:-$HOME}/.zcompcache} + if [[ ! -d "$_cache_dir" ]]; then + if [[ -e "$_cache_dir" ]]; then + _message "cache-dir style points to a non-directory\!" + else + mkdir -p "$_cache_dir" + if [[ ! -d "$_cache_dir" ]]; then + _message "Couldn't create cache-dir $_cache_dir" + return 1 + fi + fi + fi + + shift + for var; do + case ${(Pt)var} in + (*readonly*) ;; + (*(association|array)*) print -r "$var=( ${(kv@Pqq)^^var} )";; + (*) print -r "$var=${(Pqq)^^var}";; + esac + done >! "$_cache_dir/$_cache_ident" +else + return 1 +fi + +return 0 |