INIT

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

Source

METHOD INIT( uoOwner, ucItem, ucValue ) CLASS TS_AtomizerItem
LOCAL cItem AS STRING
   TSTrace Enter CREATE
   DO CASE
   CASE SELF:_PSZItem<>NULL_PTR
      TSTrace Warning "SELF:_PSZItem<>NULL_PTR"
   CASE TS_IsInstanceOf( uoOwner, #TS_Atomizer )
      SELF:_Owner:=uoOwner
      IF ( IsString( ucItem ) .OR. IsNil( ucItem ) ) .AND. ( IsString( ucValue )  ; ...
     ... .OR. IsNil( ucValue ) )
         IF IsNil( ucItem )
            cItem:=TS_S_EMPTY
         ELSE
            cItem:=SClone( ucItem )
         END
         IF IsNil( ucValue )
            SELF:Value:=cItem
         ELSE
            SELF:Value:=SClone( ucValue )
         END
         IF LOGIC( _CAST, SLen( cItem ) )
            IF SELF:_Owner:IgnoreCase
               SELF:_PSZItem:=TS_StringAlloc( Upper( cItem )+ ; ...
              ... TS_C_NULL )
               IF SELF:_PSZItem==NULL_PTR
                  TSTrace Fatal "(SELF:_PSZItem:=TS_StringAlloc(Upper(cItem)+TS_C_NULL))==NULL_PTR"
               END
            ELSE
               SELF:_PSZItem:=TS_StringAlloc( cItem+TS_C_NULL  ; ...
              ... )
               IF SELF:_PSZItem==NULL_PTR
                  TSTrace Fatal "(SELF:_PSZItem:=TS_StringAlloc(cItem+TS_C_NULL))==NULL_PTR"
               END
            END
            SELF:_Len:=SLen( cItem