| 12345678910111213141516171819 |
- SweaveSyntaxOrg <- list()
- SweaveSyntaxOrg$doc <- "^#\\+END_[SR]"
- SweaveSyntaxOrg$code <- "^#\\+BEGIN_[SR]:?[[:space:]]*(.*)$"
- SweaveSyntaxOrg$coderef <- "^#\\+[SR]_CODEREF:?[[:space:]]*(.*)$"
- SweaveSyntaxOrg$docopt <- "^#\\+[SR]_OPTS:?[[:space:]]*(.*)$"
- SweaveSyntaxOrg$docexpr <- "\\\\[SR]\\{([^\\}]*)\\}"
- SweaveSyntaxOrg$extension <- "\\.[SRsr]org$"
- SweaveSyntaxOrg$syntaxname <- "^#\\+[SR]WEAVE_SYNTAX:?[[:space:]]*(.*)$"
- SweaveSyntaxOrg$input <- "^#\\+[SR]_FILE:?[[:space:]]*(.*)$"
- SweaveSyntaxOrg$trans <- list()
- SweaveSyntaxOrg$trans$doc <- "\\\\end{Scode}"
- SweaveSyntaxOrg$trans$code <- "\\\\begin{Scode}{\\1}"
- SweaveSyntaxOrg$trans$coderef <- "\\\\Scoderef{\\1}"
- SweaveSyntaxOrg$trans$docopt <- "\\\\SweaveOpts{\\1}"
- SweaveSyntaxOrg$trans$docexpr <- "\\\\Sexpr{\\1}"
- SweaveSyntaxOrg$trans$extension <- ".[SR]org"
- SweaveSyntaxOrg$trans$syntaxname <- "\\\\SweaveSyntax{SweaveSyntaxLatex}"
- SweaveSyntaxOrg$trans$input <- "\\\\SweaveInput{\\1}"
- attr(SweaveSyntaxOrg, "class") <- "SweaveSyntax"
|