[Distr-commits] r515 - branches/distr-2.2/pkg/SweaveListingUtils/R branches/distr-2.2/pkg/SweaveListingUtils/chm branches/distr-2.2/pkg/SweaveListingUtils/inst/doc pkg/SweaveListingUtils/R pkg/SweaveListingUtils/chm pkg/SweaveListingUtils/inst/doc

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Jul 29 11:11:38 CEST 2009


Author: ruckdeschel
Date: 2009-07-29 11:11:34 +0200 (Wed, 29 Jul 2009)
New Revision: 515

Modified:
   branches/distr-2.2/pkg/SweaveListingUtils/R/SweaveListingUtils.R
   branches/distr-2.2/pkg/SweaveListingUtils/R/keywordsStyle.R
   branches/distr-2.2/pkg/SweaveListingUtils/chm/SweaveListingUtils.chm
   branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw
   branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preamble.tex
   branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preambleExp.tex
   pkg/SweaveListingUtils/R/SweaveListingUtils.R
   pkg/SweaveListingUtils/R/keywordsStyle.R
   pkg/SweaveListingUtils/chm/SweaveListingUtils.chm
   pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw
   pkg/SweaveListingUtils/inst/doc/preamble.tex
   pkg/SweaveListingUtils/inst/doc/preambleExp.tex
Log:
SweaveListingUtils: fixed yet another issue with multiple definitions of morekeywords (in changeKeywordstyles());
now have a unique counter for incremental definitions of Rstyle(s):
% note: we define styles RstyleO<num> incrementally, i.e.
%       \lstdefinestyle{RstyleO<num>}{style = RstyleO<num-1>,
%                                     <further definitions for RstyleO<num> > }
% and then overwrite each time style Rstyle by
%     \lstdefinestyle{Rstyle}{style=RstyleO<num>}


Modified: branches/distr-2.2/pkg/SweaveListingUtils/R/SweaveListingUtils.R
===================================================================
--- branches/distr-2.2/pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-07-28 20:59:46 UTC (rev 514)
+++ branches/distr-2.2/pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-07-29 09:11:34 UTC (rev 515)
@@ -239,8 +239,8 @@
                                       lib.loc = lib.loc),
                           "TeX", "Rdlisting.sty")))
 cat(line)
-lstsetR(Rset=Rset, LineLength=LineLength, startS ="\\lstdefinestyle{Rstyle}{")
 lstsetR(Rset=Rset, LineLength=LineLength, startS ="\\lstdefinestyle{RstyleO1}{")
+cat("\\lstdefinestyle{Rstyle}{style=RstyleO1}\n")
 lstsetRd(Rdset=Rdset, LineLength=LineLength, startS ="\\lstdefinestyle{Rdstyle}{")
 cat(line)
 if(!withOwnFileSection)

Modified: branches/distr-2.2/pkg/SweaveListingUtils/R/keywordsStyle.R
===================================================================
--- branches/distr-2.2/pkg/SweaveListingUtils/R/keywordsStyle.R	2009-07-28 20:59:46 UTC (rev 514)
+++ branches/distr-2.2/pkg/SweaveListingUtils/R/keywordsStyle.R	2009-07-29 09:11:34 UTC (rev 515)
@@ -111,18 +111,15 @@
 
            if(i==1){
               pos1 <- pos0 + length(.alreadyDefinedPkgs)
-              cat("\n\\lstdefinestyle{Rstyle",pos1,"}{style=RstyleO",
+              cat("\n\\lstdefinestyle{RstyleO",.numberofRequires+1,"}{style=RstyleO",
                        .numberofRequires,",%\n",sep="")
            }
 
            if(i==lP) withcomma <- FALSE
            genKWL(pkg = pkgs[i], kwd = kwl,
                   kws = keywordstyles[i], withcomma = withcomma)
-           if(i==lP) cat("}%\n\\lstdefinestyle{Rstyle}{style=Rstyle",
-                          pos1,"}\n",
-                         "\\lstdefinestyle{RstyleO",.numberofRequires+1,
-                         "}{style=Rstyle", pos1,"}\n\n",
-
+           if(i==lP) cat("}%\n\\lstdefinestyle{Rstyle}{style=RstyleO",
+                          .numberofRequires+1,"}\n\n",
                           sep="")
            }
      }
