diff options
author | Karl Berry <karl@freefriends.org> | 2006-11-18 01:37:52 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-11-18 01:37:52 +0000 |
commit | 5c91b9f8a88e06f057a6a08b0a755a224d08e019 (patch) | |
tree | 57cfafb6bd6c146dcdfc911dbef8db622c6476bd /Master/texmf-dist/tex/context/base/m-r.tex | |
parent | 983736c2ab572e9a860c74f0f781b3decd282f13 (diff) |
context 17nov06 update
git-svn-id: svn://tug.org/texlive/trunk@2449 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/m-r.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/m-r.tex | 44 |
1 files changed, 1 insertions, 43 deletions
diff --git a/Master/texmf-dist/tex/context/base/m-r.tex b/Master/texmf-dist/tex/context/base/m-r.tex index 244b62c3653..bf7b07a14d0 100644 --- a/Master/texmf-dist/tex/context/base/m-r.tex +++ b/Master/texmf-dist/tex/context/base/m-r.tex @@ -19,44 +19,6 @@ %D We can combine both variants in one macro definition. Also, we %D can minimize the number of runs by checking for a change. -%D \starttyping -%D \newcounter\Rnumber -%D \newtoks\everyR -%D -%D \appendtoks -%D \obeylines -%D \to \everyR -%D -%D \def\startR {\dostartR\stopR \plusone} -%D \def\startRhidden{\dostartR\stopRhidden\zerocount} -%D -%D \def\dostartR#1#2% -%D {\bgroup -%D \ifcase#2\relax\let\typeRout\relax\fi -%D \obeylines -%D \catcode`\%=\@@letter -%D \catcode`\#=\@@letter -%D \def\dostartR##1#1% -%D {\doglobal\increment\Rnumber -%D \edef\Rfile{\bufferprefix R-\Rnumber}% -%D \bgroup -%D \the\everyR -%D \def\par{\rawcharacter{10}}% -%D \immediate\openout\scratchwrite=\Rfile.r -%D \immediate\write\scratchwrite{##1}% -%D \immediate\closeout\scratchwrite -%D \egroup -%D \doifmode{*\v!first}\runR -%D \typefile{\Rfile.rout}% -%D \egroup}% -%D \doifnextcharelse\relax\dostartR\dostartR} -%D -%D \def\runR -%D {\executesystemcommand{texmfstart -%D --ifchanged=\Rfile.r bin:R -%D "-q --save --restore < \Rfile.r > \Rfile.rout"}} -%D \stoptyping - %D JS: The call to R has \type {-q} in order to prevent banner, %D \type {--save} to make sure it saves the workspace after the run, %D \type {--restore} to make sure it reads any workspace from a @@ -65,6 +27,7 @@ %D An easier and better solution is to use the buffering mechanisms: \def\Rbufferprefix{r-} + \newcounter\nofRfiles \def\Rfile{\TEXbufferfile{\Rbufferprefix\nofRfiles}}% @@ -84,11 +47,6 @@ \def\stopRhidden {\doifmode{*\v!first}\runR} -% \def\runR % " " needed to preserve < > -% {\executesystemcommand{texmfstart -% --ifchanged=\Rfile\space --direct R -% "-q --save --restore < \Rfile\space > \Rfile.out"}} - \def\runR {\executesystemcommand{texmfstart --ifchanged=\Rfile\space --direct R |