AddLevelDelimiters

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

Source

METHOD AddLevelDelimiters( cLeft AS STRING, cRight AS STRING ) AS LOGIC PASCAL CLASS  ; ...
...TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL lRetVal AS LOGIC
   TSTrace Enter
   IF LOGIC( _CAST, SELF:_ItemCreationBlocked )
      TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
      lRetVal:=FALSE
   ELSE
      oAtomizerItem:=SELF:_CreateDelimiterPair( cLeft, cRight ; ...
     ... , _OR( TS_ATOMIZER_ITEMTYPE_TOKEN, TS_ATOMIZER_ITEMTYPE_LEVEL, TS_ATOMIZER_ITEMTYPE_GRAY  ; ...
     ... ) )
      IF oAtomizerItem==NULL_OBJECT
         TSTrace Warning "(oAtomizerItem:=SELF:_CreateDelimiterPair("+cLeft+","+cRight ; ...
        ... +"))==NULL_OBJECT"
         lRetVal:=FALSE
      ELSE
         lRetVal:=TRUE
      END
   END
   TSTrace Leave
RETURN lRetVal