Merge pull request #1257 from dgruss/songchecking

Add startup song validation flag

Author: barbeque-squared

src/base/UCommandLine.pas

@@ -60,6 +60,7 @@   TCMDParams = class
       Debug:      boolean;
       Benchmark:  boolean;
       NoLog:      boolean;
+      CheckSongs: boolean;
       ScreenMode: TScreenMode;
       Joypad:     boolean;
       Split:      TSplitMode;
@@ -89,6 +90,7 @@   TCMDParams = class
 const
   cHelp            = 'help';
   cDebug           = 'debug';
+  cCheckSongs      = 'check-songs';
   cMediaInterfaces = 'showinterfaces';
 
 
@@ -128,6 +130,7 @@ procedure TCMDParams.ShowHelp();
   writeln('  ----------------------------------------------------------');
   writeln('  '+ Fmt(cMediaInterfaces) +' : Show in-use media interfaces');
   writeln('  '+ Fmt(cDebug) +' : Display Debugging info');
+  writeln('  '+ Fmt(cCheckSongs) +' : Fully validate song files during startup');
   writeln;
 
   platform.halt;
@@ -141,6 +144,7 @@ procedure TCMDParams.ResetVariables;
   Debug       := false;
   Benchmark   := False;
   NoLog       := false;
+  CheckSongs  := false;
   ScreenMode  := scmDefault;
   Joypad      := False;
   Split       := spmDefault;
@@ -185,6 +189,8 @@ procedure TCMDParams.ReadParamInfo;
       // boolean triggers
       if (Command = 'debug') then
         Debug       := True
+      else if (Command = cCheckSongs) then
+        CheckSongs  := True
       else if (Command = 'benchmark') then
         Benchmark   := True
       else if (Command = 'nolog') then

src/base/USongs.pas

@@ -168,6 +168,7 @@ implementation
 uses
   StrUtils,
   SDL2,
+  UCommandLine,
   UFiles,
   UGraphic,
   UMain,
@@ -450,7 +451,7 @@ procedure TSongs.LoadSongFromFile(const FilePath: IPath);
 begin
   Song := TSong.Create(FilePath);
 
-  if Song.Analyse then
+  if Song.Analyse(false, false, false, false, 0, Params.CheckSongs) then
     SongList.Add(Song)
   else
   begin