Commit ac4f220e authored by Julien Lepiller's avatar Julien Lepiller

torrent: metainfo: export record procedures.

parent fbeacd2d
......@@ -20,7 +20,27 @@
#:use-module (srfi srfi-9)
#:use-module (torrent bencoding)
#:use-module (torrent utils sha-1)
#:export (parse-torrent-file))
#:export (parse-torrent-file
make-metainfo
metainfo?
metainfo-info
metainfo-announce
metainfo-infohash
make-torrent-info
torrent-info?
torrent-info-piece-length
torrent-info-pieces
torrent-info-private?
torrent-info-single-file?
torrent-info-name
torrent-info-len
torrent-info-files
make-torrent-file
torrent-file?
torrent-file-len
torrent-file-path))
(define-record-type metainfo
(make-metainfo info announce infohash)
......@@ -31,7 +51,7 @@
(define-record-type torrent-info
(make-torrent-info piece-length pieces private? single-file? name len files)
info?
torrent-info?
(piece-length torrent-info-piece-length)
(pieces torrent-info-pieces)
(private? torrent-info-private?)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment