/[meta-cvs]/meta-cvs/F-AFC09F145399B1273F4BF98702F5BE8C
ViewVC logotype

Contents of /meta-cvs/F-AFC09F145399B1273F4BF98702F5BE8C

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Fri Jan 25 02:04:45 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.2: +7 -13 lines
A bit of refactoring.
Added mcvs-move.
1 (require "system")
2 (require "mapping")
3 (require "chatter")
4 (provide "diff")
5
6 (defun mcvs-diff (&rest files)
7 (in-sandbox-root-dir
8 (let (filemap files-to-diff)
9 (with-open-file (file *mcvs-map-local* :direction :input)
10 (setf filemap (read file)))
11
12 (chatter-info "Preparing diff list.~%")
13 (when (null files)
14 (setf files '(".")))
15 (dolist (file files)
16 (can-restart-here ("Continue preparing diff list.")
17 (let* ((full-name (sandbox-translate-path file))
18 (entries (filemap-prefix-lookup filemap full-name)))
19 (if (not entries)
20 (error "mcvs-diff: ~a is not known to MCVS." full-name)
21 (setf files-to-diff (nconc files-to-diff entries))))))
22
23 (when files-to-diff
24 (chatter-info "Synchronizing.~%")
25 (mapping-synchronize)
26
27 (current-dir-restore
28 (chdir *mcvs-dir*)
29 (chatter-info "Invoking CVS.~%")
30 (execute-program `("cvs" "diff"
31 ,@(mapcar #'(lambda (x)
32 (basename (first x)))
33 files-to-diff))))))
34 (values)))

  ViewVC Help
Powered by ViewVC 1.1.5