repo.or.cz
/
glibc
/
history.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Don't define __libc_have_rt_sigs here.
[glibc/history.git]
/
iconvdata
/
gap.pl
blob
01ee9b28298f2f84b5d991e4f992d982cc3237ae
1
$first
=
$last
=
$idx
=
0
;
2
while
(<>) {
3
local
(
$ucs
,
%rest
) =
split
;
4
local
(
$u
)=
hex
(
$ucs
);
5
if
(
$u
-
$last
>
6
) {
6
if
(
$last
!=
0
) {
7
printf
(
" { start:
%#06x
, end:
%#06x
, idx:
%5d
},
\n
"
,
8
$first
,
$last
,
$idx
-
$first
);
9
$idx
+=
$last
-
$first
+
1
;
10
}
11
$first
=
$u
;
12
}
13
$last
=
$u
;
14
}
15
printf
(
" { start:
%#06x
, end:
%#06x
, idx:
%5d
},
\n
"
,
16
$first
,
$last
,
$idx
-
$first
);