2021-08-24 14:03:49 -04:00
|
|
|
(define-library (pandoc)
|
2021-09-05 05:50:52 -04:00
|
|
|
(export
|
|
|
|
|
|
|
|
|
|
pandoc-json->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-port->json
|
|
|
|
|
pandoc-port->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-file->json
|
|
|
|
|
pandoc-file->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-files->json
|
|
|
|
|
pandoc-files->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-bytevector->json
|
|
|
|
|
pandoc-bytevector->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-bytevectors->json
|
|
|
|
|
pandoc-bytevectors->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-string->json
|
|
|
|
|
pandoc-string->sxml
|
|
|
|
|
|
|
|
|
|
pandoc-strings->json
|
|
|
|
|
pandoc-strings->sxml)
|
2021-08-24 14:03:49 -04:00
|
|
|
(import (scheme base)
|
|
|
|
|
(scheme file)
|
|
|
|
|
(scheme write))
|
2021-09-05 05:50:52 -04:00
|
|
|
(begin (define inexact->exact exact)
|
|
|
|
|
|
2021-09-10 09:13:36 -04:00
|
|
|
(define (read-bytevector-all port)
|
2021-09-05 05:50:52 -04:00
|
|
|
(let loop ((whole (bytevector)))
|
2021-09-10 09:13:36 -04:00
|
|
|
(let ((part (read-bytevector 1000 port)))
|
2021-09-05 05:50:52 -04:00
|
|
|
(if (eof-object? part) whole
|
|
|
|
|
(loop (bytevector-append whole part)))))))
|
2021-09-10 09:13:36 -04:00
|
|
|
(include "pandoc/pandoc.r5rs.scm"))
|
