lazhen
2025-01-09 8afe90b633046db39042aada36b88193062f8cff
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Quintiq file version 2.0
#parent: #root
Method ReadAll (const LibOpt_Task task) const as owning Strings
{
  Description: 'Read all messages in the channel'
  TextBody:
  [*
    id := this.Channel().GetAlgorithmStoreID( task, false );
    algorithm := this.Channel().GetAlgorithm( id );
    
    count := RealToNumber::ISOConverter().Convert( algorithm.RetrieveReal( LibOpt_Channel::Algorithm_Count() ) );
    result := construct( Strings );
    for( i := 0; i < count; i++ )
    {
      result.Add( algorithm.RetrieveString( LibOpt_Channel::Algorithm_Index( i ) ) );
    }
    
    AlgorithmStore::Store( id, & algorithm );
    
    return & result;
  *]
}