aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/common-lisp
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp')
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux19
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux44
2 files changed, 2 insertions, 61 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
index 585292af0..54a4336fb 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
@@ -350,22 +350,6 @@
(install "read" (unary box//read))
(install "write" (binary box//write)))))
-## [[Processes]]
-(def: (process//parallelism-level [])
- Nullary
- (_.int 1))
-
-(def: (process//schedule [milli-secondsO procedureO])
- Binary
- (runtimeT.process//schedule milli-secondsO procedureO))
-
-(def: process-procs
- Bundle
- (<| (prefix "process")
- (|> (dict.new text.Hash<Text>)
- (install "parallelism-level" (nullary process//parallelism-level))
- (install "schedule" (binary process//schedule)))))
-
## [Bundles]
(def: #export procedures
Bundle
@@ -378,5 +362,4 @@
(dict.merge array-procs)
(dict.merge io-procs)
(dict.merge box-procs)
- (dict.merge process-procs))
- ))
+ )))
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
index c54fde7ce..3e8d2c514 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
@@ -296,46 +296,6 @@
(_.progn (list @@io//exit
@@io//current-time)))
-(def: process//incoming
- SVar
- (_.var (lang.normalize-name "process//incoming")))
-
-(runtime: (process//loop _)
- (_.if (_.not (_.null (@@ process//incoming)))
- (with-vars [queue process]
- (_.let (list [queue (@@ process//incoming)])
- (_.progn (list (_.setq! process//incoming (_.list (list)))
- (_.map/3 _.nil
- (_.lambda (_.poly (list process))
- (_.funcall (list ..unit) (@@ process)))
- (@@ queue))
- (process//loop ..unit)))))
- ..unit))
-
-(runtime: (process//schedule milli-seconds procedure)
- (_.progn
- (list
- (_.if (_.= (_.int 0) (@@ milli-seconds))
- (_.setq! process//incoming (_.cons (@@ procedure) (@@ process//incoming)))
- (with-vars [start scheduled now diff _ignored]
- (_.let (list [start (io//current-time ..unit)])
- (_.labels (list [scheduled [(_.poly+ (list) _ignored)
- (_.let (list [now (io//current-time ..unit)]
- [diff (|> (@@ now) (_.- (@@ start)))])
- (_.if (|> (@@ diff) (_.>= (@@ milli-seconds)))
- (_.funcall (list ..unit) (@@ procedure))
- (process//schedule (|> (@@ milli-seconds) (_.- (@@ diff)))
- (_.function (@@ scheduled)))))]])
- (_.setq! process//incoming (_.cons (_.function (@@ scheduled))
- (@@ process//incoming)))))))
- ..unit)))
-
-(def: runtime//process
- Runtime
- (_.progn (list (_.defparameter process//incoming (_.list (list)))
- @@process//loop
- @@process//schedule)))
-
(def: runtime
Runtime
(_.progn (list runtime//lux
@@ -344,9 +304,7 @@
runtime//text
runtime//array
runtime//box
- runtime//io
- runtime//process))
- )
+ runtime//io)))
(def: #export artifact Text (format prefix //.file-extension))