1 ! (c)2009 Joe Groff bsd license
2 USING: ascii assocs io.pathnames kernel namespaces
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 [ throw-unknown-audio-extension ] if ;