File Coverage

blib/lib/Language/MinCaml.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package Language::MinCaml;
use strict;
our $VERSION = '0.01';

use 5.8.1;
use Language::MinCaml::Code;
use Language::MinCaml::Lexer;
use Language::MinCaml::Parser;
use Language::MinCaml::Type;
use Language::MinCaml::TypeInferrer;
use Language::MinCaml::Evaluator;

sub _interpret {
    my($class, $code) = @_;

    my $lexer = Language::MinCaml::Lexer->new($code);

    my $parser = Language::MinCaml::Parser->new;
    my $root_node = $parser->parse($lexer);

    my $inferrer = Language::MinCaml::TypeInferrer->new;
    $inferrer->infer($root_node,
                     (print_int => Type_Fun([Type_Int()], Type_Unit()),
                      print_float => Type_Fun([Type_Float()], Type_Unit())));

    my $evaluator = Language::MinCaml::Evaluator->new;
    $evaluator->evaluate($root_node,
                         (print_int => sub { print shift; return; },
                          print_float => sub { print shift; return; }));
}

sub interpret_string {
    my($class, $string) = @_;
    $class->_interpret(Language::MinCaml::Code->from_string($string));
}

sub interpret_file {
    my($class, $file_path) = @_;
    $class->_interpret(Language::MinCaml::Code->from_file($file_path));
}

1;
__END__