X-Git-Url: https://git.plutz.net/?a=blobdiff_plain;f=tools.sh;h=e40e25f4be075bb97589fc6415e09c3c2dc5b025;hb=0e2b2e5a68f0e5a32bc4e7d869b475b744582643;hp=591e9bcb71153e864e1debaedfeafe78892f86d8;hpb=ff9a196ad3df7bd5881de3c7c32494398f05473d;p=shellwiki diff --git a/tools.sh b/tools.sh index 591e9bc..e40e25f 100644 --- a/tools.sh +++ b/tools.sh @@ -19,3 +19,60 @@ size_human(){ printf "%i B" "$size" fi } + +page_glob(){ + local pattern="$1" IFS='' + local glob page pagedir + + case $pattern in + /*) + for glob in "$_DATA/pages"$pattern; do printf '%s\n' "${glob#"$_DATA/pages"}"; done + for glob in "$_EXEC/pages"$pattern; do printf '%s\n' "${glob#"$_EXEC/pages"}"; done + ;; + *) + for glob in "$_DATA/pages/$PATH_INFO"/$pattern; do printf '%s\n' "${glob#"$_DATA/pages/$PATH_INFO/"}"; done + for glob in "$_EXEC/pages/$PATH_INFO"/$pattern; do printf '%s\n' "${glob#"$_EXEC/pages/$PATH_INFO/"}"; done + ;; + esac \ + | sort -u \ + | while read -r page; do + case $page in + \#*|*/\#*) continue;; + /*) pagedir="$(PATH "$page")";; + *) pagedir="$(PATH "$PATH_INFO/$page")";; + esac + [ -d "$_DATA/pages/$pagedir" -o -d "$_EXEC/pages/$pagedir" ] \ + && printf '%s\n' "$page" + done +} + +page_children(){ + local page="${1:-${PATH_INFO}}" depth="${2:-1}" + local glob pagedir IFS='' + page="${page%/}/" + + [ "$depth" -eq 0 ] && return 0 + + case $page in + /*) + for glob in "$_DATA/pages/${page}"*/; do printf '%s\n' "${glob#"$_DATA/pages"}"; done + for glob in "$_EXEC/pages/${page}"*/; do printf '%s\n' "${glob#"$_EXEC/pages"}"; done + ;; + *) + for glob in "$_DATA/pages/$PATH_INFO/${page}"*/; do printf '%s\n' "${glob#"$_DATA/pages/$PATH_INFO/"}"; done + for glob in "$_EXEC/pages/$PATH_INFO/${page}"*/; do printf '%s\n' "${glob#"$_EXEC/pages/$PATH_INFO/"}"; done + ;; + esac \ + | sort -u \ + | while read -r page; do + case $page in + \#*|*/\#*) continue;; + /*) pagedir="$(PATH "$page")";; + *) pagedir="$(PATH "$PATH_INFO/$page")";; + esac + if [ -d "$_DATA/pages/$pagedir" -o -d "$_EXEC/pages/$pagedir" ]; then + printf %s\\n "$page" + page_children "$page" "$((depth - 1))" + fi + done +}