zsh functions to read/print LTSV (Labeled Tab-separated Values)

ltsv_utils.zsh

#
# Usage: read_ltsv_as_assoc VARNAME < LTSV_STREAM
#
function read_ltsv_as_assoc {
  if ((ARGC != 1)); then
    echo 1>&2 "Invalid number of Argument(s)"; return 1
  fi
  local line vn=$1; shift;
  IFS=$'\t' read -A line || return 1;
  local i kv tmp; tmp=()
  for i in $line; do
    kv=("${(@s/:/)i}")
    tmp+=("$kv[1]" "${(j/:/)kv[2,$#kv]}")
  done
  if (($+parameters[$vn])); then
    unset $vn
  fi
  typeset -gA $vn;
  set -A $vn "$tmp[@]"
}

#
# Usage: print_pairs_as_ltsv key value key2 value2 ...
#
function print_pairs_as_ltsv {
   local k v tmp
   tmp=()
   for k v in "$@"; do
     tmp+=("$k:$v")
   done
   print ${(j/\t/)tmp}
}