Commits

Walton Hoops committed e1801e8

audioproperties accessors

Comments (0)

Files changed (1)

 (defcfun (file-audioproperties "taglib_file_audioproperties") :pointer
   (file :pointer))
 
-(defcfun (file-save "taglib_file_save") :boolean
+(defcfun (tagfile-save "taglib_file_save") :boolean
   (file :pointer))
 
 (defmacro with-tag-file ((var path) &body body)
 (tag-accessor-for :genre :string)
 (tag-accessor-for :year :uint)
 (tag-accessor-for :track :uint)
+
+(defmacro audio-reader-for (slot)
+  (let ((function-name (intern (concatenate 'string "AUDIO-" (string slot))))
+	(foreign-name (string-downcase (concatenate 'string "taglib_audioproperties_" (string slot)))))
+    `(defcfun (,function-name ,foreign-name) :int
+       (audio :pointer))))
+
+(audio-reader-for :length)
+(audio-reader-for :bitrate)
+(audio-reader-for :samplerate)
+(audio-reader-for :channels)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.