457     ^ value isString and:[originalString notNil and:[originalString startsWith:'c''']]

   457     ^ self isSTXSpecialLiteralString:$c

   458 

   459     "Created: / 16-06-2018 / 08:46:53 / Claus Gittinger"

   460 !

   461 

   462 isLiteralEString

   463     ^ self isSTXSpecialLiteralString:$e

   464 

   465     "Created: / 16-06-2018 / 08:46:53 / Claus Gittinger"

   466 !

   467 

   468 isLiteralIString

   469     ^ self isSTXSpecialLiteralString:$i

   470 

   471     "Created: / 16-06-2018 / 08:46:53 / Claus Gittinger"

   472 !

   473 

   474 isLiteralRString

   475     ^ self isSTXSpecialLiteralString:$r

   476 

   477     "Created: / 16-06-2018 / 08:46:53 / Claus Gittinger"

   478 !

   479 

   480 isSTXSpecialLiteralString:typeChar

   481     ^ value isString 

   482       and:[ originalString notNil 

   483       and:[ originalString size > 2

   484       and:[ (originalString at:1) == typeChar

   485       and:[ (originalString at:2) == $'

   486     ]]]]