INIT
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
METHOD INIT( uoOwner, udwMode, usymAtomizerItem ) CLASS TS_Atomizer
LOCAL X AS DWORD
TSTrace Enter CREATE
IF _TS_AtomizerIsLabelPtr==NULL_PTR
_TS_AtomizerIsLabelPtr:=MemAlloc( 0x0100U*_SIZEOF( LOGIC ) )
IF _TS_AtomizerIsLabelPtr==NULL_PTR
TSTrace Fatal "(_TS_AtomizerIsLabelPtr:=MemAlloc(0x0100U*_SizeOf(LOGIC)))==NULL_PTR"
ELSE
FOR X:=0x0000U UPTO 0x00FFU
IF IsDigit( @X ) .OR. IsLower( @X ) .OR. IsUpper( @X ) .OR. X==TS_ASC_UNDERSCORE
LOGIC( _TS_AtomizerIsLabelPtr+X ):=TRUE
ELSE
LOGIC( _TS_AtomizerIsLabelPtr+X ):=FALSE
END
NEXT
END
END
IF SELF:_Inited .OR. LOGIC( _CAST, ALen( SELF:_ItemsAtivated