From febfa99c2823219c2e76d2c73b1fd8db8f6c9918 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 7 May 2018 01:37:38 -0400
Subject: - Implemented Deg functionality in pure Lux.

---
 .../luxc/lang/translation/lua/runtime.jvm.lux      | 60 ----------------------
 1 file changed, 60 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux
index cd5d0c090..de2d574ec 100644
--- a/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/runtime.jvm.lux
@@ -197,65 +197,6 @@
   (format @@bit//count
           @@bit//logical-right-shift))
 
-(runtime: deg//low-mask
-  (|> (lua.int 1)
-      (lua.bit-shl (lua.int 32))
-      (lua.- (lua.int 1))))
-
-(runtime: (deg//* param subject)
-  (lua.block! (list (lua.local! "sL" (#.Some (lua.bit-and deg//low-mask subject)))
-                    (lua.local! "sH" (#.Some (bit//logical-right-shift (lua.int 32) subject)))
-                    (lua.local! "pL" (#.Some (lua.bit-and deg//low-mask param)))
-                    (lua.local! "pH" (#.Some (bit//logical-right-shift (lua.int 32) param)))
-                    (lua.local! "bottom" (#.Some (bit//logical-right-shift (lua.int 32)
-                                                                   (lua.* "pL" "sL"))))
-                    (lua.local! "middle" (#.Some (lua.+ (lua.* "pL" "sH")
-                                                        (lua.* "pH" "sL"))))
-                    (lua.local! "top" (#.Some (lua.* "pH" "sH")))
-                    (lua.return! (|> "bottom"
-                                     (lua.+ "middle")
-                                     (bit//logical-right-shift (lua.int 32))
-                                     (lua.+ "top"))))))
-
-(runtime: (deg//leading-zeroes input)
-  (lua.block! (list (lua.local! "zeroes" (#.Some (lua.int 64)))
-                    (lua.while! (lua.not (lua.= (lua.int 0) input))
-                                (lua.block! (list (lua.set! "zeroes" (lua.- (lua.int 1) "zeroes"))
-                                                  (lua.set! input (bit//logical-right-shift (lua.int 1) input)))))
-                    (lua.return! "zeroes"))))
-
-(runtime: (deg/// param subject)
-  (lua.if! (lua.= param subject)
-           (lua.return! (lua.int -1))
-           (lua.block! (list (lua.local! "min_shift" (#.Some (lua.apply "math.min" (list (deg//leading-zeroes param)
-                                                                                         (deg//leading-zeroes subject)))))
-                             (lua.return! (|> (lua.bit-shl "min_shift" subject)
-                                              (lua.// (|> (lua.bit-shl "min_shift" param)
-                                                          (lua.bit-and deg//low-mask)))
-                                              (lua.bit-shl (lua.int 32))))))))
-
-(runtime: (deg//from-frac input)
-  (let [->int (|>> (list) (lua.apply "math.floor"))]
-    (lua.block! (list (lua.local! "two32" (#.Some (lua.apply "math.pow" (list (lua.float 2.0) (lua.float 32.0)))))
-                      (lua.local! "shifted" (#.Some (|> input
-                                                        (lua.% (lua.float 1.0))
-                                                        (lua.* "two32"))))
-                      (lua.local! "low" (#.Some (|> "shifted"
-                                                    (lua.% (lua.float 1.0))
-                                                    (lua.* "two32")
-                                                    ->int)))
-                      (lua.local! "high" (#.Some (|> "shifted" ->int)))
-                      (lua.return! (lua.+ (lua.bit-shl (lua.int 32) "high")
-                                          "low"))))))
-
-(def: runtime//deg
-  Runtime
-  (format @@deg//low-mask
-          @@deg//*
-          @@deg//leading-zeroes
-          @@deg///
-          @@deg//from-frac))
-
 (runtime: (text//index subject param start)
   (lua.block! (list (lua.local! "idx" (#.Some (lua.apply "string.find" (list subject param start (lua.bool true)))))
                     (lua.if! (lua.= lua.nil "idx")
@@ -447,7 +388,6 @@
   (format runtime//lux
           runtime//adt
           runtime//bit
-          runtime//deg
           runtime//text
           runtime//array
           runtime//atom
-- 
cgit v1.2.3