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

add File canExecute, setExecutable and setWritable

Browse source
This commit is contained in:
Michiel Borkent 2019-08-18 13:16:22 +02:00
parent ba4f62150d
commit 1b228d9776
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/babashka/impl/File.clj
View file

@ -17,6 +17,7 @@
[~(with-meta 'x {:tag 'java.io.File}) ~'y] [~(with-meta 'x {:tag 'java.io.File}) ~'y]
(~(symbol (str "." method-name)) ~'x ~'y))) (~(symbol (str "." method-name)) ~'x ~'y)))
(gen-wrapper-fn canExecute)
(gen-wrapper-fn canRead) (gen-wrapper-fn canRead)
(gen-wrapper-fn canWrite) (gen-wrapper-fn canWrite)
(gen-wrapper-fn delete) (gen-wrapper-fn delete)
@ -40,7 +41,7 @@
(gen-wrapper-fn mkdir) (gen-wrapper-fn mkdir)
(gen-wrapper-fn mkdirs) (gen-wrapper-fn mkdirs)
(gen-wrapper-fn-2 renameTo) (gen-wrapper-fn-2 renameTo)
(defn setExecutable (defn ^:bb/export setExecutable
([^java.io.File f b] ([^java.io.File f b]
(.setExecutable f b)) (.setExecutable f b))
([^java.io.File f b ownerOnly] ([^java.io.File f b ownerOnly]
@ -48,7 +49,7 @@
(gen-wrapper-fn-2 setLastModified) (gen-wrapper-fn-2 setLastModified)
(gen-wrapper-fn-2 setReadable) (gen-wrapper-fn-2 setReadable)
(gen-wrapper-fn setReadOnly) (gen-wrapper-fn setReadOnly)
(defn setWritable (defn ^:bb/export setWritable
([^java.io.File f b] ([^java.io.File f b]
(.setWritable f b)) (.setWritable f b))
([^java.io.File f b ownerOnly] ([^java.io.File f b ownerOnly]