move Date ops to core2

fails during compilation of CORE with "rtype not set"
rakudo · Jan 8, 2012 · 390b435 · 390b435
1 parent b8af1ec
commit 390b435
Show file tree

Hide file tree

Showing 3 changed files with 38 additions and 37 deletions.
diff --git a/src/core/Temporal.pm b/src/core/Temporal.pm
@@ -468,43 +468,6 @@ my class Date does Dateish {
         "Date.new($.year.perl(), $.month.perl(), $.day.perl())";
     }
 }
-
-multi infix:<+>(Date:D $d, Int:D $x) {
-    Date.new-from-daycount($d.daycount + $x)
-}
-multi infix:<+>(Int:D $x, Date:D $d) {
-    Date.new-from-daycount($d.daycount + $x)
-}
-multi infix:<->(Date:D $d, Int:D $x) {
-    Date.new-from-daycount($d.daycount - $x)
-}
-multi infix:<->(Date:D $a, Date:D $b) {
-    $a.daycount - $b.daycount;
-}
-multi infix:<cmp>(Date:D $a, Date:D $b) {
-    $a.daycount cmp $b.daycount
-}
-multi infix:«<=>»(Date:D $a, Date:D $b) {
-    $a.daycount <=> $b.daycount
-}
-multi infix:<==>(Date:D $a, Date:D $b) {
-    $a.daycount == $b.daycount
-}
-multi infix:<!=>(Date:D $a, Date:D $b) {
-    $a.daycount != $b.daycount
-}
-multi infix:«<=»(Date:D $a, Date:D $b) {
-    $a.daycount <= $b.daycount
-}
-multi infix:«<»(Date:D $a, Date:D $b) {
-    $a.daycount < $b.daycount
-}
-multi infix:«>=»(Date:D $a, Date:D $b) {
-    $a.daycount >= $b.daycount
-}
-multi infix:«>»(Date:D $a, Date:D $b) {
-    $a.daycount > $b.daycount
-}
 
 $PROCESS::TZ = DateTime-local-timezone.new;
 

diff --git a/src/core2/Temporal-ops.pm b/src/core2/Temporal-ops.pm
@@ -0,0 +1,37 @@
+multi infix:<+>(Date:D $d, Int:D $x) {
+    Date.new-from-daycount($d.daycount + $x)
+}
+multi infix:<+>(Int:D $x, Date:D $d) {
+    Date.new-from-daycount($d.daycount + $x)
+}
+multi infix:<->(Date:D $d, Int:D $x) {
+    Date.new-from-daycount($d.daycount - $x)
+}
+multi infix:<->(Date:D $a, Date:D $b) {
+    $a.daycount - $b.daycount;
+}
+multi infix:<cmp>(Date:D $a, Date:D $b) {
+    $a.daycount cmp $b.daycount
+}
+multi infix:«<=>»(Date:D $a, Date:D $b) {
+    $a.daycount <=> $b.daycount
+}
+multi infix:<==>(Date:D $a, Date:D $b) {
+    $a.daycount == $b.daycount
+}
+multi infix:<!=>(Date:D $a, Date:D $b) {
+    $a.daycount != $b.daycount
+}
+multi infix:«<=»(Date:D $a, Date:D $b) {
+    $a.daycount <= $b.daycount
+}
+multi infix:«<»(Date:D $a, Date:D $b) {
+    $a.daycount < $b.daycount
+}
+multi infix:«>=»(Date:D $a, Date:D $b) {
+    $a.daycount >= $b.daycount
+}
+multi infix:«>»(Date:D $a, Date:D $b) {
+    $a.daycount > $b.daycount
+}
+
diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in
@@ -220,6 +220,7 @@ CORE_SOURCES = \
 
 CORE2_SOURCES = \
   src/core/Grammar.pm \
+  src/core2/Temporal-ops.pm \
   src/core2/Main.pm \
   src/core2/Pod.pm \
   src/core2/fixups.pm \