reading stdin

[Simon ArmstrongParticipant]

Monkey

#import "<libc>" Using libc.. Extern Const stdin:FILE Ptr Public Global buffer:=New Byte[64] Function Main() Print "hello what is your name?" While True Local n:=fread(buffer.Data,1,1,stdin) Print "result:"+n End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#import "<libc>" Using libc..   Extern   Const stdin:FILE Ptr   Public   Global buffer:=New Byte[64]   Function Main() Print "hello what is your name?" While True Local n:=fread(buffer.Data,1,1,stdin) Print "result:"+n End End

For basic console usage this seems to work (MacOS) but I suspect my next move to move it to a c++ thread and use some sort of event to deliver a line of user input. Hmmm.

[Author]

Posts