#!/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"

<option value='koszko' selected='selected'>koszko</option>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>refs</a><a class='active' href='/guix/log/gnu/home/services.scm'>log</a><a href='/guix/tree/gnu/home/services.scm?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>tree</a><a href='/guix/commit/gnu/home/services.scm?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>commit</a><a href='/guix/diff/gnu/home/services.scm?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/home/services.scm'>
<input type='hidden' name='id' value='82174b2742c2a59fd7959ba9acc80edd6f93d9f7'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>root</a>/<a href='/guix/log/gnu?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>gnu</a>/<a href='/guix/log/gnu/home?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>home</a>/<a href='/guix/log/gnu/home/services.scm?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7'>services.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/home/services.scm?id=82174b2742c2a59fd7959ba9acc80edd6f93d9f7&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-01-28 22:50:48 +0100'>2024-01-28</span></td><td><a href='/guix/commit/gnu/home/services.scm?id=68b2a19c20170ace0a2cdf7f93cff747638d3516'>home: services: Add missing import.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-27 16:51:58 +0200'>2023-10-27</span></td><td><a href='/guix/commit/gnu/home/services.scm?id=2de30042674197fe451c220745186e36465d06e2'>home: services: Fix regression in generated ‘on-first-login’ script.</a><span class='msg-avail'>...</span></td><td>Rostislav Svoboda</td></tr>
<tr><td><span title='2023-10-21 16:00:14 +0200'>2023-10-21</span></td><td><a href='/guix/commit/gnu/home/services.scm?id=e098ba2f499bbddfea50c85058e4077e39b85513'>home: services: Fix regression in generated ‘on-first-login’ script.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-20 00:33:27 +0200'>2023-10-20</span></td><td><a href='/guix/commit/gnu/home/services.scm?id=6b0a32196982a0a2f4dbb59d35e55833a5545ac6'>home: services: Fix race condition when detecting first login.</a><span class='msg-avail'>...</span></td><td>Carlo Zancanaro</td></tr>
<tr><td><span title='2023-08-20 22:48:47 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/home/services.scm?id=161d010d40aa31f59b2ad3ecca12efda7c70366d'>home: services: Support mapping of System services to Home services.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>