kraken/stdlib/serialize.krak

import vector
import conversions
import mem
import util

fun serialize<T(Serializable)>(it: T): vector::vector<char> {
    return it.serialize()
}

fun serialize<T>(it: T): vector::vector<char> {
    var char_data = conversions::cast_ptr<*T,*char>(&it)
    var toRet = vector::vector<char>()
    for (var i = 0; i < mem::sizeof<T>(); i++;)
        toRet.add(char_data[i])
    return toRet
}

// dead simple wrapper for ease of use
fun unserialize<T>(it: ref vector::vector<char>): T {
    return unserialize<T>(it, 0).first
}
fun unserialize<T>(it: ref vector::vector<char>, pos: int): util::pair<T,int> {
    return util::make_pair(*conversions::cast_ptr<*char,*T>(it.getBackingMemory()+pos), pos + mem::sizeof<T>())
}
fun unserialize<T(Serializable)>(it: ref vector::vector<char>, pos: int): util::pair<T,int> {
    var toRet: T
    pos = toRet.unserialize(it, pos)
    return util::make_pair(toRet, pos)
}