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
Add _nl_domain_bindings.
[glibc/history.git]
/
iconvdata
/
gaptab.pl
blob
34eb2f94082c9b25de82221c7d2055fcd7c9b432
1
$first
=
$last
=
$idx
=
0
;
2
sub
fmt
{
3
printf
(
"
\n
"
)
if
((
$n
%
8
) ==
0
);
4
++
$n
;
5
my
(
$val
) =
pop
(
@_
);
6
printf
(
" '
\\
x
%02x
',"
,
$val
);
7
}
8
while
(<>) {
9
local
(
$ucs
,
$char
,
%rest
) =
split
;
10
local
(
$u
)=
hex
(
$ucs
);
11
local
(
$c
)=
hex
(
$char
);
12
if
(
$u
-
$last
>
6
) {
13
if
(
$last
!=
0
) {
14
$idx
+=
$last
-
$first
+
1
;
15
}
16
$first
=
$u
;
17
}
else
{
18
for
(
$m
=
$last
+
1
;
$m
<
$u
; ++
$m
) {
19
fmt
(
0
);
20
}
21
}
22
fmt
(
$c
);
23
$last
=
$u
;
24
}
25
printf
(
"
\n
"
);