aboutsummaryrefslogtreecommitdiff
path: root/src/templates/fillTemplates.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/templates/fillTemplates.pl')
-rwxr-xr-xsrc/templates/fillTemplates.pl131
1 files changed, 0 insertions, 131 deletions
diff --git a/src/templates/fillTemplates.pl b/src/templates/fillTemplates.pl
deleted file mode 100755
index 85e6eaa18..000000000
--- a/src/templates/fillTemplates.pl
+++ /dev/null
@@ -1,131 +0,0 @@
-#!/usr/bin/env perl
-# Fills templates with haskell-escaped strings slurped from input files.
-# Takes two arguments, the first specifying the pathname of the target
-# relative to the root directory, the second specifying the root directory
-# (defaulting to ..). The template is assumed to have the same base name
-# as the target and to reside in the templates subdirectory of the root
-# directory.
-
-use strict;
-use warnings;
-
-# Utility routines:
-
-sub slurp {
- open FILE, $_[0] or die "couldn't open file '$_[0]': $!";
- my $contents = do { local $/; <FILE>;};
- close FILE;
- return $contents;
-}
-
-sub escape_for_haskell {
- my ($contents) = @_;
-
- $contents =~ s/\\/\\\\/g;
- $contents =~ s/\t/\\t/g;
- $contents =~ s/"/\\"/g;
- $contents =~ s/\n/\\n/g;
- return $contents;
-}
-
-# Template processors.
-
-my %processor = (
- # --------------------------------------------------------------------------
- 'Text/Pandoc/Writers/S5.hs' => {
- # --------------------------------------------------------------------------
- proc => sub {
- my ($template) = @_;
-
- my (@files) = qw(slides.js s5-core.css framing.css pretty.css
- opera.css outline.css print.css);
-
- foreach my $file (@files) {
- my $replacement = escape_for_haskell(slurp "ui/default/$file");
- my $escapedfile = $file;
- $escapedfile =~ s/\./\\./g;
- $template =~ s/\@$escapedfile\@/$replacement/;
- }
- return $template;
- },
- },
- # --------------------------------------------------------------------------
- 'Text/Pandoc/ASCIIMathML.hs' => {
- # --------------------------------------------------------------------------
- proc => sub {
- my ($template) = @_;
-
- my $script = escape_for_haskell(slurp "ASCIIMathML.js");
- my $acknowledgements =
- " ASCIIMathML.js - copyright Peter Jipsen,".
- " released under the GPL\\nSee ".
- "http://www1.chapman.edu/~jipsen/mathml/asciimath.html/ ";
- $script =~ s/\/\*.*?\*\//\/\*$acknowledgements\*\//g; # strip comments
- $template =~ s/\@ASCIIMathML\.js@/$script/;
-
- return $template;
- },
- },
- # --------------------------------------------------------------------------
- 'Text/Pandoc/Writers/DefaultHeaders.hs' => {
- # --------------------------------------------------------------------------
- proc => sub {
- my ($template) = @_;
-
- my (@headers) = split(/\s/,`ls headers`);
- foreach my $header (@headers) {
- my ($replacement) = escape_for_haskell(slurp "headers/$header");
- $template =~ s/\@$header\@/$replacement/;
- }
-
- return $template;
- },
- },
- # --------------------------------------------------------------------------
- # 'foo/bar/baz' => {
- # --------------------------------------------------------------------------
- # template => 'optional-template-filename-defaults-to-baz'
- # proc => sub {
- # my ($template) = @_;
- # # Process.
- # return $template;
- # },
- #},
-);
-
-# Main.
-
-my $target = shift @ARGV;
-if (!defined $target || !length $target) {
- print STDERR "Available targets:\n\n" . join "\n", keys %processor;
- die "\n\nYou must supply a target!\n";
-}
-
-die "No processor exists for '$target'!\n" if ! exists $processor{$target};
-
-my $rootdir = shift @ARGV || '..';
-chdir $rootdir or die "Couldn't chdir to '$rootdir': $!";
-
-my $template;
-if (exists $processor{$target}->{template}) {
- $template = $processor{$target}->{template};
-}
-else {
- ($template = $target) =~ s!.*/+!!;
-}
-$template = "templates/$template";
-die "No template exists for '$target'!\n" if ! -f "$template";
-
-open OUTFILE, ">$target" or die "couldn't open file '$target': $!";
-print OUTFILE <<END;
-----------------------------------------------------
--- Do not edit this file by hand. Edit
--- '$template'
--- and run $0 $target
-----------------------------------------------------
-
-END
-
-print OUTFILE $processor{$target}->{proc}->(slurp($template));
-print OUTFILE "\n";
-close OUTFILE;