changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/gstreamer/debug.lisp

changeset 494: 16fe3cdae1e2
parent: ea3b643a27a3
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 30 Jun 2024 21:33:11 -0400
permissions: -rw-r--r--
description: gst and krypt work, added obj/secret 
     1 ;;; debug.lisp --- Gstreamer FFI Debugging
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :gstreamer)
     7 
     8 (define-alien-enum (gst-debug-graph-details int)
     9                    :show-media-type (ash 1 0)
    10                    :show-caps-details (ash 1 1)
    11                    :show-non-default-params (ash 1 2)
    12                    :show-states (ash 1 3)
    13                    :show-full-params (ash 1 4)
    14                    :show-all (- (ash 1 4) 1)
    15                    :show-verbose #xffffffff)
    16 
    17 (define-alien-routine gst-debug-bin-to-dot-data c-string
    18   (bin (* gst-bin))
    19   (details gst-debug-graph-details))
    20 
    21 (define-alien-enum (gst-debug-level int)
    22                    :none 0
    23                    :error 1
    24                    :warning 2
    25                    :fixme 3
    26                    :info 4
    27                    :debug 5
    28                    :log 6
    29                    :trace 7
    30                    :memdump 9
    31                    :level-count 10)
    32 
    33 (defvar *gst-level-default* (gst-debug-level :none))
    34 
    35 (defvar *gst-level-max* (gst-debug-level :level-count))