← Back to branch summary

~ubuntu-branches/ubuntu/precise/rakudo/precise

« back to all changes in this revision

Viewing changes to build/gen_junction_pir.pl

  • Committer: Bazaar Package Importer
  • Author(s): Alessandro Ghedini
  • Date: 2011-05-17 11:31:09 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20110517113109-rmfir654u1axbpt4
Tags: 0.1~2011.04-1
http://bugs.debian.org/601862
http://bugs.debian.org/585762
http://bugs.debian.org/577502
http://bugs.debian.org/584498
* New upstream release (Closes: #601862, #585762, #577502)
* New maintainer
* Switch to 3.0 (quilt) format
* Update dependencies (Closes: #584498)
* Update debian/copyright to lastest DEP5 revision
* Do not generate/install perl6 manpage (now done by the build system)
* Enable tests
* Bump Standards-Version to 3.9.2 (no changes needed)
* Do not install extra LICENSE files and duplicated docs
* Remove debian/clean (no more needed)
* Add Vcs-* fields in debian/control
* Rewrite (short) description
* Update upstream copyright years
* Upload to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
build/gen_junction_pir.pl
1
 
#!/usr/bin/perl
2
 
# Copyright (C) 2008-2009, The Perl Foundation.
3
 
# $Id$
4
 
 
5
 
use strict;
6
 
use warnings;
7
 
 
8
 
my @binary = qw(
9
 
  infix:~
10
 
  infix:==
11
 
  infix:eq infix:lt infix:gt infix:le infix:ge
12
 
  infix:<=> infix:cmp infix:=:=
13
 
);
14
 
 
15
 
my @unary = qw(
16
 
  prefix:++ prefix:-- postfix:++ postfix:--
17
 
);
18
 
 
19
 
for (@unary) {
20
 
    print qq(
21
 
        .namespace []
22
 
        .sub '$_' :multi('Junction')
23
 
            .param pmc x
24
 
            .tailcall '!DISPATCH_JUNCTION'('$_', x)
25
 
        .end
26
 
    );
27
 
}
28
 
 
29
 
for (@binary) {
30
 
    print qq(
31
 
        .namespace []
32
 
        .sub '$_' :multi('Junction', _)
33
 
            .param pmc x
34
 
            .param pmc y
35
 
            .tailcall '!DISPATCH_JUNCTION'('$_', x, y)
36
 
        .end
37
 
 
38
 
        .sub '$_' :multi(_, 'Junction')
39
 
            .param pmc x
40
 
            .param pmc y
41
 
            .tailcall '!DISPATCH_JUNCTION'('$_', x, y)
42
 
        .end
43
 
    );
44
 
}