getting context's version

getting context's version

[Wybo Dekker]

I want to check context's version in a perl script to verify that it's
recent enough. Is there a better way than this?:

#!/usr/bin/perl -w
open(IN,"echo '\\bye' |cont-en |") or
    die "Could not run cont-en\n";
while(<IN>) {
  /ver:\s+(\d+)\.(\d+)\.(\d+)/ and
    $version=sprintf("%4d%02d%02d",$1,$2,$3),last;
}
print "version=$version\n";

-- 
Wybo

Re: getting context's version

[Tobias Burnus]

Hi,

On Tue, 17 Sep 2002, Wybo Dekker wrote:
> I want to check context's version in a perl script to verify that it's
> recent enough. Is there a better way than this?:
Hmm. Probably not. One could try something like:
 grep contextversion `kpsewhich context.tex` | sed -e 's/.*{//' -e 's/}//'
But this only checks the file not the format.

Using cont-en is not the best though I have no better alternative.

Tobias

Re: getting context's version

[Wybo Dekker]

On Tue, 17 Sep 2002, Tobias Burnus wrote:

> Hi,
>
> On Tue, 17 Sep 2002, Wybo Dekker wrote:
> > I want to check context's version in a perl script to verify that it's
> > recent enough. Is there a better way than this?:
> Hmm. Probably not. One could try something like:
>  grep contextversion `kpsewhich context.tex` | sed -e 's/.*{//' -e 's/}//'
> But this only checks the file not the format.
>
> Using cont-en is not the best though I have no better alternative.

I can only hope this tickled Hans...
-- 
Wybo

Re: getting context's version

[Hans Hagen]

At 08:23 PM 9/17/2002 +0200, Wybo Dekker wrote:
>
> > Using cont-en is not the best though I have no better alternative.
>
>I can only hope this tickled Hans...

the method that taco posted is the way to go, since it's in the main 
context file that i (when zipping) change the version number

Hans
-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------

Re: getting context's version

[Tobias Burnus]

Hi,

Hans Hagen schrieb:
> At 08:23 PM 9/17/2002 +0200, Wybo Dekker wrote:
[> > I wrote:]
> > > Using cont-en is not the best though I have no better alternative.
> >I can only hope this tickled Hans...
>
> the method that taco posted is the way to go, since it's in the main
> context file that i (when zipping) change the version number
Well I also mentioned this methode, but with
'Using cont-en is not the best though I have no better alternative.'
I ment that this is the only methode to get the version of the format.

If one is sure that context.tex and cont-en.[e]fmt have the same version
number (hopefully they have! Otherwise strange errors appear) then
context.tex is the way to go (in Shell syntax):
> > >  grep contextversion `kpsewhich context.tex` | sed -e 's/.*{//' -e 's/}//'

But I think I was to picky regarding this fine difference ;-)

Tobias
-- 
This above all: To thine own self be true / And it must follow as
the night the day / Thou canst not then be false to any man.

Re: getting context's version

[Wybo Dekker]

On Wed, 18 Sep 2002, Hans Hagen wrote:

> the method that taco posted is the way to go, since it's in the main
> context file that i (when zipping) change the version number

except that, if you unzip the newest cont-tmf and do mktexlsr but forget
to regenerate the format, it tells that the new version is there, but the
old one is actually run.

So if I try to make a fool-proof script that needs the newer version, it
would be nice to have the version from the format itself.

-- 
Wybo

Re: getting context's version

[Tobias Burnus]

Hi,

Wybo Dekker schrieb:
> > the method that taco posted is the way to go, since it's in the main
> > context file that i (when zipping) change the version number
> 
> except that, if you unzip the newest cont-tmf and do mktexlsr but forget
> to regenerate the format, it tells that the new version is there, but the
> old one is actually run.
How about:
- check whether cont-en.efmt is older than context.tex
  If this is the case, issue a warning/error
- check the version in context.tex

This catches also buried problems like fmt file older than texmf tree
which can also produce strange errors. (e.g. with cont-new.tex).

> So if I try to make a fool-proof script that needs the newer version, it
> would be nice to have the version from the format itself.
well using cont-en you got this number, unfortunally the fmt file is a
not that easily readable memory dump so you cannot easily grep for the
number directly without using TeX.

Tobias
-- 
This above all: To thine own self be true / And it must follow as
the night the day / Thou canst not then be false to any man.

Re: getting context's version

[Taco Hoekwater]

On Wed, 18 Sep 2002 11:17:33 +0200, Tobias wrote:

