From 04fc3f2fa91d7e8572ebd9e39192acbc04631b99 Mon Sep 17 00:00:00 2001
From: Kiryll Shynharow <korif@tut.by>
Date: Mon, 25 Oct 2021 19:55:52 +0000
Subject: [PATCH] add global variable to configure datasets directory

---
 neural/neuraldatasets.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/neural/neuraldatasets.pas b/neural/neuraldatasets.pas
index 1e6f40c2..112a05b9 100644
--- a/neural/neuraldatasets.pas
+++ b/neural/neuraldatasets.pas
@@ -115,6 +115,9 @@ interface
     'cat'    // used to be truck
   );
 
+var
+  directory: string = ''; // path to the dataset
+
 {$IFDEF FPC}
 type
 
@@ -925,6 +928,7 @@ procedure loadCifar10Dataset(ImgVolumes: TNNetVolumeList; fileName:string; base_
   globalMin2, globalMax2: TNeuralFloat;
 
 begin
+  filename := directory + fileName;
   Write('Loading 10K images from file "'+fileName+'" ...');
   AssignFile(cifarFile, fileName);
   Reset(cifarFile);
@@ -988,6 +992,7 @@ procedure loadCifar100Dataset(ImgVolumes: TNNetVolumeList; fileName: string;
   cifarFile: TCifar100File;
   AuxVolume: TNNetVolume;
 begin
+  filename := directory + fileName;
   if Verbose then Write('Loading images from CIFAR-100 file "'+fileName+'" ...');
   AssignFile(cifarFile, fileName);
   Reset(cifarFile);