/[meta-cvs]/meta-cvs/F-233AD6EEE14894A7303F09519A2AB734
ViewVC logotype

Contents of /meta-cvs/F-233AD6EEE14894A7303F09519A2AB734

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide annotations)
Sat Jan 26 02:37:53 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
Changes since 1.6: +4 -0 lines
Copyright notices.
1 kaz 1.7 ;;; This source file is part of the MCVS program,
2     ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.1 (require "import")
6     (require "checkout")
7     (require "add")
8 kaz 1.3 (require "remove")
9 kaz 1.4 (require "move")
10 kaz 1.1 (require "update")
11     (require "commit")
12 kaz 1.2 (require "diff")
13 kaz 1.6 (provide "mcvs-main")
14 kaz 1.5
15     (defconstant *mcvs-command-table*
16     `(("import" ,#'mcvs-import-wrapper)
17     ("checkout" ,#'mcvs-checkout-wrapper)
18     ("co" ,#'mcvs-checkout-wrapper)
19     ("add" ,#'mcvs-add-wrapper)
20     ("remove" ,#'mcvs-remove-wrapper)
21     ("rm" ,#'mcvs-remove-wrapper)
22     ("move" ,#'mcvs-move-wrapper)
23     ("mv" ,#'mcvs-move-wrapper)
24     ("update" ,#'mcvs-update-wrapper)
25     ("up" ,#'mcvs-update-wrapper)
26     ("commit" ,#'mcvs-commit-wrapper)
27     ("ci" ,#'mcvs-commit-wrapper)
28     ("diff" ,#'mcvs-diff-wrapper)))
29    
30     (defun parse-args (args)
31     (values (first args) nil nil (rest args)))
32    
33     (defun mcvs-execute (args)
34     (when (null args)
35     (error "mcvs: requires arguments."))
36     (multiple-value-bind (command-string cvs-options cvs-specific-options
37     mcvs-args) (parse-args args)
38     (let ((command (find command-string *mcvs-command-table* :key #'first
39     :test #'string=)))
40     (when (not command)
41     (error "mcvs: ~a is not a recognized mcvs command." command-string))
42     (funcall (second command) cvs-options cvs-specific-options mcvs-args))))
43    
44     #+clisp
45     (defun mcvs ()
46     (mcvs-execute ext:*args*))

  ViewVC Help
Powered by ViewVC 1.1.5