6 $ line_in = f$edit(line_in, "TRIM,COMPRESS")
7 $ branch = f$element(0, " ", line_in)
8 $ snapshot_created = f$element(1, " ", line_in)
9 $ commit_id = f$element(2, " ", line_in)
10 $ describe = f$element(3, " ", line_in)
13 $ extra_info="git_snapshot_date='" + snapshot_created + "'"
14 $ commit_title="Snapshot of:"
16 $ write sys$output "Updating .patchnum and lib/Config_git.pl"
19 $ open/append pn .patchnum
20 $ write pn "describe: ''describe'"
24 $ open/append unp unpushed.h
25 $ write unp "/**********************************************************************"
26 $ write unp "* WARNING: unpushed.h is automatically generated by make_patchnum.com *"
27 $ write unp "* DO NOT EDIT DIRECTLY - edit make_patchnum.com instead *"
28 $ write unp "**********************************************************************/"
29 $ write unp "#define PERL_GIT_UNPUSHED_COMMITS /*no-op*/"
30 $ write unp "/*leave-this-comment*/"
33 $ create [.lib]Config_git.pl
34 $ open/append cfg [.lib]Config_git.pl
35 $ write cfg "##################################################################"
36 $ write cfg "# WARNING: lib/Config_git.pl is generated by make_patchnum.com #"
37 $ write cfg "# DO NOT EDIT DIRECTLY - edit make_patchnum.com instead #"
38 $ write cfg "##################################################################"
39 $ write cfg "$Config::Git_Data=<<'ENDOFGIT';"
40 $ write cfg "git_commit_id='" + commit_id + "'"
41 $ write cfg "git_describe='" + describe + "'"
42 $ write cfg "git_branch='" + branch + "'"
43 $ write cfg "git_uncommitted_changes='" + changed + "'"
44 $ write cfg "git_commit_id_title='" + commit_title + "'"
45 $ write cfg "''extra_info'"
46 $ write cfg "ENDOFGIT"