Lines Matching +defs:dired +defs:do +defs:rename +defs:regexp
120 ;; Load foreign methods. Because they do require Tramp internally, this
210 :type '(repeat (cons (regexp :tag "Regexp matching filename")
229 (list (regexp :tag "File regexp")
599 requires any two characters after sending the password. These do
608 to do this, set `tramp-copy-program' in the method.
742 :type '(repeat (list (regexp :tag "Host regexp")
743 (regexp :tag "User regexp")
894 (defcustom tramp-login-prompt-regexp
897 The regexp should match at end of buffer.
901 :type 'regexp)
914 :type 'regexp)
916 (defcustom tramp-password-prompt-regexp
919 The regexp should match at end of buffer.
923 :type 'regexp)
925 (defcustom tramp-wrong-passwd-regexp
928 (regexp-opt '("Permission denied."
943 The regexp should match at end of buffer."
945 :type 'regexp)
947 (defcustom tramp-yesno-prompt-regexp
949 (regexp-opt '("Are you sure you want to continue connecting (yes/no)?") t)
953 The regexp should match at end of buffer.
954 See also `tramp-yn-prompt-regexp'."
956 :type 'regexp)
958 (defcustom tramp-yn-prompt-regexp
960 (regexp-opt '("Store key in cache? (y/n)"
965 The regexp should match at end of buffer.
966 See also `tramp-yesno-prompt-regexp'."
968 :type 'regexp)
970 (defcustom tramp-terminal-prompt-regexp
977 The regexp should match at end of buffer.
980 :type 'regexp)
982 (defcustom tramp-operation-not-permitted-regexp
984 (regexp-opt '("Operation not permitted") t))
989 :type 'regexp)
991 (defcustom tramp-copy-failed-regexp
993 (regexp-opt '("Permission denied"
1000 :type 'regexp)
1002 (defcustom tramp-process-alive-regexp
1010 :type 'regexp)
1051 (defcustom tramp-prefix-regexp
1052 (concat "^" (regexp-quote tramp-prefix-format))
1056 :type 'regexp)
1058 (defcustom tramp-method-regexp
1062 :type 'regexp)
1074 (defcustom tramp-postfix-single-method-regexp
1075 (regexp-quote tramp-postfix-single-method-format)
1080 :type 'regexp)
1090 (defcustom tramp-postfix-multi-method-regexp
1091 (regexp-quote tramp-postfix-multi-method-format)
1096 :type 'regexp)
1106 (defcustom tramp-postfix-multi-hop-regexp
1107 (regexp-quote tramp-postfix-multi-hop-format)
1112 :type 'regexp)
1114 (defcustom tramp-user-regexp
1118 :type 'regexp)
1127 (defcustom tramp-postfix-user-regexp
1128 (regexp-quote tramp-postfix-user-format)
1132 :type 'regexp)
1134 (defcustom tramp-host-regexp
1138 :type 'regexp)
1140 (defcustom tramp-host-with-port-regexp
1144 :type 'regexp)
1153 (defcustom tramp-postfix-host-regexp
1154 (regexp-quote tramp-postfix-host-format)
1158 :type 'regexp)
1160 (defcustom tramp-localname-regexp
1164 :type 'regexp)
1171 tramp-prefix-regexp
1172 "\\(" "\\(" tramp-method-regexp "\\)" tramp-postfix-single-method-regexp "\\)?"
1173 "\\(" "\\(" tramp-user-regexp "\\)" tramp-postfix-user-regexp "\\)?"
1174 "\\(" tramp-host-with-port-regexp "\\)" tramp-postfix-host-regexp
1175 "\\(" tramp-localname-regexp "\\)")
1192 See also `tramp-file-name-regexp'."
1194 :type '(list (regexp :tag "File name regexp")
1201 (defconst tramp-file-name-regexp-unified
1203 "Value for `tramp-file-name-regexp' for unified remoting.
1208 (defconst tramp-file-name-regexp-separate
1210 "Value for `tramp-file-name-regexp' for separate remoting.
1215 (defcustom tramp-file-name-regexp
1217 tramp-file-name-regexp-unified
1218 tramp-file-name-regexp-separate)
1220 This regexp should match tramp file names but no other file names.
1234 :type 'regexp)
1237 (defconst tramp-completion-file-name-regexp-unified
1239 "Value for `tramp-completion-file-name-regexp' for unified remoting.
1244 (defconst tramp-completion-file-name-regexp-separate
1246 "Value for `tramp-completion-file-name-regexp' for separate remoting.
1251 (defcustom tramp-completion-file-name-regexp
1253 tramp-completion-file-name-regexp-unified
1254 tramp-completion-file-name-regexp-separate)
1256 This regexp should match partial tramp file names only.
1265 :type 'regexp)
1270 tramp-prefix-regexp
1271 "\\(" "\\(" tramp-method-regexp "\\)" "\\)?"
1272 "\\(" "\\(" tramp-postfix-multi-hop-regexp "%s" "\\)+" "\\)?"
1273 tramp-postfix-host-regexp "\\(" tramp-localname-regexp "\\)")
1294 I think it would be good if the regexp matches the whole of the
1297 :type '(list (regexp :tag "File name regexp")
1305 "\\(" tramp-method-regexp "\\)" tramp-postfix-multi-method-regexp
1306 "\\(" tramp-user-regexp "\\)" tramp-postfix-user-regexp
1307 "\\(" tramp-host-with-port-regexp "\\)")
1317 :type '(list (regexp :tag "Hop regexp")
1373 '((tramp-password-prompt-regexp tramp-action-password)
1374 (tramp-login-prompt-regexp tramp-action-login)
1377 (tramp-wrong-passwd-regexp tramp-action-permission-denied)
1378 (tramp-yesno-prompt-regexp tramp-action-yesno)
1379 (tramp-yn-prompt-regexp tramp-action-yn)
1380 (tramp-terminal-prompt-regexp tramp-action-terminal)
1381 (tramp-process-alive-regexp tramp-action-process-alive))
1388 regexp must match at the end of the buffer, \"\\'\" is implicitly
1397 '((tramp-password-prompt-regexp tramp-action-password)
1398 (tramp-wrong-passwd-regexp tramp-action-permission-denied)
1399 (tramp-copy-failed-regexp tramp-action-copy-failed)
1400 (tramp-process-alive-regexp tramp-action-out-of-band))
1408 '((tramp-password-prompt-regexp tramp-multi-action-password)
1409 (tramp-login-prompt-regexp tramp-multi-action-login)
1412 (tramp-wrong-passwd-regexp tramp-multi-action-permission-denied)
1413 (tramp-process-alive-regexp tramp-multi-action-process-alive))
1483 respectively). You can do this, for example, by pasting it into
1800 my %%trans = do {
1843 my %%trans = do {
1854 # (we do not check they are <= 76 chars as the RFC says)
1960 (rename-file . tramp-handle-rename-file)
1977 (dired-compress-file . tramp-handle-dired-compress-file)
1978 (dired-call-process . tramp-handle-dired-call-process)
1979 (dired-recursive-delete-directory
1980 . tramp-handle-dired-recursive-delete-directory)
1993 Used for file names matching `tramp-file-name-regexp'. Operations not
2163 ;; What to do?
2582 ;; newer than). If this breaks, tell me about it and I'll try to do
2673 ;; might do weird things.
2718 ;; (eq (string-match tramp-file-name-regexp directory) 0)
2847 (format (concat "%s -a %s 2>/dev/null | while read f; do "
2929 (tramp-do-copy-or-rename-file
2935 (defun tramp-handle-rename-file
2937 "Like `rename-file' for tramp files."
2938 ;; Check if both files are local -- invoke normal rename-file.
2945 (tramp-do-copy-or-rename-file
2946 'rename filename newname ok-if-already-exists)
2947 (tramp-run-real-handler 'rename-file
2950 (defun tramp-do-copy-or-rename-file
2952 "Copy or rename a remote file.
2953 OP must be `copy' or `rename' and indicates the operation to perform.
2954 FILENAME specifies the file to copy or rename, NEWNAME is the name of
2955 the new file (for copy) or the new name of the file (for rename).
2961 `tramp-handle-rename-file'. It is an error if OP is neither of `copy'
2962 and `rename'. FILENAME and NEWNAME must be absolute file names."
2963 (unless (memq op '(copy rename))
2964 (error "Unknown operation `%s', must be `copy' or `rename'" op))
3005 (tramp-do-copy-or-rename-file-directly
3020 (tramp-do-copy-or-rename-file-out-of-band
3023 ;; file first. If the operation was `rename', we go
3032 (tramp-do-copy-or-rename-file-via-buffer
3045 (tramp-do-copy-or-rename-file-out-of-band
3048 (tramp-do-copy-or-rename-file-via-buffer
3055 (defun tramp-do-copy-or-rename-file-via-buffer (op filename newname keep-date)
3056 "Use an Emacs buffer to copy or rename a file.
3057 First arg OP is either `copy' or `rename' and indicates the operation.
3081 ;; If the operation was `rename', delete the original file.
3085 (defun tramp-do-copy-or-rename-file-directly
3088 OP must be one of `copy' or `rename', indicating `cp' or `mv',
3095 ((eq op 'rename) "mv -f")
3097 "Unknown operation `%s', must be `copy' or `rename'"
3112 (re-search-forward tramp-operation-not-permitted-regexp nil t))
3122 (unless (or (eq op 'rename) keep-date)
3129 (defun tramp-do-copy-or-rename-file-out-of-band (op filename newname keep-date)
3265 ;; If the operation was `rename', delete the original file.
3310 (defun tramp-handle-dired-recursive-delete-directory (filename)
3312 This is like `dired-recursive-delete-directory' for tramp files."
3315 ;; Code shamelessly stolen for the dired implementation and, um, hacked :)
3330 (defun tramp-handle-dired-call-process (program discard &rest arguments)
3331 "Like `dired-call-process' for tramp files."
3338 "tramp-handle-dired-call-process: Couldn't `cd %s'"
3358 (defun tramp-handle-dired-compress-file (file &rest ok-flag)
3359 "Like `dired-compress-file' for tramp files."
3361 ;; Code stolen mainly from dired-aux.el.
3367 (symbol-value 'dired-compress-file-suffixes)
3368 ;; XEmacs has `dired-compression-method-alist', which is
3369 ;; transformed into `dired-compress-file-suffixes' structure.
3372 (list (concat (regexp-quote (nth 1 x)) "\\'")
3375 (symbol-value 'dired-compression-method-alist))))
3393 ;; `dired-remove-file' is not defined in XEmacs
3394 (funcall (symbol-function 'dired-remove-file) file)
3405 ;; `dired-remove-file' is not defined in XEmacs
3406 (funcall (symbol-function 'dired-remove-file) file)
3414 ;; not sure at all that this is the right way to do it, but let's hope
3418 ;; (unless (fboundp 'dired-insert-set-properties)
3419 ;; (fset 'dired-insert-set-properties 'ignore)))
3421 (eval-when-compile (require 'dired))
3422 ;; Note that dired is required at run-time, too, when it is needed.
3424 ;; `dired-insert-set-properties'.
3434 ;; grok "--dired". In the future, we should detect this on
3436 (when (string-match "^--dired\\s-+" switches)
3509 ;; ;; Another XEmacs specialty follows. What's the right way to do
3512 ;; (eq major-mode 'dired-mode))
3514 ;; (require 'dired)
3515 ;; (dired-insert-set-properties old-pos (point))))
3520 ;; (when (eq (symbol-function 'dired-insert-set-properties) 'ignore)
3521 ;; (fmakunbound 'dired-insert-set-properties)))
3523 ;; CCC is this the right thing to do?
3538 Doesn't do anything if the NAME does not start with a drive letter."
3580 "\\`su\\(do\\)?\\'"
3599 ;; No tilde characters in file name, do normal
3620 ;; ;; No tilde characters in file name, do normal
3646 ;; for `find-grep-dired' and `find-name-dired' in Emacs 22.
3693 (regexp-quote tramp-end-of-output) string)))
3755 ;; happening. Emit a helpful message and do it anyway.
3974 ;; all other cases we must do it ourselves.
4024 ;; Following part commented out because we don't know what to do about
4199 ;; 2) That TRAMP might want to do the same thing.
4259 ;; function as well but regexp only.
4269 'dired-compress-file 'dired-uncache
4284 'dired-file-modtime 'dired-make-compressed-filename
4285 'dired-recursive-delete-directory 'dired-set-file-modtime
4286 'dired-shell-unhandle-file-name 'dired-uucode-file
4296 'file-newer-than-file-p 'make-symbolic-link 'rename-file
4298 'dired-make-relative-symlink
4302 ((string-match tramp-file-name-regexp (nth 0 args)) (nth 0 args))
4303 ((string-match tramp-file-name-regexp (nth 1 args)) (nth 1 args))
4318 (list 'dired-call-process
4324 'dired-print-file 'dired-shell-call-process))
4365 ;; Nothing to do for us.
4428 (cons tramp-file-name-regexp 'tramp-file-name-handler))
4446 (cons tramp-completion-file-name-regexp
4495 ;; CCC: To do it right, we should quote certain characters
4536 ad-do-it))
4545 ;; Necessary because `tramp-file-name-regexp-unified' and
4546 ;; `tramp-completion-file-name-regexp-unified' aren't different.
4556 ;; necessary, because there are different regexp).
4563 (concat tramp-prefix-regexp
4564 "\\(" tramp-method-regexp "\\)" tramp-postfix-single-method-regexp "$")
4711 (list (concat tramp-prefix-regexp "\\(" tramp-method-regexp x-nil "\\)$")
4715 (list (concat tramp-prefix-regexp "\\(" tramp-user-regexp x-nil "\\)$")
4719 (list (concat tramp-prefix-regexp "\\(" tramp-host-regexp x-nil "\\)$")
4723 (list (concat tramp-prefix-regexp
4724 "\\(" tramp-user-regexp "\\)" tramp-postfix-user-regexp
4725 "\\(" tramp-host-regexp x-nil "\\)$")
4729 (list (concat tramp-prefix-regexp
4730 "\\(" tramp-method-regexp "\\)" tramp-postfix-single-method-regexp
4731 "\\(" tramp-user-regexp x-nil "\\)$")
4735 (list (concat tramp-prefix-regexp
4736 "\\(" tramp-method-regexp "\\)" tramp-postfix-single-method-regexp
4737 "\\(" tramp-host-regexp x-nil "\\)$")
4741 (list (concat tramp-prefix-regexp
4742 "\\(" tramp-method-regexp "\\)" tramp-postfix-single-method-regexp
4743 "\\(" tramp-user-regexp "\\)" tramp-postfix-user-regexp
4744 "\\(" tramp-host-regexp x-nil "\\)$")
4747 (mapcar (lambda (regexp)
4749 (tramp-completion-dissect-file-name1 regexp name)))
4800 (string-match (concat "^" (regexp-quote partial-method)) method)
4812 (string-match (concat "^" (regexp-quote partial-host)) host)
4821 (and user (string-match (concat "^" (regexp-quote partial-user)) user))
4827 (and host (string-match (concat "^" (regexp-quote partial-host)) host))
4861 (regexp
4863 "^\\(" tramp-host-regexp "\\)"
4864 "\\([ \t]+" "\\(" tramp-user-regexp "\\)" "\\)?")))
4867 (when (re-search-forward regexp nil t)
4891 (regexp (concat "^\\(" tramp-host-regexp "\\)")))
4894 (when (re-search-forward regexp nil t)
4920 (regexp (concat "^[ \t]*Host[ \t]+" "\\(" tramp-host-regexp "\\)")))
4923 (when (re-search-forward regexp nil t)
4935 (let ((regexp (concat "^key_[0-9]+_\\(" tramp-host-regexp "\\)\\.pub$"))
4940 (when (string-match regexp (car files))
4949 (let ((regexp (concat "^\\(" tramp-host-regexp
4955 (when (string-match regexp (car files))
4978 (regexp (concat "^\\(" tramp-host-regexp "\\)")))
4981 (when (re-search-forward regexp nil t)
5014 (regexp (concat "^\\(" tramp-user-regexp "\\):")))
5017 (when (re-search-forward regexp nil t)
5041 (regexp
5043 "^[ \t]*machine[ \t]+" "\\(" tramp-host-regexp "\\)"
5044 "\\([ \t]+login[ \t]+" "\\(" tramp-user-regexp "\\)" "\\)?")))
5047 (when (re-search-forward regexp nil t)
5249 "do if test -x $d/%s -a -f $d/%s; "
5522 (if (re-search-forward tramp-operation-not-permitted-regexp nil t)
5582 (tramp-message 10 "Looking for regexp \"%s\" from remote shell"
5625 (tramp-message 10 "Looking for regexp \"%s\" from remote shell"
5815 prompt than you do, so it is not at all unlikely that the variable
5821 (unless (or (string-match (concat "^" (regexp-quote host))
5913 (unless (tramp-wait-for-regexp
5919 ;; Now do all the connections as specified.
5927 ;; The multi-funcs don't need to do save-match-data, as that
6022 (defun tramp-wait-for-regexp (proc timeout regexp)
6042 (setq found (re-search-forward regexp nil t))))))
6049 (setq found (re-search-forward regexp nil t)))))
6061 (insert "[[Regexp `" regexp "' not found"
6068 See `tramp-wait-for-regexp' for more details.
6071 (tramp-wait-for-regexp
6177 ;; CCC this can't be the right way to do it. Hm.
6200 ;; Look for ^M and do something useful if found.
6319 (looking-at (format "\n%s\r?\n" (regexp-quote tramp-end-of-output))))
6412 (unless (looking-at (regexp-quote magic-string))
6495 ;; found. Note that we do not redirect stdout to /dev/null,
6517 (unless (looking-at (regexp-quote magic))
6579 Does not do anything if a connection is already open, but re-opens the
6655 (regexp-quote tramp-end-of-output)
6696 (when (looking-at (regexp-quote tramp-last-cmd))
6985 (string-match tramp-file-name-regexp name)))
7036 If both MULTI-METHOD and METHOD are nil, do a lookup in
7044 (let ((regexp (nth 0 tramp-multi-file-name-structure))
7048 (hop-regexp (nth 0 tramp-multi-file-name-hop-structure))
7053 (unless (string-match (format regexp hop-regexp) name)
7061 (while (string-match hop-regexp hops index)
7248 ad-do-it))
7287 (while (string-match (regexp-quote from) string)
7446 (nl (regexp-quote (format "\\%s" tramp-rsh-end-of-line))))
7459 ;; ;; This is needed because EFS installs (efs-dired-before-readin) into
7460 ;; ;; 'dired-before-readin-hook'. This prevents EFS from opening an FTP
7461 ;; ;; connection to help it's dired process. Not that I have any real
7462 ;; ;; idea *why* this is helpful to dired.
7469 ;; ;; not to call defadvice unless it's necessary. How do we find out whether
7476 ;; ad-do-it))
7481 ;; expansion could be found. We detect this situation and do
7495 (let ((res ad-do-it))
7499 (let ((res ad-do-it))
7542 tramp-login-prompt-regexp
7544 (tramp-password-prompt-regexp . tramp-reporter-dump-variable)
7545 tramp-wrong-passwd-regexp
7546 tramp-yesno-prompt-regexp
7547 tramp-yn-prompt-regexp
7548 tramp-terminal-prompt-regexp
7551 tramp-file-name-regexp
7600 Another useful thing to do is to put (setq tramp-debug-buffer t) in
7666 (let* ((tramp-buf-regexp "\\*\\(debug \\)?tramp/")
7670 (when (string-match tramp-buf-regexp (buffer-name b)) b))
7681 (if (re-search-forward tramp-buf-regexp (tramp-point-at-eol) t)
7771 ;; * Autodetect if remote `ls' groks the "--dired" switch.
7794 ;; * Avoid screen blanking when hitting `g' in dired. (Eli Tziperman)
7807 ;; do the right thing.
7832 ;; to do it?
7852 ;; about Tramp, it does not do the right thing if the target file
7871 ;; dired-uncache -- this will be needed when we do insert-directory caching