private class FlatBufferByteIterator
	super IndexedIterator[Int]

	var target: FlatBuffer

	var target_items: CString is noautoinit

	var curr_pos: Int

	init do if isset target._items then target_items = target._items

	redef fun index do return curr_pos

	redef fun is_ok do return curr_pos < target._byte_length

	redef fun item do return target_items[curr_pos]

	redef fun next do curr_pos += 1

end