#include "enfilade_s7.h"

#include <stdio.h>

int main(void)
{
    s7_scheme *sc = s7_init();
    s7_pointer value;

    init_enfilade_s7(sc);

    value = s7_eval_c_string(sc,
        "(let ((e (make-enfilade)))"
        "  (enfilade-put-data e \"1.2.3\" 42)"
        "  (enfilade-put-data e \"1.2.4\" 43)"
        "  (enfilade-put-data e \"1.3.1\" 99)"
        "  (list"
        "    (enfilade-get-by-tumbler e \"1.2\")"
        "    (enfilade-get-range e 1 3)"
        "    (tumbler-compare \"1.2\" \"1.2.1\")"
        "    (tumbler-add \"25.6.46.93\" \"0.0.3.1.21\")"
        "    (tumbler-subtract \"1.4.3\" \"1.1.1\")"
        "    (enfilade-remove e \"1.2.3\")"
        "    (enfilade-get-by-tumbler e \"1.2.3\")))");

    puts(s7_object_to_c_string(sc, value));
    s7_free(sc);
    return 0;
}