blob: 7e26a050522572f24493034e64f906ca73f6caa2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)
|
