DumpAtomized

(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)

Source

METHOD DumpAtomized( aAtomized AS ARRAY, dwLevel:=0U AS DWORD ) AS VOID PASCAL CLASS  ; ...
...TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL aNew AS ARRAY
LOCAL X AS DWORD
   TSTrace Enter
   IF LOGIC( _CAST, ALen( aAtomized ) )
      IF !LOGIC( _CAST, dwLevel )
         TS_DebOutSTRING( "." )
      END
      FOR X:=1U UPTO ALen( aAtomized )
         IF IsArray( aAtomized[ X ] )
            aNew:=aAtomized[ X ]
            SELF:DumpAtomized( aNew, dwLevel+1U )
            aNew:=NULL_ARRAY
         ELSE
            oAtomizerItem:=aAtomized[ X ]
            oAtomizerItem:_DumpItem( dwLevel )
            oAtomizerItem:=NULL_OBJECT
         END
      NEXT
   END
   TSTrace Leave
RETURN