From: Ian Jackson Date: Sun, 14 Feb 2016 17:43:39 +0000 (+0000) Subject: commitid: Provide more Small and Git (mostly so we have more one-line versions) X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=a75f4245977276aed475729d9c71faad2a0c528e commitid: Provide more Small and Git (mostly so we have more one-line versions) --- diff --git a/commitid.scad.pl b/commitid.scad.pl index 3ea50a0..4c7371f 100755 --- a/commitid.scad.pl +++ b/commitid.scad.pl @@ -178,7 +178,7 @@ # starts abcdeffedbcaabcdef... In the examples `_' shows where a # space would be printed. # -# Small2 Small3 ... Small10 +# Small2 Small3 ... Small9 Small10 Small12 Small14 Small16 # A single line containing as much of the count will fit, eg: # Small5 3456* # Small8 _*123456 @@ -186,16 +186,16 @@ # will fit without makign the output ambiguous: # Small9 ab*123456 # -# Small2S Small4S ... Small10S -# Small3T Small9T +# Small2S Small4S ... Small16S +# Small3T Small9T Small12T # Same as Small but split into two lines (S) # or three lines (T). Eg: # Small4S *4 Small6T _* # 56 34 # 56 -# Git2 Git3 ... Git10 -# Git4S Git6S ... Git10S -# Git6T Git9T +# Git2 Git3 ... Git9 Git10 Git12 Git14 Git16 +# Git4S Git6S ... Git16S +# Git6T Git9T Git12T # Just the commit object hash, in one, two (S) or three (T) # lines. E.g.: # Git5 abcd* @@ -543,7 +543,7 @@ sub do_git () { print STDERR join ' ', map { $_ // '?' } "-- commitid", $git_object, $git_dirty, $git_count, "--\n"; - foreach my $sz (2..10) { + foreach my $sz (2..10, qw(12 14 16)) { gentextmodule_demo_start_batch(); if (defined($git_count)) { @@ -562,7 +562,7 @@ sub do_git () { genform_plusq("Git$sz", ljustt($sz, 'Objid', $git_object, $git_dirty)) if defined $git_object; - if (defined $git_count && defined $git_object) { + if (defined $git_count && defined $git_object && $sz<=10) { genform_prep(); genform("Full".($sz*2), ljustt($sz, 'Objid', $git_object),