Script Library: decode-charset.r

Script Library: 1240 scripts

decode-charset.r

REBOL [
    Title: "Decode Charset Function"
    Date: 23-Aug-2001
    Version: 1.0.0
    File: %decode-charset.r
    Author: "Nenad Rakocevic"
    Purpose: "Converts 'charset values to something readable"
    Email: %dockimbel--free--fr
    Example: {
^-^-decode-charset net-utils/url-parser/alpha-num
^-}
    library: [
        level: 'intermediate 
        platform: none 
        type: 'tool 
        domain: none 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

decode-charset: func [data [bitset!] /local out byte][
    out: make string! 100
    data: to-binary data
    forall data [
        byte: to-integer data/1
        repeat i 8 [
            if 1 = (1 and byte) [
                append out to-char (i - 1) + (8 * ((index? data) - 1))
            ]
            byte: to-integer (byte / 2)
        ]
    ]
    out
]

Notes

decode-charset.r has a discussion thread. Posts: 17. Most recent: 4-Jun
email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(dockimbel:free:fr)