Note the 3rd line of comment in the perl code regarding sed.

So did HP upgrade their version of perl and this segment of code get
left behind?

This one of only two segments of perl code that the package uses.

Keven Miller says:
> 
> This comment may be just noise, but
> 
> it seems to me, a few years ago (or was it only 1 year) when
> I attempted to migrate Postgres on Invent3k, I found it
> needed an update to autoconf, and in attempting to migrate 
> autoconf I found that it wanted to use Perl for some reason 
> -- as well I think the ./configure progress.
> 
> Not that I'm against Perl, mind you. Its just that I can only 
> swim in small densities of quicksand.
> 
> What, why did I mention Perl?
 

INVENT3K:/TJOHNSON/PGPI/build/pgp50i/src$ cat mklang.pl
#!/usr/bin/perl
#
#This could probably be sed, but I'm feeling lazy.
#

$LANGUAGE_FILE = "language50.txt";
$HEADER_FILE = "lib/ttyui/language.h";

#In the future, this should call the routine to add the pgpErr.h strings
to
#the bottom of the language50.txt file, here.

#Now, we want to turn the language50.txt file into lib/ttyui/language.h
file.

if(open(INF, $LANGUAGE_FILE))
{
    if(open(OUF, ">$HEADER_FILE"))
    {
        print OUF "/*Automatic translation of $LANGUAGE_FILE.\n";
        print OUF " *This file is created by mklang.pl.  DO NOT
EDIT!\n";
        print OUF " */\n\n";
        print OUF "static const char *lang = \"\\\n";

        while(<INF>)
        {
            chop;

            #Escape any single backslashes:
            s/\\/\\\\/g;

            #Escape any quotes:
            s/"/\\"/g;

            print OUF "$_\\n\\" . "\n";
        }
        print OUF "\";\n";
        close(OUF);
    }
    else
    {
        print STDERR "Unable to open $HEADER_FILE for reading!\n";
    }
    close(INF);
}
else
{
    print STDERR "Unable to open $LANGUAGE_FILE for reading!\n";
}
INVENT3K:/TJOHNSON/PGPI/build/pgp50i/src$ 

> Johnson, Tracy wrote:
> > The following is an attempt to build PGP on the Invent3K system. ...
> > make[1]: Entering directory `/TJOHNSON/PGPI/build/pgp50i/src'
> > ./mklang.pl
> > make[1]: ./mklang.pl: Command not found
> > make[1]: *** [headers] Error 127
> > make[1]: Leaving directory `/TJOHNSON/PGPI/build/pgp50i/src'
> 
> mklang.pl
> 
> Keven
>



Tracy Johnson
Measurement Specialties, Inc. 

BT







NNNN
 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *