lihongji
2024-10-18 b3b09d31287fc40eecc28d78575ba0bd1d8b03ea
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' }
}