encode-hipku ( key schema -- hipku )

Vocabulary

hipku.private

Inputs

key	an object
schema	an object

Outputs

hipku

an object

Definition

USING: ascii combinators kernel sequences splitting ;

IN: hipku.private

: encode-hipku ( key schema -- hipku )
    [
        {
            { Octet [ dup pop unclip ch>upper prefix ] }
            { octet [ dup pop ] }
            { octet. [ dup pop "." append ] }
            [ ]
        } case
    ] map nip { f } split [ " " join ] map "\n" join ;