lazhen
2025-01-07 b3987122cbbc46c5c59d3173f37fca3170b6dc5a
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' }
}