1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#! /usr/bin/env perl
use strict;
use warnings;
no warnings qw(once);
use File::Basename qw(dirname);
use File::Path qw(mkpath);
use Scalar::Util qw(looks_like_number);
use Text::MicroTemplate qw(build_mt render_mt encoded_string);
use Text::MicroTemplate::File;
my $mt = Text::MicroTemplate::File->new(
include_path => [ qw(../srcdoc/snippets .) ],
);
die "Usage: $0 <src-file> <dst-file>\n"
unless @ARGV == 2;
my ($src_file, $dst_file) = @ARGV;
$main::context = {
filename => $dst_file,
code => build_mt(
'<pre><code><?= $_[0] ?></code></pre>',
),
example => build_mt(<<'EOT',
<div class="example">
<div class="caption">Example. <?= encoded_string($_[0]) ?></div>
<pre><code><?= $_[1] ?></code></pre>
</div>
EOT
),
directive => sub {
my %args = @_;
$mt->wrapper_file("directive.mt", \%args);
},
mruby_method => sub {
my %args = @_;
$mt->wrapper_file("mruby_method.mt", \%args);
},
notes => [],
note => sub {
my ($index, $html);
if (looks_like_number($_[0])) {
$index = $_[0] < 0 ? scalar(@{$main::context->{notes}}) + $_[0] : $_[0];
$html = $main::context->{notes}->[$index];
} else {
$index = scalar @{$main::context->{notes}};
$html = $_[0];
push @{$main::context->{notes}}, encoded_string($html);
}
my $alt = $html;
$alt =~ s/<.*?>//g;
return render_mt(
'<sup><a href="#note_<?= $_[0] ?>" id="#cite_<?= $_[0] ?>" title="<?= $_[1] ?>"><?= $_[0] ?></sup></a></sup>',
$index + 1,
$alt,
);
},
};
my $output = $mt->render_file($src_file);
mkpath(dirname($dst_file));
chmod 0666, $dst_file;
open my $dst_fh, '>:utf8', $dst_file
or die "failed to open file:$dst_file:$!";
print $dst_fh $output;
close $dst_fh;
|
