File Coverage

lib/Language/P.pm

Criterion	Covered	Total	%
statement	28	44	63.6
branch	2	8	25.0
condition			n/a
subroutine	7	8	87.5
pod	1	4	25.0
total	38	64	59.3

package Language::P;

=head1 NAME

Language::P - parsing/compiling Perl5 code using Perl5

=head1 SYNOPSYS

  my $p = Language::P->new_from_argv
              ( \@ARGV,
                { runtime   => $runtime,
                  generator => $generator,
                  } );

  $p->run;

=head1 DESCRIPTION

An experiment: a Perl 5 parser written in Perl 5, which might in time
have multiple backends.  For now it only has a partial parser
implementation and a toy runtime written in Perl 5.

Time permitting it will acquire a Parrot (and Java and .Net and ... runtime).

=head1 METHODS

=cut

use strict;
use warnings;
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_ro_accessors( qw(runtime parser generator) );
__PACKAGE__->mk_accessors( qw(program program_arguments) );

our $VERSION = '0.01_03';

use Language::P::Parser;

=head2 new_from_argv

  $p = Language::P->new_from_argv( \@ARGV,
                                   { generator => $code_generator,
                                     runtime   => $runtime,
                                     } );

Constructs a C object, initializes it calling
C passing the second argument, processes command-line
arguments ten uses anything remaining in the command line as a program
name and its arguments.

=cut

sub new_from_argv {
    my( $class, $argv, $args ) = @_;
    my $self = $class->SUPER::new;

    $self->initialize( $args );

    if( @$argv ) {
        if( $argv->[0] =~ /^-/ ) {
            $argv = $self->process_command_line( $argv );
        }

        $self->program( $argv->[0] );
        $self->program_arguments( [ @$argv[1 .. $#$argv] ] );
    }

    return $self;
}

sub initialize {
    my( $self, $args ) = @_;

    my $parser = Language::P::Parser->new( { generator => $args->{generator},
                                             runtime   => $args->{runtime},
                                             } );

    $self->{runtime} = $args->{runtime};
    $self->{generator} = $args->{generator};
    $self->{parser} = $parser;
}

sub process_command_line {
    my( $self, $argv ) = @_;
    my @remaining;

    for( my $i = 0; $i <= $#$argv; ++$i ) {
        my $arg = $argv->[$i];

        $arg eq '--' and do {
            push @remaining, @{$argv}[$i + 1 .. $#$argv];
            last;
        };
        $arg =~ /^-f(\S+)/ and do {
            $self->parser->set_option( $1 );
            $self->generator->set_option( $1 );
            $self->runtime->set_option( $1 );
            next;
        };

        # pass through
        push @remaining, $arg;
    }

    return \@remaining;
}

sub run {
    my( $self ) = @_;

    my $code = $self->parser->parse_file( $self->program );
    $self->runtime->run_last_file( $code );
}

=head1 AUTHOR

Mattia Barbon

=head1 LICENSE

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

=head1 SOURCES

The latest sources can be found on GitHub at
L

=cut

1;