]> git.plutz.net Git - shellwiki/blob - macros/include
updated copyright notice
[shellwiki] / macros / include
1 #!/bin/sh
2
3 # Copyright 2022 - 2023 Paul Hänsch
4
5 # Permission to use, copy, modify, and/or distribute this software for any
6 # purpose with or without fee is hereby granted, provided that the above
7 # copyright notice and this permission notice appear in all copies.
8
9 # THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
10 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
12 # SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
15 # IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16
17 . "$_EXEC/cgilite/cgilite.sh"
18 . "$_EXEC/acl.sh"
19 . "$_EXEC/tools.sh"
20
21 from='1'; to='$'; rev=''; items='$'; hl=0; link='true'; depth=0; tags=''; page='';
22
23 set -- "$@" --
24 while [ $# -gt 0 ]; do case $1 in
25   --from) from="$2"; shift 2;;
26   from=*) from="${1#*=}"; shift 1;;
27   --to) to="$2"; shift 2;;
28   to=*) to="${1#*=}"; shift 1;;
29   --items) items="$2"; shift 2;;
30   items=*) items="${1#*=}"; shift 1;;
31   --rev|--reverse) rev="-r"; shift 1;;
32   --nolink) link=""; shift 1;;
33   --hl|-hl) hl=$2; shift 2;;
34   --depth) depth=$2; shift 2;;
35   \#*) tags="${tags}${tags:+ }${1}"; shift 1;;
36   --) shift 1; break;;
37   *) set -- "$@" "$1"; shift 1;;
38 esac; done
39
40 if ! printf %s\\n "$from" |grep -qEx '[0-9]+|/([^/\\]|\\/|\\.)*/'; then
41   debug 'Include macro invalid argument: "from"'
42   exit 1
43 fi
44 if ! printf %s\\n "$to" |grep -qEx '\$|[0-9]+|/([^/\\]|\\/|\\.)*/'; then
45   debug 'Include macro Invalid argument: "to"'
46   exit 1
47 fi
48 if ! printf %s\\n "$items" |grep -qEx '\$|[0-9]+'; then
49   debug 'Include macro Invalid argument: "items"'
50   exit 1
51 fi
52
53 for page in "$@"; do
54   page_glob "$page" "$depth"
55 done \
56 | sort $rev \
57 | sed "${items}q" \
58 | while read glob; do
59   page="$(page_abs "$glob")"
60   mdfile="$(mdfile "$page")" || continue
61   acl_read "$page" || continue
62   has_tags "$page" $tags || continue
63   printf %s\\n "$INCLUDE_LIST" |grep -qxF "$page" && continue
64   export INCLUDE_LIST="${INCLUDE_LIST}${INCLUDE_LIST:+${BR}}$page"
65   hglob="$(HTML "$glob")"
66   refpfx="$(printf %s\\n "$hglob" |sed 's;[\;&\;];\\&;g')"
67   [ "$link" ] \
68   && printf '<div class="macro include">
69                <a class="include link" href="%s">%s</a>
70                <article class="include" id="include_%s">' \
71             "${hglob}" "${hglob}" "${hglob}" \
72   || printf '<div class="macro include">
73                <article class="include" id="include_%s">' \
74             "${hglob}"
75   ( # PATH_INFO may be used by macros in the included page
76     export PATH_INFO="$page"
77     cd -- "${mdfile%/*}/"
78     sed -n "${from},${to}p" <"$mdfile" \
79     | md \
80     | grep -vx ''
81   ) | sed -E '
82     s;(<[^>]+ )(href|src)="([^"]+://[^"]*|[mM][aA][iI][lL][tT][oO]:[^"]*)"([^>]*>);\1\2="/#safe/\3"\4;g
83     s;(<[^>]+ )(href|src)="([^#/"][^"]*)"([^>]*>);\1\2="'"${refpfx}"'\3"\4;g
84     s;(<[^>]+ )(href|src)="/#safe/([^"]*)"([^>]*>);\1\2="\3"\4;g
85   ' | case $hl in
86       1) sed -E 's;(<h|</h)5( |>);\16\2;g;
87                  s;(<h|</h)4( |>);\15\2;g;
88                  s;(<h|</h)3( |>);\14\2;g;
89                  s;(<h|</h)2( |>);\13\2;g;
90                  s;(<h|</h)1( |>);\12\2;g;
91          ';;
92       2) sed -E 's;(<h|</h)5( |>);\16\2;g;
93                  s;(<h|</h)4( |>);\16\2;g;
94                  s;(<h|</h)3( |>);\15\2;g;
95                  s;(<h|</h)2( |>);\14\2;g;
96                  s;(<h|</h)1( |>);\13\2;g;
97          ';;
98       3) sed -E 's;(<h|</h)5( |>);\16\2;g;
99                  s;(<h|</h)4( |>);\16\2;g;
100                  s;(<h|</h)3( |>);\16\2;g;
101                  s;(<h|</h)2( |>);\15\2;g;
102                  s;(<h|</h)1( |>);\14\2;g;
103          ';;
104       4) sed -E 's;(<h|</h)5( |>);\16\2;g;
105                  s;(<h|</h)4( |>);\16\2;g;
106                  s;(<h|</h)3( |>);\16\2;g;
107                  s;(<h|</h)2( |>);\16\2;g;
108                  s;(<h|</h)1( |>);\15\2;g;
109          ';;
110       5|[6789])
111          sed -E 's;(<h|</h)5( |>);\16\2;g;
112                  s;(<h|</h)4( |>);\16\2;g;
113                  s;(<h|</h)3( |>);\16\2;g;
114                  s;(<h|</h)2( |>);\16\2;g;
115                  s;(<h|</h)1( |>);\16\2;g;
116          ';;
117       *) cat;;
118     esac
119   printf '</article></div>'
120 done