Skip to content
This repository has been archived by the owner on Jun 9, 2018. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
generates PIR coda
  • Loading branch information
fperrad committed Mar 21, 2009
1 parent 2e6f65c commit f969872
Show file tree
Hide file tree
Showing 2 changed files with 21 additions and 4 deletions.
13 changes: 11 additions & 2 deletions build/stdlibs.pl
Expand Up @@ -77,8 +77,10 @@ sub generate_pir {
my ($cfg) = @_;

# Emit the initial PIR.
my $pir = <<'PIRCODE';
# THIS IS A GENERATED FILE! DO NOT EDIT!
my $pir = <<"PIRCODE";
# ex: set ro:
# DO NOT EDIT THIS FILE
# Generated by $0 from src/wmlslibs.cfg
.sub '__onload' :anon :load
.local pmc stdlibs
Expand Down Expand Up @@ -114,6 +116,13 @@ sub generate_pir {
$I0 = $P0[func]
.return ($I0)
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
PIRCODE

# Return generated code.
Expand Down
12 changes: 10 additions & 2 deletions build/translator.pl
Expand Up @@ -285,8 +285,10 @@ sub validate_rule {
# Generate the initialization code.
# #################################
sub generate_initial_pir {
return $pir = <<'PIRCODE';
# THIS IS A GENERATED FILE! DO NOT EDIT!
return $pir = <<"PIRCODE";
# ex: set ro:
# DO NOT EDIT THIS FILE
# Generated by $0 from src/translation.rules
.namespace ['Wmls'; 'Function']
Expand Down Expand Up @@ -877,6 +879,12 @@ sub generate_final_code {
.return (gen_pir)
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
PIRCODE

# Return generated code.
Expand Down

0 comments on commit f969872

Please sign in to comment.