#!/bin/sh

# Copyright 2022 - 2023 Paul Hänsch
# 
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
# 
# THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
# IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

. "$_EXEC/cgilite/cgilite.sh"
. "$_EXEC/acl.sh"
. "$_EXEC/tools.sh"

from='1'; to='$'; rev=''; items='$'; hl=0; link='true'; depth=0; tags=''; ntags=''; page='';

set -- "$@" --
while [ $# -gt 0 ]; do case $1 in
  --from) from="$2"; shift 2;;
  from=*) from="${1#*=}"; shift 1;;
  --to) to="$2"; shift 2;;
  to=*) to="${1#*=}"; shift 1;;
  --items) items="$2"; shift 2;;
  items=*) items="${1#*=}"; shift 1;;
  --rev|--reverse) rev="-r"; shift 1;;
  --nolink) link=""; shift 1;;
  --hl|-hl) hl=$2; shift 2;;
  --depth) depth=$2; shift 2;;
  \#*) tags="${tags}${tags:+ }${1}"; shift 1;;
  \!*) ntags="${ntags}${ntags:+ }${1}"; shift 1;;
  --) shift 1; break;;
  *) set -- "$@" "$1"; shift 1;;
esac; done

if ! printf %s\\n "$from" |grep -qEx '[0-9]+|/([^/\\]|\\/|\\.)*/'; then
  debug 'Include macro invalid argument: "from"'
  exit 1
fi
if ! printf %s\\n "$to" |grep -qEx '\$|[0-9]+|/([^/\\]|\\/|\\.)*/'; then
  debug 'Include macro Invalid argument: "to"'
  exit 1
fi
if ! printf %s\\n "$items" |grep -qEx '\$|[0-9]+'; then
  debug 'Include macro Invalid argument: "items"'
  exit 1
fi

for page in "$@"; do
  page_glob "$page" "$depth"
done \
| sort $rev \
| sed "${items}q" \
| while read glob; do
  page="$(page_abs "$glob")"
  mdfile="$(mdfile "$page")" || continue
  acl_read "$page" || continue
  has_tags "$page" $tags || continue
  has_tag "$page" $ntags && continue
  printf %s\\n "$INCLUDE_LIST" |grep -qxF "$page" && continue
  export INCLUDE_LIST="${INCLUDE_LIST}${INCLUDE_LIST:+${BR}}$page"
  hglob="$(HTML "$glob")"
  refpfx="$(printf %s\\n "$hglob" |sed 's;[\;&\;];\\&;g')"
  [ "$link" ] \
  && printf '<div class="macro include">
               <a class="include link" href="%s">%s</a>
               <article class="include" id="include_%s">' \
            "${hglob}" "${hglob}" "${hglob}" \
  || printf '<div class="macro include">
               <article class="include" id="include_%s">' \
            "${hglob}"
  ( # PATH_INFO may be used by macros in the included page
    export PATH_INFO="$page"
    cd -- "${mdfile%/*}/"
    sed -n "${from},${to}p" <"$mdfile" \
    | md \
    | grep -vx ''
  ) | sed -E '
    s;(<[^>]+ )(href|src)="([^"]+://[^"]*|[mM][aA][iI][lL][tT][oO]:[^"]*)"([^>]*>);\1\2="/#safe/\3"\4;g
    s;(<[^>]+ )(href|src)="([^#/"][^"]*)"([^>]*>);\1\2="'"${refpfx}"'\3"\4;g
    s;(<[^>]+ )(href|src)="/#safe/([^"]*)"([^>]*>);\1\2="\3"\4;g
  ' | case $hl in
      1) sed -E 's;(<h|</h)5( |>);\16\2;g;
                 s;(<h|</h)4( |>);\15\2;g;
                 s;(<h|</h)3( |>);\14\2;g;
                 s;(<h|</h)2( |>);\13\2;g;
                 s;(<h|</h)1( |>);\12\2;g;
         ';;
      2) sed -E 's;(<h|</h)5( |>);\16\2;g;
                 s;(<h|</h)4( |>);\16\2;g;
                 s;(<h|</h)3( |>);\15\2;g;
                 s;(<h|</h)2( |>);\14\2;g;
                 s;(<h|</h)1( |>);\13\2;g;
         ';;
      3) sed -E 's;(<h|</h)5( |>);\16\2;g;
                 s;(<h|</h)4( |>);\16\2;g;
                 s;(<h|</h)3( |>);\16\2;g;
                 s;(<h|</h)2( |>);\15\2;g;
                 s;(<h|</h)1( |>);\14\2;g;
         ';;
      4) sed -E 's;(<h|</h)5( |>);\16\2;g;
                 s;(<h|</h)4( |>);\16\2;g;
                 s;(<h|</h)3( |>);\16\2;g;
                 s;(<h|</h)2( |>);\16\2;g;
                 s;(<h|</h)1( |>);\15\2;g;
         ';;
      5|[6789])
         sed -E 's;(<h|</h)5( |>);\16\2;g;
                 s;(<h|</h)4( |>);\16\2;g;
                 s;(<h|</h)3( |>);\16\2;g;
                 s;(<h|</h)2( |>);\16\2;g;
                 s;(<h|</h)1( |>);\16\2;g;
         ';;
      *) cat;;
    esac
  printf '</article></div>'
done