From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 9 Apr 2012 23:40:49 +0000 (+0200)
Subject: font: save queried character numbers in include
X-Git-Tag: v1.5~2
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/aff24d1391a688cdef38674f3f10c4842d84fa1a

font: save queried character numbers in include
---

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index 0f0857d..a6dc15a 100755
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -63,7 +63,25 @@ for my $chars (values %{$_}) {
 		($_ => scalar grep { $fontcover->{$_} } @{$chars});
 	} keys %font;
 	$row{-count} = scalar @{$chars};
-#	$row{-chars} = [ map { ord } sort @{$chars} ];
+
+	$row{-query} = eval {
+		my @query = map { ord } sort @{$chars};
+		my $i = 0;
+		while ($i < @query) {
+			my $j = $i + 1;
+			my $v = $query[$i];
+			while ($j < @query) {
+				$v++;
+				last if $query[$j] != $v;
+				$j++;
+			}
+			if ($j - $i > 2) {
+				splice(@query, $i, $j - $i, "$query[$i]-$query[$j-1]");
+			}
+			$i++;
+		}
+		return join '+', @query;
+	};
 
 	$chars = \%row;
 }