From f03ed07bc00ddc28a77f4e81d25e7d3ee596e06d Mon Sep 17 00:00:00 2001
From: f1fth_freed0m <f1fth_freed0m@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 27 Mar 2008 22:30:01 +0000
Subject: USDX is now able to load SingStar XML Songfiles using Whitesharks
 XML2US Parser

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@974 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/USongs.pas | 72 +++++++++++++++++++++++++++++++++-----------
 1 file changed, 55 insertions(+), 17 deletions(-)

(limited to 'Game/Code/Classes/USongs.pas')

diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas
index 10af65e3..df748e74 100644
--- a/Game/Code/Classes/USongs.pas
+++ b/Game/Code/Classes/USongs.pas
@@ -81,6 +81,8 @@ type
 
     procedure LoadSongList;     // load all songs
     procedure BrowseDir(Dir: widestring); // should return number of songs in the future
+    procedure BrowseTXTFiles(Dir: widestring);
+    procedure BrowseXMLFiles(Dir: widestring);
     procedure Sort(Order: integer);
     function  FindSongFile(Dir, Mask: widestring): widestring;
     property  Processing : boolean read fProcessing;
@@ -123,7 +125,7 @@ const
      IN_CREATE		    = $00000100;	//* Subfile was created */
      IN_DELETE		    = $00000200;	//* Subfile was deleted */
      IN_DELETE_SELF		= $00000400;	//* Self was deleted */
-  
+
 
 implementation
 
@@ -191,7 +193,7 @@ begin
 
     self.suspend;
   end;
-{$ENDIF}    
+{$ENDIF}
 end;
 
 procedure TSongs.int_LoadSongList;
@@ -232,7 +234,7 @@ begin
 
   finally
     Log.LogError('SongList', 'Search Complete');
-    
+
     fParseSongDirectory := false;
     fProcessing         := false;
   end;
@@ -246,37 +248,73 @@ begin
 end;
 
 procedure TSongs.BrowseDir(Dir: widestring);
+begin
+ BrowseTXTFiles(Dir);
+ BrowseXMLFiles(Dir);
+end;
+
+procedure TSongs.BrowseTXTFiles(Dir: widestring);
 var
-  i     : Integer;
-  Files : TDirectoryEntryArray;
-  lSong : TSong;
+  i       : Integer;
+  Files   : TDirectoryEntryArray;
+  lSong   : TSong;
 begin
 
-	  Files := Platform.DirectoryFindFiles( Dir, '.txt', true);
-    
+	  Files    := Platform.DirectoryFindFiles( Dir, '.txt', true);
+
 		for i := 0 to Length(Files)-1 do
 		begin
 		  if Files[i].IsDirectory then
 			begin
-			  BrowseDir( Dir + Files[i].Name + PathDelim );
+			  BrowseTXTFiles( Dir + Files[i].Name + PathDelim );  //Recursive Call
 			end
 			else
 			begin
         lSong := TSong.create( Dir + Files[i].Name );
 
         if NOT lSong.Analyse then
-				begin
-					Log.LogError('AnalyseFile failed for "' + Files[i].Name + '".');
-          freeandnil( lSong );
-				end
-				else
-				begin
-          SongList.add( lSong );
-				end;
+				  begin
+					  Log.LogError('AnalyseFile failed for "' + Files[i].Name + '".');
+            freeandnil( lSong );
+				  end
+          else SongList.add( lSong );
+
+			end;
+		end;
+		SetLength( Files, 0);
+
+end;
+
+procedure TSongs.BrowseXMLFiles(Dir: widestring);
+var
+  i       : Integer;
+  Files   : TDirectoryEntryArray;
+  lSong   : TSong;
+begin
+
+	  Files := Platform.DirectoryFindFiles( Dir, '.xml', true);
+
+		for i := 0 to Length(Files)-1 do
+		begin
+		  if Files[i].IsDirectory then
+			begin
+			  BrowseXMLFiles( Dir + Files[i].Name + PathDelim ); //Recursive Call
+			end
+			else
+			begin
+        lSong := TSong.create( Dir + Files[i].Name );
+
+        if NOT lSong.AnalyseXML then
+				  begin
+					  Log.LogError('AnalyseFile failed for "' + Files[i].Name + '".');
+            freeandnil( lSong );
+				  end
+          else SongList.add( lSong );
 
 			end;
 		end;
 		SetLength( Files, 0);
+
 end;
 
 procedure TSongs.Sort(Order: integer);
-- 
cgit v1.2.3