1 ! Copyright (C) 2009 Joe Groff.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: ascii assocs io.pathnames kernel namespaces vocabs ;
6 ERROR: unknown-audio-extension extension ;
9 audio-types [ H{ } clone ] initialize
11 : register-audio-extension ( extension quot -- )
12 swap audio-types get set-at ;
14 : read-audio ( path -- audio )
15 dup file-extension >lower audio-types get ?at
16 [ call( path -- audio ) ]
17 [ unknown-audio-extension ] if ;