From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 5 Feb 2016 02:57:24 +0000 (+0000)
Subject: commitid.scad.pl: break out chrmodname (nfc)
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=2720ea01f6fc120edd63d942a334ef5b29751306

commitid.scad.pl: break out chrmodname (nfc)
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 973ca0a..ee9be88 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -72,6 +72,12 @@ function Commitid__scale() =
   Commitid_pixelsz() / 0.1;
 END
 
+sub chrmodname ($) {
+    my ($chr) = @_;
+    my $chrx = sprintf '%#x', ord $chr;
+    return "Commitid__chr_$chrx";
+}
+
 sub parsefont () {
     my %cellmap;
     for (;;) {
@@ -121,8 +127,7 @@ sub parsefont () {
     my @demo;
     my $democols = 6;
     foreach my $chr (sort keys %chrpolys) {
-	my $chrx = sprintf '%#x', ord $chr;
-	my $mod = "Commitid__chr_$chrx";
+	my $mod = chrmodname $chr;
 	p "module $mod () {\n";
 	foreach my $poly (@{ $chrpolys{$chr} }) {
 	    p " polygon([";