Coverage report: /development/source/library/org/datagraph/spocq-shard/src/core/encoding/json-ld/conditions.lisp

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

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: org.datagraph.spocq.implementation; -*-

2

3

(in-package :org.datagraph.spocq.implementation)

4

5

(define-condition json-ld:error (spocq.e:runtime-error)

6

((property

7

:initarg :property :initform nil

8

:reader condition-property

9

:documentation "names the property to which the error applies.")

10

(clause

11

:initarg :clause :initform nil

12

:reader condition-clause))

13

(:report (lambda (condition stream)

14

              (format stream "json-ld processing error (~a):~@[ property: ~a ~] ~@[ clause: ~a ~]"

15

(type-of condition)

16

(condition-property condition)

17

(condition-clause condition)))))

18

19

(defmacro define-json-ld-condition (name super-classes slots &rest options)

20

`(progn

21

(define-condition ,name ,super-classes

22

,slots

23

,@options)

24

(defun ,name (&rest args &key (expected-type nil) &allow-other-keys)

25

(declare (dynamic-extent args))

26

(apply #'error ',name :expected-type expected-type args))))

27

28

(define-condition json-ld:type-error (json-ld:error type-error)

29

()

30

(:report (lambda (condition stream)

31

(handler-case

32

                   (format stream "json-ld processing error (~a): ~@[property: ~a ~]datum: ~a"

33

(type-of condition)

34

(condition-property condition)

35

(type-error-datum condition))

36

(error (c) (format stream "error printing ~a: ~a"

37

(type-of condition) (type-of c)))))))

38

39

(define-json-ld-condition json-ld:colliding-keywords-error (json-ld:type-error) ())

40

41

(define-json-ld-condition json-ld:cyclic-iri-mapping-error (json-ld:type-error) ())

42

43

(define-json-ld-condition json-ld:invalid-base-iri-error (json-ld:type-error) ())

44

45

(define-json-ld-condition json-ld:invalid-container-mapping-error (json-ld:type-error) ())

46

47

(define-json-ld-condition json-ld:invalid-default-language-error (json-ld:type-error) ())

48

49

(define-json-ld-condition json-ld:invalid-index-value-error (json-ld:type-error) ())

50

51

(define-json-ld-condition json-ld:invalid-iri-mapping-error (json-ld:type-error) ())

52

53

(define-json-ld-condition json-ld:invalid-language-mapping-error (json-ld:type-error) ())

54

55

(define-json-ld-condition json-ld:invalid-language-map-value-error (json-ld:type-error) ())

56

57

(define-json-ld-condition json-ld:invalid-language-tagged-string-error (json-ld:type-error) ())

58

59

(define-json-ld-condition json-ld:invalid-local-context-error (json-ld:type-error) ())

60

61

(define-json-ld-condition json-ld:invalid-remote-context-error (json-ld:type-error) ())

62

63

(define-json-ld-condition json-ld:invalid-reverse-property-error (json-ld:type-error) ())

64

65

(define-json-ld-condition json-ld:invalid-reverse-property-map-error (json-ld:type-error) ())

66

67

(define-json-ld-condition json-ld:invalid-reverse-property-value-error (json-ld:type-error) ())

68

69

(define-json-ld-condition json-ld:invalid-reverse-value-error (json-ld:type-error) ())

70

71

(define-json-ld-condition json-ld:invalid-term-definition-error (json-ld:type-error) ())

72

73

(define-json-ld-condition json-ld:invalid-type-mapping-error (json-ld:type-error) ())

74

75

(define-json-ld-condition json-ld:invalid-type-value-error (json-ld:type-error) ())

76

77

(define-json-ld-condition json-ld:invalid-value-object-value-error (json-ld:type-error) ())

78

79

(define-json-ld-condition json-ld:invalid-vocab-mapping-error (json-ld:type-error) ())

80

81

(define-json-ld-condition json-ld:keyword-redefinition-error (json-ld:type-error) ())

82

83

(define-json-ld-condition json-ld:list-of-lists-error (json-ld:type-error) ())

84

85

(define-json-ld-condition json-ld:loading-remote-context-failed-error (json-ld:error)

86

((location

87

:initarg :location :reader json-ld:loading-remote-context-failed-error-location)

88

(condition

89

:initarg :condition :reader json-ld:loading-remote-context-failed-error-condition))

90

(:report (lambda (condition stream)

91

(format stream "Loading remote context failed: ~s: ~a"

92

(json-ld:loading-remote-context-failed-error-location condition)

93

(json-ld:loading-remote-context-failed-error-condition condition)))))

94

95

(define-json-ld-condition json-ld:recursive-content-inclusion-error (json-ld:type-error)

96

())