1 files changed, 484 insertions, 0 deletions
diff --git a/tex/context/base/verb-c.mkii b/tex/context/base/verb-c.mkii
new file mode 100644
index 000000000..1ecb0afc2
--- /dev/null
+++ b/tex/context/base/verb-c.mkii
@@ -0,0 +1,484 @@
+%D \module
+%D   [       file=verb-c,
+%D        version=2006.04.17,
+%D          title=\CONTEXT\ Verbatim Macros,
+%D       subtitle=Pretty C Verbatim,
+%D         author=Nikolai Weibull,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE}]
+%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 C Verbatim}
+
+% HH:
+%
+% - extra !!pretty definitions moved to verb-ini
+% - added a c!
+% - did a few small cosmetic things
+
+\unprotect
+
+\doglobal\newif\ifinCsingle
+\doglobal\newif\ifinCdouble
+\doglobal\newif\ifinCcomment
+\doglobal\newif\ifinCsinglelinecomment
+\doglobal\newif\ifinCmultilinecomment
+\doglobal\newif\ifcontinueCsinglelinecomment
+
+\gdef\Csetcontrols
+  {\saveprettycontrols
+   \def\obeyedspace
+     {\endCtypesix
+      \oldobeyedspace}%
+   \def\flushrestofverbatimline
+     {\endCtypesix
+      \ifinCsinglelinecomment
+        \ifcontinueCsinglelinecomment
+          \continueCsinglelinecommentfalse
+        \else
+          \tttf
+          \endofpretty
+          \global\inCsinglelinecommentfalse
+          \global\inCcommentfalse
+        \fi
+      \fi}%
+   \def\obeyedline
+     {\oldobeyedline}%
+   \let\obeytabs\ignoretabs}
+
+\gdef\setupprettyCtype
+  {\def\prettyidentifier{C}%
+   \Csetvariables
+   \Csetcontrols
+   \Csethandlers
+   \Csetspecials
+   \Csetdiagnostics}
+
+\gdef\Csetvariables
+  {\global\inCsinglefalse
+   \global\inCdoublefalse
+   \global\inCcommentfalse
+   \global\continueCsinglelinecommentfalse
+   \global\naturaltextexttrue
+   \global\let\Csequence\empty
+   \global\let\Cprefix\empty}
+
+% TODO: should handle -> as well
+
+\gdef\Csetspecials
+  {\setpretty`\{=10 \setpretty`\}=10
+   \setpretty`\$=20 \setpretty`\@=20
+   \setpretty`\[=30 \setpretty`\]=30 \setpretty`\(=30 \setpretty`\)=30
+   \setpretty`\==30 \setpretty`\~=30 \setpretty`\<=30 \setpretty`\>=30
+   \setpretty`\%=30
+   \setpretty`\-=41 \setpretty`\+=41
+   \setpretty`\|=41 \setpretty`\`=41 \setpretty`\!=41 \setpretty`\?=41
+   \setpretty`\^=41 \setpretty`\&=41
+   \setpretty`\/=43 \setpretty`\*=44
+   \setpretty`\#=45
+   \setpretty`\\=50
+   \setpretty`\1=61 \setpretty`\2=61 \setpretty`\3=61 \setpretty`\4=61 \setpretty`\5=61
+   \setpretty`\6=61 \setpretty`\7=61 \setpretty`\8=61 \setpretty`\9=61 \setpretty`\0=61
+   \setpretty`\A=62 \setpretty`\B=62 \setpretty`\C=62 \setpretty`\D=62 \setpretty`\E=62
+   \setpretty`\F=62 \setpretty`\G=62 \setpretty`\H=62 \setpretty`\I=62 \setpretty`\J=62
+   \setpretty`\K=62 \setpretty`\L=62 \setpretty`\M=62 \setpretty`\N=62 \setpretty`\O=62
+   \setpretty`\P=62 \setpretty`\Q=62 \setpretty`\R=62 \setpretty`\S=62 \setpretty`\T=62
+   \setpretty`\U=62 \setpretty`\V=62 \setpretty`\W=62 \setpretty`\X=62 \setpretty`\Y=62
+   \setpretty`\Z=62
+   \setpretty`\a=62 \setpretty`\b=62 \setpretty`\c=62 \setpretty`\d=62 \setpretty`\e=62
+   \setpretty`\f=62 \setpretty`\g=62 \setpretty`\h=62 \setpretty`\i=62 \setpretty`\j=62
+   \setpretty`\k=62 \setpretty`\l=62 \setpretty`\m=62 \setpretty`\n=62 \setpretty`\o=62
+   \setpretty`\p=62 \setpretty`\q=62 \setpretty`\r=62 \setpretty`\s=62 \setpretty`\t=62
+   \setpretty`\u=62 \setpretty`\v=62 \setpretty`\w=62 \setpretty`\x=62 \setpretty`\y=62
+   \setpretty`\z=62
+   \setpretty`\_=62
+   \setpretty`\;=70 \setpretty`\:=70 \setpretty`\,=70 \setpretty`\.=70
+   \setpretty`\'=80
+   \setpretty`\"=90 }
+
+\gdef\Csethandlers
+  {\installprettyhandler 10 \Ctypeone
+   \installprettyhandler 20 \Ctypetwo
+   \installprettyhandler 30 \Ctypethree
+   \installprettyhandler 41 \Ctypefourone
+   \installprettyhandler 43 \Ctypefourthree
+   \installprettyhandler 44 \Ctypefourfour
+   \installprettyhandler 45 \Ctypefourfive
+   \installprettyhandler 50 \Ctypefive
+   \installprettyhandler 61 \Ctypesixone
+   \installprettyhandler 62 \Ctypesixtwo
+   \installprettyhandler 70 \Ctypeseven
+   \installprettyhandler 80 \Ctypeeight
+   \installprettyhandler 90 \Ctypenine}
+
+\gdef\Ctypeone#1%
+  {\ifinCdouble
+     \ifinCcomment
+       \endCtypesix
+       \getpretty{#1}%
+     \else\ifx\Cprefix\empty
+       \endCtypesix
+       \getpretty{#1}%
+     \else
+       \endCtypesix
+       \xdef\Cprefix{\getpretty{#1}}%
+       \beginofpretty[\!!prettyone]\getpretty{#1}\endofpretty
+     \fi\fi
+   \else
+     \endCtypesix
+     \ifinCcomment
+       \getpretty{#1}%
+     \else\ifinCsingle
+       \getpretty{#1}%
+     \else
+       \beginofpretty[\!!prettyone]\getpretty{#1}\endofpretty
+     \fi\fi
+   \fi}
+
+\gdef\Ctypetwo#1%
+  {\endCtypesix
+   \getpretty{#1}}
+
+\gdef\Ctypethree#1%
+  {\endCtypesix
+   \ifinCcomment
+     \getpretty{#1}%
+   \else\ifinCsingle
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \getprettydata{#1}%
+      \ifx\Cprefix\empty
+        \getpretty{#1}%
+      \else
+        \beginofpretty[\!!prettythree]\getpretty{#1}\endofpretty
+      \fi
+   \else
+     \beginofpretty[\!!prettythree]\getpretty{#1}\endofpretty
+   \fi\fi\fi}
+
+\gdef\Ctypefourone#1%
+  {\endCtypesix
+   \ifinCcomment
+     \getpretty{#1}%
+   \else\ifinCsingle
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \getpretty{#1}%
+   \else
+     \beginofpretty[\!!prettyfour]\getpretty{#1}\endofpretty
+   \fi\fi\fi}
+
+\gdef\doCtypefourtwo#1#2%
+  {\getprettydata{#2}%
+   \ifnum\prettytype=62
+     \expandafter\Ctypetwo
+   \else
+     \expandafter\Ctypefourone
+   \fi
+   {#1}#2}
+
+\gdef\Ctypefourtwo
+  {\handlenextnextpretty\doCtypefourtwo\Ctypefourone}
+
+\gdef\Ctypefourthree
+  {\handlenextnextpretty\doCtypefourthree\Ctypefourtwo}
+
+\gdef\doCtypefourthree#1#2%
+  {\getprettydata{#2}%
+   \ifnum\prettytype=43
+     \let\next\dodoCtypefourthree
+   \else\ifnum\prettytype=44
+     \global\inCcommenttrue
+     \global\inCmultilinecommenttrue
+     \let\next\Cstartcomment
+   \else
+     \let\next\Ctypefourtwo
+   \fi\fi
+   \next{#1}#2}
+
+\gdef\Cstartcomment#1#2%
+  {\beginofpretty[\!!prettyfourthree]\ttsl\getpretties{#1}{#2}}
+
+\gdef\dodoCtypefourthree% #1%
+  {\endCtypesix
+   \handlenextnextpretty\dododoCtypefourthree\dodododoCtypefourthree}
+
+\gdef\dododoCtypefourthree
+  {\ifnewpretty\expandafter\handlenewpretty\fi\dodododoCtypefourthree}
+
+\gdef\dodododoCtypefourthree#1#2%
+  {\ifinCcomment
+     \getpretties{#1}{#2}%
+   \else
+     \global\inCcommenttrue
+     \global\inCsinglelinecommenttrue
+     \def\next{\beginofpretty[\!!prettyfourthree]\ttsl\getpretties{#1}{#2}}%
+     \expandafter\next
+   \fi}
+
+\gdef\Ctypefourfour
+  {\handlenextnextpretty\doCtypefourfour\Ctypefourtwo}
+
+\gdef\doCtypefourfour#1#2%
+  {\getprettydata{#2}%
+   \ifnum\prettytype=44
+   % \beginofpretty[\!!prettyfour]\getpretty{#1}\endofpretty
+     \ifinCcomment
+       \getpretty{#1}%
+     \else
+       \endCtypesix
+       \beginofpretty[\!!prettyfour]\getpretty{#1}\endofpretty
+     \fi
+     \expandafter#2%
+   \else\ifnum\prettytype=43
+     \getpretties{#1}{#2}%
+     \tttf
+     \endofpretty
+     \global\inCcommentfalse
+     \global\inCmultilinecommentfalse
+   \else\ifinCcomment
+     \getpretty{#1}%
+     \expandafter#2%
+   \else\ifinCsingle
+     \getpretty{#1}%
+     \expandafter#2%
+   \else\ifinCdouble
+     \getpretty{#1}%
+     \expandafter#2%
+   \else
+     \endCtypesix
+     \beginofpretty[\!!prettyfour]\getpretty{#1}\endofpretty
+     \expandafter#2%
+   \fi\fi\fi\fi\fi}
+
+\gdef\Ctypefourfive#1%
+  {\ifinCcomment
+     \getpretty{#1}%
+   \else\ifinCsingle
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \getpretty{#1}%
+   \else
+     \endCtypesix
+     \global\inCcommenttrue
+     \global\inCsinglelinecommenttrue
+     \def\next{\beginofpretty[\!!prettyfourthree]\ttsl\getpretty{#1}}%
+     \expandafter\next
+   \fi\fi\fi}
+
+\gdef\doCtypefiveA#1#2%
+  {\endCtypesix
+   \ifinCcomment
+     \getpretties{#1}{#2}%
+   \else\ifinCsingle
+     \getprettydata{#2}%
+     \ifnum\prettytype=50
+       \beginofpretty[\!!prettyfive]\getpretties{#1}{#2}\endofpretty\beginofpretty[\!!prettyeight]%
+     \else\ifnum\prettytype=80
+       \beginofpretty[\!!prettyfive]\getpretties{#1}{#2}\endofpretty\beginofpretty[\!!prettyeight]%
+     \else
+       \getpretties{#1}{#2}%
+     \fi\fi
+   \else\ifinCdouble
+     \beginofpretty[\!!prettyfive]\getpretties{#1}{#2}\endofpretty\beginofpretty[\!!prettynine]%
+   \else
+     \beginofpretty[\!!prettyfive]\getpretties{#1}{#2}\endofpretty
+   \fi\fi\fi}
+
+\gdef\doCtypefiveB#1%
+  {\endCtypesix
+   \ifinCcomment
+     \ifcat#1\relax
+       \continueCsinglelinecommenttrue
+       \getpretty{#1}%
+     \else
+       \getpretty{#1}%
+     \fi
+   \else\ifinCsingle
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \beginofpretty[\!!prettyfive]\getpretty{#1}\endofpretty\beginofpretty[\!!prettynine]%
+   \else
+     \beginofpretty[\!!prettyfive]\getpretty{#1}\endofpretty
+   \fi\fi\fi}
+
+\gdef\Ctypefive
+  {\expandafter\handlenextnextpretty\expandafter\doCtypefiveA\expandafter\doCtypefiveB}
+
+\gdef\endCtypesix
+  {\ifx\Csequence\empty\else
+     \ifinCcomment
+       \Csequence
+     \else\ifinCsingle
+       \Csequence
+     \else\ifinCdouble
+       \Csequence
+     \else\ifx\Cprefix\empty
+       \doendCtypesix\!!prettytwo
+     \else
+       \doendCtypesixtype\!!prettytwo
+     \fi\fi\fi\fi
+     \global\let\Csequence\empty
+     \global\let\Cprefix\empty
+   \fi}
+
+\gdef\doendCtypesix#1%
+  {\doifprettyidentifierelse{\Csequence}{\Ckeywords}
+     {\beginofpretty[#1]%
+         {\prettyidentifierfont\Csequence}%
+       \endofpretty}
+     {\doifprettyidentifierelse{\Csequence}{\Ctypes}
+        {\beginofpretty[\!!prettytwoone]%
+           {\prettyvariablefont\Csequence}%
+         \endofpretty}
+        {\Csequence}}}
+
+\gdef\doendCtypesixtype#1%
+  {\doifprettyidentifierelse{\Cprefix\Csequence}{\Ctypes}
+     {\beginofpretty[#1]%
+        {\prettyvariablefont\Csequence}%
+      \endofpretty}
+     {\Csequence}}
+
+\gdef\Ctypesixone#1%
+  {\ifinCcomment
+     \def\next{\getpretty{#1}}%
+   \else\ifinCsingle
+     \def\next{\getpretty{#1}}%
+   \else\ifinCdouble
+     \def\next{\getpretty{#1}}%
+   \else\ifx\Csequence\empty
+     \def\next{\beginofpretty[\!!prettyeight]\getpretty{#1}\endofpretty}%
+   \else
+     \def\next{\Ctypesixtwo{#1}}%
+   \fi\fi\fi\fi
+   \expandafter\next}
+
+\gdef\Ctypesixtwo#1%
+  {\ifinCcomment
+     \getpretty{#1}%
+   \else\ifinCsingle
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \ifx\Cprefix\empty
+       \getpretty{#1}%
+     \else
+       \xdef\Csequence{\Csequence\getpretty{#1}}%
+     \fi
+   \else
+     \xdef\Csequence{\Csequence\getpretty{#1}}%
+   \fi\fi\fi}
+
+\gdef\Ctypeseven#1%
+  {\endCtypesix
+   \getpretty{#1}}
+
+\gdef\Ctypeeight#1% single quote
+  {\endCtypesix
+   \ifinCcomment
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \getpretty{#1}%
+   \else\ifinCsingle
+     \global\inCsinglefalse
+     \getpretty{#1}%
+     \endofpretty
+   \else
+     \global\inCsingletrue
+     \beginofpretty[\!!prettyeight]\getpretty{#1}
+   \fi\fi\fi}
+
+\gdef\Ctypenine#1% double quote
+  {\endCtypesix
+   \ifinCcomment
+     \getpretty{#1}%
+   \else\ifinCsingle
+     \getpretty{#1}%
+   \else\ifinCdouble
+     \global\inCdoublefalse
+     \getpretty{#1}%
+     \endofpretty
+   \else
+     \global\inCdoubletrue
+     \beginofpretty[\!!prettynine]\getpretty{#1}
+   \fi\fi\fi}
+
+\gdef\doreportprettyCtype#1#2#3#4%
+  {#1%
+     [C \string#2 typing conflict, use \string#3 instead]
+     \writestatus
+       {C typing}
+       {use \string#3 instead of \string#2 to enable propper visualization}%
+     \global#4%
+     \expandafter\doemptyverbatimline
+   \fi}
+
+\gdef\reportprettyCtype
+  {\doreportprettyCtype\ifinCsingle'\'\inCsinglefalse
+   \doreportprettyCtype\ifinCdouble"\"\inCdoublefalse}
+
+\gdef\Csetdiagnostics
+  {\let\normaldoemptyverbatimline\doemptyverbatimline
+   \def\doemptyverbatimline
+     {\normaldoemptyverbatimline
+      \reportprettyCtype}}
+
+\useprettyidentifiers \Ckeywords \Csetspecials
+  break case continue default do else for goto if return sizeof switch while
+
+\useprettyidentifiers \Ctypes \Csetspecials
+  auto char const double enum extern float int long register restrict short
+  signed static struct typedef union unsigned void volatile bool
+
+\installprettytype [C] [C]
+
+\definetyping[C][\c!option=C]
+
+\definecolor [colorprettyone]       [black]
+\definecolor [colorprettytwo]       [r=.46, g=.38, b=.13]
+\definecolor [colorprettytwoone]    [r=.38, g=.18, b=.5]
+\definecolor [colorprettythree]     [black]
+\definecolor [colorprettyfour]      [black]
+\definecolor [colorprettyfourthree] [r=.15, g=.45, r=.15]
+\definecolor [colorprettyfive]      [r=.94, g=.15, b=.15]
+\definecolor [colorprettyeight]     [r=.58, g=.09, b=.09]
+\definecolor [colorprettynine]      [r=.58, g=.09, b=.09]
+
+\definecolor [grayprettyone]        [s=.30]
+\definecolor [grayprettytwo]        [s=.45]
+\definecolor [grayprettythree]      [s=.60]
+\definecolor [grayprettyfour]       [s=.75]
+\definecolor [grayprettyfourthree]  [s=.70]
+
+\definepalet
+  [colorpretty]
+  [       prettyone=colorprettyone,
+          prettytwo=colorprettytwo,
+       prettytwoone=colorprettytwoone,
+        prettythree=colorprettythree,
+         prettyfour=colorprettyfour,
+    prettyfourthree=colorprettyfourthree,
+         prettyfive=colorprettyfive,
+        prettyeight=colorprettyeight,
+         prettynine=colorprettynine]
+
+\definepalet
+  [graypretty]
+  [      prettyone=grayprettyone,
+         prettytwo=grayprettytwo,
+       prettythree=grayprettythree,
+        prettyfour=grayprettyfour,
+   prettyfourthree=grayprettyfourthree]
+
+\definepalet [Ccolorpretty] [colorpretty]
+\definepalet [Cgraypretty]  [graypretty]
+
+\setuptyping
+  [C]
+  [\c!icommand=\tttf]
+
+\protect  \endinput
+