extra/audio/loader/loader.factor

   1 ! (c)2009 Joe Groff bsd license
   2 USING: ascii assocs io.pathnames kernel namespaces
   3 vocabs ;
   4 IN: audio.loader
   5
   6 ERROR: unknown-audio-extension extension ;
   7
   8 SYMBOL: audio-types
   9 audio-types [ H{ } clone ] initialize
  10
  11 : register-audio-extension ( extension quot -- )
  12     swap audio-types get set-at ;
  13
  14 : read-audio ( path -- audio )
  15     dup file-extension >lower audio-types get ?at
  16     [ call( path -- audio ) ]
  17     [ unknown-audio-extension ] if ;
  18
  19 "audio.wav" require
  20 "audio.aiff" require