Coverage report: /home/ellis/comp/core/lib/vc/cli.lisp

KindCoveredAll%
expression045 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; cli.lisp --- VC CLI Implementation
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :vc/cli)
7
 
8
 (defcmd vc-status-cmd ()
9
   (vc-status *repo*))
10
 
11
 (defcmd vc-commit-cmd ()
12
   (vc-commit *repo* (car *args*)))
13
 
14
 (defcmd vc-pull-cmd ()
15
   (vc-pull *repo* (car *args*)))
16
 
17
 (defcmd vc-push-cmd ()
18
   (vc-push *repo* (car *args*)))
19
 
20
 (defcmd vc-addremove-cmd ()
21
   (apply 'vc-addremove *repo* *args*))
22
 
23
 (defcmd vc-clone-cmd ()
24
   (vc-clone (make-instance 'vc-repo) (car *args*)))
25
 
26
 (defcmd vc-fast-export-cmd ()
27
   (hg-fast-export (make-repo *default-pathname-defaults*) (car *args*)))
28
 
29
 (defcmd vc-bundle-cmd ()
30
   (vc-bundle (make-repo *default-pathname-defaults*) (car *args*)))
31
 
32
 (defcmd vc-unbundle-cmd ()
33
   (vc-unbundle (make-repo *default-pathname-defaults*) (car *args*)))
34
 
35
 (define-cli *vc-cli*
36
   :name "vc"
37
   :package :vc
38
   :help t
39
   :version 0
40
   :description "Version Controller"
41
   :thunk vc-status-cmd
42
   :cmds ((:name "status" :description "Print the status of the current repo"
43
           :thunk vc-status-cmd)
44
          (:name "push" :description "Push the current repo to a remote"
45
           :thunk vc-push-cmd)
46
          (:name "diff" :description "Perform a diff"
47
           :thunk vc-diff-cmd)
48
          (:name "pull" :description "Pull the current repo from a remote"
49
           :thunk vc-pull-cmd)
50
          (:name "clone" :description "Clone a repo from a remote" :thunk vc-clone-cmd)
51
          (:name "commit" :description "Commit the working set to the revision tree"
52
           :thunk vc-commit-cmd)
53
          (:name "addremove" :description "Add/remove files" :thunk vc-addremove-cmd)
54
          (:name "fast-export" :description "Run the hg-fast-export script"
55
           :thunk vc-fast-export-cmd)
56
          (:name "bundle" :description "Bundle a repo" :thunk vc-bundle-cmd)
57
          (:name "unbundle" :description "Unbundle a repo-bundle file" :thunk vc-unbundle-cmd)))