:
$quest_count = 0;
$nr_question = 0;
:>
>
>
$(qprefix)
%body
$(qpostfix)
<:
$mytop = 0;
$numid = 0;
if (open (F, $WML_SRC_FILENAME)) {
while () {
if (m,[<]question id="?([^"]+)"? q="(.*)">,) {
if (exists $ids{$1}) {
print "m4_changequote({, })\n";
printf "m4_errprint({Warning: FAQ id %s already assigned.\n})\n", $1;
print "m4_changequote()\n";
}
$ids{$1} = 1;
$mytop++;
printf "- %s\n", $1, $2;
} elsif (m,[<]question q="(.*)">,) {
$mytop++;
$numid++;
printf "
- %s\n", $numid, $1;
}
}
close (F);
}
:>
# Local variables:
# mode: indented-text
# mode: auto-fill
# end: