Re: Various ConTeXt Questions

["Peter Münster" <pmlists@free.fr>]

On Thu, Apr 03 2008, Edd Barrett wrote:

> Just a way of isolating each of the marco's values that cvs defines. How about:
> 
> ---8<---
> \definecvskeyword[cvsdate][D/M/Y]{$Date$}% will be expanded upon
> commit to something like $Date: 1999/12/23 01:59:22 $
> \starttext
> Last Updated: \cvskeyword[cvsdate]
> \stoptext
> ---8<---
> 
> would produce:
> Last Updated: 1999/12/23 01:59:22

Hello Edd,

Perhaps like this:

% engine=luatex

\startluacode
thirddata = thirddata or { }

-- write the replacement string
-- p: pattern
-- r: replacement pattern
-- s: subject
function thirddata.replace(p, r, s)
	s = string.gsub(s, "^.-" .. p .. ".-$", r)
	tex.print(s)
end
\stopluacode

\def\definereplacement{\doquadrupleargument\dodefinereplacement}

\def\dodefinereplacement[#1][#2][#3][#4]{\expandafter
  \def\csname #1\endcsname{\ctxlua{thirddata.replace("#2", "#3", "#4")}}}

\definereplacement[cvsdate] [(\%d+)/(\%d+)/(\%d+)] [\%3.\%2.\%1]
                  [$Date: 1999/12/23 01:59:22 $]
\definereplacement[cvstime] [(\%d+):(\%d+):(\%d+)] [\%1h \%2m \%3s]
                  [$Date: 1999/12/23 01:59:22 $]
\definereplacement[cvsfile] [: (.+),] [\\type{\%1}]
                  [$RCSfile: keyword.html,v $]

\starttext
File: \cvsfile, last Updated: \cvsdate\ at \cvstime
\stoptext


Cheers, Peter

-- 
http://pmrb.free.fr/contact/

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________