diff options
| author | Eduardo Julian | 2018-07-31 20:22:15 -0400 | 
|---|---|---|
| committer | Eduardo Julian | 2018-07-31 20:22:15 -0400 | 
| commit | 7e44ee8a2cfb14e35f6283a9eb8d6a2ddc8bd99a (patch) | |
| tree | 98a12aa5a9fd347c1070612a2a1dae69dae879b1 /new-luxc/source/luxc/lang/translation/jvm/procedure | |
| parent | eea58ee669f69fddf2cef9e1675c41959e2e0a55 (diff) | |
Now implementing process functionality in stdlib instead of the compiler.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux | 23 | 
1 files changed, 0 insertions, 23 deletions
| diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux index a6b037947..49b1971f1 100644 --- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux @@ -433,20 +433,6 @@         (_.int 0) valueI _.AASTORE         unitI)) -## [[Processes]] -(def: (process//parallelism-level []) -  Nullary -  (|>> (_.INVOKESTATIC "java.lang.Runtime" "getRuntime" ($t.method (list) (#.Some ($t.class "java.lang.Runtime" (list))) (list)) #0) -       (_.INVOKEVIRTUAL "java.lang.Runtime" "availableProcessors" ($t.method (list) (#.Some $t.int) (list)) #0) -       lux-intI)) - -(def: (process//schedule [millisecondsI procedureI]) -  Binary -  (|>> millisecondsI (_.unwrap #$.Long) -       procedureI (_.CHECKCAST hostL.function-class) -       (_.INVOKESTATIC hostL.runtime-class "schedule" -                       ($t.method (list $t.long $Function) (#.Some $Object) (list)) #0))) -  ## [Bundles]  (def: lux-procs    Bundle @@ -543,14 +529,6 @@            (install "read" (unary box//read))            (install "write" (binary box//write))))) -(def: process-procs -  Bundle -  (<| (prefix "process") -      (|> (dict.new text.Hash<Text>) -          (install "parallelism-level" (nullary process//parallelism-level)) -          (install "schedule" (binary process//schedule)) -          ))) -  (def: #export procedures    Bundle    (<| (prefix "lux") @@ -562,5 +540,4 @@            (dict.merge array-procs)            (dict.merge io-procs)            (dict.merge box-procs) -          (dict.merge process-procs)            ))) | 
