Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; dsp.lisp --- DSP Top-level

2

3

;;

4

5

;;; Code:

6

(pkg:defpkg :dsp

7

(:use :cl :std :log)

8

(:use-reexport :dsp/core :dsp/av :dsp/aud :dsp/vid :dsp/gst))

9

10

(in-package :dsp)

11

12

(define-logical-pathname "MEDIA" *media-directory*

13

("MEDIA:MUSIC;**;*.*.*" (merge-pathnames "music/**/*.*" *media-directory*))

14

("MEDIA:AUD;**;*.*.*" (merge-pathnames "aud/**/*.*" *media-directory*))

15

("MEDIA:VID;**;*.*.*" (merge-pathnames "vid/**/*.*" *media-directory*))

16

("MEDIA:IMG;**;*.*.*" (merge-pathnames "img/**/*.*" *media-directory*))

17

("MEDIA:SCREENSHOT;**;*.*.*" (merge-pathnames "screenshot/**/*.*" *media-directory*)))

18

19

(defun probe-media-file (path)

20

"Probe PATH, checking that it is a supported media format and returning a subclass of MEDIA-FILE.")