/[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.4 - (hide annotations)
Mon Mar 8 06:11:40 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-0
Changes since 1.3: +0 -4 lines
Revamped loading system. Got rid of require/provide in all
Lisp source files.

* code/mcvs.lisp: New file. Responsible for compiling and loading
everything in the right order.

* code/mcvs-main.lisp: File renamed to main.lisp.

* code/mcvs-package.lisp: File renamed to package.lisp.

* code/system.lisp: File removed.
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 kaz 1.3 (in-package "META-CVS")
6 kaz 1.2
7     (defun mcvs-watch (mcvs-opts watch-opts files)
8     (when (> (length watch-opts) 1)
9     (error "only one option can be specified"))
10     (find-bind (:test #'string= :key #'first)
11     ((on "on") (off "off")
12     (add "add") (remove "remove"))
13     watch-opts
14     (let ((watch-args (cond
15     (on '("on"))
16     (off '("off"))
17     (add `("add" "-a" ,(second add)))
18     (remove `("remove" "-a" ,(second remove)))
19     (t (error "no watch option specified")))))
20     (mcvs-generic "watch" mcvs-opts nil watch-args files))))
21    
22     (defun mcvs-watch-wrapper (mcvs-opts command-opts command-args)
23     (mcvs-watch mcvs-opts command-opts command-args))

  ViewVC Help
Powered by ViewVC 1.1.5