Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: f226bf64d4
Fetching contributors…

Cannot retrieve contributors at this time

67 lines (50 sloc) 1.79 kB
class NieczaCompiler;
has $.module_finder;
has $.backend;
has $.stages;
has $.frontend;
has $.verbose;
has $!main-sn = 0;
has $!discount-time = 0;
has %.units;
method !compile(:$unitname, :$filename, :$source, :$main, :$run, :$evalmode, :$outer, :$outer_frame, :$repl) {
# FIXME this is a bit of a fudge
$unitname := 'CORE' if $!frontend.lang eq 'NULL';
# send information to NieczaGrammar for creating the root sub
my $*niecza_outer_ref = $outer;
my $*niecza_outer_frame = $outer_frame;
# useful references
my $*compiler = self;
my $*verbose = $.verbose;
my $*backend = $.backend;
my $*run_mode = $run;
# tells parser not to exit when parse fails
my $*in_repl = $repl;
my @*INC;
my $start = times[0] - $!discount-time;
my $ast = $!frontend.parse(:$unitname, :$filename,
:$source, :$outer, :$main, :$run, :$evalmode, :$repl);
my $time = times[0] - $!discount-time - $start;
if $.verbose {
say "$unitname: took $time";
}
# don't count this time towards any other timing in progress
$!discount-time += $time;
$ast;
}
method compile_module($unitname) {
my ($filename, $source) = $.module_finder.load_module($unitname);
self!compile(:$unitname, :$filename, :$source);
}
method !main_name() {
my $i = $!main-sn++;
$i ?? "MAIN_$i" !! "MAIN";
}
method compile_file($file, $run) {
my ($filename, $source) = $.module_finder.load_file($file);
self!compile(unitname => self!main_name, :$filename, :$source, :main, :$run);
}
method compile_string($source, $run, :$evalmode = False, :$outer, :$repl, :$outer_frame) {
self!compile(unitname => self!main_name, filename => "(eval)", :$source,
:main, :$run, :$evalmode, :$outer, :$outer_frame, :$repl);
}
Jump to Line
Something went wrong with that request. Please try again.