haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Quintiq file version 2.0
#parent: #root
Method CleanupSnapshots
{
  Description:
  [*
    Will auto delete snapshots if the run has more than `LibOpt_Optimizer.MaxNrOfSnapshotsPerRun`.
    Starts with oldest leaf snapshot and goes backup the chain
  *]
  TextBody:
  [*
    // benlong Mar-8-2022 (created)
    if( this.IsAutoCleanupSnapshots() and this.Snapshot( relsize ) > this.Optimizer().MaxNrOfSnapshotsPerRun() )
    {
      nr_to_delete := this.Snapshot( relsize ) - this.Optimizer().MaxNrOfSnapshotsPerRun();
      this.RecursiveDeleteSnapshots( this.FirstSnapshot(), nr_to_delete );
    }
  *]
}