taglib/packages.lisp

;;; -*- Mode: Lisp;  show-trailing-whitespace: t; Base: 10; indent-tabs: nil; Syntax: ANSI-Common-Lisp; Package: CL-USER; -*-
;;; Copyright (c) 2013, Mark VandenBrink. All rights reserved.
(in-package #:cl-user)

(defpackage #:tree
  (:export #:make-node #:add-child #:first-child #:next-sibling #:data
           #:traverse #:print-tree #:find-tree #:at-path)
  (:use #:common-lisp))

(defpackage #:utils
  (:export #:octet #:octets #:make-octets #:defconstant*
           #:warn-user *break-on-warn-user* #:printable-array #:upto-null
           #:redirect #:memoize #:it #:*standard-optimize-settings*
           #:get-bitfield #:while #:aif #:awhen #:with-gensyms #:make-keyword
           #:dump-data #:timings #:dbg #:dbg-helper)
  (:use #:common-lisp))

(defpackage #:profile
  (:export #:on #:off #:reset #:report)
  (:use #:common-lisp))

(defpackage #:iso-639-2
  (:export #:get-iso-639-2-language)
  (:use #:common-lisp :utils))

(defpackage #:audio-streams
  (:export *get-audio-info*
           #:make-audio-stream #:stream-filename #:stream-read-u8
           #:stream-read-u16 #:stream-read-u24 #:stream-read-u32
           #:stream-read-u64 #:stream-read-u128 #:stream-read-octets
           #:stream-read-iso-string
           #:stream-read-ucs-string
           #:stream-read-utf-8-string
           #:stream-read-sequence #:stream-size
           #:stream-seek #:open-audio-file)
  (:use #:common-lisp #:utils))

(defpackage #:flac
  (:export #:flac-header #:vpprint
           #:is-valid-flac-file #:find-flac-frames #:get-flac-audio-info
           #:flac-get-tag #:get-flac-audio-info #:flac-show-raw-tag
           #:parse-audio-file #:flac-file #:flac-headers #:audio-info
           #:flac-tags #:filename)
  (:use #:common-lisp #:utils #:audio-streams))

(defpackage #:m4a
  (:export #:mp4-atom #:map-mp4-atom #:find-mp4-atoms #:traverse
           #:atom-file-pos #:atom-children #:atom-size
           #:atom-of-interest #:atom-decoded #:atom-type #:vpprint #:*tag-path*
           #:tag-get-value #:mp4-show-raw-tag-atoms
           #:get-mp4-audio-info #:is-valid-m4-file #:+itunes-album+
           #:+itunes-album-artist+ #:+itunes-artist+ #:+itunes-comment+
           #:+itunes-composer+ #:+itunes-copyright+ #:+itunes-year+
           #:+itunes-encoder+ #:+itunes-groups+ #:+itunes-lyrics+
           #:+itunes-purchased-date+ #:+itunes-title+ #:+itunes-tool+
           #:+itunes-writer+ #:+itunes-compilation+ #:+itunes-cover-art+
           #:+itunes-disk+ #:+itunes-genre+ #:+itunes-genre-x+ #:+itunes-tempo+
           #:+itunes-track+ #:+itunes-track-n+ #:parse-audio-file #:mp4-file
           #:mp4-atoms #:audio-info #:filename #:*skipped-m4a-atoms*
           #:clear-skipped)
  (:use #:common-lisp #:audio-streams #:utils))

(defpackage #:id3
  (:export #:id3-frame #:find-id3-frames #:vpprint
           #:header #:get-frame-info #:is-valid-mp3-file #:encoding #:lang
           #:desc #:val #:comment #:artist #:album #:year #:comment #:year
           #:map-id3-frames #:frames #:year #:title #:genre #:id
           #:mp3-file #:id3-header #:audio-info #:parse-audio-file
           #:v21-tag-header #:info #:version #:picture-info #:get-frames
           #:filename #:skipped-id3-frames* #:clear-skipped)
  (:use #:common-lisp #:audio-streams #:utils #:iso-639-2))

(defpackage #:abstract-tag
  (:export #:show-tags #:get-id3v1-genre #:album #:album-artist #:artist
           #:comment #:composer #:copyright #:created #:encoder #:groups
           #:lyrics #:title #:tool #:writer)
  (:use #:common-lisp #:audio-streams #:utils))

(defpackage #:mpeg
  (:export #:get-mpeg-audio-info #:vpprint)
  (:use #:common-lisp #:audio-streams #:utils))