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

Contents of /meta-cvs/F-AFC09F145399B1273F4BF98702F5BE8C

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (hide annotations)
Sat Jan 26 01:38:37 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.3: +6 -3 lines
Moving closer toward delivery.
1 kaz 1.1 (require "system")
2     (require "mapping")
3     (require "chatter")
4     (provide "diff")
5    
6 kaz 1.4 (defun mcvs-diff (cvs-options diff-options &rest files)
7 kaz 1.3 (in-sandbox-root-dir
8     (let (filemap files-to-diff)
9 kaz 1.1 (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 kaz 1.3 (let* ((full-name (sandbox-translate-path file))
18 kaz 1.4 (entries (filemap-prefix-matches filemap full-name)))
19 kaz 1.3 (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 kaz 1.1
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 kaz 1.4 (execute-program `("cvs" ,@cvs-options "diff" ,@diff-options
31 kaz 1.1 ,@(mapcar #'(lambda (x)
32     (basename (first x)))
33     files-to-diff))))))
34     (values)))
35 kaz 1.4
36     (defun mcvs-diff-wrapper (cvs-options cvs-specific-options mcvs-args)
37     (mcvs-diff cvs-options cvs-specific-options mcvs-args))

  ViewVC Help
Powered by ViewVC 1.1.5