18 lines
576 B
Scheme
18 lines
576 B
Scheme
|
(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)
|