Coverage report: /home/ellis/comp/core/lib/rdb/condition.lisp

Kind	Covered	All	%
expression	0	31	0.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; rdb/condition.lisp --- RDB conditions

2

3

;;

4

5

;;; Code:

6

(in-package :rdb)

7

8

(define-condition rdb-condition (db-condition) ())

9

10

(eval-always

11

(deferror simple-rdb-error (rdb-condition simple-error)

12

()

13

(:auto t)

14

(:documentation "Simple RDB Error."))

15

(deferror rdb-error (rdb-condition std-error)

16

()

17

(:auto t)

18

(:documentation "Error signaled by the RDB system."))

19

(defwarning simple-rdb-warning (rdb-condition simple-warning)

20

()

21

(:default-initargs

22

:format-control "RDB warning: ~A")

23

(:auto t)))

24

25

(defwarning rdb-default-column-warning (simple-rdb-warning simple-warning) () (:auto t))

26

27

(define-condition rdb-alien-error (rdb-error rocksdb-c-error)

28

((db :initarg :db :reader error-db))

29

(:documentation "Error signaled by RDB C subsystem."))

30

31

(defmethod print-object ((obj rdb-error) stream)

32

(print-unreadable-object (obj stream :type t :identity t)))

33

34

(define-condition open-db-error (rdb-alien-error)

35

()

36

(:documentation "Error signaled while opening a database."))

37

38

(define-condition open-backup-db-error (rdb-alien-error)

39

()

40

(:documentation "Error signaled while opening a backup engine."))

41

42

(define-condition destroy-db-error (rdb-alien-error)

43

()

44

(:documentation "Error signaled while destroying a database."))

45

46

(define-condition flush-db-error (rdb-alien-error)

47

()

48

(:documentation "Error signaled while flushing a database."))

49

50

(define-condition ingest-db-error (rdb-alien-error)

51

()

52

(:documentation "Error signaled while ingesting a database."))

53

54

(define-condition sst-writer-error (rdb-alien-error)

55

()

56

(:documentation "Error signaled while writing a SST file."))

57

58

(define-condition repair-db-error (rdb-alien-error)

59

()

60

(:documentation "Error signaled while repairing a database."))

61

62

(define-condition destroy-backup-engine-error (rdb-alien-error)

63

()

64

(:documentation "Error signaled while destroying a backup engine."))

65

66

(define-condition cf-error (rdb-alien-error)

67

((cf :initarg :cf :reader error-cf))

68

(:documentation "Error signaled in the context of a Column Family."))

69

70

(define-condition kv-error (rdb-error)

71

((kv :initarg :kv :reader error-kv)))

72

73

(define-condition kv-cf-error (cf-error)

74

((kv :initarg :kv :reader error-kv)))

75

76

(define-condition put-kv-error (kv-error) ()

77

(:documentation "Error signaled while processing a PUT-KV request"))

78

79

(define-condition put-kv-cf-error (kv-cf-error) ()

80

(:documentation "Error signaled while processing a PUT-KV-CF request"))

81

82

(define-condition get-kv-error (kv-error) ()

83

(:documentation "Error signaled while processing a GET-KV request"))

84

85

(define-condition get-kv-cf-error (kv-error) ()

86

(:documentation "Error signaled while processing a GET-KV-CF request"))

87

88

(define-condition merge-kv-error (kv-error) ()

89

(:documentation "Error signaled while processing a MERGE-KV request"))

90

91

(define-condition merge-kv-cf-error (kv-error) ()

92

(:documentation "Error signaled while processing a MERGE-KV-CF request"))

93

94

(define-condition opt-handler-missing (warning rdb-error)

95

())

96

97

(define-condition db-missing (warning rdb-error)

98

())

99

100

(define-condition metadata-missing (warning rdb-condition)

101

())

102

103

(define-condition invalid-propname (rdb-error)

104

()

105

(:documentation "Error signaled when an invalid ROCKSDB-PROPERTY value is detected."))

106

107

(define-condition txn-error (rdb-alien-error)

108

((txn :initarg :txn :reader error-txn))

109

(:documentation "Error signaled in the context of a Transaction."))