refactor: Adding field active to entries.json

Author: gcarreno

entries/entries.json.example

@@ -10,6 +10,7 @@
     "output-hash": "0000000000000000000000000000000000000000000000000000000000000000",
     "entries": [
         {
+            "active": true,
             "name": "Official Baseline",
             "notes": "Beeing the last of all",
             "compiler": "fpc",
@@ -21,6 +22,7 @@
             "run-params": "-i [[input]]"
         },
         {
+            "active": true,
             "name": "Gustavo Carreno",
             "notes": "Using 30 threads",
             "compiler": "fpc",

utilities/script_builder/Common/scriptbuilder.common.pas

@@ -150,6 +150,7 @@ procedure TBuilder.BuildCompileScriptBash;
     //for entry in FConfig.Entries do
     begin
       Write(GenerateProgressBar(index+1, FConfig.Entries.Count, 50), lineBreak);
+      if not FConfig.Entries[index].Active then continue;
       if FConfig.Entries[index].Compiler <> cCompilerFPC then continue;
       //if FConfig.Entries[index].EntryBinary = cBaselineBinary then continue;
       line:= line + 'echo "===== '+ FConfig.Entries[index].Name +' ======"' + LineEnding;
@@ -215,6 +216,7 @@ procedure TBuilder.BuildTestScriptBash;
     for index:= 0 to Pred(FConfig.Entries.Count) do
     begin
       Write(GenerateProgressBar(index+1, FConfig.Entries.Count, 50), lineBreak);
+      if not FConfig.Entries[index].Active then continue;
       //if FConfig.Entries[index].EntryBinary = cBaselineBinary then continue;
       line:= line + 'echo "===== '+ FConfig.Entries[index].Name +' ======"' + LineEnding;
       tmpStr:= Format('%s%s %s', [
@@ -272,6 +274,7 @@ procedure TBuilder.BuildRunScriptBash;
     for index:= 0 to Pred(FConfig.Entries.Count) do
     begin
       Write(GenerateProgressBar(index+1, FConfig.Entries.Count, 50), lineBreak);
+      if not FConfig.Entries[index].Active then continue;
       if FConfig.Entries[index].EntryBinary = cBaselineBinary then continue;
       line:= line + 'echo "===== '+ FConfig.Entries[index].Name +' ======"' + LineEnding;
       // Run for SSD

utilities/script_builder/Common/scriptbuilder.data.entries.pas

@@ -33,6 +33,7 @@ interface
 { TEntry }
   TEntry = class(TObject)
   private
+    FActive: Boolean;
     FName: String;
     FNotes: String;
     FCompiler: String;
@@ -54,6 +55,9 @@   TEntry = class(TObject)
 
     destructor Destroy; override;
 
+    property Active: Boolean
+      read FActive
+      write FActive;
     property Name: String
       read FName
       write FName;
@@ -134,6 +138,7 @@   TEntriesEnumerator = class(TObject)
 implementation
 
 const
+  cJSONActive      = 'active';
   cJSONName        = 'name';
   cJSONNotes       = 'notes';
   cJSONCompiler    = 'compiler';
@@ -155,6 +160,7 @@ implementation
 
 constructor TEntry.Create;
 begin
+  FActive:= false;
   FName:= '';
   FNotes:= '';
   FCompiler:= '';
@@ -188,6 +194,7 @@ procedure TEntry.setFromJSONData(const AJSONData: TJSONData);
 
 procedure TEntry.setFromJSONObject(const AJSONObject: TJSONObject);
 begin
+  FActive:= AJSONObject.Get(cJSONActive, FActive);
   FName:= AJSONObject.Get(cJSONName, FName);
   FNotes:= AJSONObject.Get(cJSONNotes, FNotes);
   FCompiler:= AJSONObject.Get(cJSONCompiler, FCompiler);