From 8d8d528d2ad52599f11250cfc567fea4f37f2a8b Mon Sep 17 00:00:00 2001 From: Context Git Mirror Bot Date: Tue, 12 Jan 2016 17:15:07 +0100 Subject: 2016-01-12 16:26:00 --- tex/context/base/verb-sql.mkii | 230 ----------------------------------------- 1 file changed, 230 deletions(-) delete mode 100644 tex/context/base/verb-sql.mkii (limited to 'tex/context/base/verb-sql.mkii') diff --git a/tex/context/base/verb-sql.mkii b/tex/context/base/verb-sql.mkii deleted file mode 100644 index f145607f8..000000000 --- a/tex/context/base/verb-sql.mkii +++ /dev/null @@ -1,230 +0,0 @@ -%D \module -%D [ file=verb-sql, -%D version=2000.05.09, -%D title=\CONTEXT\ Verbatim Macros, -%D subtitle=Pretty \SQL\ Verbatim, -%D author={Berend de Boer \& Hans Hagen}, -%D date=\currentdate, -%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 Verbatim 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 \startbuffer -%D \startSQL -%D select * -- some comment -%D from tableA -%D where 1 = 2 -%D \stopSQL -%D \stopbuffer -%D -%D \typebuffer -%D -%D and this should become something pretty like: -%D -%D \getbuffer -%D -%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 -%D \getbuffer[setup] -%D \getbuffer -%D -%D This kind of pretty printing is accomplished by: -%D -%D \typebuffer - -%D Like we did with the \JAVASCRIPT\ driver, we will borrow -%D most of the macros from the \PERL\ driver. - -\ifdefined\setupprettyPLtype \else \loadmarkfile{verb-pl} \fi - -\unprotect - -%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. - -\gdef\SQLsetspecials% - {\PLsetspecials - \setpretty`\#=32 - \setpretty`\:=41 - \setpretty`\%=41 - \setpretty`\/=43 - \setpretty`\*=44 - \setpretty`\-=45 } - -%D We need three additional handlers: - -\gdef\SQLsethandlers% - {\PLsethandlers - \installprettyhandler 43 \SQLtypefourthree - \installprettyhandler 44 \SQLtypefourfour - \installprettyhandler 45 \SQLtypefourfive } - -%D Next we have to do some general housekeeping. - -\gdef\SQLsetcontrols% - {\PLsetcontrols - \def\flushrestofverbatimline% - {\endPLtypesix - \ifcase\SQLcommentlevel - \inPLcommentfalse - \verbatimfont - \fi - \PLverbosefalse - \PLverboseskipped=0}} - -\gdef\SQLsetvariables - {\PLsetvariables - \global\SQLcommentlevel=0 } - -\gdef\setupprettySQLtype% - {\def\prettyidentifier{SQL}% - \let\PLidentifiers=\SQLidentifiers - \let\PLvariables=\SQLvariables - \SQLsetvariables - \SQLsetcontrols - \SQLsethandlers - \SQLsetspecials - \PLsetdiagnostics} - -%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} - -\gdef\doSQLtypefourthree#1#2% - {\getprettydata{#2}% - \ifnum\prettytype=43 - \let\next=\dodoSQLtypefourthree - \else\ifnum\prettytype=44 - \global\advance\SQLcommentlevel by 1 - \global\inPLcommenttrue - \PLverbosecorrection - \let\next=\SQLtogglecomment - \else - \let\next=\PLtypefourtwo - \fi\fi - \next{#1}#2} - -\gdef\SQLtogglecomment#1#2% - {\ifnum\SQLcommentlevel=1 - \prettynaturalfont - \beginofpretty[\!!prettyone]\getpretties{#1}{#2}\endofpretty - \else - \getpretties{#1}{#2}% - \fi} - -\gdef\dodoSQLtypefourthree% #1% - {\endPLtypesix - \handlenextnextpretty\dododoSQLtypefourthree\dodododoPLtypefourthree} - -\gdef\dododoSQLtypefourthree% - {\ifnewpretty\expandafter\handlenewpretty\fi\dodododoSQLtypefourthree} - -\gdef\dodododoSQLtypefourthree#1#2% - {\ifinPLcomment - \getpretties{#1}{#2}% - \else - \global\inPLcommenttrue - \PLverbosecorrection - \beginofpretty[\!!prettyone]\getpretties{#1}{#2}\endofpretty - \fi} - -\gdef\SQLtypefourfour% - {\handlenextnextpretty\doSQLtypefourfour\PLtypefourtwo} - -\gdef\doSQLtypefourfour#1#2% - {\getprettydata{#2}% - \ifnum\prettytype=43 - \SQLtogglecomment{#1}#2% - \global\advance\SQLcommentlevel by -1 - \ifcase\SQLcommentlevel - \global\inPLcommentfalse - \prettyverbatimfont - \fi - \else - \endPLtypesix - \beginofpretty[\!!prettyfour]\getpretty{#1}\endofpretty - \expandafter#2% - \fi} - -%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} - -\gdef\doSQLtypefourfive#1#2% - {\getprettydata{#2}% - \ifnum\prettytype=45 - \let\next=\dodoSQLtypefourfive - \else - \let\next=\PLtypefourtwo - \fi - \next{#1}#2} - -\gdef\dodoSQLtypefourfive% #1% - {\endPLtypesix - \handlenextnextpretty\dododoSQLtypefourfive\dodododoPLtypefourfive} - -\gdef\dododoSQLtypefourfive% - {\ifnewpretty\expandafter\handlenewpretty\fi\dodododoSQLtypefourfive} - -\gdef\dodododoSQLtypefourfive#1#2% - {\ifinPLcomment - \getpretties{#1}{#2}% - \else - \global\inPLcommenttrue - \PLverbosecorrection - \ifnaturaltextext - \let\next\naturaltextext - \else - \prettynaturalfont - \def\next{\beginofpretty[\!!prettyone]\getpretties{#1}{#2}\endofpretty}% - \fi - \expandafter\next - \fi} - -%D We need a different list of reserved words. This list -%D replaces the \PERL\ one. - -\useprettyidentifiers \SQLidentifiers \SQLsetspecials - add all alter and any as asc avg begin between break - browse bulk by cascade case check close clustered coalesce - column commit constraint contains count create cross - cursor database default delete desc distinct drop else end - exec execute exists exit fetch for foreign from grant - group having if in index inner insert into is join key - left like max min nocheck nonclustered not null of on open - or order outer over plan prepare proc procedure public - 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 primary - -\useprettyidentifiers \SQLvariables \SQLsetspecials - not-yet-defined - -\protect \endinput -- cgit v1.2.3