Adds strategy init

.github/workflows/compile.yml

@@ -1,6 +1,9 @@
 ---
 name: Compile
 
+env:
+  ARTIFACT_PREFIX: ${{ inputs.artifact_prefix || 'mt' }}
+
 # yamllint disable-line rule:truthy
 on:
   pull_request:
@@ -9,18 +12,68 @@ on:
   push:
     paths-ignore:
       - '**.md'
+  workflow_call:
+    inputs:
+      artifact_prefix:
+        default: mt
+        description: Artifact prefix.
+        required: false
+        type: string
+      skip_cleanup:
+        default: false
+        description: Whether to skip a clean-up job.
+        required: false
+        type: boolean
 
 jobs:
 
-  Compile:
+  mt4:
+    name: Installs platform (4)
+    uses: EA31337/EA-Tester/.github/workflows/platform-linux.yml@dev
+    with:
+      artifact_name: ${{ inputs.artifact_prefix || 'mt' }}4
+      artifact_overwrite: true
+      skip_cleanup: true
+      version: 4
+  mt5:
+    name: Installs platform (5)
+    uses: EA31337/EA-Tester/.github/workflows/platform-linux.yml@dev
+    with:
+      artifact_name: ${{ inputs.artifact_prefix || 'mt' }}5
+      artifact_overwrite: true
+      skip_cleanup: true
+      version: 5
+
+  compile:
+    name: Compile
+    needs: [mt4, mt5]
     runs-on: windows-latest
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
+      - uses: actions/download-artifact@v4
+        with:
+          name: mt${{ matrix.version }}
+          path: .mt${{ matrix.version }}
       - name: Compile
         uses: fx31337/mql-compile-action@master
         with:
           init-platform: true
+          mt-path: .mt${{ matrix.version }}
           verbose: true
       - name: Print compiled files
         run: '(Get-ChildItem -Recurse -Path . -Include *.ex[45]).fullname'
         shell: powershell
+
+    strategy:
+      matrix:
+        version: [4, 5]
+
+  cleanup:
+    if: inputs.skip_cleanup != true
+    name: Clean-up
+    needs: [compile]
+    runs-on: ubuntu-latest
+    steps:
+      - uses: geekyeggo/delete-artifact@v5
+        with:
+          name: ${{ env.ARTIFACT_PREFIX }}*

Account.mqh

@@ -427,7 +427,10 @@ class Account {
   /**
    * Get current account drawdown in percent.
    */
-  static double GetDrawdownInPct() { return (100 / AccountTotalBalance()) * (AccountTotalBalance() - AccountEquity()); }
+  static double GetDrawdownInPct() {
+    double _balance_total = AccountTotalBalance();
+    return _balance_total != 0 ? (100 / AccountTotalBalance()) * (AccountTotalBalance() - AccountEquity()) : 0.0;
+  }
 
   /**
    * Get current account risk margin level.

EA.mqh

@@ -723,7 +723,7 @@ class EA {
     _strat.Ptr().Set<long>(STRAT_PARAM_ID, _magic_no);
     _strat.Ptr().Set<ENUM_TIMEFRAMES>(STRAT_PARAM_TF, _tf);
     _strat.Ptr().Set<int>(STRAT_PARAM_TYPE, _type);
-    _strat.Ptr().OnInit();
+    _strat.Ptr().Init();
     if (!strats.KeyExists(_magic_no)) {
       _result &= strats.Set(_magic_no, _strat);
     } else {

Strategy.mqh

@@ -114,6 +114,7 @@ class Strategy : public Object {
   int filter_method[];    // Filter method to consider the trade.
   int open_condition[];   // Open conditions.
   int close_condition[];  // Close conditions.
+  bool is_initialized;    // Whether OnInit() was already called.
 
  public:
   /* Special methods */
@@ -137,8 +138,9 @@ class Strategy : public Object {
     // UpdateOrderStats(EA_STATS_MONTHLY);
     // UpdateOrderStats(EA_STATS_TOTAL);
 
-    // Call strategy's OnInit method.
-    Strategy::OnInit();
+    // Instead of calling Stategy::OnInit(), we do the initialization here.
+    // It is because we can't call virtual methods in constructor.
+    SetStops(GetPointer(this), GetPointer(this));
   }
 
   Log *GetLogger() { return GetPointer(logger); }
@@ -660,6 +662,11 @@ class Strategy : public Object {
    * Initialize strategy.
    */
   bool Init() {
+    if (!is_initialized) {
+      is_initialized = true;
+      OnInit(); // Calling virtual method.
+    }
+
     if (!trade.IsValid()) {
       /* @fixme
       logger.Warning(StringFormat("Could not initialize %s on %s timeframe!", GetName(),
@@ -863,7 +870,6 @@ class Strategy : public Object {
    * Event on strategy's init.
    */
   virtual void OnInit() {
-    SetStops(GetPointer(this), GetPointer(this));
     // trade.SetStrategy(&this); // @fixme
   }
 

Trade.mqh

@@ -196,7 +196,10 @@ class Trade {
     _request.symbol = GetChart().Get<string>(CHART_PARAM_SYMBOL);
     _request.price = SymbolInfoStatic::GetOpenOffer(_request.symbol, _type);
     _request.type = _type;
+#ifndef __MQL4__
+    // Filling modes not supported under MQL4.
     _request.type_filling = Order::GetOrderFilling(_request.symbol);
+#endif
     _request.volume = _volume > 0 ? _volume : tparams.Get<float>(TRADE_PARAM_LOT_SIZE);
     _request.volume = NormalizeLots(fmax(_request.volume, SymbolInfoStatic::GetVolumeMin(_request.symbol)));
     return _request;