git.plutz.net Git - cgilite/blob - misc.sh

   1 #!/bin/zsh
   2
   3 # Copyright 2014, 2015 Paul Hänsch
   4 #
   5 # This file is part of shcgi.
   6 #
   7 # shcgi is free software: you can redistribute it and/or modify
   8 # it under the terms of the GNU Affero General Public License as published by
   9 # the Free Software Foundation, either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # shcgi is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 # GNU Affero General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU Affero General Public License
  18 # along with shcgi.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 data_dirs(){
  21   # set up directories for object storage
  22
  23   [ -d "$_DATA" -a -w "$_DATA" ] || die "storage directory must be writable"
  24   for each in "$@"; do
  25     [ ! -e "$_DATA/$each" ] && mkdir "$_DATA/$each"
  26     [ -d "$_DATA/$each" -a -w "$_DATA/$each" ] || die "storage \"$_DATA/$each\" must be a writable directory"
  27   done
  28 }
  29
  30 validate(){
  31   # print value if value matches regex; otherwise print default
  32   value="$1"
  33   regex="$(printf %s\\n "$2" | sed -r ':X;s;(^|[^\\])((\\\\)*)/;\1\2\\/;g;tX')"
  34                              # ^^ escape only unescaped slash characters for later insertion
  35   default="$3"
  36
  37   printf %s\\n "${value}" \
  38   | sed -rn "2q; /^(${regex})\$/{p;q}; a${default}
  39             "
  40 }
  41
  42 invalidate(){
  43   # print default if value matches regex; otherwise print value
  44   value="$1"
  45   regex="$(printf %s\\n "$2" | sed -r ':X;s;(^|[^\\])((\\\\)*)/;\1\2\\/;g;tX')"
  46                              # ^^ escape only unescaped slash characters for later insertion
  47   default="$3"
  48
  49   printf %s\\n "${value}" \
  50   | sed -rn "2q; /^(${regex})\$/{bX}; p;q; :X;a${default}
  51             "
  52 }
  53
  54 declare -A item_name
  55 l10n(){
  56   [ -n "${item_name[$1]+x}" ] && printf %s "$item_name[$1]" || printf %s "$1"
  57 }