@@ -130,9 +127,14 @@
 }
 
 changeKeywordstyles <- function(pkgs, keywordstyles){
+     if(is.null(.numberofRequires)) .numberofRequires <<- 1
+     else .numberofRequires <<- .numberofRequires + 1
      setkws <- function(num, kws){
-        cat("%\n\\lstdefinestyle{Rstyle}%\n")
+        cat("%\n\\lstdefinestyle{RstyleO",.numberofRequires+1,"}{style=RstyleO",
+                       .numberofRequires,",%\n", sep="")
         cat("{keywordstyle={[",num+1,"]",kws,"}\n}\n", sep = "")
+        cat("\\lstdefinestyle{Rstyle}{style=RstyleO", .numberofRequires+1,"}\n",
+            sep = "")
         }
 
      alreadyDefinedPkgs <- .alreadyDefinedPkgs

Modified: branches/distr-2.2/pkg/SweaveListingUtils/chm/SweaveListingUtils.chm
===================================================================
(Binary files differ)

Modified: branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw
===================================================================
--- branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw	2009-07-28 20:59:46 UTC (rev 514)
+++ branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw	2009-07-29 09:11:34 UTC (rev 515)
@@ -78,11 +78,9 @@
 <<SweaveListingsPreparations, results=tex, echo=FALSE>>=
 require(SweaveListingUtils)
 SweaveListingoptions(intermediate = FALSE)
+SweaveListingPreparations()
 setToBeDefinedPkgs(pkgs = c("SweaveListingUtils","distr"),
                    keywordstyles = c("\\bf\\color{blue}","\\bf\\color{red}"))
-SweaveListingPreparations()
-changeKeywordstyles(pkgs = c("SweaveListingUtils","distr"),
-                   keywordstyles = c("\\bf\\color{blue}","\\bf\\color{red}"))
 @
 % -------------------------------------------------------------------------------
 \lstdefinestyle{TeXstyle}{fancyvrb=true,escapechar=`,language=[LaTeX]TeX,%

Modified: branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preamble.tex
===================================================================
--- branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preamble.tex	2009-07-28 20:59:46 UTC (rev 514)
+++ branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preamble.tex	2009-07-29 09:11:34 UTC (rev 515)
@@ -11,6 +11,10 @@
 <<SweaveListingsPreparations, results=tex, echo=FALSE>>=
 require(SweaveListingUtils)
 SweaveListingPreparations()
-changeKeywordstyles(pkgs = c("SweaveListingUtils","distr"),
+## setToBeDefinedPkgs(....) line just necessary for the example;
+##    may be skipped in general  
+##    you may also wish to pass arguments to SweaveListingPreparations()
+##    see ?SweaveListingPreparations
+setToBeDefinedPkgs(pkgs = c("SweaveListingUtils","distr"),
                    keywordstyles = c("\\bf\\color{blue}","\\bf\\color{red}"))
 @

Modified: branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preambleExp.tex
===================================================================
--- branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preambleExp.tex	2009-07-28 20:59:46 UTC (rev 514)
+++ branches/distr-2.2/pkg/SweaveListingUtils/inst/doc/preambleExp.tex	2009-07-29 09:11:34 UTC (rev 515)
@@ -31,24 +31,26 @@
    morecomment=[l]\%% 2008/9 Peter Ruckdeschel
 }[keywords,comments]%%
 %------------------------------------------------------------------------------%
-\lstdefinestyle{Rstyle}{fancyvrb=true,escapechar=§,language=R,% § just for convenience
-                        basicstyle={\color{Rcolor}\small},%
-                        keywordstyle={\bf\color{Rcolor}},%
-                        commentstyle={\color{Rcommentcolor}\ttfamily\itshape},%
-                        literate={<-}{{$\leftarrow$}}2{<<-}{{$\twoheadleftarrow$}}2{~}{{$\sim$}}1{<=}{{$\leq$}}2{>=}{{$\geq$}}2{^}{{$\scriptstyle\wedge$}}1,%
-                        alsoother={$},%
-                        alsoletter={.<-},%
-                        otherkeywords={!,!=,~,$,*,\&,\%/\%,\%*\%,\%\%,<-,<<-,/},%
-                        escapeinside={(*}{*)}}%
-\lstdefinestyle{RstyleO1}{fancyvrb=true,escapechar=§,language=R,% § just for convenience
+\lstdefinestyle{RstyleO1}{fancyvrb=true,escapechar=§,language=R,%
+       % § just for convenience replacing the accent grave
+       % (which would escape the rest here, which we do not want for
+       % printing out the original code)
                           basicstyle={\color{Rcolor}\small},%
                           keywordstyle={\bf\color{Rcolor}},%
                           commentstyle={\color{Rcommentcolor}\ttfamily\itshape},%
-                          literate={<-}{{$\leftarrow$}}2{<<-}{{$\twoheadleftarrow$}}2{~}{{$\sim$}}1{<=}{{$\leq$}}2{>=}{{$\geq$}}2{^}{{$\scriptstyle\wedge$}}1,%
+                          literate={<-}{{$\leftarrow$}}2{<<-}{{$\twoheadleftarrow$}}2%
+                                        {~}{{$\sim$}}1{<=}{{$\leq$}}2{>=}{{$\geq$}}%
+                                        2{^}{{$\scriptstyle\wedge$}}1,%
                           alsoother={$},%
                           alsoletter={.<-},%
                           otherkeywords={!,!=,~,$,*,\&,\%/\%,\%*\%,\%\%,<-,<<-,/},%
                           escapeinside={(*}{*)}}%
+% note: we define styles RstyleO<num> incrementally, i.e.
+%       \lstdefinestyle{RstyleO<num>}{style = RstyleO<num-1>,
+%                                     <further definitions for RstyleO<num> > }
+% and then overwrite each time style Rstyle by
+%     \lstdefinestyle{Rstyle}{style=RstyleO<num>}
+\lstdefinestyle{Rstyle}{style=RstyleO1}
 \lstdefinestyle{Rdstyle}{fancyvrb=true,language=Rd,keywordstyle={\bf},%
                          basicstyle={\color{black}\footnotesize},%
                          commentstyle={\ttfamily\itshape},%
@@ -109,29 +111,29 @@
 \def\file#1{{\tt #1}}
 \def\pkg#1{{\tt "#1"}}
 \newcommand{\pkgversion}{{\tt 2.2}}
-%------------------------------------------------------------------------------%
-\lstdefinestyle{Rstyle2}{style=RstyleO1,%
+\lstdefinestyle{RstyleO2}{style=RstyleO1,%
 % --------------------------
 % Registration of package SweaveListingUtils
 % --------------------------
-morekeywords={[2]taglist,SweaveListingPreparations,SweaveListingOptions,SweaveListingoptions,SweaveListingMASK,%
-setToBeDefinedPkgs,setBaseOrRecommended,readSourceFromRForge,readPkgVersion,lstsetRout,%
-lstsetRin,lstsetRd,lstsetRcode,lstsetR,lstsetLanguage,%
-lstset,lstinputSourceFromRForge,isBaseOrRecommended,getSweaveListingOption,copySourceFromRForge,%
-changeKeywordstyles%
+morekeywords={[2]taglist,SweaveListingPreparations,SweaveListingOptions,%
+SweaveListingoptions,SweaveListingMASK,setToBeDefinedPkgs,setBaseOrRecommended,%
+readSourceFromRForge,readPkgVersion,lstsetRout,lstsetRin,lstsetRd,lstsetRcode,%
+lstsetR,lstsetLanguage,lstset,lstinputSourceFromRForge,isBaseOrRecommended,%
+getSweaveListingOption,copySourceFromRForge,changeKeywordstyles%
 },%
 keywordstyle={[2]{\bf}},%
 %
 % --------------------------
 % Registration of package startupmsg
 % --------------------------
-morekeywords={[3]suppressStartupMessages,startupType,startupPackage,StartupMessage,startupMessage,%
-startupEndline,readVersionInformation,readURLInformation,pointertoNEWS,onlytypeStartupMessages,%
+morekeywords={[3]suppressStartupMessages,startupType,startupPackage,%
+StartupMessage,startupMessage,startupEndline,readVersionInformation,%
+readURLInformation,pointertoNEWS,onlytypeStartupMessages,%
 NEWS,mystartupMessage,mySMHandler,infoShow,buildStartupMessage%
 },%
 keywordstyle={[3]{\bf}},%
 %
-
+% --------------------------
 %
 ...
 snipped expanded (`\TeX`) (see how the original `(\verb|(`\TeX`)|)` gets escaped!)
@@ -144,7 +146,6 @@
 keywordstyle={[11]{\bf\color{RRecomdcolor}}}%
 %
 }%
-\lstdefinestyle{Rstyle}{style=Rstyle2}
-\lstdefinestyle{RstyleO2}{style=Rstyle2}
-
+\lstdefinestyle{Rstyle}{style=RstyleO2}
+%
 %------------------------------------------------------------------------------%

Modified: pkg/SweaveListingUtils/R/SweaveListingUtils.R
===================================================================
--- pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-07-28 20:59:46 UTC (rev 514)
+++ pkg/SweaveListingUtils/R/SweaveListingUtils.R	2009-07-29 09:11:34 UTC (rev 515)
@@ -239,8 +239,8 @@
                                       lib.loc = lib.loc),
                           "TeX", "Rdlisting.sty")))
 cat(line)
-lstsetR(Rset=Rset, LineLength=LineLength, startS ="\\lstdefinestyle{Rstyle}{")
 lstsetR(Rset=Rset, LineLength=LineLength, startS ="\\lstdefinestyle{RstyleO1}{")
+cat("\\lstdefinestyle{Rstyle}{style=RstyleO1}\n")
 lstsetRd(Rdset=Rdset, LineLength=LineLength, startS ="\\lstdefinestyle{Rdstyle}{")
 cat(line)
 if(!withOwnFileSection)

Modified: pkg/SweaveListingUtils/R/keywordsStyle.R
===================================================================
--- pkg/SweaveListingUtils/R/keywordsStyle.R	2009-07-28 20:59:46 UTC (rev 514)
+++ pkg/SweaveListingUtils/R/keywordsStyle.R	2009-07-29 09:11:34 UTC (rev 515)
@@ -111,18 +111,15 @@
 
            if(i==1){
               pos1 <- pos0 + length(.alreadyDefinedPkgs)
-              cat("\n\\lstdefinestyle{Rstyle",pos1,"}{style=RstyleO",
+              cat("\n\\lstdefinestyle{RstyleO",.numberofRequires+1,"}{style=RstyleO",
                        .numberofRequires,",%\n",sep="")
            }
 
            if(i==lP) withcomma <- FALSE
            genKWL(pkg = pkgs[i], kwd = kwl,
                   kws = keywordstyles[i], withcomma = withcomma)
-           if(i==lP) cat("}%\n\\lstdefinestyle{Rstyle}{style=Rstyle",
-                          pos1,"}\n",
-                         "\\lstdefinestyle{RstyleO",.numberofRequires+1,
-                         "}{style=Rstyle", pos1,"}\n\n",
-
+           if(i==lP) cat("}%\n\\lstdefinestyle{Rstyle}{style=RstyleO",
+                          .numberofRequires+1,"}\n\n",
                           sep="")
            }
      }
@@ -130,9 +127,14 @@
 }
 
 changeKeywordstyles <- function(pkgs, keywordstyles){
+     if(is.null(.numberofRequires)) .numberofRequires <<- 1
+     else .numberofRequires <<- .numberofRequires + 1
      setkws <- function(num, kws){
-        cat("%\n\\lstdefinestyle{Rstyle}%\n")
+        cat("%\n\\lstdefinestyle{RstyleO",.numberofRequires+1,"}{style=RstyleO",
+                       .numberofRequires,",%\n", sep="")
         cat("{keywordstyle={[",num+1,"]",kws,"}\n}\n", sep = "")
+        cat("\\lstdefinestyle{Rstyle}{style=RstyleO", .numberofRequires+1,"}\n",
+            sep = "")
         }
 
      alreadyDefinedPkgs <- .alreadyDefinedPkgs

Modified: pkg/SweaveListingUtils/chm/SweaveListingUtils.chm
===================================================================
(Binary files differ)

Modified: pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw
===================================================================
--- pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw	2009-07-28 20:59:46 UTC (rev 514)
+++ pkg/SweaveListingUtils/inst/doc/ExampleSweaveListingUtils.Rnw	2009-07-29 09:11:34 UTC (rev 515)
@@ -78,11 +78,9 @@
 <<SweaveListingsPreparations, results=tex, echo=FALSE>>=
 require(SweaveListingUtils)
 SweaveListingoptions(intermediate = FALSE)
+SweaveListingPreparations()
 setToBeDefinedPkgs(pkgs = c("SweaveListingUtils","distr"),
                    keywordstyles = c("\\bf\\color{blue}","\\bf\\color{red}"))
-SweaveListingPreparations()
-changeKeywordstyles(pkgs = c("SweaveListingUtils","distr"),
-                   keywordstyles = c("\\bf\\color{blue}","\\bf\\color{red}"))
 @
 % -------------------------------------------------------------------------------
 \lstdefinestyle{TeXstyle}{fancyvrb=true,escapechar=`,language=[LaTeX]TeX,%

Modified: pkg/SweaveListingUtils/inst/doc/preamble.tex
===================================================================
--- pkg/SweaveListingUtils/inst/doc/preamble.tex	2009-07-28 20:59:46 UTC (rev 514)
+++ pkg/SweaveListingUtils/inst/doc/preamble.tex	2009-07-29 09:11:34 UTC (rev 515)
@@ -11,6 +11,10 @@
 <<SweaveListingsPreparations, results=tex, echo=FALSE>>=
 require(SweaveListingUtils)
 SweaveListingPreparations()
-changeKeywordstyles(pkgs = c("SweaveListingUtils","distr"),
+## setToBeDefinedPkgs(....) line just necessary for the example;
+##    may be skipped in general  
+##    you may also wish to pass arguments to SweaveListingPreparations()
+##    see ?SweaveListingPreparations
+setToBeDefinedPkgs(pkgs = c("SweaveListingUtils","distr"),
                    keywordstyles = c("\\bf\\color{blue}","\\bf\\color{red}"))
 @

Modified: pkg/SweaveListingUtils/inst/doc/preambleExp.tex
===================================================================
--- pkg/SweaveListingUtils/inst/doc/preambleExp.tex	2009-07-28 20:59:46 UTC (rev 514)
+++ pkg/SweaveListingUtils/inst/doc/preambleExp.tex	2009-07-29 09:11:34 UTC (rev 515)
@@ -31,24 +31,26 @@
    morecomment=[l]\%% 2008/9 Peter Ruckdeschel
 }[keywords,comments]%%
 %------------------------------------------------------------------------------%
-\lstdefinestyle{Rstyle}{fancyvrb=true,escapechar=§,language=R,% § just for convenience
-                        basicstyle={\color{Rcolor}\small},%
-                        keywordstyle={\bf\color{Rcolor}},%
-                        commentstyle={\color{Rcommentcolor}\ttfamily\itshape},%
-                        literate={<-}{{$\leftarrow$}}2{<<-}{{$\twoheadleftarrow$}}2{~}{{$\sim$}}1{<=}{{$\leq$}}2{>=}{{$\geq$}}2{^}{{$\scriptstyle\wedge$}}1,%
-                        alsoother={$},%
-                        alsoletter={.<-},%
-                        otherkeywords={!,!=,~,$,*,\&,\%/\%,\%*\%,\%\%,<-,<<-,/},%
-                        escapeinside={(*}{*)}}%
-\lstdefinestyle{RstyleO1}{fancyvrb=true,escapechar=§,language=R,% § just for convenience
+\lstdefinestyle{RstyleO1}{fancyvrb=true,escapechar=§,language=R,%
+       % § just for convenience replacing the accent grave
+       % (which would escape the rest here, which we do not want for
+       % printing out the original code)
                           basicstyle={\color{Rcolor}\small},%
                           keywordstyle={\bf\color{Rcolor}},%
                           commentstyle={\color{Rcommentcolor}\ttfamily\itshape},%
-                          literate={<-}{{$\leftarrow$}}2{<<-}{{$\twoheadleftarrow$}}2{~}{{$\sim$}}1{<=}{{$\leq$}}2{>=}{{$\geq$}}2{^}{{$\scriptstyle\wedge$}}1,%
+                          literate={<-}{{$\leftarrow$}}2{<<-}{{$\twoheadleftarrow$}}2%
+                                        {~}{{$\sim$}}1{<=}{{$\leq$}}2{>=}{{$\geq$}}%
+                                        2{^}{{$\scriptstyle\wedge$}}1,%
                           alsoother={$},%
                           alsoletter={.<-},%
                           otherkeywords={!,!=,~,$,*,\&,\%/\%,\%*\%,\%\%,<-,<<-,/},%
                           escapeinside={(*}{*)}}%
+% note: we define styles RstyleO<num> incrementally, i.e.
+%       \lstdefinestyle{RstyleO<num>}{style = RstyleO<num-1>,
+%                                     <further definitions for RstyleO<num> > }
+% and then overwrite each time style Rstyle by
+%     \lstdefinestyle{Rstyle}{style=RstyleO<num>}
+\lstdefinestyle{Rstyle}{style=RstyleO1}
 \lstdefinestyle{Rdstyle}{fancyvrb=true,language=Rd,keywordstyle={\bf},%
                          basicstyle={\color{black}\footnotesize},%
                          commentstyle={\ttfamily\itshape},%
@@ -109,29 +111,29 @@
 \def\file#1{{\tt #1}}
 \def\pkg#1{{\tt "#1"}}
 \newcommand{\pkgversion}{{\tt 2.2}}
-%------------------------------------------------------------------------------%
-\lstdefinestyle{Rstyle2}{style=RstyleO1,%
+\lstdefinestyle{RstyleO2}{style=RstyleO1,%
 % --------------------------
 % Registration of package SweaveListingUtils
 % --------------------------
-morekeywords={[2]taglist,SweaveListingPreparations,SweaveListingOptions,SweaveListingoptions,SweaveListingMASK,%
-setToBeDefinedPkgs,setBaseOrRecommended,readSourceFromRForge,readPkgVersion,lstsetRout,%
-lstsetRin,lstsetRd,lstsetRcode,lstsetR,lstsetLanguage,%
-lstset,lstinputSourceFromRForge,isBaseOrRecommended,getSweaveListingOption,copySourceFromRForge,%
-changeKeywordstyles%
+morekeywords={[2]taglist,SweaveListingPreparations,SweaveListingOptions,%
+SweaveListingoptions,SweaveListingMASK,setToBeDefinedPkgs,setBaseOrRecommended,%
+readSourceFromRForge,readPkgVersion,lstsetRout,lstsetRin,lstsetRd,lstsetRcode,%
+lstsetR,lstsetLanguage,lstset,lstinputSourceFromRForge,isBaseOrRecommended,%
+getSweaveListingOption,copySourceFromRForge,changeKeywordstyles%
 },%
 keywordstyle={[2]{\bf}},%
 %
 % --------------------------
 % Registration of package startupmsg
 % --------------------------
-morekeywords={[3]suppressStartupMessages,startupType,startupPackage,StartupMessage,startupMessage,%
-startupEndline,readVersionInformation,readURLInformation,pointertoNEWS,onlytypeStartupMessages,%
+morekeywords={[3]suppressStartupMessages,startupType,startupPackage,%
+StartupMessage,startupMessage,startupEndline,readVersionInformation,%
+readURLInformation,pointertoNEWS,onlytypeStartupMessages,%
 NEWS,mystartupMessage,mySMHandler,infoShow,buildStartupMessage%
 },%
 keywordstyle={[3]{\bf}},%
 %
-
+% --------------------------
 %
 ...
 snipped expanded (`\TeX`) (see how the original `(\verb|(`\TeX`)|)` gets escaped!)
@@ -144,7 +146,6 @@
 keywordstyle={[11]{\bf\color{RRecomdcolor}}}%
 %
 }%
-\lstdefinestyle{Rstyle}{style=Rstyle2}
-\lstdefinestyle{RstyleO2}{style=Rstyle2}
-
+\lstdefinestyle{Rstyle}{style=RstyleO2}
+%
 %------------------------------------------------------------------------------%



More information about the Distr-commits mailing list