> Hi,
> 
> Wybo Dekker schrieb:
> > > the method that taco posted is the way to go, since it's in the main
> > > context file that i (when zipping) change the version number
> > 
> > except that, if you unzip the newest cont-tmf and do mktexlsr but forget
> > to regenerate the format, it tells that the new version is there, but the
> > old one is actually run.
> How about:
> - check whether cont-en.efmt is older than context.tex
>   If this is the case, issue a warning/error
> - check the version in context.tex
> 
> This catches also buried problems like fmt file older than texmf tree
> which can also produce strange errors. (e.g. with cont-new.tex).
> 
> > So if I try to make a fool-proof script that needs the newer version, it
> > would be nice to have the version from the format itself.
> well using cont-en you got this number, unfortunally the fmt file is a
> not that easily readable memory dump so you cannot easily grep for the
> number directly without using TeX.

perl doesnt care about that binary stuff :)

   /\(format=cont-.. (\d+).(\d+).(\d+)\)/;

-- 
groeten,

Taco

Re: getting context's version

[Wybo Dekker]

On Wed, 18 Sep 2002, Taco Hoekwater wrote:

> Surely that's the file date of the format file?
>
> stat (`kpsewhich cont-en.efmt`)

No, you can create a very new format file from a very old context version

> perl doesnt care about that binary stuff :)
>
>    /\(format=cont-.. (\d+).(\d+).(\d+)\)/;

I tried that one already, but what you get is the file date, not the
context version. The latter isn't in the format, unless in binary maybe.

