summaryrefslogtreecommitdiff
path: root/support/vc/hg-windows/vc-hg.awk
diff options
context:
space:
mode:
Diffstat (limited to 'support/vc/hg-windows/vc-hg.awk')
-rw-r--r--support/vc/hg-windows/vc-hg.awk75
1 files changed, 75 insertions, 0 deletions
diff --git a/support/vc/hg-windows/vc-hg.awk b/support/vc/hg-windows/vc-hg.awk
new file mode 100644
index 0000000000..077d2ed90d
--- /dev/null
+++ b/support/vc/hg-windows/vc-hg.awk
@@ -0,0 +1,75 @@
+# This is file 'vc-hg.awk' from the vc bundle for TeX.
+# The original file can be found at CTAN:support/vc.
+# This file is Public Domain.
+
+BEGIN {
+ modified = 0
+}
+
+### Process output of "hg log"
+script=="log" && /^Hash:/ { Hash = substr($0, 2+match($0, ":")) }
+script=="log" && /^Abr. Hash:/ { AbrHash = substr($0, 2+match($0, ":")) }
+script=="log" && /^Branch:/ { Branch = substr($0, 2+match($0, ":")) }
+script=="log" && /^Parent1 Hash:/ { Parent1Hash = substr($0, 2+match($0, ":")) }
+script=="log" && /^Parent2 Hash:/ { Parent2Hash = substr($0, 2+match($0, ":")) }
+script=="log" && /^Abr. Parent1 Hash:/ { AbrParent1Hash = substr($0, 2+match($0, ":")) }
+script=="log" && /^Abr. Parent2 Hash:/ { AbrParent2Hash = substr($0, 2+match($0, ":")) }
+script=="log" && /^Author Name:/ { AuthorName = substr($0, 2+match($0, ":")) }
+script=="log" && /^Author Email:/ { AuthorEmail = substr($0, 2+match($0, ":")) }
+script=="log" && /^Author Date:/ { AuthorDate = substr($0, 2+match($0, ":")) }
+
+### Process output of "hg status"
+script=="status" && /^M / { modified = 1 }
+
+END {
+ ### Process output of "hg log"
+ if (script=="log") {
+ ### Format dates
+ LongDate = substr(AuthorDate, 1, 25)
+ DateRAW = substr(LongDate, 1, 10)
+ DateISO = DateRAW
+ DateTEX = DateISO
+ gsub("-", "/", DateTEX)
+ Time = substr(LongDate, 12, 14)
+
+ print "%%% This file has been generated by the vc bundle for TeX."
+ print "%%% Do not edit this file!"
+ print "%%%"
+
+ print "%%% Define HG specific macros."
+ print "\\gdef\\HGHash{" Hash "}%"
+ print "\\gdef\\HGAbrHash{" AbrHash "}%"
+ print "\\gdef\\HGBranch{" Branch "}%"
+ print "\\gdef\\HGFirstParentHash{" Parent1Hash "}%"
+ print "\\gdef\\HGSecondParentHash{" Parent2Hash "}%"
+ print "\\gdef\\HGAbrFirstParentHash{" AbrParent1Hash "}%"
+ print "\\gdef\\HGAbrSecondParentHash{" AbrParent2Hash "}%"
+ print "\\gdef\\HGAuthorName{" AuthorName "}%"
+ print "\\gdef\\HGAuthorEmail{" AuthorEmail "}%"
+ print "\\gdef\\HGAuthorDate{" AuthorDate "}%"
+
+ print "%%% Define generic version control macros."
+ print "\\gdef\\VCRevision{\\HGAbrHash}%"
+ print "\\gdef\\VCAuthor{\\HGAuthorName}%"
+ print "\\gdef\\VCDateRAW{" DateRAW "}%"
+ print "\\gdef\\VCDateISO{" DateISO "}%"
+ print "\\gdef\\VCDateTEX{" DateTEX "}%"
+ print "\\gdef\\VCTime{" Time "}%"
+ print "\\gdef\\VCModifiedText{\\textcolor{red}{with local modifications!}}%"
+
+ print "%%% Assume clean working copy."
+ print "\\gdef\\VCModified{0}%"
+ print "\\gdef\\VCRevisionMod{\\VCRevision}%"
+ }
+
+ ### Process output of "hg status"
+ if (script=="status") {
+ print "%%% Is working copy modified?"
+ print "\\gdef\\VCModified{" modified "}%"
+ if (modified==0) {
+ print "\\gdef\\VCRevisionMod{\\VCRevision}%"
+ } else {
+ print "\\gdef\\VCRevisionMod{\\VCRevision~\\VCModifiedText}%"
+ }
+ }
+}