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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Mon Oct 14 00:00:23 2002 UTC (11 years, 6 months ago) by kaz
Branch: MAIN
Changes since 1.1: +24 -0 lines
Merging from mcvs-1-0-branch.

* code/mcvs-main.lisp (*usage*): Describe export and watch commands.
(*watch-options*): New constant.
(*mcvs-command-table*): New entry for watch command.

* code/watch.lisp: New file.
1 kaz 1.2 ;;; 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))

  ViewVC Help
Powered by ViewVC 1.1.5