GNU logs - #24680, boring messages

Message sent to bug-guile@HIDDEN:

Subject: bug#24680: Documentation / Behavior of open-pipe* with stderr
Resent-From: Jeff Mickey <j@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guile@HIDDEN
Resent-Date: Wed, 12 Oct 2016 23:19:02 +0000
Resent-Message-ID: <handler.24680.B.147631432317373 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 24680 <at> debbugs.gnu.org
From: Jeff Mickey <j@HIDDEN>
Date: Wed, 12 Oct 2016 16:18:13 -0700
Message-ID: <87fuo12m2y.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

Hi!

So, I like to build up programs by tieing together a few different
programs, and then replacing parts where I reimplement features in
simpler ways.

Currently, I have a piece of guile code that calls out to dd, and I
wanted to capture the stderr and print it if dd failed to run
successfully. If it ran successfully, I just wanted to swallow it.

I read the following from the guile Info page 7.2.10 Pipes under the
procedure documentation for open-pipe*:

  For an input pipe, the child=E2=80=99s standard output is the pipe and
  standard input is inherited from =E2=80=98current-input-port=E2=80=99.  F=
or an
  output pipe, the child=E2=80=99s standard input is the pipe and standard
  output is inherited from =E2=80=98current-output-port=E2=80=99.  In all c=
ases cases
  the child=E2=80=99s standard error is inherited from =E2=80=98current-err=
or-port=E2=80=99
  (*note Default Ports::).

So, in my assumption, I should be able to use parameterize on
current-error-port, and set it to a string port. Here is some test code:

  (use-modules (ice-9 popen))
=20=20
  (define (port-copy dst src)
    (let ((c (read-char src)))
      (if (eof-object? c)
        dst
        (begin (write-char c dst)
               (port-copy dst src)))))
=20=20
  (define (print-outs one two)
    (format #t "what was stored in stdout:~%~a~%<eond of os>~%" (get-output=
-string os))
    (format #t "what was stored in stderr:~%~a~%<eond of es>~%" (get-output=
-string es)))
=20=20
  (let ((os (open-output-string))
        (es (open-output-string)))
    (parameterize ((current-error-port es))
      (let ((rp (open-pipe* OPEN_BOTH "logger" "-s" "help me i'm stderr")))
        (port-copy os rp)
        (status:exit-val (close-pipe rp))))
    (print-outs os es))
=20=20
  (let ((os (open-output-string))
        (es (open-output-string)))
    (parameterize ((current-error-port es))
      (let ((rp (open-pipe* OPEN_BOTH "echo" "help me i'm stdout")))
        (port-copy os rp)
        (status:exit-val (close-pipe rp))))
    (print-outs os es))

This, notably, is unable to print stderr. I tried changing the
parameterize to a call to set-current-error-port, but this didn't work
either, same results where it's blank.

So, clearly, something is wrong.

Then I looked at the source of posix.c & strports.c & fports.h, and it
looks like string ports cannot be used for open-pipe*. 6.14.8 Default
Ports for Input, Output and Errors do not call this out.

I haven't figured out how to fix it yet, but I think it'd be great if
string/byte ports could be used everywhere, including for
stdout/stdin. Seems like we could check if the in/out/error ports are
fd's or not like currently (line 1388 of posix.c) but in the else
case set up some type of thread (or forked process) that goes off and
copies whatever comes out of the fd into a byte or string port.

I don't know enough about the guile C implementation to make more
concrete suggestions.

Thanks in advance. At the least, I feel like the documentation for
open-pipe* and the Default Ports could be improved significantly.

  //  codemac

Message sent:

Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: Jeff Mickey <j@HIDDEN>
Subject: bug#24680: Acknowledgement (Documentation / Behavior of
 open-pipe* with stderr)
Message-ID: <handler.24680.B.147631432317373.ack <at> debbugs.gnu.org>
References: <87fuo12m2y.fsf@HIDDEN>
X-Gnu-PR-Message: ack 24680
X-Gnu-PR-Package: guile
Reply-To: 24680 <at> debbugs.gnu.org
Date: Wed, 12 Oct 2016 23:19:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 bug-guile@HIDDEN

If you wish to submit further information on this problem, please
send it to 24680 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
24680: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D24680
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

Last modified: Mon, 25 Nov 2019 12:00:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.