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"