30 lines
803 B
C
30 lines
803 B
C
#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;
|
|
}
|