Correctly clear the cache on windows.

Git marks some files as "readonly" on windows preventing deletion via
naive means. Use the "attrib" utility to take care of that.

Author: bakpakin

bin/janet-pm

@@ -185,7 +185,7 @@
 (defn clear-cache
   []
   (def cache (path/join (dyn *syspath*) ".cache"))
-  (sh/rm cache))
+  (sh/rm-readonly cache))
 
 (defn list-pkgs
   [&opt search]

spork/pm.janet

@@ -721,6 +721,6 @@
   (spit (path/join path "bin" "activate.bat") (enter-cmd-template opts))
   (spit (path/join path "bin" "deactivate.bat") (exit-cmd-template opts))
   (print "created project shell environment at " path)
-  (if (or (= :windows (os/which)) (= :mingw (os/which)))
-    (print "run `" path "\\bin\\activate` to enter the new environment, then `deactivate` to exit.")
-    (print "run `. " path "/bin/activate` to enter the new environment, then `deactivate` to exit.")))
+  (print "(PowerShell) run `. " path "/bin/activate.ps1` to enter the new environment, then `deactivate` to exit.")
+  (print "(CMD)        run `" path "\\bin\\activate` to enter the new environment, then `deactivate` to exit.")
+  (print "(Unix sh)    run `. " path "/bin/activate` to enter the new environment, then `deactivate` to exit."))

spork/sh.janet

@@ -68,6 +68,18 @@
     # Default, try to remove
     (os/rm path)))
 
+(defn rm-readonly
+  "Like sh/rm, but will also remove readonly files and folders on windows"
+  [path]
+  (def os (os/which))
+  (when (or (= os :windows) (= os :mingw))
+    (def root
+      (if (= :file (os/stat path :mode))
+        path
+        (path/join path "*.*")))
+    (exec "attrib" "-R" "-H" root "/S" "/D"))
+  (rm path))
+
 (defn exists?
   "Check if the given file or directory exists. (Follows symlinks)"
   [path]