Re: open-output-pipe problem

2002-08-08 Thread Thien-Thi Nguyen

   From: Thien-Thi Nguyen <[EMAIL PROTECTED]>
   Date: Wed, 07 Aug 2002 20:20:48 -0700

   i have experimented w/ back-porting the new popen.scm (including
   associated support in libguile) w/o success [...]

turns out i was laboring under the classic stupidity of forgetting to
unpack an SCM... live and learn.  in any case, please find below a
uuencoded tarball containing

   libguile/ioext.h
   libguile/ioext.c
   ice-9/popen.scm

that you should be able to able to unpack in the guile-1.4.1 top-level
directory.  as you may notice, popen.scm `open-process' now closes file
descriptors instead of ports, following the change in HEAD.  however,
the implementation is more straightforward than in HEAD, w/ only one
addition to libguile (`scm_close_all_fdes_except' and associated scheme
binding).  you might notice other changes to popen.scm; those are
related to the documentation methodology and are not relevant to its
operation.

please rebuild and let me know of any problems.

thi


___
begin 644 popen-fix.tar.gz
M'XL(`+<04ST``^P\:7/;1I;Y*M7\B(Y<:Y,.)%/RM;$L)[1$V=K1M225C,MQ
M84"P(<(&`2X`BM:X^-_W'7T!/&3/5O8JLQ(9!+I?O_OJ!I-X<#V-$_DHSN3G
MX\?/?V@]?[KWY%GKV>/=71B_
M]_A9ZP?1^C.0J7^F11GD0OQ0ENG:<7<]_S_Z>?1PXS";W.;Q]:@4C<.FV/WY
MYZ<>_GU&?Y_3WW^EOS][8@\$1G_WQ'$NI>AE43D+*<8R:$8$!R)Z+&YD7\%WL>0*0:`0EXIF+;(*CF@@F2&]%
M$I1V["IZ+5E#$:>T_"B;``DC@`I$S>(D$0,IIH6,IHF'(&"P^/VD__;BJB_:
MY^_$[^UNMWW>?[3QQ?=$5;7+:[_9/#J]-V5UQ>=2\O>IT=(7H2T9((8`U/
M(Q(+\&THRR!."DWX.Y!D`=@E0S$*;B1(-)3Q#>`6B!#TZVYI$5N3++TF,F$P
M<,\J2L'(B0AMY^*JUU;$M@L@JYC(,`8R
MY.=03ACXNJ7%-;`#=`-T-RY091`0E^".@74I<#EEY8G+
M`MB:R`#$`(/>7)V<=JS>28L(*AXJF"?BB$PLB=-/S'Z<`U\'>9#?,J,S4GGD
M:T'C169*\&II0MFIC%V\B((VD,O3-0N]R=D#V7A*46F*CE%`$/'S[:W-S\"_Q_+T[#9`H,?UF4PSC;&;VRM[82G3GZ13C>&6TM
M>S3)\K)8\0PL9[CB4;1NWC2-HQ6/PE&0KYH621!X+E&`-",H9#T+L'9[Y1YWCD_..:("@?&2[#PH0@T[)H?_9$UO_@O>V
MS;T?MSSQF/[#:.A\&@!+T#"P$+P>3".^N,X&%"/P&F7'5YA9JTM`I^EM;B"4
MK2ZL)E!4`7CMO&`3^O4FR+_@U#E[$OH.\.?@L,HX$6B]'!G_2+<4(`>&RJUH
M%F,X%\P]M"V94E1`Y\NNCL8QTK_,+4",F_D4Z(#PGW/"H;F26XQQ,8L>N)29
M3))]=I1@9-*S`"']"X-\B$'&KJNHY.!"601Z'D^H,"I`HZ9(K`7S*WJ]+XUP
MFNE2`QBMLJ^*B&(&50IP&F!RP
MT\_5\A8B1<+I>`!3`(:C4N2?B+LYQQ'4BLD$4]J2HQ53@!'#J\*S6.2$+^9O
MA550F47;V>`C4#C?QQ3-\@""6($`$^E@:-)^K<5$@UU$I6:L-G!!:]R+YCM;
MS.\N6QWPV%+5[O4ZW[T,%^*8#H[1/Y5'BU8%HB?OW]=>71-O=JSWS
M4'HDPI(G+%D,ZG\C8_%*+P&+T8V7!\Y:BJ.L#?`=DYO&1[BCE$9\5*C!U4\_
M,3^_J-"""O*)9N$G5"R^EF6HV+^O'A'03_"\M2\^`3Q'J\0GA+KQ!0T&1:B4
MY_VG#^(`D&BR(7WA?ZR4C]NGO0Y(F0,!R'EC`]>>IKQZZ`DM/#61K9EU`!,Z
M@G+6_FO'AWJ["S,PQFVHP30,;64/,$5V;"MV-`$BC9EO;LPW+4HA(MNY.`8\
MEBX$CU"BO,0ZX)J7H-7O/WY`,3`/<;&ED%]?7)SZQ]Y:H//->Q@"(NM*-C^!J='%O_)H(99NQC$O0^#9L7H+@?)C+U)TWR.3B63.OAI%1&>=EO
MO_8[Y_WN.T<#:FMH37L$6:Y`]X@EEO;3N&9!KK3`#@FFM&W-+%/
MY<1X#*EO""7,"]_)$^\)R;.'9;N&.:3=;9'T';%\T%#A-_35G,55B=%`]C;JQLB&B!A!+CR3H")#[,=B%JZ,QD,,L9[`*BW-9@H+E`+F"$C3`"!^
M4F#>R))[R%:WG!G(9$R!?2IS5`BPH='(3N.#"U-+E;)B5CZ%ERX+*457#D''
M
MCMPP@YI;=3P;7Q<]5)K1^`KWH&.)"B9PZ<2.VEC466W<\TWC*<0LHZ[A*)L)
M^7DBP9AO5/M(6T)<6&/_!F-9%T96.O[57K_J\^>0M&QN/J*VG`5-O;Q\FJ(G
M*ZB3JZM$U""M.=24P(X[::%')2M#I[YD0+6G-D555^(2-!#GN4"-G@./CC+5
MDBPR,0X^8><42KN@H$8>I2MCC`2T4P0U[JWXN\'\@=J"(@QD%,5A#$.I>A>]
M<`03L>WW:$7/APW5Y3$V>)#OR]H\9'65CHVQ]FVGJK:\LJT-3P<*53/GP35V
M7FU!F\I0%D604[\6@ZCBN8:+[AS,`$33%*1BXPQWDG2K5;';JW8?5K8$"+26
MBJW,"3`7YXR&T[4Q@\;!+69W:E_0<$"H2+>LFJ]W;2R_J><3!EC<+VLAH!XH
M#6/_#N0LM(#NO83E7HD=P1?-NXM\4OEZIFU+=5.D%\J(4/BL*B@.BK#?7!6O
M*(9WG6)X?;:/*Y)CFOD!]8'0_]-H`.3_WCWI=WA](JK,!L5[AG7Q&BI=!>C#
M3I1,BY$!BSQ`O\>$-\5BF<(A]7[!D5'A4>#:YU>GI[PB<@6@T`3&2=5EE7:`
M2=<1P'L$N+U+Q2AZ;UVJ*E"U(I)&4-AP)BK/A\Z;%T;D2W`?/A@#+.$)'JHF
M$F6I-(F5?H!+G9P?GI)G4&PQ-2@ASYB!TS^./[_`\*@V=<&]A)\H7H'>X4Z;
M3D'`/B*,Y4%13,>\V8:Q@*.G0Z'ATATT6$0/+TYU](QG:==5.(.3S$
M10PQ%7CR/Z;Q39!06,I>N.W87PO4L`1HL/<:0T424"/>XS(?FLY33=C"DU_1
M&1IX:]R:9;[Q:WK)!C'9N!%'T'I9K?5?(^6HE$D"`J9_MY1@5\D6_+\3+]F-
M!RFZ5GE-C>!)+@M@H=Z/UB4?I%VT_6_Z[='P$8=1RYHQY`?3W`V!II<.@NO4
MQ+-6.)"X?V*[;8E>I_-7__"J^\\(@7A"_'>83,`;S`Q/.9NKLY:G7=P).6>S
M[`HQX"X7!YRCSNNK-_#WLMLYA%!RA`X44MA%0>'"*"C\=TMM7:T1%-MA%L%X
M=3V#(C^41H`7@R+#G@]PMYV,LX*C=8$;YMA5HM6"088]`3RN@P\5&W07WK(4
M2E]MB^N"->%N%+K*28VIPM)1;0[+O=H.4-Y,Y"\^DJN\J;O8N(X
MC'-`P>?(N*6_D_<`1N^M9G0R9,Z"X1FVZM-1H1Q.<7^-TM]REI%"%N3YAM-)
M$G-JCERETPK)+1H-)DENCE:$>3S!7-&FG[#H=GT/$=;?UBZSDN5I`Z0S&@XX
MO;MG)II#6F&2H:NT(-I1J_47-4RXBN6.O4JQ1J,3,0,Y"FYB.EE`I^SP<`[&S4%6CC33<][T`R?/
MQ02&@RIJ2%"6Q]=46JNC>49.#A@N:FO8U&1N3]7@*3&LOHIX*+&:`8SQ:(LZ
M<,)0L]S=%+R!0A);2+@+5JQ/?!VU)9O"#!?*>P_U,AI2DR:B-A:D'E-L@J(%
M3B\Z'0/(8^]ZG,:"T]X6TK.5HQ`G5_
MQP`$8ZL6H8?^\5&G9U&()OIAKP_IS9E>6C"!\#":;+^*0+MU5LT0?SS@`=7>
M\AV]>`VZ.A0`^DN':QS=--UW[.PAWH!Y]U?D\+C>%\@'
M"7-;UU]5-FS@6L`4K@ULQ&YILIY
M3@7"DMIPE7.HS:L#=_W`PM#YLGH=N%LU=.T<@%M*22O:J1ZOT4^#C$GJ7!V?
MWTDM[4?KS7FQW$;JGHHK4[*\FUCY]L(LC/U5/"18WJRQ2
M[1?C`$6M1M52;$I.8R88.;[2,O;8)/;NRI4BFRTYMM!6&YABEH/IJGXQ-9ZH
MI$/`;!RCF][&)B'?]W`_+RB!*Y.R4LB.@R&=1L:A(L#3PRI'H^-*
MF,*P#W7Q__H<;+U;VC/^*/2)#^;ZIWHNC_XK\0.5,TTP\J-+M;6V+6.M&V4
MK@@3;NW@-$ZL/(]T*AJ.@O1:JO/U;I*YMEXCC$FH:Z*(<67ETA!@,9WPZRP!EA/74]

Re: open-output-pipe problem

2002-08-01 Thread Thien-Thi Nguyen

   From: Satoru Takabayashi <[EMAIL PROTECTED]>
   Date: Sat, 13 Jul 2002 22:56:57 +0900

   I tried guile 1.4.1 and found a problem on open-output-pipe.

hi, thanks for the bug report.  i have reproduced the problem and
noticed that it is gone in guile-HEAD, but have not yet figured out
which of the (many) changes is responsible for the fixed behavior.

i plan to devote some hours looking into this because it is an area of
libguile i'd like to learn more about.  will let you know what i find.

thi

___
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile



open-output-pipe problem

2002-07-13 Thread Satoru Takabayashi

Hi!

I tried guile 1.4.1 and found a problem on open-output-pipe.

  % cat x.scm
  (use-modules (ice-9 popen))
  (let ((port (open-output-pipe "tr a-z A-Z")))
(write-line "abc123" port)
(close-pipe port))

With guile 1.3.4, it works fine.

  % /usr/bin/guile -s x.scm# guile 1.3.4
  ABC123
  %

Hoever, with guile 1.4.1, it doesn't produce any outputs.

  % /usr/local/bin/guile -s x.scm  # guile 1.4.1
  %


Thanks,
-- Satoru Takabayashi

___
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile