use sci/copy-ns
This commit is contained in:
Michiel Borkent
parent
44e8ea36fd
commit
1ebe142655
2 changed files with 3 additions and 87 deletions
2
sci
2
sci
|
|
@ -1 +1 @@
|
||||||
Subproject commit 7896fe1bab824e8e07b198c6eaed1ec465ae3baa
|
Subproject commit ad932d30aeddf7e18802622a38dc01aaaa54e768
|
||||||
|
|
@ -1,93 +1,9 @@
|
||||||
(ns babashka.impl.fs
|
(ns babashka.impl.fs
|
||||||
(:require [babashka.fs :as fs]
|
(:require [babashka.fs :as fs]
|
||||||
[clojure.string :as str]
|
|
||||||
[sci.core :as sci]))
|
[sci.core :as sci]))
|
||||||
|
|
||||||
(def fns (sci/create-ns 'babashka.fs nil))
|
|
||||||
|
|
||||||
(def current-file (fs/file (fs/absolutize (fs/path "src" *file*))))
|
(def current-file (fs/file (fs/absolutize (fs/path "src" *file*))))
|
||||||
|
|
||||||
;; clojure -X babashka.impl.fs/update-vars
|
|
||||||
(defn update-vars [_]
|
|
||||||
(let [output (with-out-str (doseq [k (sort (keys (ns-publics 'babashka.fs)))]
|
|
||||||
(println (str " '" k) (format "(sci/copy-var fs/%s fns)" k))))
|
|
||||||
this-file (slurp current-file)
|
|
||||||
new-file (str/replace this-file #"(?m);; placeholder\n[\s\S]*;; end placeholder"
|
|
||||||
(str ";; placeholder\n" output " ;; end placeholder"))]
|
|
||||||
(spit current-file new-file)))
|
|
||||||
|
|
||||||
(def fs-namespace
|
(def fs-namespace
|
||||||
{;; placeholder
|
(sci/copy-ns 'babashka.fs (sci/create-ns 'babashka.fs)))
|
||||||
'absolute? (sci/copy-var fs/absolute? fns)
|
|
||||||
'absolutize (sci/copy-var fs/absolutize fns)
|
|
||||||
'canonicalize (sci/copy-var fs/canonicalize fns)
|
|
||||||
'components (sci/copy-var fs/components fns)
|
|
||||||
'copy (sci/copy-var fs/copy fns)
|
|
||||||
'copy-tree (sci/copy-var fs/copy-tree fns)
|
|
||||||
'create-dir (sci/copy-var fs/create-dir fns)
|
|
||||||
'create-dirs (sci/copy-var fs/create-dirs fns)
|
|
||||||
'create-file (sci/copy-var fs/create-file fns)
|
|
||||||
'create-link (sci/copy-var fs/create-link fns)
|
|
||||||
'create-sym-link (sci/copy-var fs/create-sym-link fns)
|
|
||||||
'create-temp-dir (sci/copy-var fs/create-temp-dir fns)
|
|
||||||
'creation-time (sci/copy-var fs/creation-time fns)
|
|
||||||
'delete (sci/copy-var fs/delete fns)
|
|
||||||
'delete-if-exists (sci/copy-var fs/delete-if-exists fns)
|
|
||||||
'delete-on-exit (sci/copy-var fs/delete-on-exit fns)
|
|
||||||
'delete-tree (sci/copy-var fs/delete-tree fns)
|
|
||||||
'directory? (sci/copy-var fs/directory? fns)
|
|
||||||
'ends-with? (sci/copy-var fs/ends-with? fns)
|
|
||||||
'exec-paths (sci/copy-var fs/exec-paths fns)
|
|
||||||
'executable? (sci/copy-var fs/executable? fns)
|
|
||||||
'exists? (sci/copy-var fs/exists? fns)
|
|
||||||
'extension (sci/copy-var fs/extension fns)
|
|
||||||
'file (sci/copy-var fs/file fns)
|
|
||||||
'file-name (sci/copy-var fs/file-name fns)
|
|
||||||
'file-separator (sci/copy-var fs/file-separator fns)
|
|
||||||
'file-time->instant (sci/copy-var fs/file-time->instant fns)
|
|
||||||
'file-time->millis (sci/copy-var fs/file-time->millis fns)
|
|
||||||
'get-attribute (sci/copy-var fs/get-attribute fns)
|
|
||||||
'glob (sci/copy-var fs/glob fns)
|
|
||||||
'hidden? (sci/copy-var fs/hidden? fns)
|
|
||||||
'instant->file-time (sci/copy-var fs/instant->file-time fns)
|
|
||||||
'last-modified-time (sci/copy-var fs/last-modified-time fns)
|
|
||||||
'list-dir (sci/copy-var fs/list-dir fns)
|
|
||||||
'list-dirs (sci/copy-var fs/list-dirs fns)
|
|
||||||
'match (sci/copy-var fs/match fns)
|
|
||||||
'millis->file-time (sci/copy-var fs/millis->file-time fns)
|
|
||||||
'modified-since (sci/copy-var fs/modified-since fns)
|
|
||||||
'move (sci/copy-var fs/move fns)
|
|
||||||
'normalize (sci/copy-var fs/normalize fns)
|
|
||||||
'parent (sci/copy-var fs/parent fns)
|
|
||||||
'path (sci/copy-var fs/path fns)
|
|
||||||
'path-separator (sci/copy-var fs/path-separator fns)
|
|
||||||
'posix->str (sci/copy-var fs/posix->str fns)
|
|
||||||
'posix-file-permissions (sci/copy-var fs/posix-file-permissions fns)
|
|
||||||
'read-all-bytes (sci/copy-var fs/read-all-bytes fns)
|
|
||||||
'read-all-lines (sci/copy-var fs/read-all-lines fns)
|
|
||||||
'read-attributes (sci/copy-var fs/read-attributes fns)
|
|
||||||
'readable? (sci/copy-var fs/readable? fns)
|
|
||||||
'real-path (sci/copy-var fs/real-path fns)
|
|
||||||
'regular-file? (sci/copy-var fs/regular-file? fns)
|
|
||||||
'relative? (sci/copy-var fs/relative? fns)
|
|
||||||
'relativize (sci/copy-var fs/relativize fns)
|
|
||||||
'same-file? (sci/copy-var fs/same-file? fns)
|
|
||||||
'set-attribute (sci/copy-var fs/set-attribute fns)
|
|
||||||
'set-creation-time (sci/copy-var fs/set-creation-time fns)
|
|
||||||
'set-last-modified-time (sci/copy-var fs/set-last-modified-time fns)
|
|
||||||
'set-posix-file-permissions (sci/copy-var fs/set-posix-file-permissions fns)
|
|
||||||
'size (sci/copy-var fs/size fns)
|
|
||||||
'split-ext (sci/copy-var fs/split-ext fns)
|
|
||||||
'split-paths (sci/copy-var fs/split-paths fns)
|
|
||||||
'starts-with? (sci/copy-var fs/starts-with? fns)
|
|
||||||
'str->posix (sci/copy-var fs/str->posix fns)
|
|
||||||
'strip-ext (sci/copy-var fs/strip-ext fns)
|
|
||||||
'sym-link? (sci/copy-var fs/sym-link? fns)
|
|
||||||
'temp-dir (sci/copy-var fs/temp-dir fns)
|
|
||||||
'unzip (sci/copy-var fs/unzip fns)
|
|
||||||
'walk-file-tree (sci/copy-var fs/walk-file-tree fns)
|
|
||||||
'which (sci/copy-var fs/which fns)
|
|
||||||
'with-temp-dir (sci/copy-var fs/with-temp-dir fns)
|
|
||||||
'writable? (sci/copy-var fs/writable? fns)
|
|
||||||
;; end placeholder
|
|
||||||
})
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue