1 ! (c)2010 Joe Groff bsd license
2 USING: audio help.markup help.syntax kernel quotations strings ;
7 { "path" "a pathname string" }
10 { $description "Reads the audio data from the file on disk named " { $snippet "path" } ", saving the data in an " { $link audio } " object. If the file's extension is not recognized, an " { $link unknown-audio-extension } " error is thrown." } ;
12 HELP: register-audio-extension
14 { "extension" string } { "quot" quotation }
16 { $description "Registers a quotation for " { $link read-audio } " to use when reading audio files with filenames ending in " { $snippet ".extension" } ". The quotation should have the effect " { $snippet "( path -- audio )" } ", where " { $snippet "path" } " is the file's pathname and " { $snippet "audio" } " is the resulting " { $link audio } " object." } ;
18 HELP: unknown-audio-extension
20 { "extension" string }
22 { $description "Errors of this class are thrown by " { $link read-audio } " when it cannot recognize the extension of the file it is given to open." } ;
24 ARTICLE: "audio.loader" "Audio file loader"
25 "The " { $vocab-link "audio.loader" } " vocabulary provides words for reading uncompressed PCM data from files on disk."
29 "Other vocabularies can extend " { $link read-audio } " by adding support for other audio file formats."
31 register-audio-extension
32 unknown-audio-extension
34 "By default, " { $snippet "audio.loader" } " supports WAV (with the file extension " { $snippet ".wav" } ") and AIFF (with extension " { $snippet ".aif" } " or " { $snippet ".aiff" } ")." ;