I think I need the following routine (yes, it's much more than 4 lines):

#!/usr/bin/perl -w

sub test_context_version {
    my $required=shift;
    chomp (my $fmt=`kpsewhich cont-en.efmt`);
    chomp (my $tex=`kpsewhich context.tex`);
    (stat $fmt)[10] < (stat $tex)[10] and
        die "Your context formats need (re)generation:\n";
    open(IN,$tex) or do {
        warn "can't find context.tex";
        return 1;
    };
    while(<IN>) {
        if ( /contextversion\{(\d+)\.(\d+)\.(\d+)\}/ ) {
            my $have;
            $have=sprintf('%4d%02d%02d',$1,$2,$3);
            $have < $required and
                warn "Your ConTeXt is too old ($have); you need $required\n";
            return 1;
            last;
        }
    }
    return 0;
}

for $v (20020701,20020901) {
    warn "testing $v:\n";
    test_context_version($v);
}

-- 
Wybo

Re: getting context's version

[Simon Pepping]

This sounds like you want to make sure that you run a specific minimal
context version. In latex this may be checked by the macro code:

\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesClass{article}
              [2000/05/19 v1.4b
 Standard LaTeX document class]

and then when you say \documentclass{article}[2002/06/01], latex warns
you that you run an older version than required. This is a solution at
the root, so I think it is the way to go.

Simon

On Wed, Sep 18, 2002 at 05:28:13PM +0200, Wybo Dekker wrote:
> #!/usr/bin/perl -w
> 
> sub test_context_version {
>     my $required=shift;
>     chomp (my $fmt=`kpsewhich cont-en.efmt`);
>     chomp (my $tex=`kpsewhich context.tex`);
>     (stat $fmt)[10] < (stat $tex)[10] and
>         die "Your context formats need (re)generation:\n";
>     open(IN,$tex) or do {
>         warn "can't find context.tex";
>         return 1;
>     };
>     while(<IN>) {
>         if ( /contextversion\{(\d+)\.(\d+)\.(\d+)\}/ ) {
>             my $have;
>             $have=sprintf('%4d%02d%02d',$1,$2,$3);
>             $have < $required and
>                 warn "Your ConTeXt is too old ($have); you need $required\n";
>             return 1;
>             last;
>         }
>     }
>     return 0;
> }

-- 
Simon Pepping
email: spepping@scaprea.hobby.nl

Re: getting context's version

[Taco Hoekwater]

Hi,

Something like this would be good to have in the context core. (watch
the *like this*). 

But I'm not sure this is precisely what Wybo is after, since Wybo also makes
sure that the actual format file is newer than the last downloaded context
distribution. 

Perhaps Hans can glue Wybo's code into 'texexec --version', that
would be nice (pdftex version number would also be nice). Something
like this would be great:

texexec --version

   TeXExec 2.6 - ConTeXt / PRAGMA ADE 1997-2001
   TeXUtil 7.3 - ConTeXt / PRAGMA ADE 1992-2000
   cont-en:  ver: 2001.11.13  fmt: 2002.8.28  int: english  mes: english
   cont-nl:  ver: 2001.11.13  fmt: 2002.8.28  int: dutch    mes: dutch
   tex:  pdfeTeX, Version 3.14159-1.00b-pretest-20020211-2.1 (Web2C 7.3.7)

Is that doable?

On Thu, 19 Sep 2002 20:41:27 +0200, Simon wrote:

> This sounds like you want to make sure that you run a specific minimal
> context version. In latex this may be checked by the macro code:
> 
> \NeedsTeXFormat{LaTeX2e}[1995/12/01]
> \ProvidesClass{article}
>               [2000/05/19 v1.4b
>  Standard LaTeX document class]
> 
> and then when you say \documentclass{article}[2002/06/01], latex warns
> you that you run an older version than required. This is a solution at
> the root, so I think it is the way to go.
> 
> Simon

-- 
groeten,

Taco

Re: getting context's version

[Hans Hagen]

[-- Attachment #1: Type: text/plain, Size: 659 bytes --]

At 10:06 AM 9/20/2002 +0200, Taco Hoekwater wrote:

>Hi,
>
>Something like this would be good to have in the context core. (watch
>the *like this*).

right, needs some thinking -)

texexec --version

>    TeXExec 2.6 - ConTeXt / PRAGMA ADE 1997-2001
>    TeXUtil 7.3 - ConTeXt / PRAGMA ADE 1992-2000
>    cont-en:  ver: 2001.11.13  fmt: 2002.8.28  int: english  mes: english
>    cont-nl:  ver: 2001.11.13  fmt: 2002.8.28  int: dutch    mes: dutch
>    tex:  pdfeTeX, Version 3.14159-1.00b-pretest-20020211-2.1 (Web2C 7.3.7)
>
>Is that doable?

sure, see attached version.pl

this is windows, so can you sort out the > redirection alternative for unix?

Hans 

[-- Attachment #2: version.pl --]
[-- Type: text/plain, Size: 1023 bytes --]

$texexec = $texutil = $pdfetex = $english = $dutch = "" ; 

sub AnalyzeVersion
  { open (LOG, "texexec.tmp") ; 
    while (<LOG>) 
      { chomp ; 
        if    (/^\s*(.*TeXExec.*?)\s*$/o)      { $texexec = $1 }
        elsif (/^\s*(.*TeXUtil.*?)\s*$/o)      { $texutil = $1 }  
        elsif (/^\s*(.*pdf(|e)TeX.*?)\s*$/o)   { $pdfetex = $1 } 
        elsif (/^\s*(.*int: english.*?)\s*$/o) { $english = $1 } 
        elsif (/^\s*(.*int: dutch.*?)\s*$/o)   { $dutch   = $1 } } 
    close (LOG) }

open (TEX,">texexec.tex") ; 
print TEX "\\starttext test \\stoptext" ; 
close (TEX) ; 

unlink ("texexec.tui") ; 
unlink ("texexec.tuo") ; 

system("texexec --interface=en texexec.tex > texexec.tmp") ;  
AnalyzeVersion ;
system("texexec --once --interface=nl texexec.tex > texexec.tmp") ;  
AnalyzeVersion ;

print "current distribution:\n\n" ; 
print "texexec   : $texexec\n" ; 
print "texutil   : $texutil\n" ;
print "pdf(e)tex : $pdfetex\n" ;
print "cont-en   : $english\n" ;
print "cont-nl   : $dutch\n" ;
print "\n" ; 

[-- Attachment #3: Type: text/plain, Size: 597 bytes --]

-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------

Re: getting context's version

[Tobias Burnus]

Hi,

Hans Hagen wrote:
> >Something like this would be good to have in the context core. (watch
> >the *like this*).
> right, needs some thinking -)
> texexec --version

Given that this takes rather long, can we have something kike:
 texexec --allversions
or so?

> >Is that doable?
> sure, see attached version.pl
> this is windows, so can you sort out the > redirection alternative for unix?
This is rather Unix which can also be used under Windows ;-)

I had to change texexec.tmp in something different since texexec
insisted to create texexec.tmp itself ...
Then it worked.

How about adding a check whether cont-?? exists before calling texexec?
(de, cz etc. are also missing)
Plus: How about running texexec --once and optaining the version number
for texutil by running texutil --version? The texexec version could be
inserted directly which could save some additional µs.

Tobias
-- 
This above all: To thine own self be true / And it must follow as
the night the day / Thou canst not then be false to any man.

Re: getting context's version

[Hans Hagen]

At 11:32 AM 9/20/2002 +0200, you wrote:
>Hi,
>
>Hans Hagen wrote:
> > >Something like this would be good to have in the context core. (watch
> > >the *like this*).
> > right, needs some thinking -)
> > texexec --version
>
>Given that this takes rather long, can we have something kike:
>  texexec --allversions
>or so?
>
> > >Is that doable?
> > sure, see attached version.pl
> > this is windows, so can you sort out the > redirection alternative for 
> unix?
>This is rather Unix which can also be used under Windows ;-)

