1. Walton Hoops
  2. cl-taglib

Source

cl-taglib / cl-taglib.lisp

;;;; cl-taglib.lisp

(in-package #:cl-taglib)

;;; "cl-taglib" goes here. Hacks and glory await!
(define-foreign-library taglib
  (t (:default "libtag_c")))

(use-foreign-library taglib)

(defcfun (set-strings-unicode "taglib_set_strings_unicode") :void
  (unicode :boolean))

(defcfun (set-string-management "taglib_set_string_management_enabled") :void
  (mangement :boolean))

(defcfun (free "taglib_free") :void
  (str :pointer))

(defcfun (file-new "taglib_file_new") :pointer
  (filename :string))

(defcfun (file-free "taglib_file_free") :void
  (file :pointer))

(defcfun (file-is-valid "taglib_file_is_valid") :boolean
  (file :pointer))

(defcfun (file-tag "taglib_file_tag") :pointer
  (file :pointer))

;;; taglib_file_audioproperties
;;; taglib_file_save

(defcfun (tag-title "taglib_tag_title") :string+ptr
  (tag :pointer))

(defcfun (tag-artist "taglib_tag_artist") :string+ptr
  (tag :pointer))