operator_fail.ooc

XString: class {

	data : Char*
	size : SizeT
	
	init: func (src: Char*, =size) {
		data = gc_malloc(size)
		memcpy (data, src, size)
	}
	
	equals?: func -> Bool { false }
}

operator implicit as (s: XString) -> Char* {
    s data
}

operator implicit as (c: Char*) -> XString {
    XString new (c, strlen(c))
}

operator [] (string: XString, index: SizeT) -> Char {
    ( string data + index )@
}

operator []= (string: XString, index: SizeT, value: Char) {
    (string data + index)@ = value
}

main: func {
	x := XString new ( "xxxx" as Char*, 4)
	x[1] = 'y'
}