aliens/tekuti
1
0
Fork 0
Code Activity

tekuti git uses get-bytevector-all

Browse source 
* tekuti/git.scm (run): Use get-bytevector-all instead of
  read-delimited.
This commit is contained in:
Andy Wingo 2010-12-03 19:59:15 +01:00
parent 5900823c3e
commit 55617ccff2
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tekuti/git.scm
View file

@ -30,6 +30,8 @@
#:use-module (tekuti util)
#:use-module (tekuti config)
#:use-module (tekuti match-bind)
#:use-module (rnrs bytevectors)
#:use-module (rnrs io ports)
#:use-module ((srfi srfi-1) #:select (filter-map partition
delete-duplicates))
#:use-module (srfi srfi-34)
@ -84,10 +86,15 @@
args))
(let* ((real-args (trc (redirect-input (prepend-env args))))
(pipe (apply open-pipe* OPEN_READ real-args))
(output (read-delimited "" pipe))
(output (begin
(set-port-encoding! pipe "ISO-8859-1")
(let ((bv (get-bytevector-all pipe)))
(if (eof-object? bv)
""
(utf8->string bv)))))
(ret (close-pipe pipe)))
(case (status:exit-val ret)
((0) (if (eof-object? output) "" output))
((0) output)
(else (trc 'git-error output ret real-args)
(raise (condition (&git-condition
(argv real-args)