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

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

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; play.lisp --- Gstreamer FFI Play API

2

3

;;

4

5

;;; Code:

6

(in-package :gstreamer)

7

8

(define-alien-loader gst-play "/usr/lib/" "gstplay-1.0")

9

10

(define-opaque gst-play)

11

(define-opaque gst-play-class)

12

(define-opaque gst-play-signal-adapter)

13

(define-opaque gst-play-signal-adapter-class)

14

(define-opaque gst-play-video-renderer)

15

(define-opaque gst-play-video-renderer-interface)

16

17

(define-alien-type gst-play-video-renderer-interface-t

18

(struct gst-play-video-renderer-interface

19

(parent-iface gtype-interface)

20

(gst-element (* t))))

21

22

(defar gst-play-state-get-type gtype)

23

24

(defar gst-play-error-quark gquark)

25

;; (gst-play-state-get-type)

26

(defar gst-play-error-get-type gtype)

27

28

(define-alien-enum (gst-play-error int)

29

:failed 0)

30

31

(defar gst-play-error-get-name c-string (error gst-play-error))

32

33

(define-alien-enum (gst-play-state int)

34

:stopped 0

35

:buffering 1

36

:paused 2

37

:playing 3)

38

39

(defar gst-play-state-get-name c-string (state gst-play-state))

40

41

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

42

:uri-loaded 0

43

:position-updated 1

44

:duration-changed 2

45

:state-changed 3

46

:buffering 4

47

:end-of-stream 5

48

:error 6

49

:warning 7

50

:video-dimensions-changed 8

51

:media-info-updated 9

52

:volume-changed 10

53

:mute-changed 11

54

:seek-done 12)

55

56

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

57

58

(defar gst-play-get-type gtype)

59

60

(defar gst-play-new (* gst-play) (video-renderer (* gst-play-video-renderer)))