aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux72
1 files changed, 0 insertions, 72 deletions
diff --git a/new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux
index 3457cc49b..9bcc46680 100644
--- a/new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/python/runtime.jvm.lux
@@ -282,77 +282,6 @@
@@bit//count
@@bit//logical-right-shift))
-(def: high (-> Expression Expression) (bit//logical-right-shift (python.int 32)))
-(def: low (-> Expression Expression) (python.bit-and full-32-bits))
-
-(runtime: (deg//* param subject)
- (with-vars [$sL $sH $pL $pH $bottom $middle $top]
- ($_ python.then!
- (python.set! (list $sL) (..low subject))
- (python.set! (list $sH) (high subject))
- (python.set! (list $pL) (..low param))
- (python.set! (list $pH) (high param))
- (python.set! (list $bottom) (bit//logical-right-shift (python.int 32)
- (python.* (@@ $pL) (@@ $sL))))
- (python.set! (list $middle) (python.+ (python.* (@@ $pL) (@@ $sH))
- (python.* (@@ $pH) (@@ $sL))))
- (python.set! (list $top) (python.* (@@ $pH) (@@ $sH)))
- (python.return! (|> (@@ $bottom)
- (python.+ (@@ $middle))
- high
- (python.+ (@@ $top)))))))
-
-(runtime: (deg//leading-zeroes input)
- (with-vars [zeroes remaining]
- ($_ python.then!
- (python.set! (list zeroes) (python.int 64))
- (python.set! (list remaining) input)
- (python.while! (python.not (python.= (python.int 0) (@@ remaining)))
- ($_ python.then!
- (python.set! (list zeroes) (python.- (python.int 1) (@@ zeroes)))
- (python.set! (list remaining) (bit//logical-right-shift (python.int 1) (@@ remaining)))))
- (python.return! (@@ zeroes)))))
-
-(runtime: (deg/// param subject)
- (with-vars [min-shift]
- (python.if! (python.= param subject)
- (python.return! (python.int -1))
- ($_ python.then!
- (python.set! (list min-shift)
- (python.apply (list (deg//leading-zeroes param)
- (deg//leading-zeroes subject))
- (python.global "min")))
- (python.return! (|> (python.bit-shl (@@ min-shift) subject)
- (python./ (|> param (python.bit-shl (@@ min-shift)) ..low))
- (python.bit-shl (python.int 32))))))))
-
-(def: (float-to-int float)
- (-> Expression Expression)
- (python.apply (list float) (python.global "int")))
-
-(runtime: (deg//from-frac input)
- (with-vars [two32 shifted]
- ($_ python.then!
- (python.set! (list two32) (|> (python.float 2.0)
- (python.** (python.float 32.0))))
- (python.set! (list shifted) (|> input
- (python.% (python.float 1.0))
- (python.* (@@ two32))))
- (let [low (|> (@@ shifted)
- (python.% (python.float 1.0))
- (python.* (@@ two32))
- float-to-int)
- high (|> (@@ shifted) float-to-int (python.bit-shl (python.int 32)))]
- (python.return! (|> low (python.+ high)))))))
-
-(def: runtime//deg
- Runtime
- ($_ python.then!
- @@deg//*
- @@deg//leading-zeroes
- @@deg///
- @@deg//from-frac))
-
(runtime: (frac//decode input)
(let [$ex (python.var "ex")]
(python.try!
@@ -522,7 +451,6 @@
runtime//lux
runtime//adt
runtime//bit
- runtime//deg
runtime//frac
runtime//text
runtime//array