Hi everyone,
I was experimenting with pipe and system based on the example on page 58 of UB3.
L := pipe() | stop("Couldn't get pipe: ", &errortext)
system("prog1 &", , L[2])
system("prog2 &", L[1])
close(L[1])
close(L[2])
I tried this (pipetest):
procedure main()
write(&errout,"Starting ",&progname)
L := pipe() | runerr(500)
write(&errout,ximage(L))
o := open("out2.txt","w") | runerr(500)
system("mgen.exe &",,L[2]) | runerr(500)
system("filttest.exe &",L[1],o) | runerr(500)
every close(!L|o)
write(&errout,"Finishing ",&progname)
end
link ximage
mgen generates and outputs a bunch of strings and writes them to &output
filtettest reads lines from &input, concatenates a tag and writes that to
&output
At first I thought the second & on filttest might be a problem as close should
run before mgen & filtest are done with the pipes. But removing it makes no
difference.
Running "pipetest.exe > out.txt" doesn't work as expected.
* out.txt is full of output from mgen
* out2.txt is empty
I'm running Windows 7/x64 and Unicon Version 12.0. July 13, 2011 (seems I
forgot the last upgraded binary)
Running mgen | filttest from command line works as expected.
David------------------------------------------------------------------------------
This SF email is sponsosred by:
Try Windows Azure free for 90 days Click Here
http://p.sf.net/sfu/sfd2d-msazure
_______________________________________________
Unicon-group mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/unicon-group
