###########################################################################/**

# @RdocClass RspComment

#

# @title "The RspComment class"

#

# \description{

#  @classhierarchy

#

#  An RspComment is an @see "RspConstruct" that represents an RSP comment,

#  which are of format \code{<\%-- ... --\%>}, \code{<\%--- ... ---\%>}

#  and so on.  They can also be so called "empty" RSP comments of format

#  \code{<\%-\%>}, \code{<\%--\%>}, \code{<\%---\%>} and so on.

# }

#

# @synopsis

#

# \arguments{

#   \item{str}{A @character string.}

#   \item{...}{Not used.}

# }

#

# \section{Fields and Methods}{

#  @allmethods

# }

#

# @author

#

# @keyword internal

#*/###########################################################################

setConstructorS3("RspComment", function(str=character(), ...) {

})

#########################################################################/**

# @RdocMethod getComment

#

# @title "Gets the comment"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{...}{Not used.}

# }

#

# \value{

#  Returns a @character string.

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

#*/#########################################################################

setMethodS3("getComment", "RspComment", function(comment, ...) {

})

setMethodS3("asRspString", "RspComment", function(object, ...) {

})