Re: Revised git related information in -v/-V output (and %Config)

[email protected] (John Malmberg)
Newsgroups perl.perl5.porters,perl.vmsperl
Message-ID <[email protected]>
Craig A. Berry wrote:
> 
> On Dec 31, 2008, at 11:38 AM, demerphq wrote:
> 
>>
>>> And many of the people building perl would not have the GNV bash  
>>> package, so
>>> the equivalent logic will need to be added to configure.com.
>>
>>
>> Will that be hard? I am willing to support as much as I can.
>>
> 
> Processing the .patch file in configure.com should not be a big deal.   
> We already process it the old way when it just had the Perforce change  
> number in it, so we just need to update that to do what  
> make_patchnum.sh does.  Running git to generate lib/Config_git.pl is  
> not possible at this point since there is as yet no git on VMS, so  
> those parts of make_patchnum.sh cannot currently be translated.
> 
> Since there is also no generally available rsync on VMS, the only  
> practical way to stay current with blead is to generate your own  
> snapshot on a system that does have rsync and/or git.  If we haven't  
> already done so, it would be nice to document the recommended  procedure 
> for generating a snapshot.  I assume it involves running  
> make_patchnum.sh followed but some incantation of git --archive.

Here is a first pass at a make_patchnum.com.

I have not integrated it into the configure.com yet.

I am almost there with getting the UNIX mode working on VMS.  After 
that, I can start looking at the GIT issue again.

-John
[email protected]
Personal Opinion Only
-- 
I expect to have the old e-mail address working again in a few days or so.
make_patchnum.txt (text/plain, 1.6 KB)
$! MAKE_PATCHNUM.COM
$!
$open/read pf .patch
$read pf line_in
$close pf
$branch = f$element(0, " ", line_in)
$snapshot_created = f$element(1, " ", line_in)
$commit_id = f$element(2, " ", line_in)
$describe = f$element(3, " ", line_in)
$!
$changed=""
$extra_info="git_snapshot_date=''snapshot_created'"
$commit_title="Snapshot of:"
$!
$create .patchnum
$open/append pn .patchnum
$write pn "describe: ''describe'"
$close pn
$!
$create unpushed.h
$open/append unp unpushed.h
$write unp -
"/**********************************************************************"
$write unp -
"* WARNING: unpushed.h is automatically generated by make_patchnum.com *"
$write unp -
"*          DO NOT EDIT DIRECTLY - edit make_patchnum.com instead      *"
$write unp -
"**********************************************************************/"
$write unp -
"#define PERL_GIT_UNPUSHED_COMMITS       /*no-op*/"
$write unp -
"/*leave-this-comment*/"
$close unp
$!
$create [.lib]Config_git.pl
$open/append cfg [.lib]Config_git.pl
$write cfg -
"##################################################################"
$write cfg -
"# WARNING: lib/Config_git.pl is generated by make_patchnum.com   #"
$write cfg -
"#          DO NOT EDIT DIRECTLY - edit make_patchnum.com instead #"
$write cfg -
"##################################################################"
$write cfg -
"$Config::Git_Data=<<'ENDOFGIT';"
$write cfg -
"git_commit_id=''commit_id'"
$write cfg -
"git_describe=''describe'"
$write cfg -
"git_branch=''branch'"
$write cfg -
"git_uncommitted_changes=''changed'"
$write cfg -
"git_commit_id_title=''commit_title'"
$write cfg -
"''extra_info'"
$write cfg -
"ENDOFGIT"
$close cfg
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.