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

Kind	Covered	All	%
expression	0	84	0.0
branch	0	8	0.0

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; build.lisp --- Build tools

2

3

;;

4

5

;;; Code:

6

(in-package :cli/tools/build)

7

8

(define-cli-tool :make (args &key (wait t) (output t) (input))

9

(let ((proc (sb-ext:run-program *make* args :wait wait :output output :input input)))

10

(unless (eq 0 (sb-ext:process-exit-code proc))

11

(make-error "MAKE command failed: ~A ~A" *make* (or args "")))))

12

13

(define-cli-tool :cmake (args &key (wait t) (output t))

14

(let ((proc (sb-ext:run-program *cmake* args :wait wait :output output)))

15

(unless (eq 0 (sb-ext:process-exit-code proc))

16

(cmake-error "CMAKE command failed: ~A ~A" *cmake* (or args "")))))

17

18

(define-cli-tool :ninja (args &key (wait t) (output t))

19

(let ((proc (sb-ext:run-program *ninja* args :wait wait :output output)))

20

(unless (eq 0 (sb-ext:process-exit-code proc))

21

(ninja-error "NINJA command failed: ~A ~A" *ninja* (or args "")))))

22

23

(define-cli-tool :meson (args &key (wait t) (output t))

24

(let ((proc (sb-ext:run-program *meson* args :wait wait :output output)))

25

(unless (eq 0 (sb-ext:process-exit-code proc))

26

(meson-error "MESON command failed: ~A ~A" *meson* (or args "")))))