Re: Use date of the tex file in the document

[Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de>]

[-- Attachment #1.1.1: Type: text/plain, Size: 1041 bytes --]

On 2011-03-24 <10:26:00>, Cecil Westerhof wrote:
> I would like to use the date of the document in the generated PDF. (It is
> not interesting when the PDF is generated, but when the source was last
> changed.) How would I do this?

Hi Cecil,

this solution checks only the main file, you’d have to extend it
if you want it to respect included parts as well.

Regards, Philipp

PS: Could be optimized but this way the main function allows for
    lazily adjusting the output …

> 
> -- 
> Cecil Westerhof

> ___________________________________________________________________________________
> 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  : http://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________


[-- Attachment #1.1.2: changed.tex --]
[-- Type: text/x-tex, Size: 1547 bytes --]

\startluacode
  documentdata = documentdata or { }
  documentdata.changed = documentdata.changed or { }
  local p = io.popen("ls -l --time-style=long-iso \jobname.tex", "r")
  local time = p:read("*all")
  p:close()

  local P, R, V = lpeg.P, lpeg.R, lpeg.V
  local C, Ct = lpeg.C, lpeg.Ct

  local p_lsout = P{
    [1] = "lsout",
    lsout = V"before" * V"date",
    before = (1 - V"date")^1,
    date  = Ct(C(V"four")
                 * V"hyphen"
                 * C(V"two")
                 * V"hyphen"
                 * C(V"two")
                 * V"space"
                 * Ct(C(V"two")
                        * P":"
                        * C(V"two"))),
    hyphen  = P"-",
    space   = P" ",
    four    = V"digit" * V"digit" * V"digit" * V"digit",
    two     = V"digit" * V"digit",
    digit   = R"09",
  }
  
  local changed = p_lsout:match(time)

  function documentdata.changed.get_changed ()
    if documentdata.changed.__last_changed then
      return documentdata.changed.__last_changed end
    local dateform = {
      changed[3],
      ".",
      changed[2],
      ".",
      changed[1],
      "\\space ",
      changed[4][1],
      ":",
      changed[4][2],
    }
    local datestr = table.concat(dateform)
    documentdata.changed.__last_changed = datestr
    return datestr
  end
\stopluacode

\unexpanded\def\getdate{%
  \ctxlua{context(documentdata.changed.get_changed())}%
}

\starttext

The source of this file was last modified {\os\getdate}.

\stoptext

[-- Attachment #1.2: Type: application/pgp-signature, Size: 198 bytes --]

[-- Attachment #2: Type: text/plain, Size: 486 bytes --]

___________________________________________________________________________________
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  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________