\n";
printf " Section code\n", color_sec;
printf " Location of occurrence in text\n", color_loc_use;
printf " Location of occurrence as label\n", color_loc_def;
printf " Labelword occurrence in majority version (%s)\n",
color_word_maj, vtag_maj;
printf " Labelword occurrence in minority versions\n", color_word_ord;
printf " Context of label in occurrence\n", color_ctx;
printf " Comments on the text unit\n", color_cmt;
printf "\n";
printf "\n";
printf "\n";
}
function print_word_header(word, llen,rlen)
{
llen = maxlen_left - 1;
rlen = 110 - maxlen_left - length(word) - 1;
printf "\n%.*s ", word, color_dsh, llen, dashes;
printf "%s", color_hdr, word;
printf " %.*s\n\n", rlen, dashes;
}
function print_html_tailer()
{
printf "\n";
printf "\n";
printf "\n";
}
function print_entry(stag,loc,vtag,lctx,word,rctx,ucmt,def, n,clab,cloc,xl,xw,xr,xx,lc,st,uc)
{
# Truncate context strings:
n = length(lctx);
if (n > maxlen_left) { lctx = substr(lctx, 1+(n-maxlen_left)); }
n = length(rctx);
if (n > maxlen_rite) { rctx = substr(rctx, 1, maxlen_rite); }
# Select color {clab} to use for word occurrence:
clab = ( (vtag_maj=="") || (index(vtag, vtag_maj) > 0) ? color_word_maj : color_word_ord );
# Select color {cloc} to use for locator+version:
cloc = ( def=="+" ? color_loc_def : color_loc_use );
# Format fields with their colors and styles:
xl = sprintf("%*s%s", maxlen_left - length(lctx), "", color_ctx, lctx);
xw = sprintf("%s", clab, word);
xr = sprintf("%s%*s", color_ctx, rctx, maxlen_rite - length(rctx), "");
xx = sprintf("%s%*s", (xl xw xr), maxlen_word - length(word), "");
lc = sprintf("%-12s %-6s", cloc, loc, vtag);
st = sprintf("%-3s", color_sec, stag);
uc = sprintf("%s", color_cmt, ucmt);
# Print line:
printf "%s %s %s %s\n", xx, lc, st, uc;
}
function data_error(msg)
{
printf "%s:%d: ** %s\n", FILENAME, FNR, msg > "/dev/stderr";
abort = 1;
exit 1;
}
function arg_error(msg)
{
printf "%s\n", msg > "/dev/stderr";
abort = 1;
exit 1;
}