projects
/
crolist2marc
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8490e53
)
map croascii to utf-8 in vc_casefix for ucfirst use
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 14 Sep 2013 13:36:16 +0000
(15:36 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 14 Sep 2013 13:36:28 +0000
(15:36 +0200)
crolist2marc.pl
patch
|
blob
|
history
diff --git
a/crolist2marc.pl
b/crolist2marc.pl
index
720b2e7
..
0ca18aa
100755
(executable)
--- a/
crolist2marc.pl
+++ b/
crolist2marc.pl
@@
-14,6
+14,8
@@
sub vc_casefix { # partial reverse-engeenered implementation of case mapping
$vc .= " " x (4 - length($vc));
$vc .= " " x (4 - length($vc));
+ $k =~ tr/^~]}\\|[{@`/ČčĆćĐ𩹮ž/; # CROASCII (YUS|HRN) B1.002:1982
+
my @m = map { ord($_) } split(//, $vc);
my $mask = ( $m[3] & 0b00001111 ) << 4 | ( $m[2] & 0b00001111 );
my @m = map { ord($_) } split(//, $vc);
my $mask = ( $m[3] & 0b00001111 ) << 4 | ( $m[2] & 0b00001111 );