stable 2000.10.22

1 files changed, 17 insertions, 5 deletions

diff --git a/tex/context/base/verb-sql.tex b/tex/context/base/verb-sql.tex
index 7efd0127a..59218dc59 100644
--- a/tex/context/base/verb-sql.tex
+++ b/tex/context/base/verb-sql.tex
@@ -1,12 +1,15 @@
 %D \module
 %D   [       file=verb-sql,
-%D        version=1999.06.08,
+%D        version=2000.05.09,
 %D          title=\CONTEXT\ Verbatim Macros,
 %D       subtitle=Pretty \SQL\ Verbatim,
-%D         author={Berend de Boer, Hans Hagen},
+%D         author={Berend de Boer \& Hans Hagen},
 %D           date=\currentdate,
-%D      copyright={Berend de Boer, Hans Hagen}]
+%D      copyright={Berend de Boer \& Hans Hagen}]
 %C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
+%C details. 
 
 \writestatus{loading}{Context Support Macros / Pretty SQL Verbatim}
 
@@ -64,6 +67,7 @@
 \gdef\SQLsetspecials%
   {\PLsetspecials
    \setpretty`\#=32
+   \setpretty`\:=41
    \setpretty`\%=41
    \setpretty`\/=43
    \setpretty`\*=44
@@ -83,7 +87,10 @@
   {\PLsetcontrols
    \def\flushrestofverbatimline%
      {\endPLtypesix
-      \ifcase\SQLcommentlevel \inPLcommentfalse \fi
+      \ifcase\SQLcommentlevel 
+        \inPLcommentfalse 
+        \verbatimfont
+      \fi
       \PLverbosefalse
       \PLverboseskipped=0}}
 
@@ -123,6 +130,7 @@
 
 \gdef\SQLtogglecomment#1#2%
   {\ifnum\SQLcommentlevel=1
+     \prettynaturalfont
      \beginofpretty[\!!prettyone]\getpretties{#1}{#2}\endofpretty
    \else
      \getpretties{#1}{#2}%
@@ -152,7 +160,10 @@
    \ifnum\prettytype=43
      \SQLtogglecomment{#1}#2%
      \global\advance\SQLcommentlevel by -1
-     \ifcase\SQLcommentlevel \global\inPLcommentfalse \fi
+     \ifcase\SQLcommentlevel 
+       \global\inPLcommentfalse 
+       \prettyverbatimfont
+     \fi
    \else
      \endPLtypesix
      \beginofpretty[\!!prettyfour]\getpretty{#1}\endofpretty
@@ -190,6 +201,7 @@
      \ifnaturaltextext
        \let\next\naturaltextext
      \else
+       \prettynaturalfont
        \def\next{\beginofpretty[\!!prettyone]\getpretties{#1}{#2}\endofpretty}%
      \fi
      \expandafter\next