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

Contents of /meta-cvs/F-233AD6EEE14894A7303F09519A2AB734

Parent Directory Parent Directory | Revision Log Revision Log


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

  ViewVC Help
Powered by ViewVC 1.1.5