context-vim (30jan11)

git-svn-id: svn://tug.org/texlive/trunk@21240 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 291 insertions, 924 deletions

diff --git a/Master/texmf-dist/doc/context/third/vim/README b/Master/texmf-dist/doc/context/third/vim/README
deleted file mode 100644
index e98b964acf8..00000000000
--- a/Master/texmf-dist/doc/context/third/vim/README
+++ /dev/null
@@ -1,15 +0,0 @@
-Name of module:	ViM syntax highlighting
-Author:	Aditya Mahajan and Mojca Miklavec
-
-Description:	ConTeXt has an excellent pretty printing capabilities for many
-languages. The code for pretty printing is written in TeX, and due to catcode
-jugglary verbatim typesetting is perhaps the trickiest part of TeX. This makes
-it difficult for a "normal" user to define syntax highlighting rules for a new
-language. This module, takes the onus of defining syntax highlighting rules
-away from the user and uses ViM editor to generate the syntax highlighting.
-There is a helper 2context.vim script to do the syntax parsing in ViM. This is
-a stop-gap method, and hopefully with luaTeX, things will be much easier.
-
-The module documentation is available in doc/context/third/vim/vim-doc.pdf and
-a demo is at doc/context/third/vim/vim-demo.pdf
-
diff --git a/Master/texmf-dist/doc/context/third/vim/vim-demo.pdf b/Master/texmf-dist/doc/context/third/vim/vim-demo.pdf
deleted file mode 100644
index efd3911e4d0..00000000000
--- a/Master/texmf-dist/doc/context/third/vim/vim-demo.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/doc/context/third/vim/vim-doc.pdf b/Master/texmf-dist/doc/context/third/vim/vim-doc.pdf
deleted file mode 100644
index ef82a58fd08..00000000000
--- a/Master/texmf-dist/doc/context/third/vim/vim-doc.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/doc/context/third/vim/vim.txt b/Master/texmf-dist/doc/context/third/vim/vim.txt
new file mode 100644
index 00000000000..251565547fc
--- /dev/null
+++ b/Master/texmf-dist/doc/context/third/vim/vim.txt
@@ -0,0 +1,60 @@
+The vim module
+==============
+
+ConTeXt has excellent code highlighting capabilities for some languages: TeX,
+metapost, XML, amongst others. In MkII, syntax highlighting was done by parsing
+the source code in TeX---a task not for the faint of heart. In MkIV, the
+situation is much better: syntax highlighting is done by parsing the source code
+in Lua using LPEG. Nonetheless, writing a grammar to parse the source code of
+languages is a tricky task. This module takes the onus of defining such a
+grammar away from the user and uses Vim editor to create syntax highlighting. A
+helper script, `2context.vim` does the actual work.
+
+The idea of the module was germinated  by Mojca Miklavec. She said (crica Sep
+2005):
+
+> I am thinking of piping the code to vim, letting vim process it, and return
+> something like `highlight[Conditional]{if} \highlight[Delimiter]{(}
+> \highlight[Identifier]{!}`.
+
+
+> One could modify the `2html.vim` file. Vim can already transform the highlighted
+> code to HTML, so ConTeXt should not be so difficult. Vim already has over 400
+> syntax file definitions, probably equivalent to some hundred thousand lines of
+> syntax definition in ConTexT. Well, I don't know (yet) how to do it, but if
+> someone on the last has more experience with vim, please feel free to
+> contribute. 
+
+A few months later (circa Dec 2005), Nikolai Webull provided such a modification
+of `2html.vim` and called it `2context.vim`. That file was the foundation of
+`t-vim` module. 
+
+About two years later (circa June 2008), Mojca and I (Aditya Mahajan) pickup up
+on this idea and released `t-vim`. Over the next few years, nothing much changed
+in the module, except a few minor bug fixes. 
+
+Around June 2010, I decided to completely rewrite the module from scratch. It
+now uses the `t-filter` module behind the scenes for all the book-keeping of
+creating and maintaining external files.
+
+Installation
+------------
+
+You also need to install `t-filter` module.
+
+Basic Usage
+-----------
+
+The main macro of this module is `\definevimtyping`. Suppose you want to do
+syntax highlighting of ruby code in ConTeXt. For that you may use:
+
+    \definevimtyping [RUBY]  [syntax=ruby]
+
+This defines an environment
+
+    \startRUBY
+      ...
+    \stopRUBY
+
+The contents of this environment are written to an external file, which is then
+parsed using vim, and the output is read back by ConTeXt.
diff --git a/Master/texmf-dist/tex/context/interface/third/t-vim.xml b/Master/texmf-dist/tex/context/interface/third/t-vim.xml
deleted file mode 100644
index 4e7194441e2..00000000000
--- a/Master/texmf-dist/tex/context/interface/third/t-vim.xml
+++ /dev/null
@@ -1,83 +0,0 @@
-<?xml version="1.0"?>
-
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="en" version="2006.07.14">
-
-  <cd:command name="setupvimtyping" file="t-vim.tex">
-    <cd:sequence>
-      <cd:string value="setupvimtyping" />
-    </cd:sequence>
-    <cd:arguments>
-      <cd:assignments list="yes">
-        <cd:parameter name="syntax">
-          <cd:constant type="cd:name" />
-        </cd:parameter>
-        <cd:parameter name="colorscheme">
-          <cd:constant type="cd:name" />
-        </cd:parameter>
-        <cd:parameter name="space">
-          <cd:constant type="yes" default="yes"/>
-          <cd:constant type="on"/>
-          <cd:constant type="no"/>
-        </cd:parameter>
-        <cd:parameter name="tab">
-          <cd:constant type="cd:number"/>
-        </cd:parameter>
-        <cd:parameter name="start">
-          <cd:constant type="cd:number"/>
-        </cd:parameter>
-        <cd:parameter name="stop">
-          <cd:constant type="cd:number"/>
-        </cd:parameter>
-        <cd:parameter name="numbering">
-          <cd:constant type="yes"/>
-          <cd:constant type="no" default="yes"/>
-        </cd:parameter>
-        <cd:parameter name="step">
-          <cd:constant type="cd:number"/>
-        </cd:parameter>
-        <cd:parameter name="numberstyle">
-          <cd:resolve name="style"/>
-        </cd:parameter>
-        <cd:parameter name="numbercolor">
-          <cd:constant type="cd:name"/>
-        </cd:parameter>
-        <cd:parameter name="before">
-          <cd:constant type="cd:command"/>
-        </cd:parameter>
-        <cd:parameter name="after">
-          <cd:constant type="cd:command"/>
-        </cd:parameter>
-      </cd:assignments> 
-    </cd:arguments>
-  </cd:command>
-
-  <cd:command name="definevimtyping" file="t-vim.tex">
-    <cd:sequence>
-      <cd:string value="definevimtyping" />
-    </cd:sequence>
-    <cd:arguments>
-      <cd:keywords>
-        <cd:constant type="cd:name" />
-      </cd:keywords>
-      <cd:assignments optional="yes">
-        <cd:inherit name="setupvimtyping"/>
-      </cd:assignments>
-    </cd:arguments>
-  </cd:command>
-
-
-  <cd:command name="definetypevimfile" file="t-vim.tex">
-    <cd:sequence>
-      <cd:string value="definetypevimfile" />
-    </cd:sequence>
-    <cd:arguments>
-      <cd:keywords>
-        <cd:constant type="cd:name" />
-      </cd:keywords>
-      <cd:assignments optional="yes">
-        <cd:inherit name="setupvimtyping"/>
-      </cd:assignments>
-    </cd:arguments>
-  </cd:command>
-
-</cd:interface>
diff --git a/Master/texmf-dist/tex/context/third/vim/2context.vim b/Master/texmf-dist/tex/context/third/vim/2context.vim
index ef238121a33..7e2f32864a5 100644
--- a/Master/texmf-dist/tex/context/third/vim/2context.vim
+++ b/Master/texmf-dist/tex/context/third/vim/2context.vim
@@ -1,35 +1,27 @@
-"D \module
-"D   [      file=2context.vim,
-"D        version=2007.01.03,
-"D          title=ViM to \CONTEXT,
-"D       subtitle=Use ViM to generate code listing,
-"D         author=Mojca Miklavec \& Aditya Mahajan,
-"D          email=adityam at umich dot edu,
-"D           date=\currentdate,
-"D      copyright=Public Domain]
-
-"D This file is based on \filename{2html.vim}. It uses ViM systax highlighting
-"D to generate a \CONTEXT\ file which is parsed using \filename{t-vimsyntax}
-"D module.
-
-"D We use \filename{.tmp} extension so that the file is purged by
-"D \filename{ctxtools}
+" Author    : Aditya Mahajan
+" version   : 0.2
 
