Add Radians, Degrees, Gradians, and Circles to emulate what TrigBase …

…will look like when enums are available.
rakudo · Feb 18, 2010 · 60c14fe · 60c14fe
1 parent fa44b5a
commit 60c14fe
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/src/cheats/constants.pir b/src/cheats/constants.pir
@@ -12,5 +12,26 @@
     set_hll_global ['Numeric'], 'e', e
     set_hll_global 'e', e
 
+    .local pmc Radians, Degrees, Gradians, Circles
+    Radians = new ['Int']
+    assign Radians, 0
+    set_hll_global ['Numeric'], 'Radians', Radians
+    set_hll_global 'Radians', Radians
+
+    Degrees = new ['Int']
+    assign Degrees, 1
+    set_hll_global ['Numeric'], 'Degrees', Degrees
+    set_hll_global 'Degrees', Degrees
+
+    Gradians = new ['Int']
+    assign Gradians, 2
+    set_hll_global ['Numeric'], 'Gradians', Gradians
+    set_hll_global 'Gradians', Gradians
+
+    Circles = new ['Int']
+    assign Circles, 3
+    set_hll_global ['Numeric'], 'Circles', Circles
+    set_hll_global 'Circles', Circles
+
 .end