1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method GenerateIOBaseClass 
 |  { 
 |    TextBody: 
 |    [* 
 |      DomainModel::DomainStream()->( dm ) 
 |      { 
 |        gp := this.TG_TestGenerator().TG_GlobalParameter(); 
 |         
 |        accessibility := 'Public'; // TODO 
 |        basetype := 'IO_Base'; // TODO 
 |         
 |        if( not exists( dm, ObjectDefinitions.Elements, o, o.Name() = basetype ) ) 
 |        { 
 |          CG_CodeGenerator::CreateUpdateObjectType( gp.TestModuleName(), 
 |                                                    typeof( Object ), 
 |                                                    basetype, 
 |                                                    '', 
 |                                                    accessibility ); 
 |           
 |          this.GenerateAttributes(); 
 |        } 
 |      } 
 |    *] 
 |  } 
 |  
  |