+" This script converts the syntax highlighting of a file to ConTeXt. This file
+" is based on 2html.vim. 
+
+" Create a new buffer with  .vimout extension
 if expand("%") == ""
-  new vimsyntax.tmp
+  new texput.vimout
 else
-  new %-vimsyntax.tmp
+  new %:r.vimout
 endif
 
-"D We are right now in the new buffer.
-
+" Make sure that the buffer is modifiable
 set modifiable
-%d "This empties the buffer.
 
+" ... and empty
+%d 
+
+" Go to previous buffer
 wincmd p
 
-"D Loop over all lines in the original text.
-"D Use contextstartline and contextstopline if they are set.
+" Loop over all lines in the original text.
+" Use contextstartline and contextstopline if they are set.
 
 if exists("contextstartline")
   let s:lnum = contextstartline
@@ -52,59 +44,42 @@ endif
 let s:buffer_lnum = 1
 
 while s:lnum <= s:end
-"D Get the current line
+" Get the current line
   let s:line = getline(s:lnum)
   let s:len  = strlen(s:line)
-  let s:new  = ""
+  let s:new  = "\\NL{}"
 
-"D Loop over each character in the line
+" Loop over each character in the line
   let s:col = 1
   while s:col <= s:len
     let s:startcol = s:col " The start column for processing text
     let s:id       = synID (s:lnum, s:col, 1)
     let s:col      = s:col + 1
-"D Speed loop (it's small - that's the trick)
-"D Go along till we find a change in synID
+" Speed loop (it's small - that's the trick)
+" Go along till we find a change in synID
     while s:col <= s:len && s:id == synID(s:lnum, s:col, 1) 
       let s:col = s:col + 1 
     endwhile
 
-"D Output the text with the same synID, with class set to {s:id_name}
+" Output the text with the same synID, with class set to {s:id_name}
     let s:id      = synIDtrans (s:id)
     let s:id_name = synIDattr  (s:id, "name", "gui")
     let s:temp    = strpart(s:line, s:startcol - 1, s:col - s:startcol)
-"D Remove line endings (on unix machines reading windows files)
+" Remove line endings (on unix machines reading windows files)
     let s:temp    = substitute(s:temp, '\r*$', '', '')
-"D It might have happened that that one has been the last item in a row, so
-"D we don't need to print in in that case
+" It might have happened that that one has been the last item in a row, so
+" we don't need to print in in that case
     if strlen(s:temp) > 0
-"D We need to get rid of the characters that can cause trouble in \CONTEXT.
-"D The funny \type{||||||||||} and \type{$$$$$$$$$} characters should never
-"D appear in {\em normal} \TEX\ file. As a side||effect, this script can not
-"D pretty print itself.
-      let s:temp = substitute( s:temp,  '\\', '||||||||||\\letterbackslash$$$$$$$$$$', 'g')
-      let s:temp = substitute( s:temp,  '{',  '||||||||||\\letteropenbrace$$$$$$$$$$', 'g')
-      let s:temp = substitute( s:temp,  '}',  '||||||||||\\letterclosebrace$$$$$$$$$$', 'g')
+" Change special TeX characters to escape sequences.
+" The funny \type{||||||||||} and \type{$$$$$$$$$} characters should never
+" appear in {\em normal} \TEX\ file. As a side||effect, this script can not
+" pretty print itself.
+      let s:temp = substitute( s:temp,  '\\', '\\letterbackslash||||||||||$$$$$$$$$$', 'g')
+      let s:temp = substitute( s:temp,  '{',  '\\letteropenbrace||||||||||$$$$$$$$$$', 'g')
+      let s:temp = substitute( s:temp,  '}',  '\\letterclosebrace||||||||||$$$$$$$$$$', 'g')
       let s:temp = substitute( s:temp,  '||||||||||' , '{' , 'g')
       let s:temp = substitute( s:temp,  '\$\$\$\$\$\$\$\$\$\$' , '}' , 'g')
