Retropikzel
/
foreign-c-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

download-file: Limit to http or https urls only

This commit is contained in:
retropikzel 2026-07-02 15:05:03 +03:00
parent aad45dc0e2
commit e406a9f1ee
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
retropikzel/download-file.scm
View File

@ -41,6 +41,11 @@
(list->string result))) (list->string result)))
(define (download-file url . download-path) (define (download-file url . download-path)
(when (< (string-length url) 4)
(error "download-file error: url too short" url))
(when (and (not (string=? (string-copy url 0 4) "http"))
(not (string=? (string-copy url 0 5) "https")))
(error "download-file error: only http or https urls supported" url))
(when (not (string? url)) (when (not (string? url))
(error "download-file error: url must be string" url)) (error "download-file error: url must be string" url))
(when (and (not (null? download-path)) (when (and (not (null? download-path))
@ -55,9 +60,6 @@
(file-mode-cbv (string->c-bytevector "w")) (file-mode-cbv (string->c-bytevector "w"))
(to-file-cbv (c-fopen to-path-cbv file-mode-cbv)) (to-file-cbv (c-fopen to-path-cbv file-mode-cbv))
(url-cbv (string->c-bytevector url))) (url-cbv (string->c-bytevector url)))
(display "HERE: to-path ")
(write to-path)
(newline)
(when (c-bytevector-null? to-file-cbv) (when (c-bytevector-null? to-file-cbv)
(let* ((error-message "download-file error") (let* ((error-message "download-file error")
(error-pointer (string->c-bytevector error-message))) (error-pointer (string->c-bytevector error-message)))

2
retropikzel/download-file/README.md
View File

@ -1 +1 @@
Download file Download file using HTTP or HTTPS.

2
retropikzel/download-file/VERSION
View File

@ -1 +1 @@
0.1.0 1.0.0