78 lines
2.1 KiB
Common Lisp
78 lines
2.1 KiB
Common Lisp
|
(in-package #:sync-music/libcue-ffi)
|
||
|
|
|
||
|
|
#+unix
|
||
|
|
(progn
|
||
|
|
(include "stdio.h")
|
||
|
|
(cvar ("stderr" +stderr+) :pointer
|
||
|
|
:read-only t)
|
||
|
|
|
||
|
|
(include "unistd.h")
|
||
|
|
(constant (+stderr-fileno+ "STDERR_FILENO")))
|
||
|
|
|
||
|
|
(include "errno.h")
|
||
|
|
(cvar ("errno" +errno+) :int
|
||
|
|
:read-only t)
|
||
|
|
|
||
|
|
(include "libcue.h")
|
||
|
|
|
||
|
|
(cenum disc-mode
|
||
|
|
((:da "MODE_CD_DA"))
|
||
|
|
((:rom "MODE_CD_ROM"))
|
||
|
|
((:rom-xa "MODE_CD_ROM_XA")))
|
||
|
|
|
||
|
|
(cenum track-mode
|
||
|
|
((:audio "MODE_AUDIO"))
|
||
|
|
((:mode-1 "MODE_MODE1"))
|
||
|
|
((:mode-1-raw "MODE_MODE1_RAW"))
|
||
|
|
((:mode-2 "MODE_MODE2"))
|
||
|
|
((:mode-2-form-1 "MODE_MODE2_FORM1"))
|
||
|
|
((:mode-2-form-2 "MODE_MODE2_FORM2"))
|
||
|
|
((:mode-2-form-mix "MODE_MODE2_FORM_MIX"))
|
||
|
|
((:mode-2-raw "MODE_MODE2_RAW")))
|
||
|
|
|
||
|
|
(cenum track-sub-mode
|
||
|
|
((:rw "SUB_MODE_RW"))
|
||
|
|
((:rw-raw "SUB_MODE_RW_RAW")))
|
||
|
|
|
||
|
|
(cenum track-flag
|
||
|
|
((:none "FLAG_NONE"))
|
||
|
|
((:pre-emphasis "FLAG_PRE_EMPHASIS"))
|
||
|
|
((:copy-permitted "FLAG_COPY_PERMITTED"))
|
||
|
|
((:data "FLAG_DATA"))
|
||
|
|
((:four-channel "FLAG_FOUR_CHANNEL"))
|
||
|
|
((:scms "FLAG_SCMS"))
|
||
|
|
((:any "FLAG_ANY")))
|
||
|
|
|
||
|
|
(cenum data-type
|
||
|
|
((:audio "DATA_AUDIO"))
|
||
|
|
((:data "DATA_DATA"))
|
||
|
|
((:fifo "DATA_FIFO"))
|
||
|
|
((:zero "DATA_ZERO")))
|
||
|
|
|
||
|
|
(cenum pti
|
||
|
|
((:title "PTI_TITLE"))
|
||
|
|
((:performer "PTI_PERFORMER"))
|
||
|
|
((:songwriter "PTI_SONGWRITER"))
|
||
|
|
((:composer "PTI_COMPOSER"))
|
||
|
|
((:arranger "PTI_ARRANGER"))
|
||
|
|
((:message "PTI_MESSAGE"))
|
||
|
|
((:disc-id "PTI_DISC_ID"))
|
||
|
|
((:genre "PTI_GENRE"))
|
||
|
|
((:toc-info-1 "PTI_TOC_INFO1"))
|
||
|
|
((:toc-info-2 "PTI_TOC_INFO2"))
|
||
|
|
((:reserved-1 "PTI_RESERVED1"))
|
||
|
|
((:reserved-2 "PTI_RESERVED2"))
|
||
|
|
((:reserved-3 "PTI_RESERVED3"))
|
||
|
|
((:reserved-4 "PTI_RESERVED4"))
|
||
|
|
((:upc-isrc "PTI_UPC_ISRC"))
|
||
|
|
((:size-info "PTI_SIZE_INFO"))
|
||
|
|
((:end "PTI_END")))
|
||
|
|
|
||
|
|
(cenum rem-type
|
||
|
|
((:date "REM_DATE"))
|
||
|
|
((:album-gain "REM_REPLAYGAIN_ALBUM_GAIN"))
|
||
|
|
((:album-peak "REM_REPLAYGAIN_ALBUM_PEAK"))
|
||
|
|
((:track-gain "REM_REPLAYGAIN_TRACK_GAIN"))
|
||
|
|
((:track-peak "REM_REPLAYGAIN_TRACK_PEAK"))
|
||
|
|
((:end "REM_END")))
|