extra/audio/loader/loader.factor

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