← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/cheats/constants.pir

  • 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:
src/cheats/constants.pir
 
1
.sub '' :anon :init :load
 
2
 
 
3
    # Numeric constants
 
4
    .local pmc pi, e, i
 
5
    pi = new ['Num']
 
6
    assign pi, 3.14159265358979323846264338327950288
 
7
    set_hll_global ['Numeric'], 'pi', pi
 
8
    set_hll_global 'pi', pi
 
9
 
 
10
    e  = new ['Num']
 
11
    assign e,  2.71828182845904523536028747135266249
 
12
    set_hll_global ['Numeric'], 'e', e
 
13
    set_hll_global 'e', e
 
14
 
 
15
    .local pmc Radians, Degrees, Gradians, Circles
 
16
    Radians = new ['Int']
 
17
    assign Radians, 0
 
18
    set_hll_global ['Numeric'], 'Radians', Radians
 
19
    set_hll_global 'Radians', Radians
 
20
 
 
21
    Degrees = new ['Int']
 
22
    assign Degrees, 1
 
23
    set_hll_global ['Numeric'], 'Degrees', Degrees
 
24
    set_hll_global 'Degrees', Degrees
 
25
 
 
26
    Gradians = new ['Int']
 
27
    assign Gradians, 2
 
28
    set_hll_global ['Numeric'], 'Gradians', Gradians
 
29
    set_hll_global 'Gradians', Gradians
 
30
 
 
31
    Circles = new ['Int']
 
32
    assign Circles, 3
 
33
    set_hll_global ['Numeric'], 'Circles', Circles
 
34
    set_hll_global 'Circles', Circles
 
35
 
 
36
    .local pmc Increase, Decrease, Same
 
37
    Increase = new ['Int']
 
38
    assign Increase, -1
 
39
    set_hll_global ['Order'], 'Increase', Increase
 
40
    Same = new ['Int']
 
41
    assign Same, 0
 
42
    set_hll_global ['Order'], 'Same', Same
 
43
    Decrease = new ['Int']
 
44
    assign Decrease, 1
 
45
    set_hll_global ['Order'], 'Decrease', Decrease
 
46
.end
 
47