From b9b35fc136f4201bb9824f58dad7b2b45f2e5e80 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 10 Jul 2018 20:49:14 -0400 Subject: - Re-named "lux/world/env" to "lux/world/environment". --- stdlib/source/lux/world/env.jvm.lux | 46 ----------------------------- stdlib/source/lux/world/environment.jvm.lux | 46 +++++++++++++++++++++++++++++ 2 files changed, 46 insertions(+), 46 deletions(-) delete mode 100644 stdlib/source/lux/world/env.jvm.lux create mode 100644 stdlib/source/lux/world/environment.jvm.lux diff --git a/stdlib/source/lux/world/env.jvm.lux b/stdlib/source/lux/world/env.jvm.lux deleted file mode 100644 index 56d2c9bf8..000000000 --- a/stdlib/source/lux/world/env.jvm.lux +++ /dev/null @@ -1,46 +0,0 @@ -(.module: - lux - (lux (data [text] - (format [context #+ Context]) - (collection ["dict" dictionary])) - [io #- run] - [host])) - -(host.import: java/lang/String) - -(host.import: (java/util/Map$Entry k v) - (getKey [] k) - (getValue [] v)) - -(host.import: (java/util/Iterator a) - (hasNext [] boolean) - (next [] a)) - -(host.import: (java/util/Set a) - (iterator [] (Iterator a))) - -(host.import: (java/util/Map k v) - (entrySet [] (Set (Map$Entry k v)))) - -(host.import: java/lang/System - (#static getenv [] (Map String String))) - -(def: (consume-iterator f iterator) - (All [a b] (-> (-> a b) (Iterator a) (List b))) - (if (Iterator::hasNext [] iterator) - (#.Cons (f (Iterator::next [] iterator)) - (consume-iterator f iterator)) - #.Nil)) - -(def: (entry-to-kv entry) - (All [k v] (-> (Map$Entry k v) [k v])) - [(Map$Entry::getKey [] entry) - (Map$Entry::getValue [] entry)]) - -(def: #export read - (IO Context) - (io (|> (System::getenv []) - (Map::entrySet []) - (Set::iterator []) - (consume-iterator entry-to-kv) - (dict.from-list text.Hash)))) diff --git a/stdlib/source/lux/world/environment.jvm.lux b/stdlib/source/lux/world/environment.jvm.lux new file mode 100644 index 000000000..7f1340043 --- /dev/null +++ b/stdlib/source/lux/world/environment.jvm.lux @@ -0,0 +1,46 @@ +(.module: + lux + (lux (data [text] + (format [context #+ Context]) + (collection [dictionary])) + [io #- run] + [host])) + +(host.import: java/lang/String) + +(host.import: (java/util/Map$Entry k v) + (getKey [] k) + (getValue [] v)) + +(host.import: (java/util/Iterator a) + (hasNext [] boolean) + (next [] a)) + +(host.import: (java/util/Set a) + (iterator [] (Iterator a))) + +(host.import: (java/util/Map k v) + (entrySet [] (Set (Map$Entry k v)))) + +(host.import: java/lang/System + (#static getenv [] (Map String String))) + +(def: (consume-iterator f iterator) + (All [a b] (-> (-> a b) (Iterator a) (List b))) + (if (Iterator::hasNext [] iterator) + (#.Cons (f (Iterator::next [] iterator)) + (consume-iterator f iterator)) + #.Nil)) + +(def: (entry-to-kv entry) + (All [k v] (-> (Map$Entry k v) [k v])) + [(Map$Entry::getKey [] entry) + (Map$Entry::getValue [] entry)]) + +(def: #export read + (IO Context) + (io (|> (System::getenv []) + (Map::entrySet []) + (Set::iterator []) + (consume-iterator entry-to-kv) + (dictionary.from-list text.Hash)))) -- cgit v1.2.3