gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.238, 2008/10/15 15:27:33	version 1.239, 2009/01/29 19:51:28
Line 1698 c_addr2 = (Char *)getenv(cstr(c_addr1,u1	Line 1698 c_addr2 = (Char *)getenv(cstr(c_addr1,u1
u2 = (c_addr2 == NULL ? 0 : strlen((char *)c_addr2));	u2 = (c_addr2 == NULL ? 0 : strlen((char *)c_addr2));

open-pipe ( c_addr u wfam -- wfileid wior ) gforth open_pipe	open-pipe ( c_addr u wfam -- wfileid wior ) gforth open_pipe
	fflush(stdout);
wfileid=(Cell)popen(cstr(c_addr,u,1),pfileattr[wfam]); /* ~ expansion of 1st arg? */	wfileid=(Cell)popen(cstr(c_addr,u,1),pfileattr[wfam]); /* ~ expansion of 1st arg? */
wior = IOR(wfileid==0); /* !! the man page says that errno is not set reliably */	wior = IOR(wfileid==0); /* !! the man page says that errno is not set reliably */