Initial commit

1 files changed, 17 insertions, 0 deletions

diff --git a/linkwave.scm b/linkwave.scm
new file mode 100644
index 0000000..7e26a05
--- /dev/null
+++ b/linkwave.scm
@@ -0,0 +1,17 @@
+(declare (uses paths))
+
+(require-extension sqlite3)
+(require-library posix srfi-4)
+
+(: string-no-null (string -> string))
+(define (string-no-null str)
+  (substring str 0 (- (string-length str) 1)))
+
+(: print-row (string fixnum string string -> void))
+(define (print-row url seconds name description)
+  (format #t "~a~%  ~a~%  ~a~%  ~a~%~%" (string-no-null name) (string-no-null description)
+          (string-no-null url) (seconds->string seconds)))
+
+(define db (open-database (data-file "linkwave.db")))
+(for-each-row print-row db "select * from bookmark")
+(finalize! db #t)