aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source
diff options
context:
space:
mode:
authorEduardo Julian2018-07-08 00:56:39 -0400
committerEduardo Julian2018-07-08 00:56:39 -0400
commit5bc58409d87da0f4966d94224e6dd9c2a5a2a408 (patch)
tree3fffcd589769e47c6c11521897a0e3c6e7bb06da /new-luxc/source
parenta5fa07e9b85bdd6581da48f03db1254191c04e98 (diff)
- Moved LuxC's I/O to stdlib.
- Improved "lux/world/file".
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/io.jvm.lux121
1 files changed, 0 insertions, 121 deletions
diff --git a/new-luxc/source/luxc/io.jvm.lux b/new-luxc/source/luxc/io.jvm.lux
deleted file mode 100644
index c0c913772..000000000
--- a/new-luxc/source/luxc/io.jvm.lux
+++ /dev/null
@@ -1,121 +0,0 @@
-(.module:
- lux
- (lux (control monad
- ["ex" exception #+ exception:])
- [io #+ Process]
- (data ["e" error]
- [text "text/" Eq<Text>]
- text/format)
- [macro]
- [host]
- (world [file #+ File]
- [blob #+ Blob])))
-
-(host.import: java/lang/String
- (new [(Array byte)]))
-
-(def: host-extension Text ".jvm")
-(def: lux-extension Text ".lux")
-
-(do-template [<name>]
- [(exception: #export (<name> {message Text})
- message)]
-
- [File-Not-Found]
- [Module-Not-Found]
- [Could-Not-Prepare-Module]
- )
-
-(def: sanitize
- (-> Text Text)
- (text.replace-all "/" file.separator))
-
-(def: (find-source dirs path)
- (-> (List File) Text (Process [Text File]))
- (case dirs
- #.Nil
- (io.fail (ex.construct File-Not-Found path))
-
- (#.Cons dir dirs')
- (do io.Monad<Process>
- [#let [file (format dir file.separator path)]
- ? (file.exists? file)]
- (if ?
- (wrap [path file])
- (find-source dirs' path)))))
-
-(def: (either left right)
- (All [a] (-> (Process a) (Process a) (Process a)))
- (do io.Monad<IO>
- [?output left]
- (case ?output
- (#e.Success output)
- (wrap (#e.Success output))
-
- (#e.Error error)
- right)))
-
-(def: #export blob-to-text
- (-> Blob Text)
- (|>> [] String::new))
-
-(def: #export (read dirs name)
- (-> (List File) Text (Process [File Text]))
- (do io.Monad<Process>
- [[path file] (: (Process [Text File])
- ($_ either
- (find-source dirs (format name host-extension lux-extension))
- (find-source dirs (format name lux-extension))
- (io.fail (ex.construct Module-Not-Found name))))
- blob (file.read file)]
- (wrap [path (blob-to-text blob)])))
-
-(def: #export (platform-target root-target)
- (-> File File)
- (format root-target "/" (for {"JVM" "jvm"
- "JS" "js"})))
-
-(def: #export (prepare-target target-dir)
- (-> File (Process Bool))
- (do io.Monad<Process>
- [_ (file.make-directory (sanitize target-dir))]
- (file.make-directory (sanitize (platform-target target-dir)))))
-
-(def: #export (prepare-module target-dir module-name)
- (-> File Text (Process Any))
- (do io.Monad<Process>
- [#let [module-path (|> module-name
- (format (platform-target target-dir) "/")
- sanitize)]
- module-exists? (file.exists? module-path)
- made-dir? (if module-exists?
- (wrap module-exists?)
- (file.make-directory module-path))]
- (if made-dir?
- (wrap [])
- (io.fail (ex.construct Could-Not-Prepare-Module
- (format "Module: " module-name "\n"
- "Target: " target-dir "\n"))))))
-
-(def: #export (write target name content)
- (-> File Text Blob (Process Any))
- (|> name
- (format (platform-target target) "/")
- sanitize
- (file.write content)))
-
-(def: #export (module target-dir module-dir)
- (-> File File (Maybe Text))
- (case (text.split-with target-dir module-dir)
- (#.Some ["" post])
- (let [raw (text.replace-all file.separator "/" post)]
- (if (text.starts-with? "/" raw)
- (text.clip' +1 raw)
- (#.Some raw)))
-
- _
- #.None))
-
-(def: #export (file target-dir file-name)
- (-> File Text File)
- (format target-dir file.separator (sanitize file-name)))