Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 2eb2f979b2
Fetching contributors…

Cannot retrieve contributors at this time

337 lines (227 sloc) 7.974 kb
#! nqp
# Copyright (C) 2001-2009, Parrot Foundation.
# XXX Better to put this into docs/ somewhere.
=begin
=head1 NAME
Ops::File - Ops To C Code Generation
=head1 SYNOPSIS
use Ops::File;
=head1 DESCRIPTION
C<Ops::File> takes one or more files of op functions and
creates real C code for them.
This class is used by F<tools/build/ops2c.pl>.
=head2 Op Functions
For ops that have trivial bodies (such as just a call to some other
function and a C<return> statement), opcode functions are in the format:
inline op opname (args) :flags {
... body of function ...
}
Note that currently the C<inline> op type is ignored.
Alternately, for opcode functions that have more internal complexity the
format is:
op opname (args) :flags {
... body of function ...
}
There may be more than one C<return>.
In both cases the closing brace B<must> be on its own line.
When specifying multiple flags, each flag gets its own prefixing colon.
=head2 Op Arguments
Op arguments are a comma-separated list of direction and type pairs.
Argument direction is one of:
in the argument passes a value into the op
out the argument passes a value out of the op
inout the argument passes a value into and out of the op
inconst the argument passes a constant value into the op
invar the argument passes a variable value into the op
Argument direction is used to determine the life times of symbols and
their related register allocations. When an argument is passed into an
op a register is read from, when it's passed out of an op a register is
written to.
Argument type is one of:
INT the argument is an integer
NUM the argument is an numeric
STR the argument is an string
PMC the argument is an PMC
KEY the argument is an aggregate PMC key
INTKEY the argument is an aggregate PMC integer key
LABEL the argument is an integer branch offset or address
The size of the return offset is determined from the op function's
signature.
=head2 Op Flags
The flags are of two types:
=over 4
=item 1 class
The classification of ops is intended to facilitate the selection of
suitable ops for a Parrot safe mode.
=item 2 behavior
The presence (or absence) of certain flags will change how the op behaves. For
example, the lack of the C<flow> flag will cause the op to be implicitly
terminated with C<goto NEXT()>. (See next section).
The :deprecated flag will generate a diagnostic to standard error at
runtime when a deprecated opcode is invoked and
C<PARROT_WARNINGS_DEPRECATED_FLAG> has been set.
=back
=head2 Op Body (Macro Substitutions)
In the following macro descriptions, C<PC> and C<PC'> are the current
and next position within the Parrot code.
=over 4
=item C<goto OFFSET(X)>
Transforms to C<PC' = PC + X>. This is used for branches.
=item C<goto NEXT()>
Transforms to C<PC' = PC + S>, where C<S> is the size of an op.
=item C<goto ADDRESS(X)>
Transforms to C<PC' = X>. This is used for absolute jumps.
=item C<expr OFFSET(X)>
Transforms to C<PC + X>. This is used to give a relative address.
=item C<expr NEXT()>
Transforms to C<PC + S>, the position of the next op.
=item C<expr ADDRESS(X)>
Transforms to C<X>, an absolute address.
=item C<OP_SIZE>
Transforms to C<S>, the size of an op.
=item C<HALT()>
Transforms to C<PC' = 0>. Halts run loop, and resets the current
position to the start of the Parrot code, without resuming.
=item C<restart OFFSET(X)>
Transforms to C<PC' = 0> and restarts at C<PC + X>.
=item C<restart NEXT()>
Transforms to C<PC' = 0> and restarts at C<PC + S>.
=item C<$n>
Transforms to the op function's nth argument. C<$0> is the opcode itself.
=back
Note that, for ease of parsing, if the argument to one of the above
notations in a ops file contains parentheses, then double the enclosing
parentheses and add a space around the argument, like so:
goto OFFSET(( (void*)interp->happy_place ))
=head2 Class Methods
=over 4
=end
class Ops::File is Hash;
pir::load_bytecode('config.pbc');
=begin
=item C<new(@files)>
Returns a new instance initialized by calling C<read_ops()> on each of
the specified op files.
=item C<new_str($str)>
Returns a new instance initialized by compiling C<$str> as the contents of an
ops file.
=end
method new(*@files, :$oplib, :$core!, :$nolines, :$quiet? = 0) {
self<files> := @files;
self<core> := $core;
self<ops> := list(); # Ops
self<preamble>:= '';
self<compiler>:= pir::compreg__Ps('Ops');
self<op_order>:= 0;
self<quiet> := $quiet;
if $core {
self<oplib> := $oplib;
self<compiler>.set_oplib($oplib);
}
else {
self<file> := @files[0];
}
self._set_version();
for @files { self.read_ops( $_, $nolines ) }
self._calculate_op_codes();
self;
}
method new_str($str, :$oplib) {
self<ops> := list(); # Ops
self<preamble> := '';
self<compiler> := pir::compreg__Ps('Ops');
self<oplib> := $oplib;
self<compiler>.set_oplib($oplib);
self._set_version();
self._set_version();
self.compile_ops($str);
self;
}
=begin
=back
=head2 Instance Methods
=over 4
=item C<read_ops($file,$nolines)>
Reads in the specified .ops file, gathering information about the ops.
=end
method read_ops($file, $nolines) {
$Ops::Compiler::Actions::OPLIB := self<oplib>;
self<quiet> || say("# Parsing $file...");
my $start_time := pir::time__N();
my $buffer := slurp($file);
my $start_ops := +self<ops>;
self.compile_ops($buffer, :experimental( $file ~~ /experimental\.ops/));
my $end_ops := +self<ops>;
pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
self<quiet> || say("# Parsed $file in $time seconds; found "~
($end_ops - $start_ops) ~" ops.");
}
method compile_ops($str, :$experimental? = 0) {
my $compiler := self<compiler>;
my $past := $compiler.compile($str, :target('past'));
for @($past<ops>) {
$_<experimental> := $experimental;
self<ops>.push($_);
#say($_.full_name ~ " is number " ~ self<op_order>);
self<op_order>++;
}
for @( $past<preamble> ) {
self<preamble> := self<preamble> ~ $_;
}
$past;
}
method get_parse_tree($str) {
my $compiler := pir::compreg__Ps('Ops');
$compiler.compile($str, :target('parse'));
}
method preamble() { self<preamble> };
method ops() { self<ops> };
method oplib() { self<oplib> };
method version() { self<version>; }
method version_major() { self<version_major> }
method version_minor() { self<version_minor> }
method version_patch() { self<version_patch> }
method _calculate_op_codes() {
my $code := 0;
for self<ops> -> $op {
$op<code> := $code++;
}
}
method _set_version() {
my $config := _config();
my $version_filename;
if $config<installed> {
$version_filename :=
$config<libdir> ~
$config<versiondir> ~
$config<slash> ~
'VERSION';
}
else {
$version_filename :=
$config<prefix> ~
$config<slash> ~
'VERSION';
}
grammar VERSION {
rule TOP { <version> }
rule version { $<major>=(\d+) '.' $<minor>=(\d+) '.' $<patch>=(\d+) }
}
my $version := slurp($version_filename);
my $version_match := VERSION.parse($version);
#say("# $version");
self<version_major> := +$version_match<version><major>;
self<version_minor> := +$version_match<version><minor>;
self<version_patch> := +$version_match<version><patch>;
self<version> := [
+self<version_major>,
+self<version_minor>,
+self<version_patch>,
];
}
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: ft=perl6 expandtab shiftwidth=4:
Jump to Line
Something went wrong with that request. Please try again.