commitid.scad.pl: Provide Full*T

[reprap-play.git] / commitid.scad.pl

diff --git a/commitid.scad.pl b/commitid.scad.pl
index dc589fe3eb8cd334d8d896c363232973c64a58e2..48585d5fd11909e402306a99ede5870aa166545c 100755 (executable)
--- 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
@@ -102,6 +104,12 @@ $SIG{__WARN__} = sub { die @_; };
 #       If tree is dirty, + or * is suffixed to count (but not to
 #       commitid) reducing number of digits by 1.
 #
+#   Full6T
+#   Full9T
+#   Full12T
+#   Full15T
+#       As Full but commit is split over two lines for a 3-line message
+#
 #   FontDemo
 #
 #   Arg0, Arg1, ...
@@ -284,6 +292,7 @@ sub gentextmodule_plusq ($$) {
     my ($form, $s) = @_;
     gentextmodule($form, $s);
     gentextmodule_q("${form}S", $s, 2);
+    gentextmodule_q("${form}T", $s, 3);
 }
 
 our @gcmd;
@@ -348,10 +357,19 @@ sub do_git () {
        gentextmodule_plusq("Git$sz", ljustt($sz, $git_object, $git_dirty))
            if defined $git_object;
 
-       gentextmodule("Full$sz",
-                     rjustt($sz, $git_count.$git_dirty),
-                     ljustt($sz, $git_object, ''))
-           if defined $git_count && defined $git_object;
+       if (defined $git_count && defined $git_object) {
+           gentextmodule("Full$sz",
+                         rjustt($sz, $git_count.$git_dirty),
+                         ljustt($sz, $git_object, ''));
+
+           if (!($sz % 2)) {
+               my $e = $sz/2;
+               gentextmodule("Full".($e*3)."T",
+                             rjustt($e, $git_count),
+                             ljustt($e*2, $git_object, $git_dirty)
+                             =~ m/.{$e}/g);
+           }
+       }
     }
 }