Parrot can't read from stdin

[rgrjr]

Copying this test code:

.sub test :main
	## Test reading five characters from stdin.
	.local string input_string
	.local int len
	input_string = read 5
	len = length input_string
	print "[read '"
	print input_string
	print "' len "
	print len
	print "]\n"
.end

into read-stdin.pir and running it in r33938 produces the following result:

rogers@rgr> ./parrot read-stdin.pir < read-stdin.pir 
[read '^@^@^@^@^@' len 5]
rogers@rgr> 

We've told Parrot to read five characters, but the five characters it reports are ASCII nuls (which I've replaced with '^@' to make them readable), rather than the expected ".sub ". Terminal input has the same problem.

I've tracked this to somewhere between Parrot_io_read_buffer and Parrot_io_read_unix, which is called in the "if (len >= Parrot_io_get_buffer_size(interp, filehandle)) { ... }" case. I do not understand why Parrot_io_read_unix calls Parrot_io_make_string on the passed buffer arg; doesn't that just reallocate strstart?

FWIW, the logic in Parrot_io_read_win32 is somewhat different, so the bug might not be present on Windows; I can't check that.

-- Bob Rogers,  http://www.rgrjr.com/

[allison]

I can't reproduce this on Ubuntu 8.10 64-bit, or Mac OS 10.5.6, at r36078. What platform are you running on? Or, has this issue been resolved by other I/O fixes made since the report?

[chromatic]

I used to be able to reproduce this with Bob's code, but I can't anymore. I think we've fixed it. Bob, if you can reproduce this, please reopen.