lassik
/
eval-server
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix bug

This commit is contained in:
Lassi Kortela 2021-09-19 14:41:47 +03:00
parent d4f1c2538d
commit f659ac07cd
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
eval-client.scm
View File

@ -62,7 +62,6 @@
(let loop () (let loop ()
(let ((entry (read-tar-entry))) (let ((entry (read-tar-entry)))
(unless (eof-object? entry) (unless (eof-object? entry)
(read-tar-entry-bytes entry) (write-string (utf8->string (read-tar-entry-bytes entry)))
(loop)))) (newline)
(display "Success") (loop))))))
(newline)))

5
eval-server.scm
View File

@ -11,6 +11,8 @@
(define implementations (define implementations
'(("gauche" '("gosh" "-r" "7")))) '(("gauche" '("gosh" "-r" "7"))))
(define implementation-name first)
(define tar-content-type "application/x-tar") (define tar-content-type "application/x-tar")
(define (tar-content-type? symbol) (define (tar-content-type? symbol)
@ -92,7 +94,8 @@
(send-response (send-response
status: 'ok status: 'ok
body: (bytevector->string body: (bytevector->string
(let ((bytes (string->utf8 "Hello world"))) (let ((bytes (string->utf8
(string-append "Hello " (implementation-name impl)))))
(bytevector-append (bytevector-append
(bytevector-append (bytevector-append
(make-tar-header-for-regular-file "proc/fd/1" bytes) (make-tar-header-for-regular-file "proc/fd/1" bytes)