comparison lisp/net/tramp-smb.el @ 53206:0c19f1a19b2b

(tramp-chunksize): Extend docstring. Suggested by Charles Curley <[e-mail]>. (tramp-multi-connection-function-alist): Add ssht entry which adds "-e none -t -t" to the list of ssh args. Suggested by Adrian Aichner. (tramp-get-method-parameter): New function to retrieve a method parameter. This allows for omission of method parameters. Callers adjusted.

53205:ed27adf8b7ac

	     (tramp-smb-send-command user host (format "rm \"%s\"" file)))
	    ;; Go Home
	    (tramp-smb-send-command user host (format "cd \\"))
	  ;; Error
	  (tramp-smb-send-command user host (format "cd \\"))
	  (error "Cannot delete file `%s'" directory))))))

(defun tramp-smb-handle-directory-files
  (directory &optional full match nosort)
  "Like `directory-files' for tramp files."
  (setq directory (directory-file-name (expand-file-name directory)))

	(unless nosort (setq entries (sort entries 'string-lessp)))
	;; That's it
	entries))))

(defun tramp-smb-handle-directory-files-and-attributes
  (directory &optional full match nosort)
  "Like `directory-files-and-attributes' for tramp files."
  (mapcar
   (lambda (x)
     (cons x (file-attributes
	(if full x (concat (file-name-as-directory directory) x)))))
   (directory-files directory full match nosort)))
 
(defun tramp-smb-handle-file-attributes (filename &optional nonnumeric)
  "Like `file-attributes' for tramp files.
Optional argument NONNUMERIC means return user and group name
rather than as numbers."
;  (with-parsed-tramp-file-name filename nil
  (let (user host localname)
    (with-parsed-tramp-file-name filename l
      (setq user l-user host l-host localname l-localname))
    (save-excursion
      (let* ((share (tramp-smb-get-share localname))
	     (file (tramp-smb-get-localname localname nil))
	     (entries (tramp-smb-get-file-entries user host share file))
	     (entry (and entries
			 (assoc (file-name-nondirectory file) entries)))
	     (inode (tramp-smb-get-inode share file))
	     (device (tramp-get-device nil tramp-smb-method user host)))

	; check result
	(when entry
	  (list (and (string-match "d" (nth 1 entry))
		     t)         ;0 file type
		-1		;1 link count
		-1		;2 uid
		-1		;3 gid
		'(0 0)		;4 atime
		(nth 3 entry)	;5 mtime
		'(0 0)		;6 ctime
		(nth 2 entry)   ;7 size
		(nth 1 entry)   ;8 mode

(defun tramp-smb-handle-make-directory-internal (directory)
  "Like `make-directory-internal' for tramp files."
  (setq directory (directory-file-name (expand-file-name directory)))
  (unless (file-name-absolute-p directory)
    (setq ldir (concat default-directory directory)))
;  (with-parsed-tramp-file-name directory nil
  (let 	(user host localname)
    (with-parsed-tramp-file-name directory l
      (setq user l-user host l-host localname l-localname))
    (save-match-data

53206:0c19f1a19b2b

	     (tramp-smb-send-command user host (format "rm \"%s\"" file)))
	    ;; Go Home
	    (tramp-smb-send-command user host (format "cd \\"))
	  ;; Error
	  (tramp-smb-send-command user host (format "cd \\"))
	  (error "Cannot delete file `%s'" filename))))))

(defun tramp-smb-handle-directory-files
  (directory &optional full match nosort)
  "Like `directory-files' for tramp files."
  (setq directory (directory-file-name (expand-file-name directory)))

	(unless nosort (setq entries (sort entries 'string-lessp)))
	;; That's it
	entries))))

(defun tramp-smb-handle-directory-files-and-attributes
  (directory &optional full match nosort id-format)
  "Like `directory-files-and-attributes' for tramp files."
  (mapcar
   (lambda (x)
     ;; We cannot call `file-attributes' for backward compatibility reasons.
     ;; Its optional parameter ID-FORMAT is introduced with Emacs 21.4.
     (cons x (tramp-smb-handle-file-attributes
	(if full x (concat (file-name-as-directory directory) x)) id-format)))
   (directory-files directory full match nosort)))
 
(defun tramp-smb-handle-file-attributes (filename &optional id-format)
  "Like `file-attributes' for tramp files."
;  (with-parsed-tramp-file-name filename nil
  (let (user host localname)
    (with-parsed-tramp-file-name filename l
      (setq user l-user host l-host localname l-localname))
    (save-excursion
      (let* ((share (tramp-smb-get-share localname))
	     (file (tramp-smb-get-localname localname nil))
	     (entries (tramp-smb-get-file-entries user host share file))
	     (entry (and entries
			 (assoc (file-name-nondirectory file) entries)))
	     (uid (if (and id-format (equal id-format 'string)) "nobody" -1))
	     (gid (if (and id-format (equal id-format 'string)) "nogroup" -1))
	     (inode (tramp-smb-get-inode share file))
	     (device (tramp-get-device nil tramp-smb-method user host)))

	; check result
	(when entry
	  (list (and (string-match "d" (nth 1 entry))
		     t)         ;0 file type
		-1		;1 link count
		uid		;2 uid
		gid		;3 gid
		'(0 0)		;4 atime
		(nth 3 entry)	;5 mtime
		'(0 0)		;6 ctime
		(nth 2 entry)   ;7 size
		(nth 1 entry)   ;8 mode

(defun tramp-smb-handle-make-directory-internal (directory)
  "Like `make-directory-internal' for tramp files."
  (setq directory (directory-file-name (expand-file-name directory)))
  (unless (file-name-absolute-p directory)
    (setq directory (concat default-directory directory)))
;  (with-parsed-tramp-file-name directory nil
  (let 	(user host localname)
    (with-parsed-tramp-file-name directory l
      (setq user l-user host l-host localname l-localname))
    (save-match-data