20 lines
998 B
R
20 lines
998 B
R
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"
|