NAME

src/encodings/ucs2.c - UCS-2 encoding

DESCRIPTION

UCS-2 encoding with the help of the ICU library.

Functions

#include "parrot/parrot.h" #include "../unicode.h"

/* HEADERIZER HFILE: src/encodings/ucs2.h */

/* HEADERIZER BEGIN: static */

static void become_encoding( PARROT_INTERP, STRING *src ) __attribute__nonnull__(1);

static UINTVAL bytes( PARROT_INTERP, STRING *src ) __attribute__nonnull__(1);

static UINTVAL codepoints( PARROT_INTERP, STRING *src ) __attribute__nonnull__(1);

static UINTVAL get_byte( PARROT_INTERP, const STRING *src, UINTVAL offset ) __attribute__nonnull__(1);

static STRING * get_bytes( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count ) __attribute__nonnull__(1);

static STRING * get_bytes_inplace( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *return_string ) __attribute__nonnull__(1);

static UINTVAL get_codepoint( PARROT_INTERP, const STRING *src, UINTVAL offset ) __attribute__nonnull__(1);

static STRING * get_codepoints( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count ) __attribute__nonnull__(1);

static STRING * get_codepoints_inplace( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *dest_string ) __attribute__nonnull__(1);

static void iter_init( PARROT_INTERP, const STRING *src, String_iter *iter ) __attribute__nonnull__(1);

static void set_byte( PARROT_INTERP, const STRING *src, UINTVAL offset, UINTVAL byte ) __attribute__nonnull__(1);

static void set_bytes( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *new_bytes ) __attribute__nonnull__(1);

static void set_codepoint( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL codepoint ) __attribute__nonnull__(1);

static void set_codepoints( PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *new_codepoints ) __attribute__nonnull__(1);

static STRING * to_encoding( PARROT_INTERP, STRING *src, STRING *dest ) __attribute__nonnull__(1);

static UINTVAL ucs2_decode_and_advance( PARROT_INTERP, String_iter *i ) __attribute__nonnull__(1);

static void ucs2_encode_and_advance( PARROT_INTERP, String_iter *i, UINTVAL c ) __attribute__nonnull__(1);

static void ucs2_set_position( PARROT_INTERP, String_iter *i, UINTVAL n ) __attribute__nonnull__(1);

/* HEADERIZER END: static */

#include "ucs2.h"

#if PARROT_HAS_ICU # include <unicode/ustring.h> #endif

#define UNIMPL real_exception(interp, NULL, UNIMPLEMENTED, "unimpl ucs2")

static void iter_init(Interp *, const STRING *src, String_iter *iter);

static STRING * to_encoding(PARROT_INTERP, STRING *src, STRING *dest) { STRING * const result = Parrot_utf16_encoding_ptr->to_encoding(interp, src, dest); /* * conversion to utf16 downgrads to ucs-2 if possible - check result */ if (result->encoding == Parrot_utf16_encoding_ptr) { real_exception(interp, NULL, E_UnicodeError, "can't convert string with surrogates to ucs2"); } return result; }

