1 files changed, 72 insertions, 0 deletions

diff --git a/gnunet-guile b/gnunet-guile
new file mode 100755
index 0000000..750cd04
--- /dev/null
+++ b/gnunet-guile
@@ -0,0 +1,72 @@
+#!/bin/sh
+# -*- mode: Scheme; indent-tabs-mode: nil; fill-column: 80; -*-
+exec guile -e '(@ (gnunet-guile) main)' -s "$0" "$@"
+!#
+;;;; Copyright © 2018 Amirouche Boubekki <amirouche@hypermove.net>
+;;;;
+;;;; This program is free software: you can redistribute it and/or modify
+;;;; it under the terms of the GNU General Public License as published by
+;;;; the Free Software Foundation, either version 3 of the License, or
+;;;; (at your option) any later version.
+;;;;
+;;;; This program is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;; GNU General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+(define-module (gnunet-guile))
+
+(use-modules ((ice-9 getopt-long)))
+(use-modules ((ice-9 match)))
+
+(use-modules ((gnunet)))
+(use-modules ((gnunet subcommand)))
+
+
+;;; download
+
+(define %fs-handle #f)
+(define %fs-download #f)
+
+(define (progress info)
+  (pk (fs-progress-info-status info)))
+
+(define %download-options
+  '((help (single-char #\h) (value #f))))
+
+(define (download args)
+  "gnunet download CONFIGURATION URI FILENAME
+
+Download the URI to FILENAME using CONFIGURATION.
+"
+  (let ((options (getopt-long (cons "gnunet-guile download" args)
+                              %download-options
+                              #:stop-at-first-non-option #f)))
+    (if (option-ref options 'help #f)
+        (display (procedure-documentation download))
+        (match args
+          ((configuration uri filename)
+           (let ((configuration* (configuration-create)))
+             (configuration-load! configuration* configuration)
+             (scheduler-run
+              (lambda ()
+                (set! %fs-handle (fs-start configuration* "gnunet-guile" progress))
+                (fs-download-start %fs-handle
+                                   (string->uri uri)
+                                   0
+                                   #:filename filename)))))))))
+
+;;; publish
+
+(define (publish . args)
+  (pk 'publish args))
+
+;;; cli
+
+(define %cli `((download ,download)
+               (publish ,publish)))
+
+(define-public (main args)
+  (subcommand 'gnunet-guile %cli (cdr args)))