Commits

Shlomi Fish  committed 7c8ac22

Move away gen-css.pl because it's no longer used.

This way we can get rid of the TTML things.

  • Participants
  • Parent commits f4907bb

Comments (0)

Files changed (3)

 T2_CSS_TARGETS = $(patsubst %,$(T2_DEST)/%,$(GEN_STYLE_CSS_FILES))
 VIPE_CSS_TARGETS = $(patsubst %,$(VIPE_DEST)/%,$(GEN_STYLE_CSS_FILES))
 
-CSS_GEN_SCRIPT = bin/gen-css.pl
-
 css_targets: $(T2_CSS_TARGETS) $(VIPE_CSS_TARGETS) $(T2_DEST)/screenplay.css
 
 SASS_STYLE = compressed

File bin/gen-css.pl

-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-package Template::Preprocessor::TTML;
-
-use warnings;
-use strict;
-
-use base 'Class::Accessor';
-
-use Template;
-use Template::Preprocessor::TTML::CmdLineProc;
-
-__PACKAGE__->mk_accessors(qw(
-    argv
-    opts
-));
-
-=head1 NAME
-
-Template::Preprocessor::TTML - Preprocess files using the Template Toolkit
-from the command line.
-
-=cut
-
-our $VERSION = '0.0101';
-
-=head1 SYNOPSIS
-
-    use Template::Preprocessor::TTML;
-
-    my $obj = Template::Preprocessor::TTML->new(argv => [@ARGV]);
-    $obj->run()
-
-    ...
-
-=head1 FUNCTIONS
-
-=cut
-
-=head2 run
-
-Performs the processing.
-
-=cut
-
-sub _calc_opts
-{
-    my $self = shift;
-    my $cmd_line = Template::Preprocessor::TTML::CmdLineProc->new(argv => $self->argv());
-    $self->opts($cmd_line->get_result());
-}
-
-sub _get_output
-{
-    my $self = shift;
-    if ($self->opts()->output_to_stdout())
-    {
-        return ();
-    }
-    else
-    {
-        return ($self->opts()->output_filename());
-    }
-}
-
-sub _get_mode_callbacks
-{
-    return {
-        'regular' => "_mode_regular",
-        'help' => "_mode_help",
-        'version' => "_mode_version",
-    };
-}
-
-sub _mode_version
-{
-    print <<"EOF";
-This is TTML version $VERSION
-TTML is a Command Line Preprocessor based on the Template Toolkit
-(http://www.template-toolkit.org/)
-
-More information about TTML can be found at:
-
-http://search.cpan.org/dist/Template-Preprocessor-TTML/
-EOF
-}
-
-sub _get_help_text
-{
-    return <<"EOF";
-ttml - A Template Toolkit Based Preprocessor
-Usage: ttml [-o OUTPUTFILE] [OPTIONS] INPUTFILE
-
-Options:
-    -o OUTPUTFILE - Output to file instead of stdout.
-    -I PATH, --include=PATH - Append PATH to the include path
-    -DVAR=VALUE, --define=VAR=VALUE - Define a pre-defined variable.
-    --includefile=FILE - Include FILE at the top.
-
-    -V, --version - display the version number.
-    -h, --help - display this help listing.
-EOF
-}
-
-sub _mode_help
-{
-    my $self = shift;
-
-    print $self->_get_help_text();
-
-    return 0;
-}
-
-sub run
-{
-    my $self = shift;
-    $self->_calc_opts();
-
-    return $self->can(
-        $self->_get_mode_callbacks()->{$self->opts()->run_mode()}
-    )->($self);
-}
-
-sub _mode_regular
-{
-    my $self = shift;
-    my $config =
-    {
-        INCLUDE_PATH => [ @{$self->opts()->include_path()}, ".", ],
-        EVAL_PERL => 1,
-        PRE_PROCESS => $self->opts()->include_files(),
-    };
-    my $template = Template->new($config);
-
-    if (!
-        $template->process(
-            $self->opts()->input_filename(),
-            $self->opts()->defines(),
-            $self->_get_output(),
-        )
-    )
-    {
-        die $template->error();
-    }
-}
-
-1;
-
-package main;
-
-Template::Preprocessor::TTML->new({'argv' => [@ARGV]})->run();
-
-

File lib/rejects/bin/gen-css.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+package Template::Preprocessor::TTML;
+
+use warnings;
+use strict;
+
+use base 'Class::Accessor';
+
+use Template;
+use Template::Preprocessor::TTML::CmdLineProc;
+
+__PACKAGE__->mk_accessors(qw(
+    argv
+    opts
+));
+
+=head1 NAME
+
+Template::Preprocessor::TTML - Preprocess files using the Template Toolkit
+from the command line.
+
+=cut
+
+our $VERSION = '0.0101';
+
+=head1 SYNOPSIS
+
+    use Template::Preprocessor::TTML;
+
+    my $obj = Template::Preprocessor::TTML->new(argv => [@ARGV]);
+    $obj->run()
+
+    ...
+
+=head1 FUNCTIONS
+
+=cut
+
+=head2 run
+
+Performs the processing.
+
+=cut
+
+sub _calc_opts
+{
+    my $self = shift;
+    my $cmd_line = Template::Preprocessor::TTML::CmdLineProc->new(argv => $self->argv());
+    $self->opts($cmd_line->get_result());
+}
+
+sub _get_output
+{
+    my $self = shift;
+    if ($self->opts()->output_to_stdout())
+    {
+        return ();
+    }
+    else
+    {
+        return ($self->opts()->output_filename());
+    }
+}
+
+sub _get_mode_callbacks
+{
+    return {
+        'regular' => "_mode_regular",
+        'help' => "_mode_help",
+        'version' => "_mode_version",
+    };
+}
+
+sub _mode_version
+{
+    print <<"EOF";
+This is TTML version $VERSION
+TTML is a Command Line Preprocessor based on the Template Toolkit
+(http://www.template-toolkit.org/)
+
+More information about TTML can be found at:
+
+http://search.cpan.org/dist/Template-Preprocessor-TTML/
+EOF
+}
+
+sub _get_help_text
+{
+    return <<"EOF";
+ttml - A Template Toolkit Based Preprocessor
+Usage: ttml [-o OUTPUTFILE] [OPTIONS] INPUTFILE
+
+Options:
+    -o OUTPUTFILE - Output to file instead of stdout.
+    -I PATH, --include=PATH - Append PATH to the include path
+    -DVAR=VALUE, --define=VAR=VALUE - Define a pre-defined variable.
+    --includefile=FILE - Include FILE at the top.
+
+    -V, --version - display the version number.
+    -h, --help - display this help listing.
+EOF
+}
+
+sub _mode_help
+{
+    my $self = shift;
+
+    print $self->_get_help_text();
+
+    return 0;
+}
+
+sub run
+{
+    my $self = shift;
+    $self->_calc_opts();
+
+    return $self->can(
+        $self->_get_mode_callbacks()->{$self->opts()->run_mode()}
+    )->($self);
+}
+
+sub _mode_regular
+{
+    my $self = shift;
+    my $config =
+    {
+        INCLUDE_PATH => [ @{$self->opts()->include_path()}, ".", ],
+        EVAL_PERL => 1,
+        PRE_PROCESS => $self->opts()->include_files(),
+    };
+    my $template = Template->new($config);
+
+    if (!
+        $template->process(
+            $self->opts()->input_filename(),
+            $self->opts()->defines(),
+            $self->_get_output(),
+        )
+    )
+    {
+        die $template->error();
+    }
+}
+
+1;
+
+package main;
+
+Template::Preprocessor::TTML->new({'argv' => [@ARGV]})->run();
+
+