Lines Matching +defs:buffer +defs:file +defs:format
13 ;; This file is part of GNU Emacs.
26 ;; along with GNU Emacs; see the file COPYING. If not, write to the
32 ;; This file provides Direct Client-to-Client support for ERC.
41 ;; To use this file, put
49 ;; /dcc get nick [file] - Accept DCC offer from nick
51 ;; /dcc send nick file - Offer DCC SEND to nick
80 ((:nick \"nick!user@host\" :type GET :peer proc :parent proc :size size :file file)
82 (:nick \"nick\" :type SEND :peer server-proc :parent parent-proc :file
83 file :sent <marker> :confirmed <marker>))
99 :file - for outgoing sends, the full path to the file. for incoming sends,
102 :size - size of the file, may be nil on incoming DCCs")
116 (defun erc-dcc-open-network-stream (procname buffer addr port entry)
119 (open-network-stream-nowait procname buffer addr port)
120 (open-network-stream procname buffer addr port)))
139 . "DCC: file %f transfer complete (%s bytes in %t seconds)")
141 (dcc-get-file-too-long
153 (dcc-send-offered . "DCC: file %f offered by %n (%u@%h) (size %s)")
241 (format "%.0f" res)))))
255 (format "%s.%s.%s.%s" first second third fourth)))
272 'auto - Automatically accept the request and begin downloading the file
279 (format-network-address (process-contact proc :local) t))
316 :buffer nil
325 (file-error
337 (erc-log (format "(erc-dcc-server-accept): server %s client %s message %s"
351 "*Default directory for incoming DCC file transfers.
395 (get (mapcar (lambda (elt) (plist-get elt :file))
454 (defun erc-dcc-do-GET-command (proc nick &optional file)
456 (filename (or file (plist-get elt :file) "unknown")))
458 (let* ((file (read-file-name
459 (format "Local filename (default %s): "
460 (file-name-nondirectory filename))
463 (expand-file-name (file-name-nondirectory filename)
466 (cond ((file-exists-p file)
467 (if (yes-or-no-p (format "File %s exists. Overwrite? "
468 file))
469 (erc-dcc-get-file elt file proc)
475 (erc-dcc-get-file elt file proc))))
512 (plist-member elt :file)
513 (buffer-live-p (get-buffer (plist-get elt :file)))
517 (/ (buffer-size
518 (get-buffer (plist-get elt :file)))
521 ?f (or (and (plist-member elt :file) (plist-get elt :file)) "")))
527 (defun erc-dcc-do-SEND-command (proc nick file)
529 (if (file-exists-p file)
533 'dcc-send-offer ?n nick ?f file)
534 (erc-dcc-send-file nick file) t)
595 'GET (format "%s!%s@%s" nick login host)
597 :ip ip :port port :file filename
600 (erc-dcc-auto-mask-p (format "\"%s!%s@%s\"" nick login host)))
601 (erc-dcc-get-file (car erc-dcc-list) filename proc))))
661 'CHAT (format "%s!%s@%s" nick login host)
675 (make-variable-buffer-local 'erc-dcc-entry-data)
700 (with-current-buffer (process-buffer proc)
704 (format "DCC: Confirmed %d, sent %d, sending block now"
709 (string (buffer-substring-no-properties sent-marker end)))
722 (with-current-buffer (process-buffer proc)
731 ?f buffer-file-name
734 (set-buffer-modified-p nil)
735 (kill-buffer (current-buffer))
745 (format "DCC: Client confirmed too much!"))
752 (format "DCC: SEND connect from %s"
753 (format-network-address (process-contact proc :remote)))))
766 (buf (marker-buffer (plist-get elt :sent))))
770 (with-current-buffer buf
771 (set-process-buffer proc buf)
775 (defun erc-dcc-find-file (file)
776 (with-current-buffer (generate-new-buffer (file-name-nondirectory file))
777 (insert-file-contents-literally file)
778 (setq buffer-file-name file)
779 (current-buffer)))
781 (defun erc-dcc-file-to-name (file)
782 (with-temp-buffer
783 (insert (file-name-nondirectory file))
785 (buffer-string)))
787 (defun erc-dcc-send-file (nick file &optional pproc)
795 (let* ((buffer (erc-dcc-find-file file))
796 (size (buffer-size buffer))
797 (start (with-current-buffer buffer
805 :file file :size size
808 pproc (format "PRIVMSG %s :\C-aDCC SEND %s %s %d %d\C-a\n"
809 nick (erc-dcc-file-to-name file)
818 (make-variable-buffer-local 'erc-dcc-byte-count)
820 (defun erc-dcc-get-file (entry file parent-proc)
824 (let* ((buffer (generate-new-buffer (file-name-nondirectory file)))
826 (with-current-buffer buffer
828 ;; This is necessary to have the buffer saved as-is in GNU
830 ;; XEmacs change: We don't have `set-buffer-multibyte', setting
832 (when (fboundp 'set-buffer-multibyte)
833 (set-buffer-multibyte nil))
836 buffer-file-type t
837 buffer-read-only t)
838 (set-visited-file-name file)
845 "dcc-get" buffer
849 (set-process-buffer proc buffer)
852 (set-buffer-file-coding-system 'binary t)
862 buffer, and sends back the replies after each block of data per the DCC
865 (with-current-buffer (process-buffer proc)
876 ?f (file-name-nondirectory buffer-file-name)
883 'dcc-get-file-too-long
884 ?f (file-name-nondirectory buffer-file-name))
896 (with-current-buffer (process-buffer proc)
898 (setq buffer-read-only nil)
903 ?f (file-name-nondirectory buffer-file-name)
904 ?s (number-to-string (buffer-size))
905 ?t (format "%.0f"
908 (save-buffer))
909 (kill-buffer (process-buffer proc))
914 (defcustom erc-dcc-chat-buffer-name-format "DCC-CHAT-%s"
915 "*Format to use for DCC Chat buffer names."
920 "*Hook calls when `erc-dcc-chat-mode' finished setting up the buffer."
942 (format "Set DCC Chat requests to %S"
945 (format "DCC Chat requests are set to %S"
957 (format "Set DCC Send requests to %S"
960 (format "DCC Send requests are set to %S"
997 (get-buffer-process (current-buffer)) line)
998 (error "erc-dcc-chat-send-input-line in %s" (current-buffer))))
1013 (format "PRIVMSG %s :\C-aDCC CHAT chat %s %d\C-a\n"
1018 (make-variable-buffer-local 'erc-dcc-from)
1021 (make-variable-buffer-local 'erc-dcc-unprocessed-output)
1024 "Setup a DCC chat buffer, returning the buffer."
1026 (buffer (generate-new-buffer
1027 (format erc-dcc-chat-buffer-name-format nick)))
1030 (erc-setup-buffer buffer)
1031 ;; buffer is now the current buffer.
1039 (erc-display-prompt buffer (point-max))
1040 (set-process-buffer proc buffer)
1041 (add-hook 'kill-buffer-hook 'erc-dcc-chat-buffer-killed nil t)
1043 buffer))
1048 buffer proc)
1060 (setq buffer (erc-dcc-chat-setup entry))))
1063 (let ((orig-buffer (current-buffer)))
1066 (set-buffer (process-buffer proc))
1071 (set-buffer orig-buffer))))
1086 (defun erc-dcc-chat-buffer-killed ()
1087 (erc-dcc-chat-close "killed buffer"))
1104 (let ((buf (current-buffer))
1113 (set-buffer buf))))