##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: December, 2016
# Modified: 2016-12-02/19:56-0500
##+
#
# univedis-v1.icn, Embed a Redis clone, vedis by Symisc
#
# tectonics:
#    gcc -o univedis-v1.so -shared -fpic univedis-v1.c vedis.c
#
link io
procedure main()
    lib := "univedis-v1.so"
    VedisOpen := pathload(lib, "VedisOpen")
    Vedis := pathload(lib, "Vedis")
    VedisClose := pathload(lib, "VedisClose")

    handle := VedisOpen(":mem:")
    
    Vedis(handle, "SET message 'Hello, world'")
    result := Vedis(handle, "GET message")
    write(result)

    VedisClose(handle)
end