/[meta-cvs]/meta-cvs/F-68AFAF48227DA0DCEF2B8A3324D5F228.lisp
ViewVC logotype

Diff of /meta-cvs/F-68AFAF48227DA0DCEF2B8A3324D5F228.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by kaz, Sun Oct 13 23:53:14 2002 UTC revision 1.2 by kaz, Mon Oct 14 00:00:23 2002 UTC
# Line 0  Line 1 
1    ;;; This source file is part of the Meta-CVS program,
2    ;;; which is distributed under the GNU license.
3    ;;; Copyright 2002 Kaz Kylheku
4    
5    (require "generic")
6    (provide "watch")
7    
8    (defun mcvs-watch (mcvs-opts watch-opts files)
9      (when (> (length watch-opts) 1)
10        (error "only one option can be specified"))
11      (find-bind (:test #'string= :key #'first)
12                 ((on "on") (off "off")
13                  (add "add") (remove "remove"))
14                 watch-opts
15        (let ((watch-args (cond
16                            (on '("on"))
17                            (off '("off"))
18                            (add `("add" "-a" ,(second add)))
19                            (remove `("remove" "-a" ,(second remove)))
20                            (t (error "no watch option specified")))))
21          (mcvs-generic "watch" mcvs-opts nil watch-args files))))
22    
23    (defun mcvs-watch-wrapper (mcvs-opts command-opts command-args)
24      (mcvs-watch mcvs-opts command-opts command-args))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5