-      let s:temp = substitute( s:temp,  '&',  '{\\letterampersand}', 'g')
-      let s:temp = substitute( s:temp,  '<',  '{\\letterless}', 'g')
-      let s:temp = substitute( s:temp,  '>',  '{\\lettermore}', 'g')
-      let s:temp = substitute( s:temp,  '#',  '{\\letterhash}', 'g')
-      let s:temp = substitute( s:temp,  '"',  '{\\letterdoublequote}', 'g')
-      let s:temp = substitute( s:temp,  "'",  '{\\lettersinglequote}', 'g')
-      let s:temp = substitute( s:temp,  '\$', '{\\letterdollar}', 'g')
-      let s:temp = substitute( s:temp,  '%',  '{\\letterpercent}', 'g')
-      let s:temp = substitute( s:temp,  '\^', '{\\letterhat}', 'g')
-      let s:temp = substitute( s:temp,  '_',  '{\\letterunderscore}', 'g')
-      let s:temp = substitute( s:temp,  '|',  '{\\letterbar}', 'g')
-      let s:temp = substitute( s:temp,  '\~', '{\\lettertilde}', 'g')
-      let s:temp = substitute( s:temp,  '/',  '{\\letterslash}', 'g')
-      let s:temp = substitute( s:temp,  '?',  '{\\letterquestionmark}', 'g')
-      let s:temp = substitute( s:temp,  '!',  '{\\letterexclamationmark}', 'g')
-      let s:temp = substitute( s:temp,  '@',  '{\\letterat}', 'g')
-      let s:temp = substitute( s:temp,  ':',  '{\\lettercolon}', 'g')
-      let s:new  = s:new . '\s[' . s:id_name . ']{' . s:temp .  '}'
+      let s:new  = s:new . '\SYN[' . s:id_name . ']{' . s:temp .  '}'
     endif
 
 " Why will we ever enter this loop
@@ -113,29 +88,29 @@ while s:lnum <= s:end
 "    endif
   endwhile
 
-"D Expand tabs 
+" Expand tabs 
   let s:pad   = 0
   let s:start = 0
   let s:idx = stridx(s:line, "\t")
   while s:idx >= 0
     let s:i     = &ts - ((s:start + s:pad + s:idx) % &ts)
-"    let s:new   = substitute(s:new, '\t', strpart(s:expandedtab, 0, s:i), '')
+"   let s:new   = substitute(s:new, '\t', strpart(s:expandedtab, 0, s:i), '')
     let s:new   = substitute(s:new, '\t', '\\tab{' . s:i . '}', '')
     let s:pad   = s:pad + s:i - 1
     let s:start = s:start + s:idx + 1
     let s:idx   = stridx(strpart(s:line, s:start), "\t")
   endwhile
 
-"D Go back and paste the current line
+" Go back and paste the current line
   wincmd p
   call append (s:buffer_lnum-1, s:new)
   wincmd p
 
-"D Increment line numbers
+" Increment line numbers
   let s:lnum = s:lnum + 1
   let s:buffer_lnum = s:buffer_lnum + 1
 endwhile
 
 wincmd p
-"D We have a spurious line in the end. So we remove it.
+" We have a spurious line in the end. So we remove it.
 $delete
diff --git a/Master/texmf-dist/tex/context/third/vim/t-vim.tex b/Master/texmf-dist/tex/context/third/vim/t-vim.tex
index 662fa4049d2..e545a2089f7 100644
--- a/Master/texmf-dist/tex/context/third/vim/t-vim.tex
+++ b/Master/texmf-dist/tex/context/third/vim/t-vim.tex
@@ -1,797 +1,227 @@
-%M \logo [VIM] {VIM} % Needed for the title
-
 %D \module
-%D   [      file=t-vim,
-%D        version=2008.07.15,
-%D          title=\VIM\ to \CONTEXT,
-%D       subtitle=Use \VIM\ to generate code listing,
-%D         author=Mojca Miklavec \& Aditya Mahajan,
-%D          email=adityam at umich dot edu,
-%D           date=\currentdate,
-%D      copyright=Public Domain]
-
-%M
-%M \usemodule [vim]
-%M \usemodule[int-load]
-%M \loadsetups[t-vim.xml]
-%M \usetypescript[modern-base][texnansi] \setupbodyfont[modern]
-%M \setuptyping[option=color]
-%M \setupcolors[state=start]
-
-%D \section   {User Manual}
-%D
-%D \CONTEXT\ has an excellent pretty printing capabilities for many languages.
-%D The code for pretty printing is written in \TEX, and due to catcode
-%D jugglery verbatim typesetting is perhaps the trickiest part of \TEX. This
-%D makes it difficult for a \quotation{normal} user to define syntax
-%D highlighting rules for a new language. This module, takes the onus of
-%D defining syntax highlighting rules away from the user and uses \VIM\ editor
-%D to generate the syntax highlighting.  There is a helper
-%D \filename{2context.vim} script to do the syntax parsing in \VIM. This is a
-%D stop|-|gap method, and hopefully with \LUATEX, things will be much easier. 
-%D
-%D The main macro of this module is \type{\definevimtyping}. The best way to
-%D explain it is by using an example. Suppose you want to pretty print ruby
-%D code in \CONTEXT. So you can do
-%D \starttyping
-%D \definevimtyping [RUBY]  [syntax=ruby]
-%D \stoptyping
-%D after which you can get ruby highlighting by
-%D \starttyping
-%D \startRUBY
-%D ....
-%D \stopRUBY
-%D \stoptyping
-%D
-%D For example
-%D \startbuffer
-%D \definevimtyping [RUBY] [syntax=ruby]
-%D
-%D \startRUBY
-%D #! /usr/bin/ruby
-%D # This is my first ruby program
-%D puts "Hello World"
-%D \stopRUBY
-%D \stopbuffer
-%D {\getbuffer}
-%D This was typed as \typebuffer
-%D
-%D The typing can be setup using \type{\setupvimtyping}.
-%D
-%D \showsetup{setupvimtyping}
-%D
-%D Here \type{syntax} is the syntax file in \VIM\ for the language
-%D highlighting that you want. See \type{:he syntax.txt} inside \VIM\ for
-%D details. \type{colorscheme} provides the syntax highlighting for various
-%D regions. Right now, two colorschemes are defined. The \type{default}
-%D colorscheme is based on on \filename{ps_color.vim} colorscheme in \VIM, and
-%D the \type{blackandwhite} colorscheme is based on \filename{print_bw.vim}.
-%D If there is a particular colorscheme that you will like, you can convert it
-%D into \CONTEXT. \type{space=(yes|on|no)} makes the space significant,
-%D visible, and insignificant respectively. \type{tab} specifies the number of
-%D spaces a tab is equivalent to. It's default value is 8. \type{start} and
-%D \type{stop} specify which lines to read from a file. These options only
-%D make sense for highlighting files and should not to be set by
-%D \type{\setupvimtyping}.  \type{numbering} enables line numbering, and
-%D \type{step} specifies which lines are numbered. \type{numberstyle} and
-%D \type{numbercolor} specify the style and color of line numbers. By
-%D default the numbers are placed on the left. The location of the numbers can
-%D be configured using \type{numbercommand} option.
-%D
-%D A new typing region can be define using \type{\definevimtyping}.
-%D
-%D \showsetup{definevimtyping}
-%D
-%D Minor changes in syntax highlighting can be made easily. For example, Mojca
-%D likes \quote{void} to be bold in C programs. This can be done as follows
-%D
-%D \startbuffer
-%D \definevimtyping [C] [syntax=c,numbering=on]
-%D 
-%D \startvimcolorscheme[default]
-%D 
-%D \definevimsyntax
-%D   [Type]
-%D   [style=boldmono]
-%D
-%D \definevimsyntax
-%D   [PreProc]
-%D   [style=slantedmono]
-%D 
-%D \stopvimcolorscheme
-%D 
-%D \startC
-%D #include <stdio.h>
-%D #include <stdlib.h>
-%D 
-%D void main() 
-%D {
-%D    printf("Hello World\n") ;
-%D    return;
-%D }
-%D \stopC
-%D \stopbuffer 
-%D \typebuffer which gives {\getbuffer}
-%D
-%D The second command provided by this module is \type{\definetypevimfile} for
-%D typesetting files.  The syntax of this command is
-%D
-%D \showsetup{definetypevimfile}
-%D
-%D For example, to pretty print a ruby file you can do
-%D \starttyping
-%D \definetypevimfile[typeRUBY] [syntax=ruby]
-%D \stoptyping
-%D after which one can use
-%D \starttyping
-%D \typeRUBY[option]{rubyfile}
-%D \stoptyping
-%D
-%D We hope that this is sufficient to get you started. The rest of this
-%D document gives the implementation details of the module. If you want to
-%D change something, read ahead.
-
-%D \section   {Module Details}
-%D The syntax highlighting of the source here is done using \type{t-vim}
-%D module. There is a bug in the module due to which line numberings for
-%D different filetypes use the same counter. In the source round||about
-%D method to correct this. Right now, in case someone needs this module for
-%D numbering more than one filetype, let me know, and I will try to iron
-%D out the bug.
-
-%M % Due to the bug in numbering
-%M \definevimtyping [definition]  [syntax=context,start=1,numbering=on]
-
-\writestatus  {loading}   {Context Module for ViM Sytax Highlighting}
-
-%M \definevimtyping [definition]  [syntax=context,start=continue,numbering=on]
+%D   [     file=t-vim,
+%D      version=2011.01.29,
+%D        title=\CONTEXT\ User Module,
+%D     subtitle=Vim syntax highlighting,
+%D       author=Aditya Mahajan,
+%D         date=\currentdate,
+%D    copyright=Aditya Mahajan,
+%D        email=adityam <at> umich <dot> edu,
+%D      license=Simplified BSD License]
+
+\writestatus{loading}{ConTeXt User Module / Vim syntax highlighting}
 
 \startmodule[vim]
 
 \unprotect
 
