add example.{c,scm} to show the issue with progress info

2 files changed, 40 insertions, 0 deletions

diff --git a/example.c b/example.c
new file mode 100644
index 0000000..ddff0e3
--- /dev/null
+++ b/example.c
@@ -0,0 +1,13 @@
+#include "platform.h"
+#include "gnunet_fs_service.h"
+
+
+struct GNUNET_FS_ProgressInfo * test() {
+  struct GNUNET_FS_ProgressInfo * info = malloc(sizeof(struct GNUNET_FS_ProgressInfo));
+  info->status = 42;
+  return info;
+}
+
+
+// compile with
+// c99 -I/gnu/store/nfaljkxhj0hgxkzxbd4pgmm70h9niq7q-gnunet-git-0.10.1-2.477e0de/include/gnunet/ -c example.c -o libexample.o && gcc -shared libexample.o -o libexample.so
diff --git a/example.scm b/example.scm
new file mode 100644
index 0000000..06da020
--- /dev/null
+++ b/example.scm
@@ -0,0 +1,27 @@
+(use-modules ((bytestructures guile)))
+(use-modules ((gnunet config)))
+(use-modules ((gnunet)))
+(use-modules ((system foreign) #:prefix ffi:))
+
+(define* (dynamic-link* #:optional library-name)
+  (let ((shared-object (if library-name (dynamic-link library-name) (dynamic-link))))
+    (lambda (return-value function-name . arguments)
+      (let ((function (dynamic-func function-name shared-object)))
+        (ffi:pointer->procedure return-value function arguments)))))
+
+;; bytestructures helper
+
+(define (pointer->bytestructure desc pointer)
+  (let ((size (bytestructure-descriptor-size desc)))
+    (let ((bv (ffi:pointer->bytevector pointer size)))
+      (make-bytestructure bv 0 desc))))
+
+;;; gnunet-util bindings, gnunet_util_lib.h
+
+(define fs (dynamic-link* %libgnunet-fs))
+(define libexample (dynamic-link* "./libexample.so"))
+
+(define test (libexample '* "test"))
+
+(define info (pointer->bytestructure %fs-progress-info (test)))
+(pk (fs-progress-info-status info))