From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 5 Feb 2016 18:42:20 +0000 (+0000)
Subject: commitid.scad.pl: Provide 3-line versions
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=0882646568c9a77ff98ba93c4d9c7bf3a9aef97d;p=reprap-play.git

commitid.scad.pl: Provide 3-line versions
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index dc589fe..eb4846a 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -69,16 +69,18 @@ $SIG{__WARN__} = sub { die @_; };
 #       digits by 1.
 #
 #   Small4S:
-#   Small6S:
-#   Small8S:
+#   Small6S:   Small6T:
+#   Small8S:   Small9T:
 #   Small10S:
-#       same but split into two lines eg
-#            Small4S  10
-#                     70
+#       same but split into two lines (S) or three lines (T) eg
+#            Small4S  10     Small6t    1
+#                     70               07
+#                                      0*
 #
 #   Git4   Git4S
-#   Git6   Git6S
+#   Git6   Git6S   Git6T
 #   Git8   Git8S
+#   Git9           Git9T
 #   Git10  Git10S
 #       git-rev-parse HEAD   (prefix of requested length)
 #       eg
@@ -284,6 +286,7 @@ sub gentextmodule_plusq ($$) {
     my ($form, $s) = @_;
     gentextmodule($form, $s);
     gentextmodule_q("${form}S", $s, 2);
+    gentextmodule_q("${form}T", $s, 3);
 }
 
 our @gcmd;