From aff24d1391a688cdef38674f3f10c4842d84fa1a Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 10 Apr 2012 01:40:49 +0200
Subject: [PATCH] font: save queried character numbers in include

---
 tools/mkfontinfo | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

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;
 }
-- 
2.30.0