decompose ( string quot -- decomposed )


Vocabulary
unicode.normalize.private

Inputs
stringan object
quotan object


Outputs
decomposedan object


Definition
USING: ascii kernel math sbufs sequences ;

IN: unicode.normalize.private

:: decompose ( string quot -- decomposed )
string length <sbuf> :> out string [
>fixnum dup ascii?
[ out push ] [
dup hangul?
[ hangul>jamo out push-all ] [
dup quot call or*
[ out push-all ] [ out push ] if
] if
] if
] each out "" like dup reorder ; inline