Coverage report: /home/ellis/comp/core/ffi/gstreamer/message.lisp

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

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; message.lisp --- GStreamer Message

2

3

;;

4

5

;;; Code:

6

(in-package :gstreamer)

7

8

(define-alien-enum (gst-message-type int)

9

:unknown 0

10

:eos (ash 1 0)

11

:error (ash 1 1)

12

:warning (ash 1 2)

13

:info (ash 1 3)

14

:tag (ash 1 4)

15

:buffering (ash 1 5)

16

:state_changed (ash 1 6)

17

:state_dirty (ash 1 7)

18

:step_done (ash 1 8)

19

:clock_provide (ash 1 9)

20

:clock_lost (ash 1 10)

21

:new_clock (ash 1 11)

22

:structure_change (ash 1 12)

23

:stream_status (ash 1 13)

24

:application (ash 1 14)

25

:element (ash 1 15)

26

:segment_start (ash 1 16)

27

:segment_done (ash 1 17)

28

:duration_changed (ash 1 18)

29

:latency (ash 1 19)

30

:async_start (ash 1 20)

31

:async_done (ash 1 21)

32

:request_state (ash 1 22)

33

:step_start (ash 1 23)

34

:qos (ash 1 24)

35

:progress (ash 1 25)

36

:toc (ash 1 26)

37

:reset_time (ash 1 27)

38

:stream_start (ash 1 28)

39

:need_context (ash 1 29)

40

:have_context (ash 1 30)

41

:extended (ash 1 31)

42

:device_added (+ (ash 1 31) 1)

43

:device_removed (+ (ash 1 31) 2)

44

:property_notify (+ (ash 1 31) 3)

45

:stream_collection (+ (ash 1 31) 4)

46

:streams_selected (+ (ash 1 31) 5)

47

:redirect (+ (ash 1 31) 6)

48

:device_changed (+ (ash 1 31) 7)

49

:instant_rate_request (+ (ash 1 31) 8)

50

:any #xffffffff)

51

52

(define-alien-type gst-message

53

(struct gst-message

54

(mini-object gst-mini-object)

55

(type gst-message-type)

56

(timestamp unsigned-long)

57

(src (* gst-object))

58

(seqnum unsigned-int)

59

(lock gmutex)

60

(cond gcond)))

61

62

(defar gst-message-get-type gtype)

63

(defar gst-message-type-get-name c-string (type gst-message-type))

64

(defar gst-message-ref (* gst-message) (msg (* gst-message)))

65

(defar gst-message-unref void (msg (* gst-message)))