Packages

koatuu

1.4.0
1.4.2 1.4.1 1.4.0 1.3.27 0.11.0

KOATUU Ukrainian Classifier

HexDocs

Current section

Files

Jump to
Readme
5 Versions
3 Dependencies
Dependants
Files
Activity
koatuu src koatuu_abc.erl
Raw

src/koatuu_abc.erl 

-module(koatuu_abc).

-export([cyr_lat/1, id/1, padId/1]).



id(Name) -> list_to_binary(string:pad(cyr_lat(string:uppercase(Name)), 50, trailing)).

padId(Name) -> list_to_binary(string:pad(Name, 50, trailing)).



cyr_lat(<<Symbol/utf8, Tail/binary>>) -> iolist_to_binary([convert(Symbol), cyr_lat(Tail)]);

cyr_lat(<<Symbol/utf8>>) -> convert(Symbol);

cyr_lat(_) -> <<>>.



convert($А) -> $A;

convert($Б) -> $B;

convert($В) -> <<$B, $b>>;

convert($Г) -> $C;

convert($Ґ) -> <<$C, $g>>;

convert($Д) -> $D;

convert($Е) -> $E;

convert($Є) -> $F;

convert($Ж) -> $G;

convert($З) -> $H;

convert($И) -> $I;

convert($І) -> <<$I, $a>>;

convert($Ї) -> <<$I, $b>>;

convert($Й) -> $J;

convert($К) -> $K;

convert($Л) -> $L;

convert($М) -> $M;

convert($Н) -> $N;

convert($О) -> $O;

convert($П) -> $P;

convert($Р) -> $R;

convert($С) -> $S;

convert($Т) -> $T;

convert($У) -> $U;

convert($Ф) -> $V;

convert($Х) -> $W;

convert($Ц) -> $X;

convert($Ч) -> $Y;

convert($Ш) -> $Z;

convert($Щ) -> <<$Z, $a>>;

convert($Ь) -> <<$Z, $b>>;

convert($Ю) -> <<$Z, $c>>;

convert($Я) -> <<$Z, $d>>;

convert(39) -> $z;

convert(AsIs) when AsIs < 128 -> AsIs;

convert(_) -> <<>>.