diff options
Diffstat (limited to 'debian/vendor-h2o/misc/makedoc.pl')
-rwxr-xr-x | debian/vendor-h2o/misc/makedoc.pl | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/debian/vendor-h2o/misc/makedoc.pl b/debian/vendor-h2o/misc/makedoc.pl deleted file mode 100755 index b025536..0000000 --- a/debian/vendor-h2o/misc/makedoc.pl +++ /dev/null @@ -1,69 +0,0 @@ -#! /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; |