summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/verb-sql.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/verb-sql.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/verb-sql.tex66
1 files changed, 33 insertions, 33 deletions
diff --git a/Master/texmf-dist/tex/context/base/verb-sql.tex b/Master/texmf-dist/tex/context/base/verb-sql.tex
index 555ba304b3b..ddac5cd25e1 100644
--- a/Master/texmf-dist/tex/context/base/verb-sql.tex
+++ b/Master/texmf-dist/tex/context/base/verb-sql.tex
@@ -8,61 +8,61 @@
%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.
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
\writestatus{loading}{Context Support Macros / Pretty SQL Verbatim}
%D \quotation {He, I want pretty pretting too!}, Berend cried out
-%D one day, \quotation {But now for \SQL.}. This query language
-%D shows code like:
-%D
+%D one day, \quotation {But now for \SQL.}. This query language
+%D shows code like:
+%D
%D \startbuffer
%D \startSQL
-%D select * -- some comment
+%D select * -- some comment
%D from tableA
%D where 1 = 2
%D \stopSQL
-%D \stopbuffer
+%D \stopbuffer
%D
-%D \typebuffer
+%D \typebuffer
%D
%D and this should become something pretty like:
%D
%D \getbuffer
%D
-%D or, with Berend's preferences:
+%D or, with Berend's preferences:
%D
%D \startbuffer[setup]
%D \setuptyping
%D [SQL]
%D [text=yes,palet=,icommand=\bf,vcommand=,ccommand=\it]
-%D \stopbuffer
+%D \stopbuffer
%D
%D \getbuffer[setup]
%D \getbuffer
%D
-%D This kind of pretty printing is accomplished by:
+%D This kind of pretty printing is accomplished by:
%D
-%D \typebuffer
-
-%D Like we did with the \JAVASCRIPT\ driver, we will borrow
+%D \typebuffer
+
+%D Like we did with the \JAVASCRIPT\ driver, we will borrow
%D most of the macros from the \PERL\ driver.
\ifx\undefined\setupprettyPLtype \input verb-pl \relax \fi
\unprotect
-%D \SQL\ has the one line comment sequence \type{--} and the
-%D multi line comment delimiters \type{/*} and \type{*/}. The
+%D \SQL\ has the one line comment sequence \type{--} and the
+%D multi line comment delimiters \type{/*} and \type{*/}. The
%D next counter keeps track of multi line comment nesting.
\newcount\SQLcommentlevel
-%D We need to handle \type{%}, \type{#} and \type{-} a bit
-%D different than in the \PERL\ driver. Compared to the
-%D \JAVASCRIPT\ driver |<|we copied most of the code from
-%D that one|>|, we now also have type~45.
+%D We need to handle \type{%}, \type{#} and \type{-} a bit
+%D different than in the \PERL\ driver. Compared to the
+%D \JAVASCRIPT\ driver |<|we copied most of the code from
+%D that one|>|, we now also have type~45.
\gdef\SQLsetspecials%
{\PLsetspecials
@@ -73,7 +73,7 @@
\setpretty`\*=44
\setpretty`\-=45 }
-%D We need three additional handlers:
+%D We need three additional handlers:
\gdef\SQLsethandlers%
{\PLsethandlers
@@ -81,14 +81,14 @@
\installprettyhandler 44 \SQLtypefourfour
\installprettyhandler 45 \SQLtypefourfive }
-%D Next we have to do some general housekeeping.
+%D Next we have to do some general housekeeping.
\gdef\SQLsetcontrols%
{\PLsetcontrols
\def\flushrestofverbatimline%
{\endPLtypesix
- \ifcase\SQLcommentlevel
- \inPLcommentfalse
+ \ifcase\SQLcommentlevel
+ \inPLcommentfalse
\verbatimfont
\fi
\PLverbosefalse
@@ -108,8 +108,8 @@
\SQLsetspecials
\PLsetdiagnostics}
-%D We have to look upto four characters ahead. If you don't
-%D grab the picture, just skip reading these macros.
+%D We have to look upto four characters ahead. If you don't
+%D grab the picture, just skip reading these macros.
\gdef\SQLtypefourthree%
{\handlenextnextpretty\doSQLtypefourthree\PLtypefourtwo}
@@ -160,8 +160,8 @@
\ifnum\prettytype=43
\SQLtogglecomment{#1}#2%
\global\advance\SQLcommentlevel by -1
- \ifcase\SQLcommentlevel
- \global\inPLcommentfalse
+ \ifcase\SQLcommentlevel
+ \global\inPLcommentfalse
\prettyverbatimfont
\fi
\else
@@ -170,8 +170,8 @@
\expandafter#2%
\fi}
-%D Much of the indirect calls (\type {dodo..}) is due to
-%D looking ahead as well as midway pretty print changing.
+%D Much of the indirect calls (\type {dodo..}) is due to
+%D looking ahead as well as midway pretty print changing.
\gdef\SQLtypefourfive%
{\handlenextnextpretty\doSQLtypefourfive\PLtypefourtwo}
@@ -207,7 +207,7 @@
\expandafter\next
\fi}
-%D We need a different list of reserved words. This list
+%D We need a different list of reserved words. This list
%D replaces the \PERL\ one.
\useprettyidentifiers \SQLidentifiers \SQLsetspecials
@@ -222,9 +222,9 @@
references return revoce right rollback rule select set
sum table then to tran transaction trigger truncate
uncommited union unique update use values varying view
- when where while with work
+ when where while with work primary
\useprettyidentifiers \SQLvariables \SQLsetspecials
not-yet-defined
-\protect \endinput
+\protect \endinput