Carp/core/Filepath.carp

(defmodule Filepath

  (use Array)

  (doc dir-from-path "Removes the file-name part of a path to a file.")
  (defn dir-from-path [path]
    (let [segments (split-by path &[\/])
          n (dec (length &segments))
          without-last (prefix-array &segments n)]
      (concat &(copy-map (fn [s] (str* s "/")) &without-last))))

  )
Filepath module. 2018-04-23 17:14:40 +03:00			`(defmodule Filepath`

			`(use Array)`

			`(doc dir-from-path "Removes the file-name part of a path to a file.")`
			`(defn dir-from-path [path]`
			`(let [segments (split-by path &[\/])`
Renaming: String.count -> String.length, Array.count -> Array.length Issue #236 2018-05-20 10:57:51 +03:00			`n (dec (length &segments))`
Filepath module. 2018-04-23 17:14:40 +03:00			`without-last (prefix-array &segments n)]`
all: use closures in core 2018-09-25 13:17:56 +03:00			`(concat &(copy-map (fn [s] (str* s "/")) &without-last))))`
Filepath module. 2018-04-23 17:14:40 +03:00
			`)`