chenqinghong
2024-05-07 3ec06a830367465068963156dcc1d8e522571c13
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 WriteToAlgorithm (String id, String message) const
{
  Description: 'Write the given message to the `Algorithm` stored at the given id in the `AlgorithmStore`.'
  TextBody:
  [*
    algorithm := this.Channel().GetAlgorithm( id );
    
    count := RealToNumber::ISOConverter().Convert( algorithm.RetrieveReal( LibOpt_Channel::Algorithm_Count() ) );
    
    index := LibOpt_Channel::Algorithm_Index( count );
    algorithm.StoreString( index, message );
    algorithm.StoreReal( LibOpt_Channel::Algorithm_Count(), NumberToReal::ISOConverter().Convert( count + 1 ) );
    
    AlgorithmStore::Store( id, & algorithm );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}