Haketilo

. ./shell_utils.sh

    ./process_html_file.sh html/display-panel.html |

	sed "s^_POPUPSCRIPTS_^$POPUPSCRIPTS^" \

	    > $BUILDDIR/html/display-panel.html

    ./process_html_file.sh html/options.html |

	sed "s^_OPTIONSSCRIPTS_^$OPTIONSSCRIPTS^" \

	    > $BUILDDIR/html/options.html

Files: *.sh

#!/bin/sh

# Copyright (C) 2021 Wojtek Kosior

# Redistribution terms are gathered in the `copyright' file.

# Call like:

#     ./process_html_file.sh html/options.html

. ./shell_utils.sh

FILE="$1"

FILEKEY=$(sanitize "$FILE")

if [ "x$(map_get HTML_FILENAMES $FILEKEY)" = "xyes" ]; then

    errcho "import loop on $FILE"

    exit 1

fi

map_set_export HTML_FILENAMES $FILEKEY yes

awk '\

!/^[\t\r ]*<IMPORT[\t\r ]+([^\t\r ]+)[\t\r ]+\/>[\t\r ]*$/{

	print $0;

}

/^[\t\r ]*<IMPORT[\t\r ]+([^\t\r ]+)[\t\r ]+\/>[\t\r ]*$/{

    indent = substr($0, 1, index($0, "<") - 1);

    command = "./process_html_file.sh " $2;

    while (command | getline) {

        print indent $0;

    }

    if (close(command) != 0)

        exit 1;

}' < "$FILE"

# Copyright (C) 2021 Wojtek Kosior

# Redistribution terms are gathered in the `copyright' file.

# This file is meant to be sourced in sh.

ENDL="

"

errcho() {

    echo "$@" >&2

}

map_set_instr() {

    echo "$1__$2='$3'"

}

map_set() {

    eval "$(map_set_instr "$@")"

}

map_set_export() {

    eval "export $(map_set_instr "$@")"

}

map_get() {

    eval "echo \"\$$1__$2\""

}

map_del_instr() {

    echo "unset $1__$2"

}

map_del() {

    eval "$(map_del_instr "$@")"

}

sanitize() {

    echo "$1" | tr /.- _

}