Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: fbc51c9ea7
Fetching contributors…

Cannot retrieve contributors at this time

file 55 lines (52 sloc) 1.629 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
# Lock the given files.
# Append the names of lockfiles to the array lockfiles.

local file lockfile msgdone
# Number of attempts to lock a file. Probably not worth stylising.
integer lockattempts=4 loadtried

# The lockfile name is not stylised: it has to be a fixed
# derivative of the main fail.
for file; do
  lockfile=$file.lockfile
  for (( i = 0; i <= lockattempts; i++ )); do
    if ln -s $file $lockfile >/dev/null 2>&1; then
      lockfiles+=($lockfile)
      break
    fi
    if zle && [[ -z $msgdone ]]; then
      msgdone="${lockfile}: waiting to acquire lock"
      zle -M $msgdone
    fi
    if (( ! loadtried )); then
      zmodload -i zsh/zselect 2>/dev/null
      (( loadtried = 1 ))
    fi
    if zmodload -e zsh/zselect; then
      # This gives us finer grained timing (100th second).
      # Randomize the sleep between .1 and 2 seconds so that
      # we are much less likely to have multiple instances
      # retrying at once.
      zselect -t $(( 10 + RANDOM * 190 / 32768 ))
    else
      sleep 1
    fi
  done
  if [[ -n $msgdone ]]; then
    zle -M ${msgdone//?/ }
    msgdone=
  fi
  if [[ ${lockfiles[-1]} != $lockfile ]]; then
    msgdone="Failed to lock $file; giving up after $lockattempts attempts.
Another instance of calendar may be using it.
Delete $lockfiles if you believe this to be an error."
    if zle; then
      zle -M $msgdone
    else
      print $msgdone >&2
    fi
    # The parent should take action to delete any lockfiles
    # already locked. Typically this won't be necessary, since
    # we will always lock the main calendar file first.
    return 1
  fi
done

return 0
Something went wrong with that request. Please try again.