test/cddb/cddb.flt

   1 BEGIN                   { begin record cddb }
   2 /^DISCID=/ BODY /$/     { data -element identifier $1 }
   3 /^DTITLE=/ BODY /$/     { data -element title $1 }
   4 /^EXTD=/ BODY /$/       { data -element ext $1 }
   5 /^TTITLE/ /[0-9]+/ /=/ BODY /$/ { set trackstitle($1) $3 }
   6 /^EXTT/ /[0-9]+/ /=/ BODY /$/ { set tracksext($1) $3 }
   7 /^PLAYORDER/    {
   8                 foreach v [array names trackstitle] {
   9                         begin element track
  10                         data -element title $trackstitle($v)
  11                         if {[info exists tracksext($v)]} {
  12                                 set d $tracksext($v)
  13                                 if {[string length $d]} {
  14                                         data -element ext $tracksext($v)
  15                                 }
  16                         }
  17                         end element
  18                 }
  19         }
  20
  21
  22