Coverage report: /home/ellis/comp/core/lib/dsp/gst.lisp

KindCoveredAll%
expression49 44.4
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; gst.lisp --- High-level GStreamer API
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :dsp/gst)
7
 
8
 (defun load-gst (&key (glib t))
9
   (when glib (glib:load-glib))
10
   (load-gstreamer))
11
 
12
 ;; (load-gst-play)
13
 
14
 (define-condition gst-condition (dsp-condition) ())
15
 (deferror gst-error (gst-condition dsp-error) () (:auto t))
16
 
17
 ;; (gst-version-string)
18
 
19
 ;;; Gst Pipe
20
 #+nil
21
 (with-alien ((argc int 1)
22
              (argv (* c-string) (cast (clone-strings '("gst-play-1.0" "--help")) (* c-string))))
23
   (gst-init (addr argc) (addr argv))
24
   (gst-is-initialized)
25
   (gst-deinit))
26
 
27
 ;; implements the PIPE protocol for the GST-PIPE class which wraps a foreign
28
 ;; pointer to a GST-PIPELINE struct.
29
 (defclass gst-pipe (pipe)
30
   ((sap :accessor sap :initarg :sap :initform nil)))