Translate

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

Source

METHOD Translate( cData AS STRING, lRemoveAtractors AS LOGIC, lReFormat AS LOGIC  ; ...
...) AS STRING PASCAL CLASS TS_Atomizer
LOCAL cResult AS STRING
LOCAL aResult AS ARRAY
   TSTrace Enter
   aResult:=SELF:Atomize( cData )
   IF lRemoveAtractors .AND. LOGIC( _CAST, AScan( aResult, { | _o | _o:IsAtractor  ; ...
  ... } ) )
      aResult:=SELF:RemoveAtractors( aResult )
   END
   IF lReFormat
      aResult:=SELF:ReFormat( aResult )
   END
   cResult:=SELF:DeAtomize( aResult )
   TSTrace Leave
RETURN cResult