for me nowadays unix is just another windows app -)

(i managed to get linux working in vmware under win2k on my laptop [no 
longer hanging linuxes due to usb and display problems)

>I had to change texexec.tmp in something different since texexec
>insisted to create texexec.tmp itself ...
>Then it worked.

ok, works here btw since i have namespace enabled

>How about adding a check whether cont-?? exists before calling texexec?
>(de, cz etc. are also missing)

aren't these normally as old as the nl version ?

>Plus: How about running texexec --once and optaining the version number
>for texutil by running texutil --version? The texexec version could be
>inserted directly which could save some additional µs.

hm, how many times do you run this thing per year?

Hans

-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------

Re: getting context's version

[Henning Hraban Ramm]

Am Montag, 20. Mai 2002 16:42 schrieb Hans Hagen:
> >How about adding a check whether cont-?? exists before calling texexec?
> >(de, cz etc. are also missing)
> aren't these normally as old as the nl version ?

E.g. I create normally only the english one for I don't need the others.

Grüßlis vom Hraban!
-- 
http://www.fiee.net
http://www.ramm.ch
---

Re: getting context's version

[Simon Pepping]

[-- Attachment #1: Type: text/plain, Size: 374 bytes --]

On Fri, Sep 20, 2002 at 11:32:59AM +0200, Tobias Burnus wrote:
> Hi,
> 
> How about adding a check whether cont-?? exists before calling texexec?
> (de, cz etc. are also missing)

The attached finds the languages that are installed on your system,
and prints their version lines. The %languages association needs
editing.

-- 
Simon Pepping
email: spepping@scaprea.hobby.nl

[-- Attachment #2: context-versions.pl --]
[-- Type: application/x-perl, Size: 1118 bytes --]

Re: getting context's version

[Taco Hoekwater]

Surely that's the file date of the format file?

stat (`kpsewhich cont-en.efmt`)

On Wed, 18 Sep 2002 10:59:30 +0200 (CEST), Wybo wrote:

> On Wed, 18 Sep 2002, Hans Hagen wrote:
> 
> > the method that taco posted is the way to go, since it's in the main
> > context file that i (when zipping) change the version number
> 
> except that, if you unzip the newest cont-tmf and do mktexlsr but forget
> to regenerate the format, it tells that the new version is there, but the
> old one is actually run.
> 
> So if I try to make a fool-proof script that needs the newer version, it
> would be nice to have the version from the format itself.
> 
> -- 
> Wybo
> 

-- 
groeten,

Taco

Re: getting context's version

[Taco]

4 hele regels code, ik schaam me.

groetjes, Taco

#!/usr/bin/perl -w
local $/;
open(IN,`kpsewhich context.tex`) || die "can't find context.tex";
<IN> =~ /contextversion\{(\d+)\.(\d+)\.(\d+)\}/;
print "version=" . sprintf("%4d%02d%02d",$1,$2,$3) . "\n";

On Tue, 17 Sep 2002 12:07:08 +0200 (CEST)
"Wybo Dekker" <wybo@servalys.nl> wrote:

> I want to check context's version in a perl script to verify that it's
> recent enough. Is there a better way than this?:
> 
> #!/usr/bin/perl -w
> open(IN,"echo '\\bye' |cont-en |") or
>     die "Could not run cont-en\n";
> while(<IN>) {
>   /ver:\s+(\d+)\.(\d+)\.(\d+)/ and
>     $version=sprintf("%4d%02d%02d",$1,$2,$3),last;
> }
> print "version=$version\n";
> 
> -- 
> Wybo

Re: getting context's version

[Wybo Dekker]

On Tue, 17 Sep 2002, Taco wrote:

>
>
> 4 hele regels code, ik schaam me.
>
> groetjes, Taco
>
> #!/usr/bin/perl -w
> local $/;
> open(IN,`kpsewhich context.tex`) || die "can't find context.tex";
> <IN> =~ /contextversion\{(\d+)\.(\d+)\.(\d+)\}/;
> print "version=" . sprintf("%4d%02d%02d",$1,$2,$3) . "\n";

That's better, thanks.
But it slurps the whole file, so I made it:

#!/usr/bin/perl -w
open(IN,`kpsewhich context.tex`) or die "can't find context.tex";
while(<IN>) {
    /contextversion\{(\d+)\.(\d+)\.(\d+)\}/ and
       printf("version=%4d%02d%02d\n",$1,$2,$3),last;
}

-- 
Wybo