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

KindCoveredAll%
expression06 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; task.lisp --- GStreamer FFI Tasks
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :gstreamer)
7
 
8
 (define-opaque gst-task-private)
9
 (define-opaque gst-task-class)
10
 
11
 (define-alien-enum (gst-task-state int)
12
                    :started 0
13
                    :stopped 1
14
                    :paused 2)
15
 
16
 (define-alien-type gst-task-thread-func (* t))
17
 
18
 (define-alien-type gst-task
19
   (struct gst-task
20
           (object gst-object)
21
           (state gst-task-state)
22
           (cond gcond)
23
           (lock (* grec-mutex))
24
           (func gst-task-thread-func)
25
           (user-data gpointer)
26
           (notify gdestroy-notify)
27
           (running boolean)
28
           (thread (* gthread))
29
           (priv (* gst-task-private))
30
           (%gst-reserved (array gpointer #.+gst-padding+))))