git.shiar.nl
/
unifont.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unifont-7.0.06.tar.gz
[unifont.git]
/
src
/
johab2ucs2
diff --git
a/src/johab2ucs2
b/src/johab2ucs2
index 664a7f0590dd2fa7c38b8c2d278d629a00ca993c..456e36e5b5fbd8dae3e3094a0c7f69c9f0756cc3 100755
(executable)
--- a/
src/johab2ucs2
+++ b/
src/johab2ucs2
@@
-277,7
+277,7
@@
for ( $j=0 ; $j < 11172 ; $j++ ) {
$medial = int($j / 28 ) % 21+1 ;
$final = $j % 28;
$medial = int($j / 28 ) % 21+1 ;
$final = $j % 28;
- printf ("%04X:%64s\n", $j+0xAC00, &compose_hangul($init,$medial,$final));
+ printf ("%04X:%64s\n", $j+0xAC00, &compose_hangul($init,$medial,$final))
or die ("Cannot print to stdout.\n")
;
}
}
@@
-292,7
+292,7
@@
sub compose_hangul
for ( $i = 0; $i < 32; $i++) {
$bit[$i]=sprintf("%02X",
for ( $i = 0; $i < 32; $i++) {
$bit[$i]=sprintf("%02X",
- hex($l_bit[$i]) | hex($m_bit[$i]) | hex($f_bit[$i]) );
+ hex($l_bit[$i]) | hex($m_bit[$i]) | hex($f_bit[$i]) )
or die ("Cannot print to stdout.\n")
;
}
return pack("a2" x 32, @bit );
}
return pack("a2" x 32, @bit );