SetEscapeString

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

Source

METHOD SetEscapeString( cEscapeString AS STRING ) AS LOGIC PASCAL CLASS TS_Atomizer
LOCAL lRetVal AS LOGIC
   TSTrace Enter
   DO CASE
   CASE LOGIC( _CAST, SELF:_ItemCreationBlocked )
      TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
      lRetVal:=FALSE
   CASE LOGIC( _CAST, SLen( cEscapeString ) )
      IF SELF:_EscapeItem<>NULL_OBJECT
         IF SELF:ItemDel( SELF:_EscapeItem:Item  ; ...
        ... )
            SELF:_EscapeItem:=NULL_OBJECT
            SELF:_EscapeString:=NULL_STRING
            lRetVal:=TRUE
         ELSE
            TSTrace Warning "!SELF:ItemDel(SELF:_EscapeItem:Item)"
            lRetVal:=FALSE
         END
      ELSE
         lRetVal:=TRUE
      END
      IF lRetVal
         IF LOGIC( _CAST, SELF:_LocateItem( cEscapeString ) )
            TSTrace Warning "LOGIC(_CAST,SELF:_LocateItem(cEscapeString))"
            lRetVal:=FALSE
         ELSE
            SELF:_EscapeItem:=SELF:_CreateItem ; ...
           ... ( cEscapeString, TS_ATOMIZER_ITEMTYPE_ESCAPE )
            IF SELF:_EscapeItem<>NULL_OBJECT
               SELF:_EscapeItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_ESCAPE  ; ...
              ... )
               SELF:_EscapeString:=cEscapeString+TS_C_NULL
            ELSE
               TSTrace Warning "SELF:_CreateItem(cEscapeString,TS_ATOMIZER_ITEMTYPE_ESCAPE)==NULL_OBJECT"
               lRetVal:=FALSE
            END
         END
      END
   OTHERWISE
      TSTrace Warning "LOGIC(_CAST,SLen(cEscapeString))"
      lRetVal:=FALSE
   END
   TSTrace Leave
RETURN lRetVal