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.

---
 .../lang/translation/lua/procedure/common.jvm.lux  | 34 ----------------------
 1 file changed, 34 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux
index a9849b557..d751c6781 100644
--- a/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/lua/procedure/common.jvm.lux
@@ -200,9 +200,6 @@
   [frac//smallest          Double::MIN_VALUE            lua.float]
   [frac//min               (f/* -1.0 Double::MAX_VALUE) lua.float]
   [frac//max               Double::MAX_VALUE            lua.float]
-  
-  [deg//min                 0                           lua.int]
-  [deg//max                -1                           lua.int]
   )
 
 (do-template [<name> <expression>]
@@ -234,14 +231,6 @@
   [int//mul        lua.*]
   [int//div        lua.//]
   [int//rem        lua.%]
-  
-  [deg//add        lua.+]
-  [deg//sub        lua.-]
-  [deg//mul        runtimeT.deg//*]
-  [deg//div        runtimeT.deg///]
-  [deg//rem        lua.-]
-  [deg//scale      lua.*]
-  [deg//reciprocal lua.//]
   )
 
 (do-template [<name> <op>]
@@ -268,8 +257,6 @@
 
   [int//= lua.=]
   [int//< lua.<]
-  [deg//= lua.=]
-  [deg//< lua.<]
   )
 
 (def: frac//encode
@@ -287,7 +274,6 @@
      (lua./ <divisor> inputO))]
 
   [int//to-frac (lua.float 1.0)]
-  [deg//to-frac (lua.bit-shl (lua.int 32) (lua.int 1))]
   )
 
 (do-template [<name> <transform>]
@@ -296,7 +282,6 @@
      (|> inputO <transform>))]
 
   [frac//to-int (<| (lua.apply "math.floor") (list))]
-  [frac//to-deg runtimeT.deg//from-frac]
   [text//hash   runtimeT.text//hash]
   )
 
@@ -462,23 +447,6 @@
           (install "to-frac" (unary int//to-frac))
           (install "char" (unary int//char)))))
 
-(def: deg-procs
-  Bundle
-  (<| (prefix "deg")
-      (|> (dict.new text.Hash<Text>)
-          (install "+" (binary deg//add))
-          (install "-" (binary deg//sub))
-          (install "*" (binary deg//mul))
-          (install "/" (binary deg//div))
-          (install "%" (binary deg//rem))
-          (install "=" (binary deg//=))
-          (install "<" (binary deg//<))
-          (install "scale" (binary deg//scale))
-          (install "reciprocal" (binary deg//reciprocal))
-          (install "min" (nullary deg//min))
-          (install "max" (nullary deg//max))
-          (install "to-frac" (unary deg//to-frac)))))
-
 (def: frac-procs
   Bundle
   (<| (prefix "frac")
@@ -496,7 +464,6 @@
           (install "not-a-number" (nullary frac//not-a-number))
           (install "positive-infinity" (nullary frac//positive-infinity))
           (install "negative-infinity" (nullary frac//negative-infinity))
-          (install "to-deg" (unary frac//to-deg))
           (install "to-int" (unary frac//to-int))
           (install "encode" (unary frac//encode))
           (install "decode" (unary frac//decode)))))
@@ -585,7 +552,6 @@
       (|> lux-procs
           (dict.merge bit-procs)
           (dict.merge int-procs)
-          (dict.merge deg-procs)
           (dict.merge frac-procs)
           (dict.merge text-procs)
           (dict.merge array-procs)
-- 
cgit v1.2.3