core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / id3 / id3.factor

diff --git a/extra/id3/id3.factor b/extra/id3/id3.factor
index 681ded4d0eca0706bf900383b067117e6e5d3f6f..754f3c460daf9010c3f78bb809018ea6d9124779 100644 (file)
--- a/extra/id3/id3.factor
+++ b/extra/id3/id3.factor
@@ -14,30 +14,30 @@ IN: id3
 
 CONSTANT: genres
     {
-        "Blues" "Classic Rock" "Country" "Dance" "Disco" "Funk" 
-        "Grunge" "Hip-Hop" "Jazz" "Metal" "New Age" "Oldies" "Other" 
-        "Pop" "R&B" "Rap" "Reggae" "Rock" "Techno" "Industrial" 
-        "Alternative" "Ska" "Death Metal" "Pranks" "Soundtrack" 
-        "Euro-Techno" "Ambient" "Trip-Hop" "Vocal" "Jazz+Funk" 
-        "Fusion" "Trance" "Classical" "Instrumental" "Acid" "House" 
-        "Game" "Sound Clip" "Gospel" "Noise" "AlternRock" "Bass" 
-        "Soul" "Punk" "Space" "Meditative" "Instrumental Pop" 
-        "Instrumental Rock" "Ethnic" "Gothic" "Darkwave" 
-        "Techno-Industrial" "Electronic" "Pop-Folk" "Eurodance" 
-        "Dream" "Southern Rock" "Comedy" "Cult" "Gangsta" "Top 40" 
-        "Christian Rap" "Pop/Funk" "Jungle" "Native American" 
-        "Cabaret" "New Wave" "Psychedelic" "Rave" "Showtunes" 
-        "Trailer" "Lo-Fi" "Tribal" "Acid Punk" "Acid Jazz" "Polka" 
-        "Retro" "Musical" "Rock & Roll" "Hard Rock" "Folk" 
-        "Folk-Rock" "National Folk" "Swing" "Fast Fusion" "Bebop" 
-        "Latin" "Revival" "Celtic" "Bluegrass" "Avantgarde" 
-        "Gothic Rock" "Progressive Rock" "Psychedelic Rock" 
-        "Symphonic Rock" "Slow Rock" "Big Band" "Chorus" 
-        "Easy Listening" "Acoustic" "Humour" "Speech" "Chanson" 
-        "Opera" "Chamber Music" "Sonata" "Symphony" "Booty Bass" 
-        "Primus" "Porn Groove" "Satire" "Slow Jam" "Club" "Tango" 
-        "Samba" "Folklore" "Ballad" "Power Ballad" "Rhythmic Soul" 
-        "Freestyle" "Duet" "Punk Rock" "Drum Solo" "A capella" 
+        "Blues" "Classic Rock" "Country" "Dance" "Disco" "Funk"
+        "Grunge" "Hip-Hop" "Jazz" "Metal" "New Age" "Oldies" "Other"
+        "Pop" "R&B" "Rap" "Reggae" "Rock" "Techno" "Industrial"
+        "Alternative" "Ska" "Death Metal" "Pranks" "Soundtrack"
+        "Euro-Techno" "Ambient" "Trip-Hop" "Vocal" "Jazz+Funk"
+        "Fusion" "Trance" "Classical" "Instrumental" "Acid" "House"
+        "Game" "Sound Clip" "Gospel" "Noise" "AlternRock" "Bass"
+        "Soul" "Punk" "Space" "Meditative" "Instrumental Pop"
+        "Instrumental Rock" "Ethnic" "Gothic" "Darkwave"
+        "Techno-Industrial" "Electronic" "Pop-Folk" "Eurodance"
+        "Dream" "Southern Rock" "Comedy" "Cult" "Gangsta" "Top 40"
+        "Christian Rap" "Pop/Funk" "Jungle" "Native American"
+        "Cabaret" "New Wave" "Psychedelic" "Rave" "Showtunes"
+        "Trailer" "Lo-Fi" "Tribal" "Acid Punk" "Acid Jazz" "Polka"
+        "Retro" "Musical" "Rock & Roll" "Hard Rock" "Folk"
+        "Folk-Rock" "National Folk" "Swing" "Fast Fusion" "Bebop"
+        "Latin" "Revival" "Celtic" "Bluegrass" "Avantgarde"
+        "Gothic Rock" "Progressive Rock" "Psychedelic Rock"
+        "Symphonic Rock" "Slow Rock" "Big Band" "Chorus"
+        "Easy Listening" "Acoustic" "Humour" "Speech" "Chanson"
+        "Opera" "Chamber Music" "Sonata" "Symphony" "Booty Bass"
+        "Primus" "Porn Groove" "Satire" "Slow Jam" "Club" "Tango"
+        "Samba" "Folklore" "Ballad" "Power Ballad" "Rhythmic Soul"
+        "Freestyle" "Duet" "Punk Rock" "Drum Solo" "A capella"
         "Euro-House" "Dance Hall" "Goa" "Drum & Bass" "Club-House"
         "Hardcore" "Terror" "Indie" "BritPop" "Negerpunk"
         "Polsk Punk" "Beat" "Christian Gangsta Rap" "Heavy Metal"
@@ -143,7 +143,7 @@ CONSTANT: id3v1+-length 227
 
 : read-frames ( seq -- assoc )
     [ dup read-frame dup ] [ [ remove-frame ] keep ] produce 2nip ;
-    
+
 : read-v2-header ( seq -- header )
     [ <header> ] dip
     {
@@ -162,7 +162,7 @@ CONSTANT: id3v1+-length 227
     10 cut-slice
     [ read-v2-header >>header ]
     [ read-frames frames>assoc merge-frames ] bi* ;
-    
+
 : extract-v1-tags ( id3 seq -- id3 )
     {
         [ 30 head-slice decode-text filter-text-data >>title ]