home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / gnu / emacs / sources / 810 < prev    next >
Encoding:
Text File  |  1992-11-19  |  6.4 KB  |  165 lines
  1. Newsgroups: gnu.emacs.sources
  2. Path: sparky!uunet!stanford.edu!ames!saimiri.primate.wisc.edu!caen!batcomputer!cornell!rochester!boris
  3. From: boris@cs.rochester.edu (Boris Goldowsky)
  4. Subject: Re: Automatic file carbon-copying
  5. Message-ID: <1992Nov19.173056.14441@cs.rochester.edu>
  6. Summary: shadow-files.el PATCH
  7. Reply-To: boris@slate.cs.rochester.edu
  8. Organization: University of Rochester
  9. References: <KEVIN.92Nov18163701@calamityjane.edscom.demon.co.uk> <1992Nov18.214842.16875@cs.rochester.edu>
  10. Date: Thu, 19 Nov 1992 17:30:56 GMT
  11. Lines: 152
  12.  
  13. It was pointed out to me that I used one function that I did not define,
  14. and that on some systems (system-name) does not return a full hostname.
  15. Here is a patch for those problems.  (Well, it actually does not fix the
  16. second problem, it just provides a way around it -- set shadow-system-name
  17. to the complete hostname, gotten by some other means.  Better solutions
  18. would be welcomed...
  19.  
  20. Bng                                (patch follows .sig)
  21. --
  22. Boris Goldowsky                        The only way you'll end up in a corner
  23.                                         Is by walking in too straight of a li
  24. boris@prodigal.psych.rochester.edu        --Claudia Schmidt                 n
  25. 57 Glasgow Street, Rochester, NY 14608                                      e
  26.  
  27. ----------------------------------------------------------------------
  28. *** shadow-files.el.orig    Thu Nov 19 12:25:52 1992
  29. --- shadow-files.el    Thu Nov 19 12:22:34 1992
  30. ***************
  31. *** 1,5 ****
  32.   ;;;; shadow-files.el: For keeping identical copies of files on multiple hosts
  33. ! ;;;  By Boris Goldowsky, 11/92.  Bugs to <boris@prodigal.psych.rochester.edu>.
  34.   
  35.   ;;; USE: put (require 'shadow-files) in your .emacs; add clusters and file
  36.   ;;; groups with shadow-define-cluster, shadow-define-group, and
  37. --- 1,5 ----
  38.   ;;;; shadow-files.el: For keeping identical copies of files on multiple hosts
  39. ! ;;;  By Boris Goldowsky, 11/19/92.  Bugs to <boris@psych.rochester.edu>.
  40.   
  41.   ;;; USE: put (require 'shadow-files) in your .emacs; add clusters and file
  42.   ;;; groups with shadow-define-cluster, shadow-define-group, and
  43. ***************
  44. *** 57,62 ****
  45. --- 57,69 ----
  46.   This is a replacement for kill-emacs-hook, which only allowed one hook
  47.   function.")
  48.   
  49. + ;;; The following two variables should in most cases initialize themselves
  50. + ;;; correctly.  They are provided as variables in case the defaults are wrong
  51. + ;;; on your machine.
  52. + 
  53. + (defvar shadow-system-name (system-name)
  54. +   "The complete hostname of this machine.")
  55. + 
  56.   (defvar shadow-homedir (expand-file-name (getenv "HOME"))
  57.     ;; Call to expand-file-name is in case we are using symlink-fix
  58.     "The directory that shadow file specs are assumed to be relative to 
  59. ***************
  60. *** 190,199 ****
  61.   ;;; Internal functions
  62.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  63.   
  64.   (defun shadow-of (buffer)
  65.     "If BUFFER's file has shadows, return the list of shadow structures."
  66. !   (let* ((site (system-name))
  67. !      (file-abs (buffer-file-name buffer))
  68.        (file-rel (if (string-match (concat "^" (regexp-quote shadow-homedir))
  69.                        file-abs)
  70.                  (substring file-abs (1+ (match-end 0)))))
  71. --- 197,217 ----
  72.   ;;; Internal functions
  73.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  74.   
  75. + (defun shadow-member (item list)
  76. +   "Like `member' or `memq', but uses EQUAL for comparison."
  77. +   (let ((ptr list)
  78. +         (done nil)
  79. +         (result '()))
  80. +     (while (not (or done (endp ptr)))
  81. +       (cond ((equal item (car ptr))
  82. +              (setq done t)
  83. +              (setq result ptr)))
  84. +       (setq ptr (cdr ptr)))
  85. +     result))
  86. + 
  87.   (defun shadow-of (buffer)
  88.     "If BUFFER's file has shadows, return the list of shadow structures."
  89. !   (let* ((file-abs (buffer-file-name buffer))
  90.        (file-rel (if (string-match (concat "^" (regexp-quote shadow-homedir))
  91.                        file-abs)
  92.                  (substring file-abs (1+ (match-end 0)))))
  93. ***************
  94. *** 204,213 ****
  95.              (let ((f (shadow-file s)))
  96.                (and (string-equal file-abs 
  97.                       (expand-file-name f shadow-homedir))
  98. !               (shadow-site-match (shadow-site s) site)))))
  99.           group)
  100.         (setq found (append found 
  101. !                   (shadow-what-to-copy site nil buffer group)))))
  102.       (dolist (group shadow-regexp-groups)
  103.         (if (and (or (string-match (shadow-file (car group)) file-abs)
  104.              (if file-rel
  105. --- 222,233 ----
  106.              (let ((f (shadow-file s)))
  107.                (and (string-equal file-abs 
  108.                       (expand-file-name f shadow-homedir))
  109. !               (shadow-site-match (shadow-site s) 
  110. !                          shadow-system-name)))))
  111.           group)
  112.         (setq found (append found 
  113. !                   (shadow-what-to-copy shadow-system-name
  114. !                            nil buffer group)))))
  115.       (dolist (group shadow-regexp-groups)
  116.         (if (and (or (string-match (shadow-file (car group)) file-abs)
  117.              (if file-rel
  118. ***************
  119. *** 214,223 ****
  120.                  (string-match (shadow-file (car group)) file-rel)))
  121.              (some (function
  122.                 (lambda (s)
  123. !             (shadow-site-match (shadow-site s) site)))
  124.                group))
  125.         (setq found (append found
  126. !                   (shadow-what-to-copy site (or file-rel file-abs)
  127.                              buffer group)))))
  128.       found))
  129.   
  130. --- 234,245 ----
  131.                  (string-match (shadow-file (car group)) file-rel)))
  132.              (some (function
  133.                 (lambda (s)
  134. !             (shadow-site-match (shadow-site s) 
  135. !                        shadow-system-name)))
  136.                group))
  137.         (setq found (append found
  138. !                   (shadow-what-to-copy shadow-system-name
  139. !                            (or file-rel file-abs)
  140.                              buffer group)))))
  141.       found))
  142.   
  143. ***************
  144. *** 241,247 ****
  145.   if it is on the shadow-file-list."
  146.     (let ((shadows (shadow-of (current-buffer))))
  147.       (dolist (s shadows)
  148. !       (when (not (member-general s shadow-marked-files (function equal)))
  149.       (push s shadow-marked-files)
  150.       (message "Use %s to copy this file to %s."
  151.            (substitute-command-keys "\\[shadow-write-marked-files]")
  152. --- 263,269 ----
  153.   if it is on the shadow-file-list."
  154.     (let ((shadows (shadow-of (current-buffer))))
  155.       (dolist (s shadows)
  156. !       (when (not (shadow-member s shadow-marked-files))
  157.       (push s shadow-marked-files)
  158.       (message "Use %s to copy this file to %s."
  159.            (substitute-command-keys "\\[shadow-write-marked-files]")
  160. -- 
  161. Boris Goldowsky                        The only way you'll end up in a corner
  162.                                         Is by walking in too straight of a li
  163. boris@prodigal.psych.rochester.edu        --Claudia Schmidt                 n
  164. 57 Glasgow Street, Rochester, NY 14608                                      e
  165.