Utf16Char = distinct int16

WideCString = ptr UncheckedArray[Utf16Char]

WideCStringObj = object
  data: seq[Utf16Char]       ## the raw character buffer. The number of elements
                             ## doesn't necessarily correspond to the length of
                             ## the string
  

proc `$`(s: WideCString): string {....raises: [], tags: [].}

proc `$`(s: WideCStringObj): string {....raises: [], tags: [].}

proc `$`(s: WideCStringObj; estimate: int; replacement: int = 0x0000FFFD): string {.
    ...raises: [], tags: [].}

proc `$`(w: WideCString; estimate: int; replacement: int = 0x0000FFFD): string {.
    ...raises: [], tags: [].}

proc len(w: WideCString): int {....raises: [], tags: [].}

proc newWideCString(s: cstring): WideCStringObj {....raises: [], tags: [].}

proc newWideCString(s: string): WideCStringObj {....raises: [], tags: [].}

proc newWideCString(size: int): WideCStringObj {....raises: [], tags: [].}

proc newWideCString(source: cstring; L: int): WideCStringObj {....raises: [],
    tags: [].}

converter toWideCString(x: WideCStringObj): WideCString {.inline, ...raises: [],
    tags: [].}

template `[]=`(a: WideCStringObj; idx: int; val: Utf16Char)

template `[]`(a: WideCStringObj; idx: int): Utf16Char