diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/verb-sql.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/verb-sql.tex | 66 |
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 |