static UINTVAL get_codepoint(PARROT_INTERP, const STRING *src, UINTVAL offset) { #if PARROT_HAS_ICU UChar *s = (UChar*) src->strstart; return s[offset]; #else real_exception(interp, NULL, E_LibraryNotLoadedError, "no ICU lib loaded"); return 0; #endif }

static void set_codepoint(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL codepoint) { #if PARROT_HAS_ICU UChar *s = (UChar*) src->strstart; s[offset] = codepoint; #else real_exception(interp, NULL, E_LibraryNotLoadedError, "no ICU lib loaded"); #endif }

static UINTVAL get_byte(PARROT_INTERP, const STRING *src, UINTVAL offset) { UNIMPL; return 0; }

static void set_byte(PARROT_INTERP, const STRING *src, UINTVAL offset, UINTVAL byte) { UNIMPL; }

static STRING * get_codepoints(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count) { STRING *return_string = Parrot_make_COW_reference(interp, src); #if PARROT_HAS_ICU return_string->strstart = (char*)src->strstart + offset * sizeof (UChar); return_string->bufused = count * sizeof (UChar); #else { String_iter iter; UINTVAL start;

        iter_init(interp, src, &iter);
        iter.set_position(interp, &iter, offset);
        start = iter.bytepos;
        return_string->strstart = (char *)return_string->strstart + start;
        iter.set_position(interp, &iter, offset + count);
        return_string->bufused = iter.bytepos - start;
    }
#endif
    return_string->strlen = count;
    return_string->hashval = 0;
    return return_string;
}

static STRING * get_bytes(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count) { UNIMPL; return NULL; }

static STRING * get_codepoints_inplace(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *dest_string) {

    UNIMPL;
    return NULL;
}

static STRING * get_bytes_inplace(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *return_string) { UNIMPL; return NULL; }

static void set_codepoints(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *new_codepoints) { UNIMPL; }

static void set_bytes(PARROT_INTERP, STRING *src, UINTVAL offset, UINTVAL count, STRING *new_bytes) { UNIMPL; }

/* Unconditionally makes the string be in this encoding, if that's valid */ static void become_encoding(PARROT_INTERP, STRING *src) { UNIMPL; }

static UINTVAL codepoints(PARROT_INTERP, STRING *src) { #if PARROT_HAS_ICU return src->bufused / sizeof (UChar); #else real_exception(interp, NULL, E_LibraryNotLoadedError, "no ICU lib loaded"); return 0; #endif }

static UINTVAL bytes(PARROT_INTERP, STRING *src) { return src->bufused; }

#if PARROT_HAS_ICU static UINTVAL ucs2_decode_and_advance(PARROT_INTERP, String_iter *i) { UChar *s = (UChar*) i->str->strstart, c; size_t pos; pos = i->bytepos / sizeof (UChar); /* TODO either make sure that we don't go past end or use SAFE * iter versions */ c = s[pos++]; i->charpos++; i->bytepos = pos * sizeof (UChar); return c; }

static void ucs2_encode_and_advance(PARROT_INTERP, String_iter *i, UINTVAL c) { UChar *s = (UChar*) i->str->strstart; UINTVAL pos; pos = i->bytepos / sizeof (UChar); s[pos++] = (UChar)c; i->charpos++; i->bytepos = pos * sizeof (UChar); }

static void ucs2_set_position(PARROT_INTERP, String_iter *i, UINTVAL n) { i->charpos = n; i->bytepos = n * sizeof (UChar); }

#endif static void iter_init(PARROT_INTERP, const STRING *src, String_iter *iter) { iter->str = src; iter->bytepos = iter->charpos = 0; #if PARROT_HAS_ICU iter->get_and_advance = ucs2_decode_and_advance; iter->set_and_advance = ucs2_encode_and_advance; iter->set_position = ucs2_set_position; #else real_exception(interp, NULL, E_LibraryNotLoadedError, "no ICU lib loaded"); #endif }

ENCODING * Parrot_encoding_ucs2_init(PARROT_INTERP) { ENCODING * const return_encoding = Parrot_new_encoding(interp);

    static const ENCODING base_encoding = {
        "ucs2",
        2, /* Max bytes per codepoint 0 .. 0x10ffff */
        to_encoding,
        get_codepoint,
        set_codepoint,
        get_byte,
        set_byte,
        get_codepoints,
        get_codepoints_inplace,
        get_bytes,
        get_bytes_inplace,
        set_codepoints,
        set_bytes,
        become_encoding,
        codepoints,
        bytes,
        iter_init
    };
    STRUCT_COPY(return_encoding, &base_encoding);
    Parrot_register_encoding(interp, "ucs2", return_encoding);
    return return_encoding;
}

parrotcode: UCS-2 encoding
Contents \| C

NAME

DESCRIPTION

Functions

SEE ALSO