File Coverage

blib/lib/Plosurin/Grammar.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

#===============================================================================
#
#  DESCRIPTION:  grammars
#
#       AUTHOR:  Aliaksandr P. Zahatski, <[e-mail]>
#===============================================================================
=head1 NAME

Plosurin::Grammar - Grammars for Closure Templates

=head1 SYNOPSIS

        use Regexp::Grammars;
        use Plosurin::Grammar;

=head1 DESCRIPTION

Plosurin::Grammar - Grammars for Closure Templates

=cut
package Plosurin::Grammar;
use strict;
use warnings;
use v5.10;
use Regexp::Grammars;

=head2 Plosurin::Template::Grammar - template file grammar

    qr{
    my $r = qr{
       <extends: Plosurin::Template::Grammar>
        <matchline>
        \A <File> \Z
    }xms;
    if ( $txt =~ $r) {
        ...
    }

=cut
qr{
        <grammar: Plosurin::Template::Grammar>
        <objrule: Plo::File>
        <namespace>(?{ $MATCH{file} = $file//"linein"})
        <[templates=template]>+ % <_sep=(\s+)> \s+
        <objtoken: Plo::template> <header> <template_block>
        <rule: namespace> \{namespace <id>\} \n+
        <rule: id>  [\.\w]+
        <rule: header>
                <javadoc_start>
                <[h_comment]>+ % (\s+)
                (?: <[h_params]>+ % (\s+) )?
                <javadoc_end>
        <rule: javadoc_start>\/\*\*?
                | \/\*\n<matchline><fatal:(?{say "JavaDoc must start with /**! at $file line $MATCH{matchline} : $CONTEXT" })>
        <rule: javadoc_end> \*\/
#        | <matchline><fatal:(?{say "JavaDoc must end with */!  at $file line $MATCH{matchline} : $CONTEXT" })>
        <rule: h_comment>\* <raw_str>?
        <rule: raw_str> [^@\n]+
        <objrule: Plo::h_params> \* \@param<is_notreq=(\?)>? <id> <raw_str>
        <rule: template_block>
                        <start_template>
                        <raw_template=(.*?)>
#            <raw_template>
                        <stop_template>
        <rule: raw_template>  (!? <stop_template> ) .*?

        <rule: start_template> \{template <name=(\.\w+)>\}
        | <matchline><fatal:(?{say "Bad template definition at $file line $MATCH{matchline} : $CONTEXT" })>
        <rule: stop_template>  \{\/template\}
    }xms;

=head2 Plosurin::Grammar - soy grammar

    qr{
    my $r = qr{
     <extends: Plosurin::Grammar>
    \A  <[content]>* \Z
    }xms;
    if ( $txt =~ $r) {
        ...
    }

=cut

qr{
          <grammar: Plosurin::Grammar>
#    \A  <[content]>* \Z
        <objtoken: Soy::Node=content><matchpos><matchline>
                (?:

                  <obj=raw_text>
                |<obj=command_print>
                |<obj=command_include>
                |<obj=command_if>
                |<obj=command_call_self>
                |<obj=command_call>
                |<obj=command_import>
                |<obj=raw_text_add>

                )
        <objrule: Soy::raw_text=raw_text_add><matchpos>(.+?)
#    <require: (?{ length($CAPTURE) > 0 })>
#        <fatal:(?{say "May be command ? $MATCH{raw_text_add} at $MATCH{matchpos}"})>
        <objrule: Soy::command_print>
                                      \{<is_explicit=(print)>? <variable>\}
        <objrule: Soy::command_include>
                            \{include <[attribute]>{2} % <_sep=(\s+)> \}
                          |\{include <matchpos><fatal:(?{say "'Include' require 2 attrs at $MATCH{matchpos}"})>

        <token: attribute> <name=(\w+)>=['"]<value=(?: ([^'"]+) )>['"]

        <token: variable> \$?\w+
        <objtoken: Soy::expression> .*?

        <objrule:  Soy::raw_text> [^\{]+
        <objrule: Soy::command_if> \{if <expression>\} <[content]>+?
                                                (?:
                                                <[commands_elseif=command_elseif]>*
                                                <command_else>
                                                )?
                                        \{\/if\}
        <objrule: Soy::command_elseif><matchpos><matchline> \{elseif <expression>\} <[content]>+?
        <objrule: Soy::command_else><matchpos><matchline> \{else\} <[content]>+?

        #self-ending call block
        <objrule: Soy::command_call_self> \{call <tmpl_name=([\.\w]+)> <[attribute]>* % <_sep=(\s+)> \/\}
        <objrule: Soy::command_call> \{call <tmpl_name=([\.\w]+)> \}
                                                              <[content=param]>*
                                                                \{\/call\}

        <objtoken: Soy::Node=param>
                <matchpos><matchline>
                (?: <obj=command_param_self> | <obj=command_param> )
        <objrule: Soy::command_param_self> \{param <name=variable> : <value=(.*?)> \/\}
        <objrule: Soy::command_param> \{param <name=(.*?)> \}
                                        <[content]>+?
                                    \{\/param\}
        # {import file="test.pod6" rule=":public"}
        # {import file="test.pod6" }
        <objrule: Soy::command_import> \{import <[attribute]>+ % <_sep=(\s+)> \/?\}

}xms;

1;
__END__

=head1 SEE ALSO

Closure Templates Documentation L<http://code.google.com/closure/templates/docs/overview.html>

Perl 6 implementation L<https://github.com/zag/plosurin>


=head1 AUTHOR

Zahatski Aliaksandr, <[e-mail]>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011 by Zahatski Aliaksandr

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut