This commit is contained in:
Jenga Phoenix 2019-05-22 01:00:40 -05:00
commit d0706840db
3 changed files with 77 additions and 0 deletions

7
ipfs-gno.asd Executable file
View File

@ -0,0 +1,7 @@
(defsystem "ipfs-gno"
:version "0.1"
:author "Jaidyn Ann <jadedctrl@teknik.io>"
:license "Cooperative Software License"
:depends-on ("drakma" "yason" "arnesi")
:components ((:file "package")
(:file "main")))

61
main.lisp Normal file
View File

@ -0,0 +1,61 @@
(in-package :ipfs-gno)
(defparameter *api-host* "http://127.0.0.1:5001")
;; STRING LIST … → (STRING/VARYING RETURN-CODE HEADER-LIST …)
(defun api-call (call arguments &key (method :get) (parameters nil)
(want-stream nil))
(let ((call-url (string+ *api-host* "/api/v0/" call))
(first-arg T))
(mapcar (lambda (arg-pair)
(format t "FIRST: ~A~%" first-arg)
(if arg-pair
(progn (setq call-url
(string+ call-url (if first-arg "?" "&")
(car arg-pair) "=" (cadr arg-pair)))
(setq first-arg nil))))
arguments)
(drakma:http-request call-url :method method :parameters parameters
:want-stream want-stream)))
;; STRING :NUMBER :NUMBER → STRING
(defun cat (ipfs-path &key (offset nil) (length nil))
"Return a string of the data at the given IPFS path."
(api-call "cat"
`(("arg" ,ipfs-path)
,(if offset `("offset" ,offset))
,(if length `("length" ,length)))))
;; STRING PATHNAME --> NIL
(defun dl (ipfs-path out-file)
"Write an IPFS file directly to a file on the local file-system.
Non-recursive, in the case of directories.
(Thanks to this thread ) https://stackoverflow.com/a/12607423"
(with-open-file (out-stream out-file :direction :output
:element-type '(unsigned-byte 8)
:if-exists :overwrite :if-does-not-exist :create)
(let ((in-stream
(api-call "cat" `(("arg" ,ipfs-path)) :want-stream 'T)))
(awhile (read-byte in-stream nil nil)
(write-byte it out-stream))
(close in-stream))))
;; PATHNAME → STRING
(defun add (file-path)
"Add a file to IPFS, return it's hash. Does not work recursively."
(gethash "Hash"
(yason:parse
(flexi-streams:octets-to-string
(api-call "add" '() :method :post
:parameters `(("file" . ,file-path)))))))
;; STRING-A STRING-B … STRING-N → STRING
(defun string+ (&rest strings)
"Combine an arbitrary amount of strings into a single string."
(reduce (lambda (a b) (format nil "~A~A" a b)) strings))

9
package.lisp Normal file
View File

@ -0,0 +1,9 @@
(defpackage :ipfs-gno
(:use :cl :arnesi)
(:export
*api-host*
:dl
:cat
:add))
(in-package :ipfs-gno)