summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-01-31 16:55:42 +0000
committerKarl Berry <karl@freefriends.org>2011-01-31 16:55:42 +0000
commit8be4b350536828e1d6bc445cadf69e0fa5200814 (patch)
treeada4e1e54edd26dd9d5a64ff025f98311d695785 /Master
parent5009205ff9d52ef6018eda1bbb849de03b7ad621 (diff)
context-vim (30jan11)
git-svn-id: svn://tug.org/texlive/trunk@21240 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf-dist/doc/context/third/vim/README15
-rw-r--r--Master/texmf-dist/doc/context/third/vim/vim-demo.pdfbin120029 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/context/third/vim/vim-doc.pdfbin289748 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/context/third/vim/vim.txt60
-rw-r--r--Master/texmf-dist/tex/context/interface/third/t-vim.xml83
-rw-r--r--Master/texmf-dist/tex/context/third/vim/2context.vim99
-rw-r--r--Master/texmf-dist/tex/context/third/vim/t-vim.tex958
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
Binary files differ
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
Binary files differ
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
-
-% }}}