remove example.{c, scm} because those were temporary

I commited that file only to make it easy for guile-bytestructures'
maintainer to reproduce the issue. With guile-bytestructures 1.0.1 the
problem is gone, see
https://github.com/TaylanUB/scheme-bytestructures/commit/38a7861dfc305fc621f344e6f16757736e21a6b6

I could rewrite git history, but I don't want to `git push -f`.

download.scm works as expected, in the sens that it outputs correct
progress status values.

A patch for guix was sent to update guile-bytestructures. It's a
dependency a guix itself. So it might take some time. Otherwise said,
you need a guix with that patch to make gnunet-guile work. See
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30034

If the patch goes to core-updates, I will try to fix guix.scm of
gnunet-guile to include guile-bytestructures 1.0.1.

2 files changed, 0 insertions, 40 deletions

diff --git a/example.c b/example.c
deleted file mode 100644
index ddff0e3..0000000
--- a/example.c
+++ /dev/null
@@ -1,13 +0,0 @@
-#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
deleted file mode 100644
index 06da020..0000000
--- a/example.scm
+++ /dev/null
@@ -1,27 +0,0 @@
-(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))