Function: dun-get-path

dun-get-path is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-get-path DIRSTRING STARTLIST)

Documentation

Given a unix style pathname, build a list of path components (recursive).

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-get-path (dirstring startlist)
  "Given a unix style pathname, build a list of path components (recursive)."
  (let (slash)
    (if (= (length dirstring) 0)
	startlist
      (if (string= (substring dirstring 0 1) "/")
	  (dun-get-path (substring dirstring 1) (append startlist (list "/")))
	(if (not (setq slash (string-search "/" dirstring)))
	    (append startlist (list dirstring))
	  (dun-get-path (substring dirstring (1+ slash))
		    (append startlist
			    (list (substring dirstring 0 slash)))))))))