Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method ParseClassTypeQuery (JSON jsondata) 
 | 
{ 
 | 
  TextBody: 
 | 
  [* 
 | 
    results := guard( jsondata.Get( 'results' ), null( JSON, owning ) ); 
 | 
     
 | 
    if( guard( results.IsArray(), false ) ) 
 | 
    { 
 | 
      for( i := 0; i < results.Size(); i++ ) 
 | 
      { 
 | 
        result := results.Get( i ); 
 | 
         
 | 
        if( not isnull( result ) ) 
 | 
        { 
 | 
          classtypenames := this.GetClassTypes( result ); 
 | 
          prevclasstype := null( Lib3DS_ClassType ); 
 | 
          traverse( classtypenames, Elements, classtypename ) 
 | 
          { 
 | 
            if( not isnull( prevclasstype ) ) 
 | 
            { 
 | 
              prevclasstype.ParentName( classtypename ); 
 | 
            } 
 | 
     
 | 
            classtype := Lib3DS_ClassType::FindOrCreate( this, classtypename ); 
 | 
            prevclasstype := classtype;       
 | 
          } 
 | 
        } 
 | 
      } 
 | 
    } 
 | 
  *] 
 | 
  InterfaceProperties { Accessibility: 'Module' } 
 | 
} 
 |