xemacs-beta: lisp/ediff/ediff-ptch.el comparison

comparison lisp/ediff/ediff-ptch.el @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30

author	cvs
date	Mon, 13 Aug 2007 09:02:59 +0200
parents	0293115a14e9
children	c7528f8e288d

comparison

equal deleted inserted replaced

-:804d1389bcd6
+:131b0175ea99
 ;;; ediff-ptch.el --- Ediff's  patch support
-;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1996 Free Software Foundation, Inc.
 ;; Author: Michael Kifer <kifer@cs.sunysb.edu>
 ;; This file is part of GNU Emacs.
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 ;;; Code:
-(provide 'ediff-ptch)
-;; compiler pacifier
-(defvar ediff-window-A)
-(defvar ediff-window-B)
-(defvar ediff-window-C)
-(defvar ediff-use-last-dir)
-(defvar ediff-shell)
-(eval-when-compile
-(let ((load-path (cons (expand-file-name ".") load-path)))
-(or (featurep 'ediff-init)
-	(load "ediff-init.el" nil nil 'nosuffix))
-(or (featurep 'ediff)
-	(load "ediff.el" nil nil 'nosuffix))
-))
-;; end pacifier
-(require 'ediff-init)
 (defvar ediff-last-dir-patch nil
 "Last directory used by an Ediff command for file to patch.")
 (defvar ediff-backup-extension
 (if (memq system-type '(vax-vms axp-vms emx ms-dos windows-nt windows-95))
 "_orig" ".orig")
-"Backup extension used by the patch program.
+"Default backup extension for the patch program.")
-See also `ediff-backup-specs'.")
-(defvar ediff-backup-specs (format "-b %s" ediff-backup-extension)
-"*Backup directives to pass to the patch program.
-Ediff requires that the old version of the file \(before applying the patch\)
-is saved in a file named `the-patch-file.extension'. Usually `extension' is
-`.orig', but this can be changed by the user and may depend on the system.
-Therefore, Ediff needs to know the backup extension used by the patch program.
-Some versions of the patch program let you specify `-b backup-extension'.
-Other versions only permit `-b', which assumes some canned extension
-\(usually `.orig'\).
-Note that both `ediff-backup-extension' and `ediff-backup-specs'
-must be properly set. If your patch program takes the option `-b',
-but not `-b extension', the variable `ediff-backup-extension' must
-still be set so Ediff will know which extension to use.")
 (defvar ediff-patch-default-directory nil
 "*Default directory to look for patches.")
 (defvar ediff-context-diff-label-regexp
 (concat "\\(" 	; context diff 2-liner
 	  "^\\*\\*\\* \\([^ \t]+\\)[^*]+[\t ]*\n--- \\([^ \t]+\\)"
 	  "\\|" 	; GNU unified format diff 2-liner
-	  "^--- \\([^ \t]+\\)[\t ]+.*\n\\+\\+\\+ \\([^ \t]+\\)"
+	  "^--- \\([^ \t]+\\)[^-]+[\t ]*\n\\+\\+\\+ \\([^ \t]+\\)"
 	  "\\)")
 "*Regexp matching filename 2-liners at the start of each context diff.")
 (defvar ediff-patch-program "patch"
-"*Name of the program that applies patches.
+"*Name of the program that applies patches.")
-It is recommended to use GNU-compatible versions.")
+(defvar ediff-patch-options ""
-(defvar ediff-patch-options "-f"
+"*Options to pass to ediff-patch-program.")
-"*Options to pass to ediff-patch-program.
-Note: the `-b' option should be specified in `ediff-backup-specs'.
-It is recommended to pass the `-f' option to the patch program, so it won't ask
-questions. However, some implementations don't accept this option, in which
-case the default value for this variable should be changed.")
 ;; The buffer of the patch file. Local to control buffer.
 (ediff-defvar-local ediff-patchbufer nil "")
 ;; The buffer where patch displays its diagnostics.
 		    (re-search-forward ediff-context-diff-label-regexp nil t))
 	  (if (= opoint (point))
 	      (forward-char 1) ; ensure progress towards the end
 	    (setq mark2 (move-marker (make-marker) (match-beginning 0))
 		  mark2-end (match-end 0)
-		  beg1 (or (match-beginning 2) (match-beginning 4))
+		  beg1 (match-beginning 2)
-		  end1 (or (match-end 2) (match-end 4))
+		  end1 (match-end 2)
-		  beg2 (or (match-beginning 3) (match-beginning 5))
+		  beg2 (match-beginning 3)
-		  end2 (or (match-end 3) (match-end 5)))
+		  end2 (match-end 3))
 	    ;; possible-file-names is holding the new file names until we
 	    ;; insert the old file name in the patch map
 	    ;; It is a pair (filename from 1st header line . fn from 2nd line)
 	    (setq possible-file-names
 		  (cons (if (and beg1 end1)
 			     (progn
 			       (with-output-to-temp-buffer ediff-msg-buffer
 				 (princ
 				  (format "
 The patch file contains a context diff for
 	%s
 	%s
 However, Ediff cannot infer the name of the actual file
 to be patched on your system. If you know the correct file name,
 	       (read-buffer
 		"Which buffer contains the patch? "
 		(current-buffer) 'must-match)))
 (setq patch-buf
 	    (find-file-noselect
-	     (read-file-name "Which file contains the patch? "
+	     (read-file-name "Which file contains the patch? " dir))))
-			     dir nil 'must-match))))
 (ediff-eval-in-buffer patch-buf
 (goto-char (point-min))
 (or (ediff-get-visible-buffer-window patch-buf)
 	  (progn
 (defun ediff-patch-file-internal (patch-buf source-filename
 					    &optional startup-hooks)
 (setq source-filename (expand-file-name source-filename))
-(let* ((shell-file-name ediff-shell)
+(let* ((backup-extension
+	  ;; if the user specified a -b option, extract the backup
+	  ;; extension from there; else use ediff-backup-extension
+	  (substring ediff-patch-options
+		     (if (string-match "-b[ \t]+" ediff-patch-options)
+			 (match-end 0) 0)
+		     (if (string-match "-b[ \t]+[^ \t]+" ediff-patch-options)
+			 (match-end 0) 0)))
+	 (shell-file-name ediff-shell)
 	 (patch-diagnostics (get-buffer-create "*ediff patch diagnostics*"))
 	 ;; ediff-find-file may use a temp file to do the patch
 	 ;; so, we save source-filename and true-source-filename as a var
 	 ;; that initially is source-filename but may be changed to a temp
 	 ;; file for the purpose of patching.
 	 (true-source-filename source-filename)
 	 (target-filename source-filename)
-	 target-buf buf-to-patch file-name-magic-p
+	 target-buf buf-to-patch file-name-magic-p ctl-buf backup-style)
-	 patch-return-code ctl-buf backup-style aux-wind)
+;; if the user didn't specify a backup extension, use
+;; ediff-backup-extension
+(if (string= backup-extension "")
+	(setq backup-extension ediff-backup-extension))
 (if (string-match "-V" ediff-patch-options)
 	(error
 	 "Ediff doesn't take the -V option in `ediff-patch-options'--sorry"))
 ;; Make a temp file, if source-filename has a magic file handler (or if
 ;; true-source-filename should be either the original name or a
 ;; temporary file where we put the after-product of the file handler.
 (setq file-name-magic-p (not (equal (file-truename true-source-filename)
 					(file-truename source-filename))))
-;; Checkout orig file, if necessary, so that the patched file
+;; Checkout orig file, if necessary, so that the patched file could be
-;; could be checked back in.
+;; checked back in.
-(ediff-maybe-checkout buf-to-patch)
+(if (ediff-file-checked-in-p (buffer-file-name buf-to-patch))
+	(ediff-toggle-read-only buf-to-patch))
 (ediff-eval-in-buffer patch-diagnostics
 (insert-buffer patch-buf)
 (message "Applying patch ... ")
 ;; fix environment for gnu patch, so it won't make numbered extensions
 (setq backup-style (getenv "VERSION_CONTROL"))
 (setenv "VERSION_CONTROL" nil)
-(setq patch-return-code
+;; always pass patch the -f option, so it won't ask any questions
-	    (call-process-region
+(shell-command-on-region
-	     (point-min) (point-max)
+(point-min) (point-max)
-	     shell-file-name
+(format "%s -f %s -b %s %s"
-	     t   ; delete region (which contains the patch
+	       ediff-patch-program ediff-patch-options
-	     t   ; insert output (patch diagnostics) in current buffer
+	       backup-extension
-	     nil ; don't redisplay
+	       (expand-file-name true-source-filename))
-	     shell-command-switch   ; usually -c
+t)
-	     (format "%s %s %s %s"
-		     ediff-patch-program
-		     ediff-patch-options
-		     ediff-backup-specs
-		     (expand-file-name true-source-filename))
-	     ))
 ;; restore environment for gnu patch
 (setenv "VERSION_CONTROL" backup-style))
 (message "Applying patch ... done")
 (message "")
 (switch-to-buffer patch-diagnostics)
 (sit-for 0) ; synchronize - let the user see diagnostics
-(or (and (eq patch-return-code 0) ; patch reported success
+(or (file-exists-p (concat true-source-filename backup-extension))
-	     (file-exists-p
+	(error "Patch appears to have failed"))
-	      (concat true-source-filename ediff-backup-extension)))
-	(progn
-	  (with-output-to-temp-buffer ediff-msg-buffer
-	    (princ (format "
-Patch has failed OR the backup version of the patched file was not created by
-the patch program.
-One reason may be that the values of the variables
-ediff-patch-options    = %S
-ediff-backup-extension = %S
-ediff-backup-specs     = %S
-are not appropriate for the program specified in the variable
-ediff-patch-program    = %S
-Another reason could be that the %S program doesn't understand
-the format of the patch file you used.
-See Ediff on-line manual for more details on these variables.
-\(Or use a GNU-compatible patch program and stay out of trouble.\)
-Type any key to continue...
-"
-			   ediff-patch-options
-			   ediff-backup-extension
-			   ediff-backup-specs
-			   ediff-patch-program
-			   ediff-patch-program)))
-	  (beep 1)
-	  (if (setq aux-wind (get-buffer-window ediff-msg-buffer))
-	      (progn
-		(select-window aux-wind)
-		(goto-char (point-max))))
-	  (read-char-exclusive)
-	  (if aux-wind (bury-buffer)) ; ediff-msg-buffer
-	  (if (setq aux-wind (get-buffer-window patch-diagnostics))
-	      (progn
-		(select-window aux-wind)
-		(bury-buffer)))
-	  (error "Patch appears to have failed")))
 ;; If black magic is involved, apply patch to a temp copy of the
 ;; file. Otherwise, apply patch to the orig copy.  If patch is applied
 ;; to temp copy, we name the result old-name_patched for local files
 ;; and temp-copy_patched for remote files. The orig file name isn't
 ;; changed, and the temp copy of the original is later deleted.
 ;; Without magic, the original file is renamed (usually into
 ;; old-name_orig) and the result of patching will have the same name as
 ;; the original.
 (if (not file-name-magic-p)
 	(ediff-eval-in-buffer buf-to-patch
-	  (set-visited-file-name
+	  (set-visited-file-name (concat source-filename backup-extension))
-	   (concat source-filename ediff-backup-extension))
 	  (set-buffer-modified-p nil))
 ;; Black magic in effect.
 ;; If orig file was remote, put the patched file in the temp directory.
 ;; If orig file is local, put the patched file in the directory of
 	     "_patched"))
 (rename-file true-source-filename target-filename t)
 ;; arrange that the temp copy of orig will be deleted
-(rename-file (concat true-source-filename ediff-backup-extension)
+(rename-file (concat true-source-filename backup-extension)
 		   true-source-filename t))
 ;; make orig buffer read-only
 (setq startup-hooks
 	  (cons 'ediff-set-read-only-in-buf-A startup-hooks))
 ;;; Local Variables:
 ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)
 ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1)
-;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body))
 ;;; End:
+(provide 'ediff-ptch)
 ;;; ediff-ptch.el ends here

Mercurial > hg > xemacs-beta

comparison lisp/ediff/ediff-ptch.el @ 70:131b0175ea99 r20-0b30