File Coverage

blib/lib/Translate/Fluent/Parser.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	7	8	87.5
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	46	47	97.8

package Translate::Fluent::Parser;

use parent qw'Exporter';

our @EXPORT_OK = qw(
  parse_file
  parse_string
);

use Translate::Fluent::ResourceSet;
use Translate::Fluent::Elements;

use Regexp::Grammars;

my $fluent_parser = qr<

  <[Resource]>*


    [\x{20}\t]


     |  |  |


       <.line_end>
    |  <.line_end>


     <.ws>* = <.ws>* (( <[Attribute]>*)|<[Attribute]>+)


    -  <.ws>* = <.ws>*  <[Attribute]>*


    <.ws>*  <.line_end>


    (<.comment_char>)*


     <[next_junk_line]>*


    <.not_new_line> <.line_end>


    <.ws>* <.junk_starter> <.not_new_line> <.line_end>


    [^\n]*


    [^\#\-a-zA-Z\n\s\.]+


    <[PatternElement]>+


     |  |  |



    <.non_special>+


    <.blank_block> <.ws>+  ?


    \{ <.blank>* (  |  ) <.blank>* \}


    <.blank_block> <.ws>+



    |
    |
    |
    |
    |
    |


     <.blank>? \-\> <.blank>?


    <[variant]>*  <[variant]>*


    <.line_end> <.blank>?  <.ws>?


    <.line_end> <.blank>? \*  <.ws>?


    \[ <.blank>? (  |  ) <.blank>? \]


    <.quote>  <.quote>


    <.quoted_char>*


    \-? [0-9]+ (\. [0-9]+)?






    <.blank>? \( <.blank>?  <.blank>? \)


    (<[Argument]> <.blank>? , <.blank>? )* <[Argument]>?


     |


     <.blank>? : <.blank>? (|)


     ?


    \-  ? ?


    \$


    \.


    <.line_end> <.ws>* \. <.ws>* = <.ws>*


    (<.ws>* <.line_end>)+


    [^\"\\] | \\[\"\\] | \\u[0-9a-fA-F]{4} | \\u[0-9a-fA-F]{6}


    [^\n\{\}\[\*\.\s\#]


    [^\n]


    [a-zA-Z][a-zA-Z0-9_-]*


    \#\#\# | \#\# | \#


    [^\n\{\}\"]


    \n | \z


    (<.ws> | <.line_end>)+


    \"

>sx;

sub parse_file {
  my ($fname) = @_;

  local $/ = undef;

  open my $fh, '<', $fname or die "Error opening file '$fname': $!\n";

  my $text = <$fh>;

  return parse_string( $text );

}

sub parse_string {
  my ($str) = @_;

  my $reset = Translate::Fluent::ResourceSet->new();

  if ( $str =~ $fluent_parser ) {
    my %entries;

    for my $elm (@{ $/{Resource} } ) {
      next unless $elm->{Entry};

      my ($type) = keys %{ $elm->{Entry} };

      my $resobj = Translate::Fluent::Elements->create(
          $type => $elm->{Entry}->{ $type }
        );

      $reset->add_resource( $resobj );

    }
  }

  $reset = undef
    unless keys %{ $reset->resources };

  return $reset;
}

1;

__END__