Coverage report: /home/ellis/comp/core/app/krypt/cli.lisp

Kind	Covered	All	%
expression	0	19	0.0
branch	0	2	0.0

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; krypt/cli.lisp --- Krypt Package CLI

2

3

;;

4

5

;;; Code:

6

(in-package :krypt)

7

8

(defcmd b3-cmd ()

9

"Call B3SUM on a file or B3HASH-STRING on a string."

10

(let ((in (car *args*)))

11

(if (probe-file in)

12

(println (b3sum in))

13

(println (b3hash-string in)))))

14

15

(defcmd krypt-show ()

16

(init-krypt)

17

(println *krypt-user-config*))

18

19

(define-cli *krypt-cli*

20

:name "krypt"

21

:version 0

22

:help t

23

:description "Crypto Utils"

24

:thunk krypt-show

25

:opts ((:name "level" :description "set log level" :thunk level-opt)

26

(:name "version" :description "print version" :thunk version-opt))

27

:cmds ((:name b3 :thunk b3-cmd :description "return a B3 hash or checksum")))