57 lines
1.3 KiB
Plaintext
57 lines
1.3 KiB
Plaintext
#include "common.wml"
|
|
|
|
<define-tag doctitle endtag=required>
|
|
{#TITLE#: %body :##} <H1>%body</H1>
|
|
</define-tag>
|
|
<:
|
|
@sectcounter = (0,0,0,0,0);
|
|
sub sectcounter_reset {
|
|
my $level = $_[0];
|
|
while ($level <= $#sectcounter) {
|
|
$sectcounter[$level++] = 0;
|
|
}
|
|
}
|
|
sub sectnum {
|
|
my $level = $_[0];
|
|
my $rv = "";
|
|
while ($level >= 0) {
|
|
$rv = "$sectcounter[$level--]." . $rv;
|
|
}
|
|
return $rv;
|
|
}
|
|
:>
|
|
<define-tag section endtag=required>
|
|
<: $sectcounter[%0]++; sectcounter_reset(%0+1);
|
|
$num = sectnum(%0); :>
|
|
{#MYTOC#: <a href="#SEC<:= $num :>"><:= $num :> %body</a><br> :##}
|
|
<h<:= %0 + 2 :>><a name="SEC<:= $num :>"><:= $num :> %body</a></h<:= %0 + 1 :>>
|
|
<if <string-neq "%1" ""> <group
|
|
{#REF%1#:<a href="#SEC<:= $num :>"><perl>print $num;</perl></a>:##}
|
|
/> />
|
|
</define-tag>
|
|
<define-tag ref>{#REF%0#}</define-tag>
|
|
<define-tag s1 endtag=required>
|
|
<section 0 %0>%body</section>
|
|
</define-tag>
|
|
<define-tag s2 endtag=required>
|
|
<section 1 %0>%body</section>
|
|
</define-tag>
|
|
<define-tag s3 endtag=required>
|
|
<section 2 %0>%body</section>
|
|
</define-tag>
|
|
<define-tag s4 endtag=required>
|
|
<section 3 %0>%body</section>
|
|
</define-tag>
|
|
<define-tag s5 endtag=required>
|
|
<section 4 %0>%body</section>
|
|
</define-tag>
|
|
|
|
<html>
|
|
<head>
|
|
<title>{#TITLE#}</title>
|
|
<style type="text/css">
|
|
#include "art.css"
|
|
</style>
|
|
</head>
|
|
|