[D] Basic Clutter example

module test2;

import std.stdio;
import std.string,
    std.conv,
    std.c.linux.linux;

pragma(lib, "dl");

char* cstring(string s) { return cast(char*)toStringz(s); }

void main(string[] args)
{

    auto lib = dlopen("libclutter-glx-1.0.so", RTLD_NOW | RTLD_GLOBAL);
    T getSym(T)(string name)
    {
        T ret = cast(T)dlsym(lib, cstring(name));
        assert(ret !is null);
        return ret;
    }

    auto clutter_init = getSym!(int function(int*, char***))("clutter_init");
    auto clutter_main = getSym!(void function())("clutter_main");
    auto clutter_stage_get_default = getSym!(void* function())("clutter_stage_get_default");
    auto clutter_stage_set_title = getSym!(void function(void*, char*))("clutter_stage_set_title");

    auto err = clutter_init(null, null);

    if (err != 1)
        return;     // failed to initialize

    writeln("Initialized");

    void* stage = clutter_stage_get_default();
    writeln("Got default stage");

    clutter_stage_set_title(stage, cstring("A window title"));
    writeln("Set title on stage");

    clutter_main();

    dlclose(lib);
}