Lines Matching refs:directory
157 ;; 3) Using NFS and symlinks, make sure that there is a shared directory with
159 ;; This directory is necessary for temporary files created by ange-ftp.
162 ;; this directory plus an identifying filename prefix. For example:
166 ;; where /nfs/hplose/ange is a directory that is shared between the
461 ;; when asked to list a non-existent directory. Some of the ai.mit.edu
512 ;; 10. If a dir listing is attempted for an empty directory on (at least
522 ;; functions to convert the directory listing to ls -l format.
584 ;; ange-ftp-TYPE-file-name-as-directory
777 (expand-file-name "ange-ftp" temporary-file-directory)
780 :type 'directory)
790 :type 'directory)
863 "*If non-nil, regexp matching hosts on which `dir' command lists directory."
1052 "Buffer name to hold directory listing data received from ftp process.")
1136 "Abbreviate the file name FILE relative to the `default-directory'.
1137 If the optional parameter NEW is given and the non-directory parts match,
1138 only return the directory part of FILE."
1140 (if (and default-directory
1142 (regexp-quote default-directory)
1148 (setq file (file-name-directory file)))
1314 (concat (file-name-directory file) temp)))))
1391 (let ((default-directory "/"))
1409 (setq default-directory (file-name-directory file))
1424 ;; completion is done in the root directory.
1522 If the BUFFER's visited filename or default-directory is an ftp filename
1529 (with-current-buffer buffer default-directory))))
1553 (defun ange-ftp-barf-if-not-directory (directory)
1554 (or (file-directory-p directory)
1556 (list "Opening directory"
1557 (if (file-exists-p directory)
1558 "not a directory"
1559 "no such file or directory")
1560 directory))))
1915 (let ((default-directory
1916 (if (file-accessible-directory-p default-directory)
1917 default-directory
1918 exec-directory))
1950 ;; recurses on file-accessible-directory-p, since it needs to
1952 ;; default-directory.
1954 (default-directory
1955 (if (file-accessible-directory-p default-directory)
1956 default-directory
1957 exec-directory))
2275 "Alist saying how to convert directory name to the host's syntax.
2277 which can change UNIX directory name into a directory name more suitable
2326 ;; rather than the listing of the directory it points to.
2329 ;; `ls', which can either be the directory or the flags.
2333 ;; refuse to list it. We instead change directory to the
2334 ;; directory in question and ls ".".
2344 ;; We cd and then use `ls' with no directory argument.
2347 ;; or a file/directory name.
2351 ;; a directory. Such an `ls' is only ever used (apparently) from
2352 ;; `insert-directory' when the `full-directory-p' argument is nil
2355 ;; `ange-ftp-insert-directory' such that in this case it gets
2356 ;; a full listing of the directory and extracting the line
2448 Works by doing a pwd and examining the directory syntax."
2458 (message "Warning! Unable to get home directory")
2461 "^450 No current working directory defined$"
2526 (message "Warning! Unable to get home directory")
2532 ;;;; Remote file and directory listing support.
2546 (let ((name (or (buffer-file-name) default-directory)))
2556 "Alist saying how to parse directory listings for certain OS types.
2570 ;; directory on a remote unix machine usually (except
2577 ;; If WILDCARD is non-nil, then this implements the guts of insert-directory
2578 ;; in the wildcard case. Then we make a relative directory listing
2579 ;; of FILE within the directory specified by `default-directory'.
2582 "Normal hook run before parsing the text of an ftp directory listing.")
2585 "Normal hook run after parsing the text of an ftp directory listing.")
2594 ;; If parse is t, we assume that file is a directory. i.e. we only parse
2595 ;; full directory listings.
2602 (key (directory-file-name ange-ftp-this-file))
2610 (ange-ftp-real-file-name-as-directory
2620 (ange-ftp-cd host user (file-name-directory name))
2674 ;; believe that /some/file is a directory ;-(
2702 "Add a file entry for file NAME, if its directory info exists."
2711 "Delete the file entry for file NAME, if its directory info exists."
2723 (if (re-search-forward directory-listing-before-filename-regexp eol t)
2735 file-type symlink directory file)
2740 directory (eq file-type ?d))
2768 (and directory (string-match "/\\'" file))
2772 (puthash file (or symlink directory) tbl)
2789 (let ((name (or (buffer-file-name) default-directory)))
2791 (file-name-directory name))))))
2828 ((looking-at "[^\n]+\\( not found\\|: Not a directory\\)\n\\'")
2834 ;; (2) A listing with the A switch of an empty directory
2839 ((re-search-forward directory-listing-before-filename-regexp nil t)
2850 (defun ange-ftp-set-files (directory files)
2852 (and files (puthash (file-name-as-directory directory)
2855 (defun ange-ftp-get-files (directory &optional no-error)
2859 (setq directory (file-name-as-directory directory)) ;normalize
2860 (or (gethash directory ange-ftp-files-hashtable)
2862 (and (ange-ftp-ls directory
2891 (gethash directory ange-ftp-files-hashtable)))))
2902 ;; allowed to determine if NAME is a sub-directory by listing it directly,
2903 ;; rather than listing its parent directory. This is used for efficiency so
2934 (let* ((name (directory-file-name name))
2935 (dir (file-name-directory name))
2945 ;; people tend to work down directory trees anyway. We use
2957 The entry will be either t for a directory, nil for a normal file,
2960 (let* ((name (directory-file-name name))
2961 (dir (file-name-directory name))
2969 ;; i.e. it's a directory by child lookup
2975 (setq name (file-name-as-directory name))
2977 (setq name (directory-file-name name)))
2978 ;; Note that file-name-as-directory followed by directory-file-name
2979 ;; serves to canonicalize directory file names to their unix form.
2981 (let ((files (gethash (file-name-directory name) ange-ftp-files-hashtable)))
2987 (setq name (directory-file-name name)))
2988 (let ((files (gethash (file-name-directory name) ange-ftp-files-hashtable)))
3041 "Attempts to get the current working directory for the given HOST/USER pair.
3042 Returns \( DIR . LINE \) where DIR is either the directory or nil if not found,
3062 logged in as user USER and cd'd to directory DIR."
3141 (ange-ftp-real-file-name-as-directory dir)
3150 (setq name (if (string-match "\\`//" default-directory)
3167 (ange-ftp-real-file-name-directory n))))))
3172 (setq default (or default default-directory))
3187 (concat (file-name-as-directory default) name))))))
3192 (defvar ange-ftp-file-name-as-directory-alist nil
3194 FUNC converts a filename to a directory name for the operating
3197 (defun ange-ftp-file-name-as-directory (name)
3205 ange-ftp-file-name-as-directory-alist))
3206 'ange-ftp-real-file-name-as-directory)
3208 (ange-ftp-real-file-name-as-directory name))))
3210 (defun ange-ftp-file-name-directory (name)
3220 (ange-ftp-real-file-name-directory filename))))
3221 (ange-ftp-real-file-name-directory name))))
3234 (defun ange-ftp-directory-file-name (dir)
3240 (ange-ftp-real-directory-file-name (nth 2 parsed)))
3241 (ange-ftp-real-directory-file-name dir))))
3332 (remhash (file-name-directory filename)
3402 (file-name-directory (directory-file-name res)))
3412 (let ((ent (ange-ftp-get-files (file-name-directory file))))
3417 ;; If we can't read the parent directory, just assume
3419 ;; This makes it possible to access a directory that
3432 (file-name-directory
3433 (directory-file-name name))))
3437 (defun ange-ftp-file-directory-p (name)
3440 ;; We do a file-name-as-directory on name here because some
3442 ;; with a directory. This needs to be canonicalized.
3444 (ange-ftp-file-name-as-directory name))))
3446 ;; Calling file-directory-p doesn't work because ange-ftp
3448 (ange-ftp-file-directory-p
3450 (file-name-directory
3451 (directory-file-name name))))
3453 (ange-ftp-real-file-directory-p name)))
3455 (defun ange-ftp-directory-files (directory &optional full match
3457 (setq directory (expand-file-name directory))
3458 (if (ange-ftp-ftp-name directory)
3460 (ange-ftp-barf-if-not-directory directory)
3462 (ange-ftp-get-files directory)))
3464 (setq directory (file-name-as-directory directory))
3471 (cons (if full (concat directory f) f) files)))))
3473 (apply 'ange-ftp-real-directory-files directory full match v19-args)))
3480 (files (ange-ftp-get-files (file-name-directory file))))
3493 (file-name-directory file))
3528 (file-directory-p (file-name-directory file)))
3662 ;; canonicalize newname if a directory.
3663 (if (file-directory-p newname)
3957 ;; If the file entry is not a directory (nor a symlink pointing to a directory)
3965 (or (file-directory-p file)
3969 (or val ; is a directory name
3974 ;; (equal dir (file-name-directory (directory-file-name dir))) -stef
3983 (ange-ftp-barf-if-not-directory ange-ftp-this-dir)
3985 (ange-ftp-real-file-name-as-directory ange-ftp-this-dir))
3989 ;; see whether each matching file is a directory or not...
3995 (file-directory-p
4012 (ange-ftp-barf-if-not-directory ange-ftp-this-dir)
4016 (ange-ftp-real-file-name-as-directory ange-ftp-this-dir)) ;real?
4049 (if (file-directory-p (expand-file-name file dir))
4053 (file-directory-p
4069 "Reread remote directory DIR to update the directory cache.
4070 The implementation of remote ftp file names caches directory contents
4073 directory, so that Emacs will know its current contents."
4077 (setq dir (file-name-directory (expand-file-name (buffer-string)))))
4085 (defun ange-ftp-make-directory (dir &optional parents)
4086 (interactive (list (expand-file-name (read-file-name "Make directory: "))))
4088 (let ((parent (file-name-directory (directory-file-name dir))))
4090 (ange-ftp-make-directory parent parents))))
4092 (error "Cannot make directory %s: file already exists" dir)
4099 ;; directory-name name as an arg. Argh!! This is a bug.
4101 ;; that mkdir takes a directory-name as an arg
4105 (ange-ftp-real-directory-file-name (nth 2 parsed))
4106 (ange-ftp-real-file-name-as-directory
4111 (format "Making directory %s"
4115 (format "Could not make directory %s: %s"
4119 (ange-ftp-real-make-directory dir)))))
4121 (defun ange-ftp-delete-directory (dir)
4122 (if (file-directory-p dir)
4129 ;; directory-name name as an arg. Argh!! This is a bug.
4131 ;; that rmdir takes a directory-name as an arg
4135 (ange-ftp-real-directory-file-name
4137 (ange-ftp-real-file-name-as-directory
4142 (format "Removing directory %s"
4146 (format "Could not remove directory %s: %s"
4150 (ange-ftp-real-delete-directory dir)))
4151 (error "Not a directory: %s" dir)))
4192 ;; Calculate default-unhandled-directory for a given ange-ftp buffer.
4193 (defun ange-ftp-unhandled-file-name-directory (filename)
4194 (file-name-directory ange-ftp-tmp-name-template))
4335 ;;-;;; do completions in the root directory of drives on Windows.
4351 (put 'file-name-directory 'ange-ftp 'ange-ftp-file-name-directory)
4353 (put 'file-name-as-directory 'ange-ftp 'ange-ftp-file-name-as-directory)
4354 (put 'directory-file-name 'ange-ftp 'ange-ftp-directory-file-name)
4356 (put 'make-directory 'ange-ftp 'ange-ftp-make-directory)
4357 (put 'delete-directory 'ange-ftp 'ange-ftp-delete-directory)
4359 (put 'directory-files 'ange-ftp 'ange-ftp-directory-files)
4360 (put 'file-directory-p 'ange-ftp 'ange-ftp-file-directory-p)
4376 (put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory)
4379 (put 'unhandled-file-name-directory 'ange-ftp
4380 'ange-ftp-unhandled-file-name-directory)
4411 (defun ange-ftp-real-file-name-directory (&rest args)
4412 (ange-ftp-run-real-handler 'file-name-directory args))
4415 (defun ange-ftp-real-file-name-as-directory (&rest args)
4416 (ange-ftp-run-real-handler 'file-name-as-directory args))
4417 (defun ange-ftp-real-directory-file-name (&rest args)
4418 (ange-ftp-run-real-handler 'directory-file-name args))
4421 (defun ange-ftp-real-make-directory (&rest args)
4422 (ange-ftp-run-real-handler 'make-directory args))
4423 (defun ange-ftp-real-delete-directory (&rest args)
4424 (ange-ftp-run-real-handler 'delete-directory args))
4427 (defun ange-ftp-real-directory-files (&rest args)
4428 (ange-ftp-run-real-handler 'directory-files args))
4429 (defun ange-ftp-real-file-directory-p (&rest args)
4430 (ange-ftp-run-real-handler 'file-directory-p args))
4461 (defun ange-ftp-real-insert-directory (&rest args)
4462 (ange-ftp-run-real-handler 'insert-directory args))
4474 ;; I have turned off the support for using dired on foreign directory formats.
4477 ;; converting the foreign directory format to something dired can understand;
4488 (defun ange-ftp-insert-directory (file switches &optional wildcard full)
4490 (ange-ftp-real-insert-directory file switches wildcard full)
4493 ;; rather than the directory it points to. Now that ange-ftp-ls uses
4498 (let ((default-directory (file-name-directory file)))
4507 ;; parent directory and extract the line corresponding to `file'.
4511 (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".")
4513 (filename (file-name-nondirectory (directory-file-name file)))
4539 (let* ((parsed (ange-ftp-ftp-name default-directory))
4556 ;; would prepend "cd default-directory" --- which bombs because
4557 ;; default-directory is in ange-ftp syntax for remote file names.
4564 (if (ange-ftp-ftp-name default-directory)
4978 (setq tmp (file-name-directory name))
4999 ;; that we cannot possibly get a directory listing, such as "/" and "/DEV:/".
5003 ;; to list a directory.
5011 (error "Cannot get listing for fictitious \"/\" directory"))
5096 (let ((files (gethash (file-name-directory name)
5125 (let ((files (gethash (file-name-directory name)
5161 (let ((name (or (buffer-file-name) default-directory)))
5171 (defun ange-ftp-vms-file-name-as-directory (name)
5175 (ange-ftp-real-file-name-as-directory name)))
5177 (or (assq 'vms ange-ftp-file-name-as-directory-alist)
5178 (setq ange-ftp-file-name-as-directory-alist
5179 (cons '(vms . ange-ftp-vms-file-name-as-directory)
5180 ange-ftp-file-name-as-directory-alist)))
5346 ;;;;; The vms version of clean-directory has 2 more optional args
5350 ;;(defun ange-ftp-dired-vms-clean-directory (keep &optional marker msg)
5394 ;;(or (assq 'vms ange-ftp-dired-clean-directory-alist)
5395 ;; (setq ange-ftp-dired-clean-directory-alist
5396 ;; (cons '(vms . ange-ftp-dired-vms-clean-directory)
5397 ;; ange-ftp-dired-clean-directory-alist)))
5413 ;; (file-name-directory fn)))
5448 ;; (ange-ftp-dired-vms-clean-directory nil marker msg)))
5513 (error "Cannot get listing for fictitious \"/\" directory")
5544 (while (re-search-forward directory-listing-before-filename-regexp nil t)
5562 (let ((name (or (buffer-file-name) default-directory)))
5652 ;; directory file name. Note that the expand-dir-hashtable
5700 (error "Cannot get listing for fictitious \"/\" directory"))
5743 (let ((name (or (buffer-file-name) default-directory)))
5753 ;; Parse the current buffer which is assumed to be a CMS directory listing.
5760 ; (let* ((dir-file (directory-file-name file))
5761 ; (root (file-name-directory dir-file))
6008 (let ((name (or (buffer-file-name) default-directory)))
6021 (let ((name (or (buffer-file-name) default-directory)))
6091 ;; put new home directory in the expand-dir hashtable.
6101 ;; ange-ftp-bs2000-file-name-as-directory