1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method Write (LibOpt_Task task) as stream[JSON] 
 |  { 
 |    TextBody: 
 |    [* 
 |      result := stream[JSON]::Success(); 
 |      traverse( this, DistributedMessage, message ) 
 |      { 
 |        json := LibOpt_Message::Pack( message.Write( task ), [String] this.InternalIdentifier() + message.Identifier() ); 
 |        result := result->Merge( emit( json ) ); 
 |      } 
 |       
 |      return result 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |