forked from animatedread/Warrior_EA
The warning lived inside the VerboseMode-gated corpus report, so a forgotten wipe silently voided an entire 18-year corpus run - the outdated-row guard rejected the whole replay against leftover rows and the run appended 35 rows instead of building a corpus. The check now runs unconditionally at tester OnInit (MetaCorpusStaleCheck): 52 quiet one-row newest-key probes vs the test start, with a loud stop- wipe-rerun instruction when the DB is newer than the test. Absent tables probe quietly via FetchNewestTimeKey''s new quiet flag. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
380 lines
15 KiB
MQL5
380 lines
15 KiB
MQL5
//+------------------------------------------------------------------+
|
|
//| Warrior_EA |
|
|
//| AnimateDread |
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
#include "..\System\PrintVerbose.mqh"
|
|
#define DB_RETRY_ATTEMPTS 3
|
|
#define DB_RETRY_DELAY_MS 20
|
|
//--- ERR_DATABASE_NO_MORE_DATA: what GetLastError() reports after DatabaseRead() steps a statement to
|
|
//--- completion with nothing to read back (SQLite's DONE). For INSERT/UPDATE that is the SUCCESS
|
|
//--- outcome, not a failure - see PrepareAndExecuteBound().
|
|
#define DB_NO_MORE_DATA 5126
|
|
class CDatabaseOperationsManager
|
|
{
|
|
private:
|
|
bool m_verboseMode;
|
|
int m_databaseHandle;
|
|
// Table/column names can't be bound as SQL parameters, so they must be
|
|
// restricted to a safe character set before being concatenated into a query.
|
|
bool IsValidIdentifier(const string name)
|
|
{
|
|
int len = StringLen(name);
|
|
if(len == 0)
|
|
return false;
|
|
for(int i = 0; i < len; i++)
|
|
{
|
|
ushort c = StringGetCharacter(name, i);
|
|
bool isAlnum = (c >= '0' && c <= '9') || (c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z') || c == '_';
|
|
if(!isAlnum)
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
// Prepare and execute a query that has no bound parameters (DDL, or already-safe DML)
|
|
bool PrepareAndExecuteQuery(string query)
|
|
{
|
|
if(m_databaseHandle == INVALID_HANDLE)
|
|
return false;
|
|
int attempts = 0;
|
|
while(attempts < DB_RETRY_ATTEMPTS)
|
|
{
|
|
if(DatabaseExecute(m_databaseHandle, query))
|
|
return true;
|
|
Print("DatabaseExecute error: Attempt " + IntegerToString(attempts + 1) + " failed for query: " + query);
|
|
Sleep(DB_RETRY_DELAY_MS);
|
|
attempts++;
|
|
}
|
|
return false;
|
|
}
|
|
// Prepare a statement, bind parameters in order, execute it once, and finalize
|
|
bool PrepareAndExecuteBound(string query, const string ¶ms[])
|
|
{
|
|
if(m_databaseHandle == INVALID_HANDLE)
|
|
return false;
|
|
int handle = DatabasePrepare(m_databaseHandle, query);
|
|
if(handle == INVALID_HANDLE)
|
|
{
|
|
Print("Failed to prepare bound query: " + query);
|
|
return false;
|
|
}
|
|
for(int i = 0; i < ArraySize(params); i++)
|
|
{
|
|
if(!DatabaseBind(handle, i, params[i]))
|
|
{
|
|
Print("Failed to bind parameter " + IntegerToString(i) + " for query: " + query);
|
|
DatabaseFinalize(handle);
|
|
return false;
|
|
}
|
|
}
|
|
// INSERT/UPDATE have no result set, so DatabaseRead() returns false on
|
|
// success too (nothing to read) - the real signal is the error code. A
|
|
// completed DML step can surface as either 0 or DB_NO_MORE_DATA (5126,
|
|
// SQLite's DONE): the statement RAN, there is just nothing to read back.
|
|
// The tester agent reports 5126 where the live terminal reports 0 for
|
|
// the same completed step; treating it as failure printed a phantom
|
|
// "Failed to insert/update" pair for EVERY row a backtest journaled
|
|
// (~11.7k lines per run) while all of the data landed correctly - and
|
|
// that spam would bury any real error. Genuine failures (busy, locked,
|
|
// constraint, misuse) surface as other codes and still fail here.
|
|
ResetLastError();
|
|
DatabaseRead(handle);
|
|
int error = GetLastError();
|
|
DatabaseFinalize(handle);
|
|
if(error != 0 && error != DB_NO_MORE_DATA)
|
|
{
|
|
Print("Failed to execute bound query (error " + IntegerToString(error) + "): " + query);
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
public:
|
|
//constructor
|
|
CDatabaseOperationsManager(bool verbose = false)
|
|
{
|
|
m_verboseMode = verbose;
|
|
m_databaseHandle = INVALID_HANDLE;
|
|
}
|
|
void SetDatabaseHandle(int dbHandle)
|
|
{
|
|
m_databaseHandle = dbHandle;
|
|
}
|
|
// Create a table in the database
|
|
bool CreateTable(string tableName, string tableSchema)
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to create table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
if(!DatabaseTableExists(m_databaseHandle, tableName))
|
|
{
|
|
string createTableQuery = "CREATE TABLE " + tableName + " (" + tableSchema + ")";
|
|
if(PrepareAndExecuteQuery(createTableQuery))
|
|
return true;
|
|
Print("Failed to create table " + tableName);
|
|
return false;
|
|
}
|
|
return true; // Table already exists
|
|
}
|
|
bool DeleteTable(string tableName)
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to delete table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string deleteTableQuery = "DROP TABLE IF EXISTS " + tableName;
|
|
if(PrepareAndExecuteQuery(deleteTableQuery))
|
|
{
|
|
PrintVerbose("Table " + tableName + " deleted successfully.");
|
|
return true;
|
|
}
|
|
Print("Failed to delete table " + tableName);
|
|
return false;
|
|
}
|
|
// Insert a trade record into the database. Column names are our own fixed
|
|
// schema field names (never user data); values are bound as parameters.
|
|
bool InsertTradeRecord(string tableName, const string &columns[], const string &values[])
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to insert into table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string insertQuery = "INSERT INTO " + tableName + " (";
|
|
string placeholders = "";
|
|
for(int i = 0; i < ArraySize(columns); i++)
|
|
{
|
|
insertQuery += columns[i];
|
|
placeholders += "?";
|
|
if(i < ArraySize(columns) - 1)
|
|
{
|
|
insertQuery += ", ";
|
|
placeholders += ", ";
|
|
}
|
|
}
|
|
insertQuery += ") VALUES (" + placeholders + ")";
|
|
if(PrepareAndExecuteBound(insertQuery, values))
|
|
return true;
|
|
Print("Failed to insert trade record into " + tableName);
|
|
return false;
|
|
}
|
|
struct RecordCount
|
|
{
|
|
int count;
|
|
};
|
|
// Fetch the number of records in the specified table
|
|
bool FetchRecordCount(string tableName, int &count)
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to query table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
RecordCount countStruct;
|
|
string countQuery = "SELECT COUNT(*) as count FROM " + tableName;
|
|
int handle = DatabasePrepare(m_databaseHandle, countQuery);
|
|
if(handle == INVALID_HANDLE)
|
|
{
|
|
Print("Failed to prepare COUNT query for " + tableName);
|
|
return false;
|
|
}
|
|
bool ok = DatabaseReadBind(handle, countStruct);
|
|
if(ok)
|
|
count = countStruct.count;
|
|
DatabaseFinalize(handle);
|
|
return ok;
|
|
}
|
|
//--- Targeted lookups. These answer ProcessSignal/UpdateSignalsWeights' questions inside SQLite
|
|
//--- and return one row or one pair of numbers, so per-signal cost stays flat no matter how large
|
|
//--- a table grows. They exist because the original design pulled ENTIRE tables into MQL struct
|
|
//--- arrays for every question - the real constraint behind the historical 1000-row cap: SQLite
|
|
//--- has no such limit, but materializing thousands of string-bearing structs per signal does.
|
|
struct OpenTradeRow
|
|
{
|
|
double entryPrice;
|
|
};
|
|
// Entry price of the still-open ("NA") trade for pattern+direction, if one exists
|
|
bool FetchOpenTradeEntry(string tableName, string pattern, string direction,
|
|
double &entryPrice, bool &found)
|
|
{
|
|
found = false;
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to query table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string q = "SELECT entryPrice FROM " + tableName +
|
|
" WHERE pattern=? AND direction=? AND result='NA' LIMIT 1";
|
|
int handle = DatabasePrepare(m_databaseHandle, q);
|
|
if(handle == INVALID_HANDLE)
|
|
{
|
|
Print("Failed to prepare open-trade query for " + tableName);
|
|
return false;
|
|
}
|
|
if(!DatabaseBind(handle, 0, pattern) || !DatabaseBind(handle, 1, direction))
|
|
{
|
|
Print("Failed to bind open-trade query for " + tableName);
|
|
DatabaseFinalize(handle);
|
|
return false;
|
|
}
|
|
OpenTradeRow row;
|
|
if(DatabaseReadBind(handle, row))
|
|
{
|
|
entryPrice = row.entryPrice;
|
|
found = true;
|
|
}
|
|
DatabaseFinalize(handle);
|
|
return true;
|
|
}
|
|
struct TimeKeyRow
|
|
{
|
|
long k;
|
|
};
|
|
// Time key (yyyymmddhhmm as a number) of the table's NEWEST row. Rows are inserted in
|
|
// chronological order, so max ROWID carries the latest timestamp. `quiet` suppresses the
|
|
// prepare-failure print so existence probes over possibly-absent tables don't spam the log.
|
|
bool FetchNewestTimeKey(string tableName, long &key, bool &found, const bool quiet = false)
|
|
{
|
|
found = false;
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to query table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string q = "SELECT (((year*100+month)*100+day)*100+hour)*100+minutes AS k FROM " +
|
|
tableName + " ORDER BY ROWID DESC LIMIT 1";
|
|
int handle = DatabasePrepare(m_databaseHandle, q);
|
|
if(handle == INVALID_HANDLE)
|
|
{
|
|
if(!quiet)
|
|
Print("Failed to prepare newest-time query for " + tableName);
|
|
return false;
|
|
}
|
|
TimeKeyRow row;
|
|
if(DatabaseReadBind(handle, row))
|
|
{
|
|
key = row.k;
|
|
found = true;
|
|
}
|
|
DatabaseFinalize(handle);
|
|
return true;
|
|
}
|
|
struct WinLossRow
|
|
{
|
|
int wins;
|
|
int losses;
|
|
};
|
|
// Closed-trade outcome counts with open time strictly before beforeKey (yyyymmddhhmm). The bound
|
|
// is what keeps a resumed/mixed database's not-yet-current rows out of the weights in the tester.
|
|
bool FetchWinLossCounts(string tableName, long beforeKey, int &wins, int &losses)
|
|
{
|
|
wins = 0;
|
|
losses = 0;
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to query table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string q = "SELECT COALESCE(SUM(result='Profit'),0), COALESCE(SUM(result='Loss'),0) FROM " +
|
|
tableName + " WHERE result!='NA' AND (((year*100+month)*100+day)*100+hour)*100+minutes < " +
|
|
IntegerToString(beforeKey);
|
|
int handle = DatabasePrepare(m_databaseHandle, q);
|
|
if(handle == INVALID_HANDLE)
|
|
{
|
|
Print("Failed to prepare win-loss query for " + tableName);
|
|
return false;
|
|
}
|
|
WinLossRow row;
|
|
bool ok = DatabaseReadBind(handle, row);
|
|
if(ok)
|
|
{
|
|
wins = row.wins;
|
|
losses = row.losses;
|
|
}
|
|
DatabaseFinalize(handle);
|
|
return ok;
|
|
}
|
|
// Fetch trade records from specified table and read into a structure, then populate the dynamic array with the data
|
|
template <typename T>
|
|
bool FetchTradeRecords(string tableName, T &tradeRecordStructure, T &tradeRecords[])
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to query table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
int recordCount;
|
|
if(!FetchRecordCount(tableName, recordCount))
|
|
return false;
|
|
ArrayResize(tradeRecords, recordCount);
|
|
string selectQuery = "SELECT * FROM " + tableName;
|
|
int handle = DatabasePrepare(m_databaseHandle, selectQuery);
|
|
if(handle == INVALID_HANDLE)
|
|
{
|
|
Print("Failed to prepare SELECT query for " + tableName);
|
|
return false;
|
|
}
|
|
int i = 0;
|
|
for(; i < recordCount && DatabaseReadBind(handle, tradeRecordStructure); i++)
|
|
tradeRecords[i] = tradeRecordStructure;
|
|
DatabaseFinalize(handle);
|
|
if(i < recordCount)
|
|
{
|
|
// The read loop can exit early (a concurrent delete on the shared COMMON db between the
|
|
// COUNT and SELECT above, or a transient read failure) - trim the array to what was
|
|
// actually read instead of leaving trailing zero/empty-string structs that downstream
|
|
// reporting would otherwise silently count as real (empty-symbol, 0-profit) trades.
|
|
Print(__FUNCTION__ + ": only read " + IntegerToString(i) + " of " + IntegerToString(recordCount) +
|
|
" expected rows from " + tableName + " - trimming to actual rows read.");
|
|
ArrayResize(tradeRecords, i);
|
|
}
|
|
return true;
|
|
}
|
|
// Update the exit price/result of the still-open ("NA") trade matching pattern+direction
|
|
bool UpdateTradeRecord(string tableName, const string &columns[], const string &values[], string pattern, string direction)
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to update table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string updateQuery = "UPDATE " + tableName + " SET ";
|
|
for(int i = 0; i < ArraySize(columns); i++)
|
|
{
|
|
updateQuery += columns[i] + "=?";
|
|
if(i < ArraySize(columns) - 1)
|
|
updateQuery += ", ";
|
|
}
|
|
updateQuery += " WHERE pattern=? AND direction=? AND result='NA'";
|
|
string params[];
|
|
ArrayResize(params, ArraySize(values) + 2);
|
|
for(int i = 0; i < ArraySize(values); i++)
|
|
params[i] = values[i];
|
|
params[ArraySize(values)] = pattern;
|
|
params[ArraySize(values) + 1] = direction;
|
|
if(PrepareAndExecuteBound(updateQuery, params))
|
|
return true;
|
|
Print("Failed to update trade records in " + tableName);
|
|
return false;
|
|
}
|
|
// Delete the oldest entry from a specified table
|
|
bool DeleteOldestEntry(string tableName)
|
|
{
|
|
if(!IsValidIdentifier(tableName))
|
|
{
|
|
Print("Refusing to delete from table with invalid identifier: " + tableName);
|
|
return false;
|
|
}
|
|
string deleteQuery = "DELETE FROM " + tableName + " WHERE ROWID = (SELECT MIN(ROWID) FROM " + tableName + ")";
|
|
if(PrepareAndExecuteQuery(deleteQuery))
|
|
{
|
|
PrintVerbose("Oldest entry deleted from " + tableName + " successfully.");
|
|
return true;
|
|
}
|
|
Print("Failed to delete oldest entry from " + tableName);
|
|
return false;
|
|
}
|
|
};
|
|
//+------------------------------------------------------------------+
|