-\definesystemvariable {vs}  % Vim Syntax
-
-%D First of all we take care of bold monotype. By default, \CONTEXT\ uses
-%D latin modern fonts. If you want to get bold monotype in latin modern, you
-%D need to use \type{modern-base} typescript. For example:
-%D \starttyping
-%D \usetypescript[modern-base][texnansi] \setupbodyfont[modern]
-%D \starttext
-%D {\tt\bf This is bold monotype}
-%D \stoptext
-%D \stoptyping
-%D \CONTEXT\ does not provide any style alternative for bold monotype and
-%D slanted monotype, so we provide one here. These will only work if your font
-%D setup knows about bold and slanted monotype.
-
-\definealternativestyle [\v!bold\v!mono,\v!mono\v!bold]       [\ttbf] []
-\definealternativestyle [\v!slanted\v!mono,\v!mono\v!slanted] [\ttsl] []
-
-%D \macros{startvimcolorscheme}
-%D To start a new vim colorscheme.
-
-\def\startvimcolorscheme[#1]%
-  {\pushmacro\vimcolorscheme
-   \edef\vimcolorscheme{#1}}
-
-\def\stopvimcolorscheme
-  {\popmacro\vimcolorscheme}
-
-%D \macros{definevimsyntax, definevimsyntaxsynonyms} 
-%D These macros should always occur inside a \type{\startvimcolorschme}
-%D \unknown \type{\stopvimcolorscheme} pair.  The \type{\definevimsyntax}
-%D macro defines syntax highlighting rules for \VIM's syntax highlighting
-%D regions. It takes three arguments \type{style}, \type{color} and
-%D \type{command}. The most common \VIM\ syntax highlighting regions are defined
-%D in the end of this file. The \type{\definevimsyntaxsynonyms} macro just
-%D copies the settings from another syntax highlighting region.
-
-\def\definevimsyntax
-  {\dodoubleargumentwithset\dodefinevimsyntax}
-
-\def\dodefinevimsyntax[#1]% [#2]
-  {\getparameters[\??vs\vimcolorscheme#1]} %[#2]
-
-\def\definevimsyntaxsynonyms
-  {\dodoubleargumentwithset\dodefinevimsyntaxsynonyms}
-
-\def\dodefinevimsyntaxsynonyms[#1][#2]%
-  {\copyparameters[\??vs\vimcolorscheme#1][\??vs\vimcolorscheme#2]
-                  [\c!style,\c!color,\c!command]}
-
-
-%D \macros{vimsyntax}
-%D This is just a placeholder macro. The \filename{2context.vim} script marks
-%D the highlightin reigions by \type{\s[...]{...}}. While typing the generated
-%D files, we locally redefine \type{\s} to \type{\vimsyntax}.
-
-\def\vimsyntax[#1]#2%
-  {\dostartattributes{\??vs\vimcolorscheme Normal}\c!style\c!color\empty%
-   \dostartattributes{\??vs\vimcolorscheme #1}\c!style\c!color\empty%
-   \getvalue{\??vs\vimcolorscheme #1\c!command}{#2}%
-    \dostopattributes%
-    \dostopattributes}
-
-%D \macros{setupvimtyping, typevimfile}
-%D There are three settings for \type{\setupvimtyping}: \type{syntax}, which
-%D tells \VIM\ which syntax rules to use; \type{tab}, which sets the
-%D \type{tabstop} in \VIM; and \type{space} which takes care of spaces.
-%D
-%D \type{\typevimfile} macro basically calls \VIM\ with appropriate settings and
-%D sources the \filename{2context.vim} script. The result is slow, because
-%D parsing by \VIM\ is slow. Do not use this method for anything larger than a
-%D few hundred lines. For large files, one option is to pre||prase them, and
-%D then typeset the result. We have not provided any interface for that, but
-%D it is relatively easy to implement.
-%D
-%D Taking care of line||numbering is more tricky. We could not get
-%D \type{\setuplinenumbering} to work properly, so implement our own
-%D line||numbering mechanism. This is a bit awkward, since it places
-%D line||number after each \type{^M} in the source file. So, if the source
-%D code line is larger than one typeset line, the line number will be on the
-%D second line. To do it correctly, we need to read lines from the vimsyntax
-%D file one|-|by|-|one. Our own mechanism for line||numbering is plain.
-%D Unlike \CONTEXT's core verbatim highlighting, multiple blank lines are
-%D displayed and numbered.
-
-\def\setupvimtyping
-  {\dosingleargument\getparameters[\??vs]}
-
-\def\typevimfile
-  {\dosingleempty\dotypevimfile}
-
-\def\notypevimfile[#1][#2]#3%
-  {\dotypevimfile[#1,#2]{#3}}
-
-\def\dotypevimfile[#1]#2%
-  {\doiffileelse{#2}
-   {\dodotypevimfile[#1]{#2}}
-   {\reporttypingerror{#2}}}
-
-
-\def\saveandtypevimfile[#1]%
-  {\savevimbuffer
-   \dotypevimfile[#1]{\TEXbufferfile{vimsyntax}}}
-
-
-\let\savevimbuffer\donothing
-
-\beginLUATEX
-
-\def\savevimbuffer{\savebuffer[vimsyntax]}
-
-\endLUATEX
-
-\def\dodotypevimfile[#1]#2%
-  {\@@vsbefore
-   \bgroup
-   \initializevimtyping{#1}
-   \runvimsyntax{#2}
-    % The strut is needed for the output to be the same when not using
-    % numbering. Otherwise, multiple par's are ignored. We need to figure out
-    % a mechanism to imitate this behaviour even while using line numbering.
-    \strut%else the first line is shifted to the left
-    \input #2-vimsyntax.tmp\relax%
-   \egroup
-   \@@vsafter}
-
-\makecounter{vimlinenumber}
-
-\def\doplacevimlinenumber 
-  {%Always place the first linenumber
-   \showvimlinenumber
-   %Calculate step in futute
-   \let\placevimlinenumber\dodoplacevimlinenumber
-   \pluscounter{vimlinenumber}}
-
-\def\dodoplacevimlinenumber
-  {\ifnum\numexpr(\countervalue{vimlinenumber}/\@@vsstep)*\@@vsstep\relax=%
-         \numexpr\countervalue{vimlinenumber}\relax
-      \showvimlinenumber
-  \fi
-   \pluscounter{vimlinenumber}}
-   
-\def\showvimlinenumber
-  {\@@vsnumbercommand
-      {\dostartattributes\??vs\c!numberstyle\c!numbercolor\empty
-       \countervalue{vimlinenumber}
-       \dostopattributes}}
-
-\def\initializevimtyping#1
-  {\setupvimtyping[#1]
-   %Make sure that stop is not empty
-   \doifempty{\@@vsstop}{\setvalue{\@@vsstop}{0}}
-   \doifelse{\@@vsstart}{\v!continue}
-    {\setvalue{@@vsstart}{\countervalue{vimlinenumber}}}
-    {\setcounter{vimlinenumber}{\doifnumberelse{\@@vsstart}{\@@vsstart}{1}}}
-   \whitespace
-  %\page[\v!preference]} gaat mis na koppen, nieuw: later \nobreak
-   \setupwhitespace[\v!none]%
-   \obeylines
-   \ignoreeofs
-   \ignorespaces
-   \activatespacehandler\@@vsspace
-   \let\s=\vimsyntax
-   \def\tab##1{\dorecurse{##1}{\space}}% TODO: allow customization
-   \def\vimcolorscheme{\@@vscolorscheme}
-   \processaction[\@@vsnumbering]
-   [     \v!on=>\let\placevimlinenumber\doplacevimlinenumber,
-        \v!off=>\let\placevimlinenumber\relax,
-    \s!unknown=>\let\placevimlinenumber\relax,
-    \s!default=>\let\placevimlinenumber\relax,
-   ]
-   \def\obeyedline{\placevimlinenumber\par\strut}
-   }
-
-\def\shellescapedquote{\letterbackslash\letterdoublequote}
-
-\def\runvimsyntax#1
-   {\executesystemcommand
-      {mtxrun --verbose --noquote bin:vim
-          "-u NONE  % No need to read unnessary configurations
-           -e       % run in ex mode
-           -C       % Set compatibile
-           -n       % No swap
-%          -V10log  % For debugging only, will go away later.
-           -c \shellescapedquote set tabstop=\@@vstab \shellescapedquote\space    
-           -c \shellescapedquote syntax on\shellescapedquote\space 
-           -c \shellescapedquote set syntax=\@@vssyntax\shellescapedquote\space
-           -c \shellescapedquote let contextstartline=\@@vsstart\shellescapedquote\space
-           -c \shellescapedquote let contextstopline=\@@vsstop\shellescapedquote  \space
-           -c \shellescapedquote source kpse:2context.vim\shellescapedquote\space
-           -c \shellescapedquote wqa\shellescapedquote\space    
-            \shellescapedquote#1\shellescapedquote\space "}}
-
-
-%D \macros{definetypevimfile}
-%D This macro allows you to define new file typing commands. For example
-%D \starttyping
-%D \definetypevimfile[typeRUBY] [syntax=ruby]
-%D \stoptyping
-%D after which one can use
-%D \starttyping
-%D \typeRUBY[option]{rubyfile}
-%D \stoptyping
-
-\def\definetypevimfile
-  {\dodoubleargument\dodefinetypevimfile}
-
-\def\dodefinetypevimfile[#1][#2]%
-  {\unexpanded\setvalue{#1}{\dodoubleempty\notypevimfile[#2]}}
-
-%D \macros{definevimtyping}
-%D
-%D This macro allows you to pretty print code snippets. For example
-%D \startbuffer
-%D \definevimtyping [RUBY] [syntax=ruby]
-%D \startRUBY
-%D # This is my first ruby program
-%D puts "Hello World"
-%D \stopRUBY
-%D \stopbuffer
-%D \typebuffer gives \getbuffer
-
-%M %More bug fixes to get the line numbering in documentation right.
-%M \definevimtyping [definition]  [syntax=context,start=119,numbering=on]
-
-\def\definevimtyping
-  {\dodoubleargument\dodefinevimtyping}
-
-%M %More bug fixes to get the line numbering in documentation right.
-%M \definevimtyping [definition]  [syntax=context,start=continue,numbering=on]
-
-\def\dodefinevimtyping[#1][#2]%
-  {\setevalue{\e!start#1}{\noexpand\dostartbuffer[vimsyntax][\e!start#1][\e!stop#1]}%
-   \setvalue{\e!stop#1}{\saveandtypevimfile[#2]}}
-
-%D Some defaults.
-
-\setupvimtyping
-  [        syntax=context,
-           \c!tab=8,
-         \c!space=\v!yes,
-         \c!start=1,
-          \c!stop=0,
-        \c!before=,
-         \c!after=,
-     \c!numbering=\v!off,
- \c!numbercommand=\inleft, 
-   \c!numberstyle=\v!smallslanted,
-   \c!numbercolor=,
-          \c!step=1,
-      colorscheme=default,
-  ]
-
-%D Pre-defined Syntax : % {{{ 
-%D This is based on \filename{ps_color.vim}, which does not use any bold
-%D typeface.
-
-%D \VIM\ uses hex mode for setting colors, I do not want to convert them to rgb
-%D values.
-
-\startvimcolorscheme[default]
+\usemodule[filter]
 
+% We specify colors in hex so
 \setupcolor[hex]
 
-\definecolor  [vimsyntax!default!Special]     [h=907000]
-\definecolor  [vimsyntax!default!Comment]     [h=606000]
-\definecolor  [vimsyntax!default!Number]      [h=907000]
-\definecolor  [vimsyntax!default!Constant]    [h=007068]
-\definecolor  [vimsyntax!default!PreProc]     [h=009030]
-\definecolor  [vimsyntax!default!Statement]   [h=2060a8]
-\definecolor  [vimsyntax!default!Type]        [h=0850a0]
-\definecolor  [vimsyntax!default!Todo]        [h=e0e090]
-
-\definecolor  [vimsyntax!default!Error]       [h=c03000]
-\definecolor  [vimsyntax!default!Identifier]  [h=a030a0]
-\definecolor  [vimsyntax!default!SpecialKey]  [h=1050a0]
-\definecolor  [vimsyntax!default!Underline]   [h=6a5acd]
-
-
-\definevimsyntax
-  [Normal]
-  [\c!style=\tttf,\c!color=\maintextcolor]
-
-\definevimsyntax 
-  [Constant]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Constant]
-
-\definevimsyntaxsynonyms
-  [Character,Boolean,Float]
-  [Constant]
-
-\definevimsyntax
-  [Number]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Number]
-
-\definevimsyntax
-  [Identifier]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Identifier]
-
-\definevimsyntaxsynonyms
-  [Function]
-  [Identifier]
-
-\definevimsyntax 
-  [Statement]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Statement]
+\startinterface all
+  \setinterfaceconstant {syntax}      {syntax} 
+\stopinterface
 
-\definevimsyntaxsynonyms
-  [Conditional,Repeat,Label,Operator,Keyword,Exception]
-  [Statement]
+\def\??vimtyping??{vimtyping}
 
-\definevimsyntax 
-  [PreProc]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!PreProc]
+\def\vimtypingparameter #1{\csname\docheckparentparameter{\??vimtyping??\currentvimtyping}{#1}\endcsname}
 
-\definevimsyntaxsynonyms
-  [Include,Define,Macro,PreCondit]
-  [PreProc]
-
-\definevimsyntax 
-  [Type,StorageClass, Structure, Typedef]
-  [\c!style=\v!mono, \c!color=vimsyntax!default!Type]
-
-\definevimsyntax 
-  [Special]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Special]
-
-\definevimsyntax 
-  [SpecialKey]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!SpecialKey]
-
-\definevimsyntax
-  [Tag,Delimiter]
-  [\c!style=\v!mono]
-
-\definevimsyntax
-  [Comment,SpecialComment]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Comment]
-
-\definevimsyntax
-  [Debug]
-  [\c!style=\v!mono]
-
-\definevimsyntax
-  [Underlined]
-  [\c!style=\v!mono,\c!command=\underbar]
-
-\definevimsyntax 
-  [Ignore]
-  [\c!style=\v!mono]
-
-\definevimsyntax 
-  [Error]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Error]
-
-\definevimsyntax 
-  [Todo]
-  [\c!style=\v!mono,\c!color=vimsyntax!default!Todo]
-
-\stopvimcolorscheme
-% }}}
-
-\startvimcolorscheme[blackandwhite]
-
-\definevimsyntax
-  [Normal]
-  [\c!style=\tttf,\c!color=\maintextcolor]
-
-\definevimsyntax 
-  [Constant]
-  [\c!style=\v!mono,\c!color=]
-
-\definevimsyntaxsynonyms
-  [Character,Boolean,Float]
-  [Constant]
-
-\definevimsyntax
-  [Number]
-  [\c!style=\v!mono,\c!color=]
-
-\definevimsyntax
-  [Identifier]
-  [\c!style=\v!mono,\c!color=]
-
-\definevimsyntaxsynonyms
-  [Function]
-  [Identifier]
+\def\setupvimtyping
+  {\dodoubleargument\dosetupvimtyping}
 
-\definevimsyntax 
-  [Statement]
-  [\c!style=\v!mono\v!bold,\c!color=]
+\def\dosetupvimtyping[#1][#2]%
+  {\ifsecondargument
+     \getparameters[\??vimtyping??#1][#2]%
+   \else
+      \getparameters[\??vimtyping??][#1]%
+   \fi}
 
-\definevimsyntaxsynonyms
-  [Conditional,Repeat,Label,Operator,Keyword,Exception]
-  [Statement]
+\def\dotypevimfile[#1][#2][#3]% id options file
+  {\bgroup
+   \setupvimtyping[#1][#2]%
+   \getvalue{process#1file}[#3]%
+   \egroup}
 
-\definevimsyntax 
-  [PreProc]
-  [\c!style=\v!bold\v!mono,\c!color=]
+\def\definevimtyping
+  {\dodoubleargument\dodefinevimtyping}
 
-\definevimsyntaxsynonyms
-  [Include,Define,Macro,PreCondit]
-  [PreProc]
+\def\dodefinevimtyping[#1][#2]% 
+  {\getparameters[\??vimtyping??#1][\s!parent=\??vimtyping??,#2]%
+   \edef\currentvimtyping{#1}%
+   \defineexternalfilter[#1][\s!parent=\??vimtyping??#1]%
+  \setvalue{type#1file}{\dotripleargument\dotypevimfile[#1]}
+  }
+
+\startsetups[vimsetup]
+  \edef\currentvimtyping{\currentexternalfilter}
+  \edef\currentvimalternative{\vimtypingparameter\c!alternative}
+  \let\SYN\vimsyntax
+  \def\NL{\strut} % TODO: Add line numbering
+  \def\tab##1%
+    {\dorecurse{\vimtypingparameter\c!tab}
+    {\space}}
+  \doifinset{\vimtypingparameter\c!option}{\v!packed}
+    {\setupwhitespace[none]}
+  \setcatcodetable\vimcatcodes
+\stopsetups
+
+\def\vimfiltercommand
+  {vim -u NONE % don't read global config file
+       -e % run in ex mode
+       -C % set compatible
+       -n % no swap file
+       -c "set tabstop=\vimtypingparameter\c!tab" %
+       -c "syntax on" %
+       -c "set syntax=\vimtypingparameter\c!syntax" %
+       -c "let contextstartline=\vimtypingparameter\c!start" %
+       -c "let  contextstopline=\vimtypingparameter\c!stop" %
+       -c "source kpse:2context.vim" 
+       -c "wqa"}
+
+\newcatcodetable \vimcatcodes
+\startcatcodetable \vimcatcodes 
+  \catcode`\\   = \escapecatcode
+  \catcode`\{   = \begingroupcatcode  
+  \catcode`\}   = \endgroupcatcode
+  \catcode`\^^M = \activecatcode
+  \catcode`\^^L = \activecatcode
+  \catcode`\    = \activecatcode
+\stopcatcodetable 
+
+\def\startvimalternative
+  {\dosingleargument\dostartvimalternative}
+
+\def\dostartvimalternative[#1]%
+  {\pushmacro\currentvimalternative
+   \edef\currentvimalternative{#1}}
+
+\def\stopvimalternative
+  {\popmacro\currentvimalternative}
+
+\def\setvimsyntax
+  {\doquadrupleargument\dosetvimsyntax}
+
+\def\dosetvimsyntax[#1][#2][#3][#4]% name color style command
+  {\def\dodosetupvimsyntax##1%
+    { \doifsomething{#2}
+      {\definecolor[\??vimtyping??:\currentvimalternative:##1:color] [#2]%
+       \getparameters[\??vimtyping??::\currentvimalternative::##1]
+                     [\c!color={\??vimtyping??:\currentvimalternative:##1:color}]}
+     \getparameters[\??vimtyping??::\currentvimalternative::##1]
+                   [\c!style=#3,
+                    \c!command=#4]}%
+     \processcommalist[#1]\dodosetupvimsyntax}
+
+
+\def\vimsyntax[#1]#2% style content
+  {\dostartattributes{\??vimtyping??::\currentvimalternative::Normal}\c!style\c!color\empty%
+   \dostartattributes{\??vimtyping??::\currentvimalternative::#1}\c!style\c!color\empty%
+   \getvalue{\??vimtyping??::\currentvimalternative::#1\c!command}{#2}%
+   \dostopattributes
+   \dostopattributes}
+
+\startvimalternative[pscolor]
+  \setvimsyntax [Normal]    [\maintextcolor][\tttf]
+
+  \setvimsyntax 
+    [Constant,Character,Boolean,Float]  
+    [h=007068]      
+
+  \setvimsyntax [Number]    [h=907000]
+
+  \setvimsyntax
+    [Identifier, Function]
+    [h=a030a0]      
+
+  \setvimsyntax 
+    [Statement,Conditional,Repeat,Label,Operator,Keyword,Exception] 
+    [h=2060a8]      
+
+  \setvimsyntax 
+    [PreProc, Include, Define, Macro, PreCondit] 
+    [h=009030]
+
+  \setvimsyntax 
+    [Type,StorageClass, Structure, Typedef]      
+    [h=0850a0]      
+
+  \setvimsyntax [Special]   [h=907000]
+  \setvimsyntax [SpecialKey][h=1050a0]
+
+  \setvimsyntax
+    [Tag, Delmiter]
+
+  \setvimsyntax 
+    [Comment, SpecialComment]
+    [h=606000]
+
+  \setvimsyntax
+    [Debug,Ignore]
+
+  \setvimsyntax [Todo]      [h=e0e090]
+  \setvimsyntax [Error]     [h=c03000]
+  \setvimsyntax [Underlined][h=6a5acd][][\underbar]
+
+\stopvimalternative
 
-\definevimsyntax 
-  [Type,StorageClass, Structure, Typedef]
-  [\c!style=\v!bold\v!mono, \c!color=]
+%TODO
+%   \setvimsyntax [id] [bg=, fc=, style=, command=] == \localframed[options]
+\startvimalternative[blackandwhite]
+  \setvimsyntax [Normal]    [\maintextcolor][\tttf]
 
-\definevimsyntax 
-  [Special]
-  [\c!style=\v!mono,\c!color=]
+  \setvimsyntax 
+    [Constant,Character,Boolean,Float,Number,Identifier,Function]  
 
-\definevimsyntax 
-  [SpecialKey]
-  [\c!style=\v!mono,\c!color=]
+  \setvimsyntax 
+    [Statement,Conditional,Repeat,Label,Operator,Keyword,Exception] 
+    [][][\bold]
 
-\definevimsyntax
-  [Tag,Delimiter]
-  [\c!style=\v!mono,\c!color=]
+  \setvimsyntax 
+    [PreProc, Include, Define, Macro, PreCondit] 
+    [][][\bold]
 
-\definevimsyntax
-  [Comment,SpecialComment]
-  [\c!style=\v!slanted\v!mono,\c!color=]
+  \setvimsyntax 
+    [Type,StorageClass, Structure, Typedef]      
+    [][][\bold]
 
-\definevimsyntax
-  [Debug]
-  [\c!style=\v!mono,\c!color=]
+  \setvimsyntax [Special, SpecialKey]
 
-\definevimsyntax
-  [Underlined]
-  [\c!style=\v!mono,\c!color=,\c!command=\underbar]
+  \setvimsyntax [Tag, Delmiter]
 
-\definevimsyntax 
-  [Ignore]
-  [\c!style=\v!mono,\c!color=]
+  \setvimsyntax 
+    [Comment, SpecialComment]
+    [][][\slanted]
 
-\definevimsyntax 
-  [Error]
-  [\c!style=\v!mono,\c!color=,\c!command=\overstrike]
+  \setvimsyntax
+    [Debug,Ignore]
 
-\definevimsyntax 
-  [Todo]
-  [\c!style=\v!mono,\c!command=\inframed]
+  \setvimsyntax [Todo]      [][][\inframed]
+  \setvimsyntax [Error]     [][][\overstrike]
+  \setvimsyntax [Underlined][][][\underbar]
 
-\stopvimcolorscheme
-% }}}
+\stopvimalternative
 
+\setupvimtyping
+  [\c!tab=4,
+   \c!start=1,
+   \c!stop=0,
+   \c!syntax=context,
+   \c!alternative=pscolor,
+   \c!before=,
+   \c!after=,
+   \c!filter=\vimfiltercommand,
+   \c!filtercommand={\externalfilterparameter\c!filter\space \externalfilterinputfile},
+   \c!continue=yes,
+   \c!read=\v!yes,
+   \c!readcommand=\ReadFile,
+   \c!output=\externalfilterbasefile.vimout,
+   \c!setups=vimsetup,
+   \c!option=\v!packed, % Could be a list
+  ]
 
 \protect
 
 \stopmodule
 
-
-%D An example usage: % {{{
-
-\doifnotmode{demo}{\endinput}
-
-\setupcolors[state=start]
-
-\usetypescript[modern-base][texnansi]
-
-\setupbodyfont[modern,10pt]
-
-\starttext
-
-\title{Matlab Code Listing -- Color}
-
-\definevimtyping  [MATLAB]  [syntax=matlab]
-
-\startMATLAB
-function russell_demo()
-% Do the example in ch 17 (p501) of Russell and Norvig
-% (1,1) is top left corner.
-r = 3; c = 4; p = 0.8; action_cost = -1/25;
-obstacle = zeros(r,c); obstacle(2,2)=1;
-terminal = zeros(r,c); terminal(1,4)=1; terminal(2,4)=1;
-absorb = 1;
-wrap_around = 0;
-noop = 0;
-T = mk_grid_world(r, c, p, obstacle, terminal, absorb, wrap_around, noop);
-% Add rewards for terminal states
-nstates = r*c + 1;
-if noop
-  nact = 5;
-else
-  nact = 4;
-end
-R = action_cost*ones(nstates, nact);
-R(10,:) = 1;
-R(11,:) = -1;
-R(nstates,:) = 0;
-discount_factor = 1;
-
-V = value_iteration(T, R, discount_factor);
-%reshape(V(1:end-1),[r c])
-%    0.8116    0.8678    0.9178    1.0000
-%    0.7616    0.7964    0.6603   -1.0000
-%    0.7053    0.6553    0.6114    0.3878
-% Same as the book p501
-
-Q = Q_from_V(V, T, R, discount_factor);
-[V, p] = max(Q, [], 2);
-
-
-use_val_iter = 1;
-% (I-gT) is singular since g=1 and there is an absorbing state (i.e., T(i,i)=1)
-% Hence we cannot use value determination.
-[p,V] = policy_iteration(T, R, discount_factor, use_val_iter);
-
-%reshape(V(1:end-1),[r c])
-%    0.8115    0.8678    0.9178    1.0000
-%    0.7615    0.7964    0.6603   -1.0000
-%    0.7048    0.6539    0.6085    0.3824
-\stopMATLAB
-
-\title{Lua Code Listing -- Black and White}
-
-\definevimtyping  [LUA]  [syntax=lua,colorscheme=blackandwhite]
-
-\startLUA
--- version   : 1.0.0 - 07/2005
--- author    : Hans Hagen - PRAGMA ADE - www.pragma-ade.com
--- copyright : public domain or whatever suits
--- remark    : part of the context distribution
-
--- TODO: name space for local functions
-
--- loading: scite-ctx.properties
-
--- generic functions
-
-local crlf = "\n"
-
-function traceln(str)
-    trace(str .. crlf)
-    io.flush()
-end
-
-table.len  = table.getn
-table.join = table.concat
-
-function table.found(tab, str)
-    local l, r, p
-    if string.len(str) == 0 then
-        return false
-    else
-        l, r = 1, table.len(tab)
-        while l <= r do
-            p = math.floor((l+r)/2)
-            if str < tab[p] then
-                r = p - 1
-            elseif str > tab[p] then
-                l = p + 1
-            else
-                return true
-            end
-        end
-        return false
-    end
-end
-
-function string.grab(str, delimiter)
-    local list = {}
-    for snippet in string.gfind(str,delimiter) do
-        table.insert(list, snippet)
-    end
-    return list
-end
-
-function string.join(list, delimiter)
-    local size, str = table.len(list), ''
-    if size > 0 then
-        str = list[1]
-        for i = 2, size, 1 do
-            str = str .. delimiter .. list[i]
-        end
-    end
-    return str
-end
-
-function string.spacy(str)
-    if string.find(str,"^%s*$") then
-        return true
-    else
-        return false
-    end
-end
-
-function string.alphacmp(a,b,i) -- slow but ok
-    if i and i > 0 then
-        return string.lower(string.gsub(string.sub(a,i),'0',' ')) < string.lower(string.gsub(string.sub(b,i),'0',' '))
-    else
-        return string.lower(a) < string.lower(b)
-    end
-end
-
-function table.alphasort(list,i)
-    table.sort(list, function(a,b) return string.alphacmp(a,b,i) end)
-end
-
-function io.exists(filename)
-    local ok, result, message = pcall(io.open,filename)
-    if result then
-        io.close(result)
-        return true
-    else
-        return false
-    end
-end
-
-function os.envvar(str)
-    if os.getenv(str) ~= '' then
-        return os.getenv(str)
-    elseif os.getenv(string.upper(str)) ~= '' then
-        return os.getenv(string.upper(str))
-    elseif os.getenv(string.lower(str)) ~= '' then
-        return os.getenv(string.lower(str))
-    else
-        return ''
-    end
-end
-
-function string.expand(str)
-    return string.gsub(str, "ENV%((%w+)%)", os.envvar)
-end
-
-function string.strip(str)
-    return string.gsub(string.gsub(str,"^%s+",''),"%s+$",'')
-end
-
-function string.replace(original,pattern,replacement)
-    local str = string.gsub(original,pattern,replacement)
---     print(str) -- indirect, since else str + nofsubs
-    return str -- indirect, since else str + nofsubs
-end
-
-\stopLUA
-
-% \title{Source Code of the Module}
-
-% \typevimfile[numbering=on,numbercolor=red,step=5]{\jobname.tex}
-
-\stoptext
-
-% }}}