luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[#728] Update fs lib with split-paths

Browse source
This commit is contained in:
Michiel Borkent 2021-02-10 10:07:28 +01:00
parent 2c2237ec4c
commit e4a9660670
1 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/babashka/impl/fs.clj
View file

@ -1,15 +1,23 @@
(ns babashka.impl.fs
(:require [babashka.fs :as fs]
[clojure.string :as str]
[sci.core :as sci]))
(def fns (sci/create-ns 'babashka.fs nil))
#_(do (require '[babashka.fs])
(doseq [k (sort (keys (ns-publics 'babashka.fs)))]
(println (str "'" k) (format "(sci/copy-var fs/%s fns)" k))))
(def current-file (fs/file (fs/absolutize (fs/path "src" *file*))))
(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
{'absolute? (sci/copy-var fs/absolute? fns)
{;; placeholder
'absolute? (sci/copy-var fs/absolute? fns)
'absolutize (sci/copy-var fs/absolutize fns)
'components (sci/copy-var fs/components fns)
'copy (sci/copy-var fs/copy fns)
@ -62,10 +70,13 @@
'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-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)
'sym-link? (sci/copy-var fs/sym-link? fns)
'temp-dir (sci/copy-var fs/temp-dir fns)
'walk-file-tree (sci/copy-var fs/walk-file-tree fns)
'which (sci/copy-var fs/which fns)
'writable? (sci/copy-var fs/writable? fns)})
'writable? (sci/copy-var fs/writable? fns)
;; end placeholder
})