AddCommentDelimiters

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

Source

METHOD AddCommentDelimiters( cLeft AS STRING, cRight AS STRING, lMultiLine AS LOGIC  ; ...
...) 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
      IF lMultiLine
         oAtomizerItem:=SELF:_CreateDelimiterPair( cLeft, cRight ; ...
        ... , _OR( TS_ATOMIZER_ITEMTYPE_TOKEN, TS_ATOMIZER_ITEMTYPE_COMMENT, TS_ATOMIZER_ITEMTYPE_MULTILINE  ; ...
        ... ) )
      ELSE
         oAtomizerItem:=SELF:_CreateDelimiterPair( cLeft, cRight ; ...
        ... , _OR( TS_ATOMIZER_ITEMTYPE_TOKEN, TS_ATOMIZER_ITEMTYPE_COMMENT ) )
      END
      IF oAtomizerItem==NULL_OBJECT
         TSTrace Warning "(oAtomizerItem:=SELF:_CreateDelimiterPair("+cLeft+","+cRight ; ...
        ... +"))==NULL_OBJECT"
         lRetVal:=FALSE
      ELSE
         lRetVal:=TRUE
      END
   END
   TSTrace Leave
RETURN lRetVal